home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / checker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  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.