home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_B.d64 / aller anfang... (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  54 lines
  1. 100 print "[147]   aller anfang ist schwer     "
  2. 110 l1=54272:l2=54279:l3=54286
  3. 120 h1=l1+1:h2=l2+1:h3=l3+1
  4. 130 v1=l1+4:v2=l2+4:v3=l3+4
  5. 140 poke 54296,15
  6. 150 poke v1+1,9:poke v2+2,0
  7. 160 poke v2+1,36:poke v2+2,36
  8. 170 poke v3+1,18:poke v3+2,170
  9. 180 t=ti
  10. 200 poke v1,16:poke v2,32:poke v3,16
  11. 210 read s:if s=0 goto 290
  12. 220 read x1,y1,x2,y2,x3,y3
  13. 230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  14. 240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  15. 250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  16. 260 t=t+s
  17. 270 if t>ti goto 270
  18. 280 goto 200
  19. 290 forj=l1 to 54296:poke j,0:next j
  20. 300 data 40,34,40,21,154,8,147
  21. 310 data 60,34,10,25,177,0,0
  22. 320 data 40,38,126,28,214,6,108
  23. 330 data 20,43,52,25,177,0,0
  24. 340 data 40,34,40,21,154,8,147
  25. 350 data 20,43,180,25,177,0,0
  26. 360 data 40,38,126,22,227,8,23
  27. 370 data 20,0,0,25,177,0,0
  28. 400 data 40,24,20,21, 54,8,147
  29. 410 data 20,34,40,25,177,0,0
  30. 420 data 40,38,126,28,214,6,108
  31. 430 data 20,43,52,25,177,0,0
  32. 440 data 40,34,49,21,194,8,147
  33. 450 data 20,0,10,25,177,0,0
  34. 460 data 40,32,94,22,227,8,23
  35. 470 data 20,0,0,19,63,6,108
  36. 500 data 40,84,40,21,154,8,147
  37. 510 data 20,34,40,25,177,0,0
  38. 520 data 40,38,126,21,154,7,163
  39. 530 data 20,43,52,17,37,0,0
  40. 540 data 40,95,199,98,214,9,93
  41. 550 data 20,43,52,34,75,0,0
  42. 560 data 40,38,116,28,214,0,206
  43. 570 data 80,34,40,72,227,0,0
  44. 600 data 40,32,94,25,177,6,108
  45. 610 data 20,25,177,22,227,0,0
  46. 620 data 40,28,214,21,154,7,53
  47. 630 data 27,32,64,19,63,1,23
  48. 640 data 40,34,40,21,154,8,147
  49. 650 data 20,0,0,25,177,6,108
  50. 660 data 40,34,40,21,154,4,73
  51. 670 data 23,94,36,69,204,144,69
  52. 700 data 0
  53. 710 run
  54.