home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh7x / sh71b.d64 / demo.kopfzeilen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  568b  |  24 lines
  1. 10 REM DEMO FUER 'KOPFZEILEN'
  2. 20 REM
  3. 30 REM (W) BERND SCHULLER 1987
  4. 40 REM
  5. 50 IFA=0THENA=1:LOAD"KOPFZEILEN",8,1
  6. 60 IN=49152:OF=49152+3
  7. 70 GT=49152+6:ZL=49152+9
  8. 80 POKEZL,3
  9. 90 POKE53280,0:POKE53281,0:SYS OF
  10. 100 PRINT"[147][154]DEMO FUER DAS PROGRAMM 'KOPFZEILEN'"
  11. 110 PRINT"[154]BIS ZU [158]DREI[154] STATUSZEILEN MOEGLICH !"
  12. 120 FORT=0TO39:PRINT"*";:NEXT
  13. 130 SYS GT:SYS IN
  14. 140 POKE198,0
  15. 150 PRINT"A)[146] DURCH RASTER-IRQ KEINE SPEICHER-     PLATZVERSCHWENDUNG"
  16. 160 GOSUB 230
  17. 170 PRINT"B)[146] BETRIEBSSYSTEM KOPIEREN UNNOETIG !!"
  18. 180 GOSUB 230
  19. 190 PRINT"C)[146] 1-3 STATUSZEILEN,  FLACKERFREI"
  20. 200 GOSUB 230
  21. 210 IF PEEK(198)=0THEN150
  22. 220 SYS OF:END
  23. 230 FORT=0TO100:NEXT:RETURN
  24.