home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8911a.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.