home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / LEADERB1.D64 / slowback (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-27  |  1.4 KB  |  61 lines
  1. 120 POKE56,23:CLR:GOSUB640
  2. 130 OPEN1,8,15
  3. 140 DIM B%(35,23),S%(35),Z(7),A$(1)
  4. 150 A$(0)="[158]BACKUP[159]":A$(1)="PROGRAM[159]":R=1
  5. 160 AD=23*256:GOSUB590
  6. 170 POKE250,0:POKE251,AD/256
  7. 180 GOSUB530:GOSUB290
  8. 190 PRINTNS"BLOCKS TO COPY":PRINT
  9. 200 T=1:S=0
  10. 210 FORI=1TO4:TT=T:SS=S:R=1:IFI=1THEN240
  11. 220 IFR=0ANDI=1THENGOSUB450:GOTO240
  12. 230 GOSUB590
  13. 240 POKE251,AD/256:FORJ=1TO169
  14. 250 IFB%(T,S)=0THENGOSUB570
  15. 260 S=S+1:IFS=S%(T)THENT=T+1:S=0:IFT=36THENJ=169
  16. 270 NEXT:IFRTHENR=0:T=TT:S=SS:GOTO220
  17. 280 NEXT:GOTO510
  18. 290 T=18:S=0:GOSUB570
  19. 300 NS=0:FORT=1TO35:S=0
  20. 310 NS=NS+S%(T)-PEEK(AD+4*T)
  21. 320 FORJ=1TO3
  22. 330 B=PEEK(AD+4*T+J)
  23. 340 FORI=0TO7
  24. 350 B%(T,S)=BANDZ(I):S=S+1
  25. 360 NEXTI,J
  26. 370 FORS=S%(T)TO23
  27. 380 B%(T,S)=-1:NEXTS,T
  28. 390 FORI=0TO15
  29. 400 A=PEEK(AD+144+I)
  30. 410 IFA<>160THENN$=N$+CHR$(A)
  31. 420 NEXT
  32. 430 I$=CHR$(PEEK(AD+162))+CHR$(PEEK(AD+163))
  33. 440 PRINTN$,I$:RETURN
  34. 450 PRINT"INSERT [158]BACKUP[159] DISK & HIT RETURN":POKE198,0:CLOSE2
  35. 470 GETA$:IFA$<>CHR$(13)THEN470
  36. 480 PRINT#1,"N0:"N$","I$
  37. 490 INPUT#1,A,B$,C,D:IFATHENPRINTA","B$,"C","D:END
  38. 500 [137]630
  39. 510 [160]2:[160]1:[153]"COPY COMPLETE":[153]"HIT RETURN TO MAKE ANOTHER"
  40. 515 [161]A$:[139]A$[179][177][199](13)[167]515
  41. 516 [137]120
  42. 520 [129]T[178]1[164]35
  43. 530 [129]T[178]1[164]35
  44. 540 S%(T)[178]21:[139]T[177]17[167]S%(T)[178]19:[139]T[177]24[167]S%(T)[178]18:[139]T[177]30[167]S%(T)[178]17
  45. 550 [130]
  46. 560 [129]I[178]0[164]7:Z(I)[178]2[174]I:[130]:[142]
  47. 570 [139]R[167][152]1,"U1 2 0"T;S:[158]IN:[142]
  48. 580 [152]1,"B-P 2 0":[158]OUT:[152]1,"U2 2 0"T;S:[142]
  49. 590 [160]2:[153]"INSERT "A$(R)" DISK & HIT RETURN":[151]198,0
  50. 610 [161]A$:[139]A$[179][177][199](13)[167]610
  51. 620 [152]1,"I0"
  52. 630 [159]2,8,2,"#":[142]
  53. 640 [129]I[178]828[164]873
  54. 650 [135]X:[151]I,X:S[178]S[170]X:[130]
  55. 660 [131] 162,2,32,198,255,160,0,32,207,255,145,250
  56. 670 [131] 200,208,248,230,251,32,204,255,96,198,1,162
  57. 680 [131] 2,32,201,255,160,0,177,250,32,210,255,200
  58. 690 [131] 208,248,230,251,32,204,255,230,1,96
  59. 700 [139]S[179][177]7312[167][153]"DATA ERROR":[128]
  60. 710 IN[178]828:OUT[178]849:[142]
  61.