home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  702b  |  27 lines

  1. 10 REM          DEMO
  2. 20 REM           BY
  3. 30 REM    STEFAN LANDFRIED
  4. 40 REM    KELHEIMERSTR. 9
  5. 50 REM    8421 PAINTEN
  6. 70 REM
  7. 72 IFA=1THEN90
  8. 74 PRINT"[147] ANDERE FARBEN (Y/N) ?"
  9. 75 GETA$:IFA$=""THEN75
  10. 76 IFA$="Y"THEN190
  11. 80 IFA=0THENA=1:LOAD"ALLEY. SIM.",8,1
  12. 90 SYS49152,130,2,8,0:
  13. 100 REM IN ZEILE 10 ((8*10)+50)
  14. 110 REM ZIEMLICH SCHNELL UND ALLE BALKEN
  15. 120 PRINT"[144][147]"
  16. 130 PRINT"      THIS IS ONLY A LITTLE DEMO           "
  17. 140 GETA$:IFA$=""THEN140
  18. 150 GOTO150
  19. 160 REM       FARBENTAUSCH
  20. 170 REM
  21. 180 REM
  22. 190 FORI=49278TO49308:READA:POKEI,A:NEXT:GOTO90
  23. 200 DATA11,12,15,15,15,1,12,11,4,6,6,14,,1,14,14,6: REM 16 FARBEN
  24. 210 DATA4,2,2,10,1,10,10,2,5,13,3,3,3,1,13,5: REM INSGESAMT 32 FARBEN
  25. 220 REM IN DEN DATAZEILEN KOENNEN DIE GEWUENSCHTEN FARBEN EINGETRAGEN WERDEN
  26. 230 REM END
  27.