home *** CD-ROM | disk | FTP | other *** search
- 10 REM DEMO FUER 'KOPFZEILEN'
- 20 REM
- 30 REM (W) BERND SCHULLER 1987
- 40 REM
- 50 IFA=0THENA=1:LOAD"KOPFZEILEN",8,1
- 60 IN=49152:OF=49152+3
- 70 GT=49152+6:ZL=49152+9
- 80 POKEZL,3
- 90 POKE53280,0:POKE53281,0:SYS OF
- 100 PRINT"[147][154]DEMO FUER DAS PROGRAMM 'KOPFZEILEN'"
- 110 PRINT"[154]BIS ZU [158]DREI[154] STATUSZEILEN MOEGLICH !"
- 120 FORT=0TO39:PRINT"*";:NEXT
- 130 SYS GT:SYS IN
- 140 POKE198,0
- 150 PRINT"A)[146] DURCH RASTER-IRQ KEINE SPEICHER- PLATZVERSCHWENDUNG"
- 160 GOSUB 230
- 170 PRINT"B)[146] BETRIEBSSYSTEM KOPIEREN UNNOETIG !!"
- 180 GOSUB 230
- 190 PRINT"C)[146] 1-3 STATUSZEILEN, FLACKERFREI"
- 200 GOSUB 230
- 210 IF PEEK(198)=0THEN150
- 220 SYS OF:END
- 230 FORT=0TO100:NEXT:RETURN
-