home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 85 / 64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_B.d64 / 21 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  45 lines
  1. 0 ifb=0thenb=1:print"[147]":load"22",8,1
  2. 1 ifb=1thenb=2:load"23",8,1
  3. 2 ifb=2thenb=3:load"24",8,1
  4. 3 ifb=3thenb=4:load"11",8,1
  5. 4 fort=1984to2023:poket,160:nextt:fort=1063to2023step40:poket,160:next
  6. 5 fort=1464to1503:poket,160:next:fort=1504to1542:poket,61:next:print:sys24576
  7. 6 poke24667,8:poke24678,8:s=54272:v=53248:si=54279
  8. 7 fort=1to7:poke2040+t,248+t:next:pokev+40,250:pokev+41,242:pokev+42,252
  9. 8 pokev+43,255:pokev+44,246:pokev+45,254:pokev+46,7:pokev+23,0:pokev+29,254
  10. 9 pokev+28,0:fort=0to24:pokes+t,0:next:pokes+24,15:pokes+5,255:pokesi+5,255
  11. 10 poke53282,14:poke53283,9:gosub52:print"y[129]hjyyyyyyyy[158][160]yyyyyyyyyyyyyyyyyyyyyyyyyyy
  12. 11 [153]" listnm   g        syst   <>?     listg     syst
  13. 12 print"tyyy<>?yyyy[155]byyyyyyyyyyy[158]tyyyyyy[155][171][154][179][129][177][178][146]yy[158]tyy
  14. 13 [153]"  ui    syst    openposand     syso      syst  listorcont^*rndwait   listg
  15. 14 print"  [156]kl     [158]  t      t    [159][185][175]     [155][173][189][188][154][190]
  16. 15 [153]"     sysposand       t      t       abs   t
  17. 16 print"  [158][182]    [155][209][215][197][171][154][179][177] [158][182] [144]tyui[146]     4567[146][158]      [155][163][183][184][162]
  18. 17 [153]"     abs listatn(NULL)contstr$or^* stop  ghjk@*^waitabs stop89+-wait opwait abs listfnforsgnintget
  19. 18 print"[144][208][162]_!#$ [155][218][216][154][195][173][189][188] [144]@ bnm,[186][192][255][146][162]5\[219][219][169]5l:[146] _$[155][182][129][191][144][170][167]":print:print
  20. 19 print"[150]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  21. 20 [153]"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
  22. 21 print"[150]qwe[151]r[146] * [153][201][207]   [155][223][146] +    * [175][146][154] , . [153][160][146]   [161] +  @
  23. 22 [153]"defasdpokefwaitfor   (NULL)(NULL) list(NULL)wait  (NULL)(NULL)valdef(NULL)(NULL)(NULL)for(NULL)right$]waitfor,>wait +   . ;  contspc((NULL)not .
  24. 23 print"[155] x[129]c[154]qwe[151]r[146]    [155]- [129][193][211][150][196][198][199][200][129][202][203][[146] [155][210][212][150][217][213][155][178][163][183][150][184]   [154][164][223][255]
  25. 24 [153]" listxforccontasdpokefwait /list - .for(NULL)(NULL)deflen(NULL)listpeek(NULL)for(NULL)<(NULL)waitlist ascdefchr$left$mid$listrndfnsgndefint forspc((NULL)notlist]+ printclose
  26. 25 print"[129]qwe[151]r[155]x[129]c[146]   + [155]\ [162]  [155]x[129]c[146] @ [221][146] [129][214][194][155][206][205][190][191][129][170][167] [164][223][255][155]: [162]
  27. 26 [153]"forasdpokeflistzforvwait get for%&list'(  qwer .poswait+  list_print#1def2for3waitprint right$(NULL)  /
  28. 27 print" + . [162] ; [129])[219][151][221][129][169]  [155]asdf[162] [185][146][153] [160][146] [155]![152]#[150]$[129]%[146] [203][204] .[129]  ;[155]=[146]
  29. 28 [153]"clrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrlistzxcvclrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqrsqr
  30. 29 print"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]x[129]c[146][152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":pokev+21,254
  31. 30 fort=0to15:pokev+t,0:next:fort=0to137step.5:poke49216,t:poke49217,t+30:sys49408
  32. 31 gosub1000:nextt:fort=138to230step.4:gosub1000:nextt:pokev,0:forr=0to3000:next
  33. 32 poke2040,248:pokev+1,0:pokev+16,1:pokev+39,0:pokev+21,255:pokev+1,70:pokes+24,2:pokes+5,63
  34. 33 pokes+1,255:pokes+4,129:pokesi+4,0:pokesi+5,127:pokesi+1,255:pokesi+4,33
  35. 35 fort=100to0step-1:pokev,t:nextt:pokev,255:pokev+16,0:fort=255to187step-1
  36. 36 pokev,t:nextt:fort=70to113step.5::pokes+1,113-t:pokesi+1,255-t:pokev+1,t:next
  37. 37 fort=142to0step-.1:pokesi+1,t:nextt:fort=0to1000:nextt:pokesi+4,0:pokes+4,0
  38. 38 fort=0to1000:nextt:pokes+5,127:pokes+1,255:pokesi+5,127:pokesi+1,255:pokes+4,33
  39. 39 pokesi+4,129:fort=113to90step-.3
  40. 40 pokev+1,t:next:fort=187to0step-4:pokes+1,t:pokesi+1,t:pokev,t:nextt:pokes+5,2
  41. 50 pokesi+5,2:fora=0to15:readx:forb=0to2:forc=0to3:poke56111+b*40+c,x+8:nextc,b,a:restore:goto50
  42. 52 print"[144]yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy":data1,7,3,5,4,2,6,0,0,6,2,4,5,3,7,1
  43. 53 print"   [155]b[158]     t     [155]  g     [158]t[155]     p    g":return
  44. 1000 pokes+1,237-t:pokes+4,129:pokesi+1,237-t:pokesi+4,33:return
  45.