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 >
Commodore BASIC  |  2022-10-26  |  1KB  |  54 lines

  1. 10 poke53280,2:poke53281,0
  2. 20 print"[147][129]checker program"
  3. 30 print"[158]first type n & return"
  4. 40 print"then load menu, load a file[160]& reset
  5. 50 [153]"load menu, load another file, reset
  6. 60 print"repeat until all files loaded
  7. 70 [153]"load checker and type y
  8. 80 input"[129]have you wiped memory before";a$
  9. 90 ifa$="n"then370
  10. 100 poke53280,0
  11. 101 input"to printer";p$
  12. 102 ifp$="y"thenp=1:open1,4
  13. 110 poke56334,peek(56334)and254
  14. 120 j=129:z=0:f=0
  15. 130 print"[147]positions free[158]"
  16. 140 fori=820to1023:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto170
  17. 150 ifj>0then170
  18. 160 f=1:printi-128,:z=z+1:ifz=84thengosub310
  19. 165 ifp=1thengosub500
  20. 170 next
  21. 180 j=129
  22. 190 fori=5000to32768:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto220
  23. 200 ifj>0then220
  24. 210 f=1:printi-128,:j=0:i=i+99:z=z+1:ifz=84thengosub310
  25. 215 ifp=1thengosub500
  26. 220 next
  27. 230 j=129
  28. 240 fori=49152to53247:j=j-1:ifpeek(i)<>252thenj=129:i=i+120:goto270
  29. 250 ifj>0then270
  30. 260 f=1:printi-128,:j=0:i=i+99:z=z+1:ifz=84thengosub310
  31. 265 ifp=1thengosub500
  32. 270 next
  33. 275 iff=0thenprint"no space free in memory"
  34. 290 poke56334,peek(56334)or1
  35. 300 close1:end
  36. 310 z=0:print:print"press any key to continue or e to end";:f=1
  37. 320 poke56334,peek(56334)or1
  38. 330 geta$:ifa$=""then330
  39. 340 ifa$="e"thenclose1:end
  40. 350 poke56334,peek(56334)and254
  41. 360 print"[147][129]positions free[158]":return
  42. 370 print"[147][158]wiping":poke56334,peek(56334)and254
  43. 380 poke53265,peek(53265)and239
  44. 390 fori=820to1023:pokei,252:next
  45. 400 fori=5000to32768:pokei,252:next
  46. 410 fori=49152to53247:pokei,252:next
  47. 420 poke53265,peek(53265)or16
  48. 430 poke56334,peek(56334)or1
  49. 440 print"[147]load"chr$(34)"menu"chr$(34)",8";
  50. 450 end
  51. 500 ifj>0then520
  52. 510 print#1,i-128;
  53. 520 return
  54.