home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  808b  |  30 lines
  1. 1 REM
  2. 2 REM   DEMOPOGRAMM FUER 'STIMME #4'
  3. 3 REM        VON CHRISTOPH JOCH
  4. 4 REM
  5. 5 REM      ES STEHEN IHNEN NOCH 3
  6. 6 REM     STIMMEN ZUR VERFUEGUNG !
  7. 7 REM
  8. 10 IFPEEK(49153)<>21THENPRINT"ERST 'STIMME #4' LADEN !!":END
  9. 20 SYS49152:POKE49203,8:POKE49201,0
  10. 30 READHI,LO,D:IFHI=0THENGOTO60
  11. 40 POKE56580,LO:POKE56581,HI:POKE2,1:FORB=0TOD*4:NEXT:POKE2,0:FORB=0TO10:NEXT
  12. 50 GOTO30
  13. 60 SYS49213
  14. 100 DATA4,232,50,4,232,50,4,95,50,4,95,50
  15. 110 DATA4,232,75,5,130,25,5,214,100
  16. 120 DATA4,232,50,4,232,50,4,95,50,4,95,50
  17. 130 DATA4,232,75,5,130,25,5,214,100
  18. 140 DATA4,232,50,4,232,50,4,95,50,3,229,50
  19. 150 DATA3,173,100,3,70,100
  20. 160 DATA3,229,100,3,229,25,4,95,25,3,229,25,4,95,25
  21. 170 DATA4,232,100,4,95,50,3,229,50
  22. 180 DATA3,173,100,3,229,50,4,95,50
  23. 190 DATA4,232,200
  24. 200 DATA4,95,100,4,232,50,5,130,50
  25. 210 DATA5,214,200
  26. 220 DATA4,232,50,4,232,50,7,91,50,5,130,50
  27. 230 DATA5,214,100,6,141,100
  28. 240 DATA7,91,200
  29. 999 DATA0,0,0
  30.