10 REM DISKMATE 64 LOADER
20 REM COPYRIGHT (C)1987 J. PERREGAUX
30 REM PUBLISHED BY SOFTDISK PUBLISHING
40 REM
50 IFLD>0THEN70
60 POKE157,0:POKE53265,11:POKE649,10:POKE648,196:PRINT"[147]":POKE648,4:GOSUB170:GOSUB100
70 IFLD=0THENLD=1:LOAD"0:DISKMATE.CHR",8,1
80 IFLD=1THENLD=2:LOAD"0:DISKMATE.SPR",8,1
90 LOAD"0:DISKMATE.EXE",8
100 PRINT"[147][153]":POKE53281,1:POKE53280,6:X$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":C$="[144][151][152][155][155][155][155][152][151][144][151][152][155][155][155][155][152][151][144]":D$="
110 [151]648,196:[153]"LOAD":[151]648,4
120 [153]"";:[129]X[178]1[164][195](C$)[171]1:[153][202](C$,X,1)X$;:[130]:[153][202](C$,X,1)[200](X$,40)"CMDSAVECLOSE
130 PRINTLEFT$(D$,7)"[144][208]LEASE WAIT WHILE [196]ISKMATE LOADS...":PRINTLEFT$(D$,13)"[195]OPYRIGHT ([195])1987 BY [202]ON [208]ERREGAUX
140 [153][200](D$,19)"LENOMMODORE 64 (null)ERSION 1.0
150 PRINTLEFT$(D$,25)"[208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC.
160 [151]53265,27:[142]
170 [151]53280,6:[151]53281,6:[129]X[178]0[164]88:[135]Y:[151]828[170]X,Y:[130]
180 [153]:[153]"LOAD  (null)ATN(null)(null)RIGHT$(null)CHR$:":[153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
190 PRINT"[153]  [196]ISKMATE 64 IS DESIGNED TO BE A TOOL
200 [153]"FOR ADVANCED PROGRAMMERS AND IS QUITE
210 PRINT"CAPEABLE OF SCRAMBLING OR ERASING DATA
220 [153]"STORED ON A DISK. RIGHT$T IS ADVISABLE, IF
230 PRINT"YOU WISH TO EXPERIMENT, TO USE A DISK
240 [153]"OF NO VALUE.
250 PRINT"  [196][207] [206][207][212] [213][211][197] [212][200][201][211] [208][210][207][199][210][193][205] [207][206] [212][200][197] [213][208][212][201][205][197]
260 [153]"STR$RIGHT$(null)(null)--(null)(null)(null) (null)RIGHT$CHR$LEFT$(null) STR$VAL(null)(null)(null)(null)(null) RIGHT$(null)!!!":[153][163]16)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(
270 PRINT"[153]  [212]O BE SAFE, YOU SHOULD PLACE A PIECE
280 [153]"OF OPAQUE TAPE OVER THE (null)P(null)IME DISK'S
290 PRINT"WRITE-PROTECT NOTCH. [212]HEN THERE WILL BE
300 [153]"NO DANGER OF ACCIDENTALLY ERASING OR
310 PRINT"ELSE SERIOUSLY CRIPPLING YOUR [213]P[212]IME
320 [153]"PROGRAM DISK.
330 PRINT"  [208]RESS ([210][197][212][213][210][206])[153] TO LOAD [196]ISKMATE":POKE198,0
340 PRINT"  [208]RESS ([198]8)[153] FOR THE [213]P[212]IME [205]AIN [205]ENU
350 [151]53265,27:[151]788,52:[151]789,234:[151]792,4:[151]793,128
360 [161]X$:[139]X$[178]""[167]360
370 [139]X$[178][199](13)[167][151]53265,11:[153]"LOAD":[142]
380 [139]X$[178]"RESTORE"[167][158]32772
390 [137]360
400 [131]169,8,133,2,160,0,169,4,162,192,132,251,133,252,132,253,134,254,169,216,162,196,132,195,133,196,132,247,134,248,76,123,3,169,196,133,2,160,0,169,192
410 [131]162,4,132,251,133,252,132,253,134,254,169,196,162,216,132,195,133,196,132,247,134,248,177,251,145,253,177,195,145,247,200,208,245,230,252,230,254,230
420 [131]196,230,248,165,252,197,2,208,231,96