home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh79b.d64
/
basic.tron
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
233 lines
10 POKE53280,6:POKE53281,6:POKE53269,1
20 SYS4096:POKE2040,11
30 LO$="DEMO":GOSUB740
40 PRINT"[147][144]";CHR$(14);TAB(9);:POKE53248,0
50 PRINT"[212]RON [195]ONSTRUCTION [211]ET"
60 IFCO=0THENPRINT"";
70 PRINT"[155]";TAB(13);
80 PRINT"[195]ONSTRUCTION"
90 IFCO=1THENPRINT"";
100 PRINT"";TAB(15);
110 PRINT"[211]PIELEN"
120 JO=PEEK(254)
130 IF(JOAND1)=0THENCO=0:GOTO60
140 IF(JOAND2)=0THENCO=1:GOTO60
150 IF(JOAND16)=0THEN170
160 GOTO60
170 JO=PEEK(254):IF(JOAND16)=0THEN170
180 IFCO=1THENGOTO1780
190 PRINT"[147]";TAB(31);"[144][212]RON"
200 PRINTTAB(27);"[195]ONSTRUCTION"
210 PRINTTAB(31);"[211]ET:
220 [153][163]27);"PEEKY (null).CHR$UENTER"
230 [153][163]28);"LISTVALDITOR"
240 [153][163]28);"STOP* LIST(null)OAD"
250 [153][163]28);"STOP* LIST(null)AVE"
260 [153][163]28);"STOP* LISTVALDIT"
270 [153][163]28);"STOP* LISTVALXIT"
280 [129]Q[178]0[164]24:[151]1049[170]Q[172]40,93:[151]55321[170]Q[172]40,0:[130]:PO[178]1
290 [153][163]25);"STOP-TANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
300 [158]4099
310 [151]1024[170]40[172][194](51826)[170][194](51825),177
320 [151]1024[170]40[172][194](51828)[170][194](51827),178
330 [151]1024[170]40[172][194](51830)[170][194](51829),193
340 [151]1024[170]40[172][194](51832)[170][194](51831),194
350 Y[178]7:R[178]4:[141]530:[139]E[178]1[167]350
360 [145]PO[137]380,430,480,40
370 [137]350
380 [153][163]28);"LISTASCILENAME ?"
390 R[178]1932:[141]610
400 LO$[178]NA$:[141]740
410 [141]690
420 [137]300
430 [153][163]28);"LISTASCILENAME ?"
440 R[178]1932:[141]610
450 SA$[178]NA$:[141]870
460 [141]690
470 [137]350
480 [153][163]28);"STOP* LIST(null)ETZEN"
490 [153][163]28);"STOP* LIST(null)OESCHEN"
500 [153][163]28);"STOP* LISTVALXIT"
510 [158]4099:[141]1210
520 [141]690:[137]350
530 JO[178][194](254):E[178]0
540 [139](JO[175]1)[178]0[175]PO[177]1[167]PO[178]PO[171]1:
550 [139](JO[175]2)[178]0[175]PO[179]R[167]PO[178]PO[170]1
560 [139](JO[175]4)[178]0[167]E[178]1:[142]
570 [151]53248,248:[151]53249,50[170](Y[170]2[172]PO)[172]8
580 [139](JO[175]16)[179][177]0[167]530
590 JO[178][194](254):[139](JO[175]16)[178]0[167]590
600 [151]53248,0:[142]
610 AN[178]0:NA$[178]""
620 [151]198,0:[146]198,1:[161]IN$
630 [139][198](IN$)[178]20[167][129]Q[178]0[164]AN:[151]R[170]Q,32:[130]:[137]610
640 [139][198](IN$)[178]13[175]AN[178]0[167][137]620
650 [139][198](IN$)[178]13[167][142]
660 [139]IN$[179]"A"[176]IN$[177]"Z"[167][137]620
670 NA$[178]NA$[170]IN$:[151]R[170]AN,[198](IN$):AN[178]AN[170]1:[139]AN[178]10[167]AN[178]9:NA$[178][200](NA$,9)[170]IN$
680 [137]620
690 [153]"":[129]Q[178]0[164]16:[153]:[130]
700 [129]Q[178]0[164]4
710 [153][163]28);" "
720 [130]:[153]"ONONONONONON"
730 [142]
740 [159]15,8,15,"I0"
750 [159]1,8,2,"0:"[170]LO$[170]".TRON,S,R"
760 [132]15,A
770 [139]A[179][177]0[167][137]1150
780 [129]Q[178]0[164]632
790 [161]#1,A$:[151]51200[170]Q,[198](A$[170][199](0))
800 [130]:[160]1
810 [159]1,8,2,"0:"[170]LO$[170]".SCORE,S,R"
820 [132]15,A
830 [139]A[179][177]0[167][137]1150
840 [129]Q[178]0[164]4
850 [132]1,SC$(Q),SC(Q)
860 [130]:[160]1:[160]15:[142]
870 [159]15,8,15,"I0"
880 [159]1,8,2,"0:"[170]SA$[170]".TRON,S,W"
890 [132]15,A:[139]A[178]0[167][137]980
900 [139]A[179][177]63[167][137]1150
910 [141]690:[153][163]28);"STOPASCILE EXISTS"
920 [153][163]28);"* LIST(null)CRATCHEN"
930 [153][163]28);"STOP* LISTVALXIT"
940 Y[178]19:PO[178]1:R[178]2:[141]530:[139]E[178]1[167]940
950 [139]PO[178]2[167][160]1:[160]15:[142]
960 [152]15,"S0:"[170]SA$[170]".TRON"
970 [160]1:[137]880
980 [129]Q[178]0[164]3:A$[178]"":[129]W[178]0[164]158
990 A$[178]A$[170][199]([194](51200[170]Q[172]159[170]W)):
1000 [130]:[152]1,A$;:[130]:[160]1:LO$[178]SA$
1010 [159]1,8,2,"0:"[170]SA$[170]".SCORE,S,W"
1020 [132]15,A:[139]A[178]0[167]1110
1030 [139]A[179][177]63[167][137]1150
1040 [141]690:[153][163]28);"STOPLEFT$IGHSCORE :"
1050 [153][163]28);"* LIST(null)OESCHEN"
1060 [153][163]28);"STOP* LISTVALXIT"
1070 Y[178]19:PO[178]1:R[178]2:[141]530:[139]E[178]1[167]1070
1080 [139]PO[178]2[167][160]1:[160]15:[141]740:[142]
1090 [152]15,"S0:"[170]SA$[170]".SCORE"
1100 [160]1:[137]1010
1110 [129]Q[178]0[164]4
1120 [152]1,"---------":[152]1,0:SC$(Q)[178]"---------":SC(Q)[178]0
1130 [130]
1140 [160]1:[160]15:[142]
1150 [141]690:[153][163]28);"STOPSTR$ISKERRORLIST"
1160 [153][163]30);A
1170 [139]([194](254)[175]16)[179][177]0[137]1170
1180 [139]([194](254)[175]16)[178]0[137]1180
1190 [160]1:[160]15
1200 [142]
1210 Y[178]17:PO[178]1:R[178]3:[141]530
1220 [139]E[178]1[167][137]1260
1230 [139]PO[178]1[167]S[178]1:[137]1260
1240 [139]PO[178]2[167]S[178]0:[137]1260
1250 [137]1280
1260 [141]1530
1270 [137]1210
1280 [141]690
1290 [153][163]28);"STOP(null)LAYER 1 :"
1300 [153][163]28);"LIST(null)ETZEN"
1310 X1[178][194](51825):Y1[178][194](51826)
1320 S[178]177:[141]1650
1330 [151]51825,X1:[151]51826,Y1
1340 [141]690
1350 [153][163]28);"STOP(null)LAYER 2 :"
1360 [153][163]28);"LIST(null)ETZEN"
1370 X1[178][194](51827):Y1[178][194](51828)
1380 S[178]178:[141]1650
1390 [151]51827,X1:[151]51828,Y1
1400 [141]690
1410 [153][163]28);"STOPCHR$EGNER ATN :"
1420 [153][163]28);"LIST(null)ETZEN"
1430 X1[178][194](51829):Y1[178][194](51830)
1440 S[178]193:[141]1650
1450 [151]51829,X1:[151]51830,Y1
1460 [141]690
1470 [153][163]28);"STOPCHR$EGNER PEEK :"
1480 [153][163]28);"LIST(null)ETZEN"
1490 X1[178][194](51831):Y1[178][194](51832)
1500 S[178]194:[141]1650
1510 [151]51831,X1:[151]51832,Y1
1520 [142]
1530 JO[178][194](254)
1540 [139](JO[175]1)[178]0[175]Y1[177]0[167]Y1[178]Y1[171]1
1550 [139](JO[175]2)[178]0[175]Y1[179]24[167]Y1[178]Y1[170]1
1560 [139](JO[175]4)[178]0[175]X1[177]0[167]X1[178]X1[171]1
1570 [139](JO[175]8)[178]0[175]X1[178]24[167][142]
1580 [139](JO[175]8)[178]0[175]X1[179]24[167]X1[178]X1[170]1
1590 [151]53248,24[170]X1[172]8:[151]53249,50[170]Y1[172]8
1600 [139](JO[175]16)[178]0[167][137]1620
1610 [137]1530
1620 [151]51200[170]Y1[172]25[170]X1,S
1630 [158]4099
1640 [137]1530
1650 JO[178][194](254)
1660 [139](JO[175]1)[178]0[175]Y1[177]0[167]Y1[178]Y1[171]1
1670 [139](JO[175]2)[178]0[175]Y1[179]24[167]Y1[178]Y1[170]1
1680 [139](JO[175]4)[178]0[175]X1[177]0[167]X1[178]X1[171]1
1690 [139](JO[175]8)[178]0[175]X1[179]24[167]X1[178]X1[170]1
1700 [151]53248,24[170]X1[172]8:[151]53249,50[170]Y1[172]8
1710 [139](JO[175]16)[178]0[167][137]1730
1720 [137]1650
1730 PE[178][194](1024[170]Y1[172]40[170]X1)
1740 [139]PE[178]32[167][141]690:[153][163]28);"STOP(null)OCH !!!":[137]1650
1750 [139]PE[179][177]160[167][141]690:[153][163]28);"STOPPEEKESETZT !!!":[137]1650
1760 [151]1024[170]Y1[172]40[170]X1,S
1770 [142]
1780 [153]"LOADSTOP";[163]9);
1790 [153]"(null)RON LENONSTRUCTION (null)ET"
1800 [139]PL[178]0[167][153]"";
1810 [153]"LIST";[163]14);
1820 [153]"(null)NE (null)LAYER"
1830 [139]PL[178]1[167][153]"";
1840 [153]"";[163]14);
1850 [153]"(null)WO (null)LAYERS"
1860 JO[178][194](254):E[178]0
1870 [139](JO[175]1)[178]0[167]PL[178]0:[137]1800
1880 [139](JO[175]2)[178]0[167]PL[178]1:[137]1800
1890 [139](JO[175]16)[178]0[167]1910
1900 [137]1800
1910 JO[178][194](254):[139](JO[175]16)[178]0[167]1910
1920 [153]"LOAD";[163]14);"STOPLEFT$IGHSCORES :LIST"
1930 [129]Q[178]0[164]4
1940 [153][163]9);Q[170]1;" ";
1950 [153][200](SC$(Q)[170]" ",10);
1960 [153][201](" "[170][196](SC(Q)),6);""
1970 [130]Q
1980 [139]([194](254)[175]16)[179][177]0[167][137]1980
1990 [158]4102,PL:[153][199](14):[139]PL[178]1[167][137]2240.
2000 SC[178][194](250)[170]256[172][194](251)
2010 [139]SC[179]SC(4)[167][137]2230
2020 [153]"LOAD";[163]14);"STOPCHR$AME (null)VER :LIST":X[178][171]1:Y[178]0
2030 [129]Q[178]0[164]4
2040 [153][163]9);Q[170]1;" ";
2050 [139]SC(Q)[177]SC[176]Y[178]1[167][153][200](SC$(Q[171]Y)[170]" ",10);:[137]2070
2060 [153]" ";:X[178]Q:Y[178]1
2070 [139]Q[178]X[167][153][201](" "[170][196](SC),6);"":[137]2090
2080 [153][201](" "[170][196](SC(Q[171]Y)),6);""
2090 [130]Q
2100 R[178]1399[170]120[172]X:[141]610
2110 Y[178]1:[129]Q[178]4[164]0[169][171]1
2120 [139]Q[178]X[167]SC(Q)[178]SC:SC$(Q)[178]NA$:Y[178]0:[137]2140
2130 SC(Q)[178]SC(Q[171]Y):SC$(Q)[178]SC$(Q[171]Y)
2140 [130]
2150 [159]15,8,15,"I0"
2160 [152]15,"S0:"[170]LO$[170]".SCORE"
2170 [159]1,8,2,"0:"[170]LO$[170]".SCORE,S,W"
2180 [129]Q[178]0[164]4
2190 [152]1,SC$(Q):[152]1,SC(Q)
2200 [130]
2210 [160]1
2220 [160]15
2230 [151]53248,0:[151]53264,0:[151]53269,1:[151]53276,0:[151]2040,11:[137]40
2240 [153]"LOAD";[163]14);"STOPCHR$AME (null)VER :LIST"
2250 [153][163]12);"(null)LAYER 1 :";:S1[178][194](250)[170]256[172][194](251):[153]S1
2260 [153][163]12);"(null)LAYER 2 :";:S2[178][194](252)[170]256[172][194](253):[153]S2
2270 [139]S1[177]S2[167][153][163]12);"DEF(null)LAYER 1 WINS !":[137]2300
2280 [139]S1[179]S2[167][153][163]12);"CONT(null)LAYER 2 WINS !":[137]2300
2290 [153][163]12);"(null)O (null)INNERS !"
2300 [139]([194](254)[175]16)[179][177]0[167][137]2300
2310 [139]([194](254)[175]16)[178]0[167][137]2310
2320 [151]53248,0:[151]53264,0:[151]53269,1:[151]53276,0:[151]2040,11:[137]40