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