home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
checker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
54 lines
10 poke53280,2:poke53281,0
20 print"[147][129]checker program"
30 print"[158]first type n & return"
40 print"then load menu, load a file[160]& reset
50 [153]"load menu, load another file, reset
60 print"repeat until all files loaded
70 [153]"load checker and type y
80 input"[129]have you wiped memory before";a$
90 ifa$="n"then370
100 poke53280,0
101 input"to printer";p$
102 ifp$="y"thenp=1:open1,4
110 poke56334,peek(56334)and254
120 j=129:z=0:f=0
130 print"[147]positions free[158]"
140 fori=820to1023:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto170
150 ifj>0then170
160 f=1:printi-128,:z=z+1:ifz=84thengosub310
165 ifp=1thengosub500
170 next
180 j=129
190 fori=5000to32768:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto220
200 ifj>0then220
210 f=1:printi-128,:j=0:i=i+99:z=z+1:ifz=84thengosub310
215 ifp=1thengosub500
220 next
230 j=129
240 fori=49152to53247:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto270
250 ifj>0then270
260 f=1:printi-128,:j=0:i=i+99:z=z+1:ifz=84thengosub310
265 ifp=1thengosub500
270 next
275 iff=0thenprint"no space free in memory"
290 poke56334,peek(56334)or1
300 close1:end
310 z=0:print:print"press any key to continue or e to end";:f=1
320 poke56334,peek(56334)or1
330 geta$:ifa$=""then330
340 ifa$="e"thenclose1:end
350 poke56334,peek(56334)and254
360 print"[147][129]positions free[158]":return
370 print"[147][158]wiping":poke56334,peek(56334)and254
380 poke53265,peek(53265)and239
390 fori=820to1023:pokei,252:next
400 fori=5000to32768:pokei,252:next
410 fori=49152to53247:pokei,252:next
420 poke53265,peek(53265)or16
430 poke56334,peek(56334)or1
440 print"[147]load"chr$(34)"menu"chr$(34)",8";
450 end
500 ifj>0then520
510 print#1,i-128;
520 return