home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / startexmod (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  975b  |  34 lines
  1. 100 print chr$(147):poke 157,128
  2. 110 sys(57812)"o2",8,1:poke 780,0:sys 65493
  3. 120 print:print"poking datas"
  4. 130 ad=51508:n=0:gosub 180
  5. 140 ad=53084:n=0:gosub 180
  6. 150 open 1,8,15,"s:o2":close 1
  7. 160 sys(57812)"o2",8:poke 193,0:poke 194,195
  8. 170 poke 174,177:poke 175,207:sys 62954:end
  9. 180 read x:if x>-1 then poke ad+n,x:n=n+1:goto 180
  10. 190 return
  11. 200 :
  12. 210 data 201,151,208,13,185,1,152,162
  13. 220 data 1,41,127,201,90,240,106,208
  14. 230 data 22,201,165,208,3,76,92,207
  15. 240 data 201,152,208,44,185,1,152,162
  16. 250 data 0,41,127,201,90,240,68,56
  17. 260 data 233,65,144,28,201,20,176,24
  18. 270 data 160,0,224,1,240,2,160,4
  19. 280 data 234,76,157,207,-1
  20. 290 :
  21. 300 data 132,122,169,152,133,123,160,44
  22. 310 data 185,112,207,153,12,10,136,16
  23. 320 data 247,76,12,10,32,104,9,32
  24. 330 data 115,0,32,243,188,32,247,183
  25. 340 data 140,7,196,32,108,198,169,1
  26. 350 data 174,17,144,172,18,144,32,98
  27. 360 data 206,162,1,32,201,255,32,104
  28. 370 data 9,165,122,141,4,143,76,168
  29. 380 data 200,132,251,10,10,10,101,251
  30. 390 data 168,169,4,133,251,132,252,185
  31. 400 data 40,144,201,255,240,10,32,231
  32. 410 data 205,164,252,200,198,251,208,237
  33. 420 data 76,115,201,-1
  34.