1 DEFINTX-Y:Z=0:Y=0:CLS:PRINT:PRINT"This program will remove passwords, limited backup counts, and":PRINT"security from disk files including  'BASIC', 'CONVERT', 'VISI-":PRINT"CALC', 'XFERSYS', and 'SCRIPSIT'.";
2 PRINT"  It will even work on backup":PRINT"and ORIGINAL disks where the backup count has expired.":PRINT"Use ONLY on TRSDOS 1.3 disks!  When finished, you will be able":PRINT"to copy the above files freely."
3 PRINT:PRINT"Press <ENTER> to begin ... ";
4 Q$=INKEY$:IFQ$=""THEN4ELSEIFQ$=CHR$(13)THEN5ELSE4
5 PRINT@512,CHR$(31);:PRINT:FORX=0TO69:READA:Z=Z+A:POKE&H7000+Y,A-INT(A/256)*256:POKE&H7001+Y,INT(A/256):Y=Y+2:PRINT@540,X;:NEXTX
6 PRINT@512,"CHECKSUM=";Z;" (Should equal 1.28215E+06)"
7 PRINT:PRINT"Insert TARGET DISK in Drive #0":PRINT:PRINT"Press <ENTER> to begin or <BREAK> to abort ...";
8 Q$=INKEY$:IFQ$=""THEN8ELSEIFQ$=CHR$(13)THEN9ELSE8
9 DEFUSR0=&H7000:X=USR(0)
10 DATA 18637,52592,17462,25549,4208,8696,28811,1,4367,29
11 DATA 65150,10240,65054,10280,10302,15875,30480,4565,16
12 DATA 53529,10494,2856,61238,13859,9052,61238,13859,6492
13 DATA 55824,18637,52592,17468,25549,4208,50168,0,27409
14 DATA 8560,308,29986,8560,28811,28194,368,3840,54729
15 DATA 4113,6400,6353,10929,28782,8740,28782,32969,40
16 DATA 0,0,25094,0,65281,255,0,1310,2590,3870,5150,6430,7710
17 DATA 8990,8222
18 ' END OF PROGRAM - FILE AS 'UNLOCK'
