home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8703a.d64 / copy+ (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  76 lines
  1. 10 POKE56,30:CLR:POKE251,0:POKE254,0
  2. 20 MC=4096:SP=7680:D$="DISK[160]EINLEGEN"
  3. 30 SYSMC:SYSMC+24
  4. 960 OPEN1,8,15:OPEN2,0
  5. 1000 PRINT"[147]"TAB(13)"[195]OPY +  (V1.3)
  6. 1010 [153][163]10)"(null)RITTEN BY ASC.(null)HOMAS
  7. 1020 PRINT"  ** [195]OPYRIGHT  BY [205]ARKT & [212]ECHNIK ***
  8. 1030 [153]"<ATN>ENDERN DER (null)PEEDFLAGS
  9. 1040 PRINT"<[202]>USTIERUNG AENDERN
  10. 1050 [153]"<LEN>OPIERE STR$ISK
  11. 1052 PRINT"<[212]>RACKCHECK
  12. 1054 [153]"<(null)>ECTORSHORTING ";
  13. 1056 [139][194](254)[178]0[167][153]"ON/OFF"
  14. 1058 [139][194](254)[179][177]0[167][153]"ONWAIT/OFF"SL
  15. 1060 [146]198,1:[161]A$
  16. 1070 [139]A$[179][177]"A"[167]1220
  17. 1080 [158]MC[170]15:[158]MC[170]18
  18. 1210 [137]1000
  19. 1220 [139]A$[179][177]"J"[167]1340
  20. 1230 [153]"LOADVALRST WIRD (null)RACK 18 GESUCHT.
  21. 1240 PRINT"[196]ANN UM X [200]ALBTRACKS VERSCHOBEN.
  22. 1250 [153]"ASCUER X<0 :
  23. 1260 PRINT"[196]ER [203]OPF BEWEGT SICH IN [210]ICHTUNG [212]RACK 1
  24. 1265 A[178][194](251):[139]A[177]127[167]A[178]A[171]256
  25. 1270 [153]"X="A:[153]"ON";:[132]2,X$:X[178][197](X$)
  26. 1280 [139][182](X)[177]127 [167]1230
  27. 1290 [139]X[179]0[167]X[178]256[170]X
  28. 1300 [151]251,X:[137]1000
  29. 1340 [139]A$[179][177]"C"[167]1540
  30. 1350 [153]"LOAD1.(null)RACK      =1CMD";:[132]2,FT$:[153]
  31. 1355 FT[178][197](FT$):[139]FT[179]1[176]FT[177]40[167]1350
  32. 1360 [153]"LETZTER (null)RACK=40CMDCMD";:[132]2,LT$:[153]
  33. 1370 LT[178][197](LT$)
  34. 1380 [139]LT[179]1[176]LT[177]40[176]FT[177]LT[167]1350
  35. 1385 [158]MC[170]15
  36. 1390 [141]2110
  37. 1410 [158]MC[170]3
  38. 1420 AN[178]0:[137]1450
  39. 1430 AN[178]0:[141]2110:[158]MC[170]27
  40. 1450 [151]252,FT:[151]253,32[170]32[172]AN:[158]MC[170]6
  41. 1460 FT[178]FT[170]1:AN[178]AN[170]1
  42. 1470 [139](FT[179][178]LT)[175](AN[179]5)[167]1450
  43. 1480 [151]53265,27:[141]2100
  44. 1490 J[178]0:[129]I[178]FT[171]AN[164]FT[171]1
  45. 1500 [151]252,I:[151]253,32[170]32[172]J:[158]MC[170]9
  46. 1502 [139][194](255)[178]0[167]1510
  47. 1503 [151]53265,27:[141]2120
  48. 1504 [139]X$[178]"Q"[167][158]MC[170]30:[137]1000
  49. 1506 [139]X$[178]"T"[167][158]MC[170]12:[137]1502
  50. 1508 [139]X$[179][177]"S"[167]1503
  51. 1510 J[178]J[170]1:[130]:[151]53265,27
  52. 1520 [139]FT[179][178]LT [167]1430
  53. 1525 [158]MC[170]30
  54. 1530 A$[178]"  PEEKACKUPCLOSECOMPLETE":[141]2130:[137]1000
  55. 1540 [139]A$[179][177]"S"[167]1990
  56. 1550 A[178]255[175][168][194](254):[151]254,A
  57. 1560 [139]A[178]0[167]1000
  58. 1570 [133] "LOADSECTORLENGTH  328CMDCMDCMDCMDCMD";SL
  59. 1580 [151]4537,(SL[171]32768)[175]255
  60. 1590 [151]4541,SL[173]256
  61. 1600 [137]1000
  62. 1990 [139]A$[179][177]"T"[167]1060
  63. 2010 [133]"LOAD(null)RACK";T:S$[178][199]([194](SP[171]1[170]T))
  64. 2015 [152]1,"M-W"[199](0)"LREADLW"
  65. 2020 [152]1,"M-W"[199](106)[199](0)[199](1)[199](133)
  66. 2030 [129]J[178]0[164]20:[153]"ONSECTOR:"J:[152]1,"U4"[199](T)[199](J)S$
  67. 2040 [132]1,A,A$,B,C
  68. 2050 [139]A[167][153]"ON"A;"CMD "A$;B;C:[153]
  69. 2060 [130]:[160]3
  70. 2070 [152]1,"M-W"[199](106)[199](0)[199](1)[199](5)
  71. 2080 [146]198,1:[161]X$:[137]1000
  72. 2100 A$[178]" (null)IEL"[170]D$:[137]2130
  73. 2110 A$[178]"(null)UELL"[170]D$:[137]2130
  74. 2120 A$[178]"   (null)ERIFY-VALRROR":[137]2130
  75. 2130 [153]""[163]11)""A$:[158]MC[170]21:X$[178][199]([194](2)):[142]
  76.