home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 November / 64er_Magazin_89-11_1989_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 0 a=a+1:if a=1 then load"shadow v4.0",8,1
  2. 5 dim a$(40):poke 49152,15:poke 49153,11
  3. 10 poke 53280,12:poke 53281,12:print"[147]";
  4. 20 a$(1)="                "
  5. 30 a$(2)="   shadow 4.0   "
  6. 40 a$(3)="                "
  7. 50 a$(4)=" bitte <return> "
  8. 60 a$(5)="    druecken    "
  9. 70 a$(6)="                "
  10. 90 a$(17)=" auch grosse windows sind moeglich !! "
  11. 100 a$(26)=" <return> fuer weiter                 "
  12. 110 a$(28)="                        "
  13. 120 a$(29)=" die farben lassen sich "
  14. 130 a$(30)="   ebenfalls  aendern   "
  15. 140 a$(31)="                        "
  16. 150 a$(32)="   <return> fuer ende   "
  17. 160 a$(33)="                        "
  18. 170 a$(34)="           "
  19. 180 a$(35)=" ende .... "
  20. 190 a$(36)="           "
  21. 200 sys 49154,a$(1),6,8,12
  22. 210 x=7:gosub 1010
  23. 220 sys 49154,a$(7),21,1,1
  24. 230 gosub 1010
  25. 240 get b$
  26. 250 a=int(16*rnd(1))
  27. 260 b=int(16*rnd(1))
  28. 270 poke 49152,a:poke 49153,b
  29. 280 for t=0 to 200:next t
  30. 290 sys 49154,a$(28),6,14,4
  31. 300 if b$<>chr$(13) then 240
  32. 310 print"[147]";
  33. 320 poke 53280,14:poke 53281,6:poke 49152,1:poke 49153,0
  34. 330 sys 49154,a$(34),3,1,1
  35. 340 print"":end
  36. 1000 for i=0 to 8:a$(x+i)="                                      ":next:return
  37. 1010 get b$:if b$<>chr$(13) then 1010
  38. 1020 print"[147]";:return
  39.