home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh15a.d64
/
disk-searcher
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
30 lines
100 PRINT"[147]DISK - SEARCHER VON MANFRED MUELLER
120 [133]"STARTTRACK 1CMDCMDCMD";L$:[141]2000:S[178]L
130 [133]"ENDETRACK 35CMDCMDCMDCMD";L$:[141]2000:E[178]L
135 [139]S[177]E[167][138]
140 [133]"JOKER 255CMDCMDCMDCMDCMD";L$:[141]2000:J[178]L:[153]
150 [133]"CODE ECMDCMDCMD";L$
155 [139][198](L$)[178]39[167]S$[178]S$[170][202](L$,2):[137]150
160 [139][198](L$)[179][177]69[167][141]2000:S$[178]S$[170][199](L):[137]150
170 AN[178][195](S$):[139]AN[177]32[167]AN[178]32:S$[178][200](S$,32)
180 [139]AN[178]0[167][138]
190 EN[178](257[171]AN)[175]255
200 [151]198,0:[153]"DISK EINLEGEN":[146]198,1:[151]198,0
210 [159]1,8,15:[158]3082
220 [152]1,"M-W"[199](157)[199](3)[199](AN)S$
230 [152]1,"M-W"[199](59)[199](0)[199](2)[199](AN)[199](EN);
240 [152]1,"M-W"[199](91)[199](3)[199](1)[199](J);
250 [152]1,"M-W"[199](4)[199](3)[199](1)[199](S);
260 [152]1,"M-W"[199](54)[199](3)[199](1)[199](E[170]1);
270 [152]1,"I0"
280 [152]1,"M-E"[199](3)[199](3)
290 [132]1,F,F$,FT,FS:[139]F[179][177]0[167][153]F;F$;FT;FS:[137]340
300 I[178]0
310 [152]1,"M-R"[199](I)[199](5):[161]#1,A$:[139]A$[178]""[167][153]:[153]"ENDE":[137]340
320 [152]1,"M-R"[199](I[170]1)[199](5):[161]#1,B$
330 [153][198](A$)"CMD"[198](B$[170][199](0)),:I[178]I[170]2:[139]I[179]255[137]310
340 [160]1:[128]
2000 [139][198](L$)[179][177]36[167]L[178][197](L$):[142]
2005 L[178]0:L$[178][202](L$,2)
2010 [129]I[178]1[164]2:H[178][198](L$):H[178]H[171]48[170](H[177]64)[172]7:L$[178][202](L$,2):L[178]16[172]L[170]H:[130]:[142]