home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64 / ship_ad.3_dt2002 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 10 rem the ship adventure
  2. 15 a=0
  3. 20 if m=1 goto 65
  4. 25 if m=2 goto 70
  5. 30 if m=3 goto 80
  6. 35 if m=4 goto 85
  7. 40 if m=5 goto 95
  8. 45 if m=6 goto 175
  9. 50 open 1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close 1
  10. 55 poke 53280,0:poke 53281,0:print"[147]"chr$(142);chr$(8);""
  11. 60 if m=0 then m=1:load"show*",8,1
  12. 65 if m=1 then m=2:load"split*",8,1
  13. 70 sys 52480,8,"[b]ship/grafik1",1
  14. 75 if m=2 then m=3:load"ship/zeichensatz",8,1
  15. 80 if m=3 then m=4:load"ship/sprites",8,1
  16. 85 sys 52480,8,"",0
  17. 90 if m=4 then m=5:load"ship/sprite-move",8,1
  18. 95 poke 198,0
  19. 100 poke 53272,27
  20. 105 print""
  21. 110 a$(1)="          great adventure 3     "
  22. 115 a$(2)="     [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  23. 120 a$(3)="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] "
  24. 125 a$(4)="                                        karamba soft zeigt: "
  25. 130 for i=1 to 32
  26. 135 s$=mid$(a$(3),i,39)
  27. 140 m$=mid$(a$(4),i,39)
  28. 145 print"[145][145][145]";right$(a$(1),i):print"";right$(a$(2),i)
  29. 150 print"[145]";s$:print"[158]";m$
  30. 155 next i
  31. 160 :
  32. 165 if m=5 then m=6:load"ship/musik",8,1
  33. 170 :
  34. 175 sys 52480,8,"[b]ship/grafik2",1
  35. 180 poke 198,0
  36. 185 sys 4096
  37. 190 sys 4099:for x=1 to 3:next x:get a$:if a$="" then 190
  38. 195 for n=0 to 24:poke 54272+n,0:next
  39. 200 sys 52480,8,"",0
  40. 205 poke 53272,27
  41. 210 print"[147][158] gleich erfaehrst du mehr ueber"
  42. 215 print" die geschichte..."
  43. 220 print"[144]load";chr$(34);"ship/einleitung";chr$(34);",8"
  44. 225 print"[144]run"
  45. 230 print""
  46. 235 poke 631,13:poke 632,13:poke 198,2:end
  47.