0 A=A+1
1 IF A=1 THEN LOAD"SCREENBOOST.CODE",8,1
10 POKE 53280,0:POKE 53281,0
20 :
30 POKE 49570,0:REM TEXTFARBE=SCHWARZ
40 SYS 49569:REM TEXT EINFAERBEN
50 :
90 PRINT"[147]";
100 PRINT"SCREEN-BOOST  V1.0"
110 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
120 PRINT"PROGRAMM:AXEL WEFERS"
130 PRINT"(C)1990 BY X-COMPLEX INDUSTRIES"
140 PRINT"ANLEITUNG:"
150 PRINT"[163][163][163][163][163][163][163][163][163][163]"
160 PRINT"1. EINBAU IN EIGENE PROGRAMME"
170 PRINT"1.1 IN BASIC PROGRAMME"
180 PRINT"SOLL EFFECT SCREEN IN EIN BASIC "
190 PRINT"PROGRAMM EINGEBUNDEN WERDEN,SO MUESSEN"
200 PRINT"DIE ERSTEN ZWEI ZEILEN FOLGENDERMASSEN "
210 PRINT"LAUTEN:"
220 PRINT"0 A=A+1"
230 PRINT"1 IF A=1 THEN LOAD";CHR$(34);"SCREENBOOST.CODE";CHR$(34);",8,1";
240 PRINT"DAS PROGRAM EFFECT SCREEN MUSS SELBST-"
250 PRINT"VERSTAENDLICH AUF DER SELBEN DISKETTE,"
260 PRINT"WIE DAS BASIC PROGRAMM SEIN."
265 :
270 SYS 49158:REM SCREEN EINLESEN
275 :
280 POKE 49570,1:REM TEXTFARBE=WEISS
285 SYS 49569:REM TEXT FAERBEN
290 :
300 SYS 49152:REM SCREEN EINBLENDEN
310 :
320 WAIT 198,1:POKE 198,0
330 :
340 SYS 49155:REM SCREEN AUSBLENDEN
350 POKE 49570,0:REM TEXTFARBE=SCHWARZ
360 SYS 49569:REM TEXTFAERBEN
370 PRINT"1.2 IN ASSEMBLER PROGRAMME:"
380 PRINT"EFFECT SCREEN KANN DIREKT AN DAS MS-"
390 PRINT"PROGRAMM ANGEHAENGT WERDEN."
400 PRINT"SOLL DIE ROUTINE VERSCHOBEN WERDEN,"
410 PRINT"SO SIND AENDERUNGEN BEI JMP-BEFEHLEN,"
420 PRINT"SOWIE BEI LDA-UND STA-BEFEHLEN ZU BE-"
430 PRINT"ACHTEN."
440 PRINT"2. DIE ROUTINEN"
450 PRINT"2.1 HORIZONTALER BILDSCHIRMAUFBAU"
460 PRINT"AUFRUF MIT: SYS 49152"
470 PRINT"FUNKTION:DER BILDSCHIRM WIRD MIT DEM"
480 PRINT"INHALT VON $C400 BIS $C800 GEFUELLT."
490 PRINT"(NAEHERES ZUM INHALT VON $C400 BIS"
500 PRINT"$C800 UNTER KAPITEL 2.3)"
510 PRINT"2.2 HORIZONTALES BILDSCHIRM LOESCHEN"
520 PRINT"AUFRUF MIT: SYS 49155"
530 PRINT"FUNKTION:DER BILDSCHIRM WIRD GELOESCHT."
540 PRINT"(DER BEREICH VON $C400 BIS $C800 BLEIBT"
550 PRINT"ERHALTEN.)"
555 :
560 SYS 49158:REM TEXT EINLESEN
565 :
570 POKE 49570,1:REM TEXTFARBE=WEISS
580 SYS 49569:REM TEXT EINFAERBEN
585 :
590 SYS 49985:REM TEXT EINBLENDEN
595 :
600 WAIT 198,1:POKE 198,0
605 :
610 SYS 49155:REM TEXT AUSBLENDEN
620 :
630 POKE 49570,0:REM TEXTFARBE=SCHWARZ
640 SYS 49569:REM TEXT EINFAERBEN
650 :
660 PRINT"2.3 DIE TEXT KOPIER ROUTINE"
670 PRINT"AUFRUF MIT : SYS 49158"
680 PRINT"FUNKTION:DER AKTUELLE BILDSCHIRMINHALT"
690 PRINT"WIRD IN DEN BEREICH VON $C400 BIS $C800"
700 PRINT"KOPIERT.DIESE ROUTINE IST FUER DEN BASIC";
710 PRINT"PROGRAMMIERER VON GROSSEM NUTZEN,DA IN"
720 PRINT"BASIC KEINE SO HOHE GESCHWINDIGKEIT"
730 PRINT"ERREICHT WERDEN KANN,WIE IN ASSEMBLER."
740 PRINT"ANWENDUNGSBEISPIEL:"
750 PRINT"UM DEN TEXT,VOR DER AUSGABE DURCH EINE"
760 PRINT"DER BILDSCHIRMAUFBAU-ROUTINEN,IN DEN "
770 PRINT"BEREICH VON $C400 BIS $C800 ZU KOPIEREN,";
780 PRINT"OHNE DAS MAN IHN ZUVOR SIEHT,SCHREIBT "
790 PRINT"MAN DEN GEWUENSCHTEN INHALT AUF DEN "
791 PRINT"BILDSCHIRM,FAERBT DEN TEXT ZUVOR IN DER"
792 PRINT"AKTUELLEN BILDSCHIRMFARBE EIN,SO DASS"
793 PRINT"DER TEXT-BILDSCHIRM PRAKTISCH UNSICHT-"
794 PRINT"BAR IST,UND RUFT DIE BILDSCHIRMKOPIER-";
820 PRINT"ROUTINE AN,UND DER TEXT BEFINDET SICH IM";
830 PRINT"BEREICH VON $C400 BIS $C800"
845 :
850 SYS 49158:REM TEXT KOPIEREN
855 :
860 POKE 49570,1:REM TEXTFARBE=WEISS
870 SYS 49569:REM TEXT FAERBEN
875 :
880 SYS 49595:REM TEXT EINBLENDEN
885 :
890 WAIT 198,1:POKE 198,0
895 :
900 SYS 49769:REM TEXT AUSBLENDEN
905 :
910 POKE 49570,0:REM TEXTFARBE=SCHWARZ
920 SYS 49569:REM TEXT FAERBEN
930 :
940 PRINT"2.4 COLOR ROUTINE"
950 PRINT"AUFRUF MIT:SYS 49569"
960 PRINT"FUNKTION:DAS FARB-RAM DES BILDSCHIRMS"
970 PRINT"WIRD MIT DEM WERT AUS 49570 GEFUELLT."
980 PRINT"UM DEN BILDSCHIRM ZU FAERBEN,GIBT"
990 PRINT"MAN FOLGENDE BEFEHLE EIN:"
1000 PRINT"  POKE 49570,FARBE(0-15)"
1010 PRINT"  SYS 49569"
1020 PRINT"2.5 VERTIKALER BILDSCHIRMAUFBAU"
1030 PRINT"AUFRUF MIT:SYS 49595"
1040 PRINT"FUNKTION:SIEHE 2.1,ANDERS ALS BEI DER"
1050 PRINT"HORIZONTALEN AUFBAU ROUTINE IST,"
1060 PRINT"DAS DER BILDSCHIRM VERTIKAL AUFGEBAUT"
1070 PRINT"WIRD."
1080 PRINT"2.6 VERTIKALES BILDSCHIRMLOESCHEN"
1090 PRINT"AUFRUF MIT:SYS 49769"
1100 PRINT"FUNKTION:SIEHE 2.2,ANDERS ALS BEI DER"
1110 PRINT"HORIZONTALEN ROUTINE IST,DAS DIESE HIER"
1120 PRINT"VERTIKAL DEN TEXT LOESCHT."
1130 :
1135 SYS 49158:REM SCREEN EINLESEN
1136 :
1140 POKE 49570,1:REM TEXTFARBE=WEISS
1150 SYS 49569:REM TEXT FAERBEN
1160 :
1170 SYS 49152:REM TEXT AUFBAUEN
1180 :
1190 WAIT 198,1:POKE 198,0
1200 SYS 49155:REM SCREEN AUSBLENDEN
1210 :
1220 POKE 49570,0:REM TEXTFARBE=SCHWARZ
1230 SYS 49569:REM TEXT EINFAERBEN
1240 :
1250 PRINT"[147]";
1260 PRINT"2.7 DIAGONALES EINBLENDEN"
1270 PRINT"AUFRUF MIT:SYS 49985
1280 [153]"FUNKTION:SIEHE 2.1,LEDIGLICH ANDERS IST"
1290 [153]"HIER,DASS DER TEXT DIAGONAL EINGEBLENDET";
1300 [153]"WIRD."
1310 [153]"2.8 DIAGONALES LOESCHEN"
1320 [153]"AUFRUF MIT:SYS 52342"
1330 [153]"FUNKTION:SIEHE 2.2,DER TEXT WIRD HIER"
1340 [153]"DIAGONAL AUSGEBLENDET."
1350 [153]"2.9 BILDSCHIRM NORMAL EINBLENDEN"
1360 [153]"AUFRUF MIT:SYS 52672"
1370 [153]"FUNKTION:DER BEREICH VON $C400 BIS $C800";
1380 [153]"WIRD IN DEN BILDSCHIRM SPEICHER KOPIERT.";
1390 [153]"DIES IST FUER EINE EINFACHE WINDOWING-"
1400 [153]"ROUTINE VON GROSSEM NUTZEN."
1410 :
1420 [158] 49158:[143] TEXT EINLESEN
1430 :
1440 [151] 49570,1:[143] TEXTFARBE=WEISS
1450 [158] 49569:[143] TEXT EINFAERBEN
1465 :
1470 [158] 49985:[143] TEXT EINBLENDEN
1480 :
1490 [146] 198,1:[151] 198,0
1500 :
1510 [158] 52342:[143] TEXT AUSBLENDEN
1520 :
1530 [151] 49570,0:[143] TEXTFARBE=SCHWARZ
1540 [158] 49569:[143] TEXT EINFAERBEN
1550 :
1560 [153]"LOAD";
1570 [153]"3. RASTERROUTINEN :"
1580 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1590 [153]"3.1 RASTEREDIT"
1600 [153]"AUFRUF MIT:SYS 52032"
1610 [153]"FUNKTION:EIN RASTER KANN EDITIERT WER-"
1620 [153]"DEN. DER BLINKENDE BALKEN WIRD MIT DEM"
1630 [153]"JOYSTICK IN PORT 2 GESTEUERT:"
1640 [153]"JOYSTICK-HOCH:BALKEN EINE RASTERZEILE"
1650 [153]"              NACH OBEN."
1660 [153]"JOYSTICK-UNTEN:BALKEN EINE RASTERZEILE"
1670 [153]"               NACH UNTEN."
1680 [153]"JOYSTICK-LINKS:AKTUELLEN FARBCODE UM"
1690 [153]"               1 ERHOEHEN."
1700 [153]"JOYSTICK-RECHTS:AKTUELLEN FARBCODE UM"
1710 [153]"               1 VERRINGERN."
1720 [153]"JOYSTICK-KNOPF:ENDE DES EDITIERENS."
1730 [153]"DIE TEXTFARBE IST DIE FARBE UNTER DEM"
1740 [153]"BALKEN."
1750 :
1765 [158] 49158:[143] SCREEN EINLESEN
1766 :
1770 [151] 49570,1:[143] TEXTFARBE=WEISS
1780 [158] 49569:[143] TEXT FAERBEN
1790 :
1800 [158] 49152:[143] TEXT AUFBAUEN
1810 :
1820 [146] 198,1:[151] 198,0
1830 [158] 49155:[143] SCREEN AUSBLENDEN
1840 :
1850 [151] 49570,0:[143] TEXTFARBE=SCHWARZ
1860 [158] 49569:[143] TEXT EINFAERBEN
1870 :
1880 [153]"LOAD";
1890 [153]"3.2 RASTER EINSCHALTEN"
1900 [153]"AUFRUF MIT:SYS 51200"
1910 [153]"FUNKTION: EIN RASTER WIRD SICHTBAR GE-"
1920 [153]"MACHT."
1930 [153]"3.3 TEXTFLESH EINSCHALTEN"
1940 [153]"AUFRUF MIT:SYS 52259"
1950 [153]"FUNKTION: DER TEXT BLINKT DIE FARBEN"
1960 [153]"DES EDITIERTEN RASTERS ALLE DURCH."
1970 [153]"3.4 RASTER & TEXTFLESH ABSCHALTEN"
1980 [153]"AUFRUF MIT:SYS 49888"
1990 [153]"FUNKTION:DAS RASTER ODER TEXTFLESHING"
2000 [153]"WIRD ABGESCHALTET."
2010 [153]"3.5 EDITIERTES RASTER SPEICHERN"
2020 [153]"AUFRUF MIT: POKE 52743,ASC(NAME$)"
2030 [153]"            SYS 52222"
2040 [153]"WOBEI 'NAME$' NUR EIN ZEICHEN LANG SEIN"
2050 [153]"DARF.DER NAME WIRD UM DAS WORD 'RASTER.'";
2060 [153]"ERGAENZT.DAS BASIC PROGRAMM BEGINNT "
2070 [153]"NICHT VON VORNE,SONDERN SETZT AN DER "
2080 [153]"STELLE DES AUFRUFS WIEDER AN."
2090 :
2100 [158] 49158:[143] SCREEN EINLESEN
2110 :
2120 [151] 49570,1:[143] TEXTFARBE=WEISS
2130 [158] 49569:[143] TEXT FAERBEN
2140 :
2150 [158] 49152:[143] SCREEN EINBLENDEN
2160 :
2170 [146] 198,1:[151] 198,0
2180 :
2190 [151] 49570,0:[143] TEXTFARBE=SCHWARZ
2200 [158] 49569:[143] TEXT EINFAERBEN
2210 :
2220 [153]"LOAD";
2230 [153]"3.6 RASTER LADEN"
2240 [153]"AUFRUF MIT:POKE 52743,ASC(NAME$)"
2250 [153]"           SYS 49952"
2255 [153]"DIE VARIABLE 'NAME$' DARF WIEDER NUR EIN"
2260 [153]"ZEICHEN LANG SEIN.DER NAME WIRD AUTOMAT-";
2270 [153]"ISCH UM DEN ZUSATZ 'RASTER.' ERGAENZT"
2280 [153]"FUNKTION:EIN RASTER WIRD EINGELADEN,DAS"
2290 [153]"PROGRAMM FAEHRT AN DER STELLE DES AUF-"
2300 [153]"RUFS NACH DEM LADEN FORT."
2310 [153]"3.7 RASTER FUELLEN"
2320 [153]"AUFRUF MIT:POKE 52332,FARBCODE(0-15)"
2330 [153]"           SYS 52331"
2340 [153]"FUNKTION:DER INHALT DES RASTERS WIRD MIT";
2350 [153]"DEM EINGE-'POKETEN' WERT GEFUELLT."
2360 :
2370 [158] 49158:[143] TEXT EINLESEN
2380 :
2390 [151] 49570,1:[143] TEXTFARBE=WEISS
2400 [158] 49569:[143] TEXT EINFAERBEN
2410 :
2420 [158] 49985:[143] TEXT EINBLENDEN
2430 :
2440 [146] 198,1:[151] 198,0
2450 :
2460 [158] 49155:[143] SCREEN AUSBLENDEN
2470 [151] 49570,1:[143] TEXTFARBE=WEISS
2480 [158] 49569:[143] TEXTFAERBEN
2490 :
2495 [153]"LOAD";
2500 [153]"4. DEMONSTRATION EINIGER ROUTINEN"
2510 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
2511 [153]"DIE EIN/AUSBLENDROUTINEN WERDEN IHNEN "
2512 [153]"BESTIMMT NICHT ENTGANGEN SEIN,SIE WURDEN";
2513 [153]"SCHON ANGEWENDET."
2520 [153]"RASTEREDITOR:"
2525 [153]"START MIT SPACE."
2530 [153]"ABBRUCH MIT KNOPF."
2531 [146] 198,1:[151] 198,0
2532 :
2533 [158] 52032 : [143] RASTEREDIT
2535 :
2540 [153]"RASTER ABSPEICHERN(J/N)?"
2545 :
2550 [161] G$
2560 [139] G$[178]"J"[167] [137] 2581
2570 [139] G$[178]"N"[167] [137] 2600
2580 [137] 2550
2581 [153]"RASTERNAME?"
2582 [161] G$
2583 [139] G$[178]""[167] 2582
2585 :
2590 [151] 52743,[198](G$): [143] RASTERNAME
2595 [158] 52222 : [143] RASTER SPEICHERN
2596 :
2600 [153]"TEXTFLESH..."
2610 [153]"WEITER MIT SPACE..."
2615 :
2620 [158] 52259 : [143] TEXTFLESH EIN
2625 :
2630 [146] 198,1:[151] 198,0
2640 :
2650 [158] 49888 : [143] TEXTFLESH AUS
2670 [153]"LOADLISTONON";