home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-12_1988_-_de_Side_B.d64
/
con.load
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
62 lines
0 ifjp=0thenjp=1:load"con.titl",8,1
1 v=53248:pokev+33,0:pokev+32,0:d$="":print"[147]"d$
2 printchr$(8)chr$(142)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
5 [153][166]7)" waitloglogloglog lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
6 printspc(7)"[175][146] s o f t w a r e[158][161]
7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
8 fori=0to17:print:fork=0to9:nextk,i:print"
9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto toandposnew"
10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
13 u$[178]" p r e s e n t s":[129]i[178]1[164]8
14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
20 [129]i[178]49154[164]49317:[135]j:[151]i,j:[130]
100 n[178]54:[134]l(n),h(n),sa(72),sb(72),sl(72):[129]i[178]1[164]n:[135]h(i),l(i):[130]
102 [129]i[178]0[164]72:[135]sa(i),sb(i),sl(i):[130]
110 s[178]54272:[129]i[178]0[164]23:[151]s[170]i,0:[130]:[151]s[170]24,15:[158]49154:[151]198,0
120 [151]s[170]5,64[170]12:[151]s[170]12,64[170]9:[151]s[170]2,79:[151]s[170]9,22:[151]s[170]3,133:[151]s[170]10,213
200 [129]i[178]0[164]72:[151]s[170]11,64:[151]s[170]4,64
210 [151]s,l(sa(i)):[151]s[170]1,h(sa(i)):[151]s[170]7,l(sb(i)):[151]s[170]8,h(sb(i))
220 [151]s[170]11,65:[151]s[170]4,65:[129]j[178]1[164]42[172]sl(i):[130]:[161]u$:[139]u$[178]""[167][130]:[137]200
500 [151]s[170]24,0:[151]53265,27:[151]53272,21
510 [151]s[170]4,0:[153]"load":[151]v[170]21,0:[151]v[170]33,0:[151]v[170]32,0:[151]646,14:[151]53270,200
520 [153]"load";:[151]53281,0
530 [153][166]9)"please select...":[153][166]9)"def f1 wait cont- sysinstructions
540 printspc(9)"[150] f7 [146] [154]- [158]play the game
550 [161]u$:[139]u$[178]"input"[137]600
560 [139]u$[178]"let"[167][153]"loadstopp(NULL)43,97:p(NULL)44,17:p(NULL)4448,0:l(NULL)"[199](34);
562 [139]u$[178]"let"[167][153]"con.boot"[199](34)",8":[137]605
570 [137]550
600 [153]"loadstopl(NULL)"[199](34)"con.inst"[199](34)",8
605 fori=1to9:print"r[213]":next
620 poke631,19:poke632,13:poke633,13:poke198,3:poke43,1:new
800 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
810 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
820 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
830 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
840 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
850 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
860 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
870 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
880 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253,208
890 data227,230,254,76,122,192,134,252,132,251,96,134,254,132,253,96
1000 data3,169,3,224,4,27,4,90,4,156,4,226,5,45,5,123,5,207,6,39,6,133,6,232
1010 data7,81,7,193,8,55,8,180,9,56,9,196,10,89,10,247,11,158,12,78,13,10
1020 data13,208,14,162,15,129,16,109,17,103,18,112,19,137,20,178,21,237,23,59
1030 data24,157,26,20,27,160,29,69,31,3,32,219,34,207,36,225,39,18,41,101
1040 data43,219,46,118,49,58,52,39,55,65,58,138,62,5,65,181,69,157,73,193,78,36
2000 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,8,21,18,6,20,16,6,21,18,2
2010 data16,11,2,21,18,2,18,13,16
2030 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
2040 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
2050 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
2060 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
2070 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
2080 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
2100 data16,11,6,23,20,10,21,18,2,22,19,2,23,20,2,24,19,4
2110 data21,18,2,22,19,2,23,20,2,24,19,4
2120 data21,18,2,22,19,2,23,20,2,24,19,18