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