home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 85
/
64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_B.d64
/
07
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
25 lines
10 v=53248:pokev+21,13:x=peek(v):y=peek(v+1):fort=yto190step.5:pokev+1,t:nextt
11 poke40000,ss/10000:poke40001,(ss-int(ss/10000)*10000)/100
12 poke53240,13:fort=xto24step-.5:pokev,t:nextt
13 poke40002,ss-int(ss/100)*100
15 s=54272:pokes+24,15:pokes+4,0:pokes+5,15:pokes+1,2:pokes+4,129
20 fort=168to255step.5:pokev+7,t:ift<213thenpokev+5,t+42
30 pokev+41,t:pokev+42,t:nextt:pokes+4,0:pokes+5,9:pokes+4,129:pokes+1,3
40 pokev+21,1:fort=24to232step.3:pokev,t:nextt:pokev+21,0
45 v=53248
50 pokev+14,100:pokev+15,123:pokev+21,192:print"[147]":pokev+12,210:pokev+13,122
51 print:print:print:print:print:print:print"[155] ^^^^^^^^^^^^^^^^^^^^^^^^^^^
52 [153]" ^ ^ ^
53 print" ^ ^ ^
54 [153]" ^ xlist ^ x list ^
55 print" ^ ^ ^":poke53246,255
56 print" ^ ^ ^":mm=mn:ll=peek(139)
57 print" ^^^^^^^^^^^^^^^^^^^^^^^^^^^":print"[144]";spc(16);mm:xy=.
58 print"[144]";spc(29);ll:xx=mm
60 fort=xxto0step-1:print"[144]";spc(16);(t):xy=xy+1:ifxy=4thenll=ll+1:xy=.
61 print"[144]";spc(29);ll:ift<10thenpoke52642,32
62 restore:forr=0to26:readx:pokev+37,x:nextr,t:poke139,ll:poke40100,mm:fort=0to200:nextt
63 forr=0to300:nextr:print"[147]load"chr$(34)"08"chr$(34)",8":poke53281,0:pokev+21,0
70 data1,7,13,3,15,10,5,12,8,4,2,11,6,9,0,9,6,11,2,4,8,12,5,10,15,3,13,7
100 print"run:":poke 198,10:poke631,19:poke632,13:poke633,13