100 ; *** (null)HOTOPRINT, PEEKILDSCHIRM-ASCOTO ALS (null)EXTHARDCOPY ***
110 ;
120 ; *** (null)AKRO'S ***
130 ;
140 +$7000
150 GETCHRGET
160  (null)$73
170 NEW
180 GETCHRGOT
190  (null)$79
200 NEW
210 GETCHKCOM
220  (null)$AEFD
230 NEW
240 GETGETBYT
250  (null)$B79B
260 NEW
270 GETERROR
280  (null)$AF08
290 NEW
300 GETPRINTCLOSEMWERT
310  MID$#MWERT
320  (null)$FFD2
330 NEW
340 GETESC
350  PRINTCLOSE27; VAL(null)LEN = LENLEFT$(null)$(27)
360 NEW
370 GETCR
380  PRINTCLOSE13; LEN(null) = LENLEFT$(null)$(13)
390 ; EVENTUELL: PRINT 10   ; (null)ASC = LENLEFT$(null)$(10)
400 NEW
410 GETOPEN
420  (null)$FFC0
430 NEW
440 GETSETFLS
450  (null)$FFBA
460 NEW
470 GETCHKOUT
480  (null)$FFC9
490 NEW
500 GETCLRCH
510  (null)$FFCC
520 NEW
530 GETCLOSE
540  (null)$FFC3
550 NEW
560 GETPRTTAB
570  PEEK#10; 10 (null)PALTEN
580 MPRINT PRINTCLOSE32; (null)(null)RIGHT$(null)(null) (null)PACE
590  (null)
600  (null)MPRINT
610 NEW
620 TAB(SCREEN=$0400
630 TAB(CHARHI=$D0
640 ;
650 ; *** (null)ARAMETER HOLEN ***
660 ;
670 ; *** (null)TANDARDWERTE ***
680  MID$#$04; PEEKILDSCHIRM BEI $0400
690  (null)BS+1; PEEK(null)-(null)TANDARDWERT
700  MID$#$D0; (null)EICHENSATZ BEI $D000
710  (null)ZS+1; (null)(null)-(null)TANDARDWERT
720  MID$#$01; (null)EKUNDAERADRESSE 1
730  (null)SA+1; (null)ATN-(null)TANDARDWERT
740 ; *** (null)ARAMETERSCHLEIFE ***
750 PARAM CHRGOT; WELCHES (null)EICHEN FOLGT ?
760  STR$#44; EIN (null)OMMA ? (null)ENN JA, DANN EIN (null)ARAMETER
770  (null)IRQ; KEIN (null)ARAMETER MEHR => ZUM RIGHT$NTERRUPT
780  CHKCOM; (null)OMMA UEBERLESEN
790  CHRGOT; WELCHES (null)EICHEN FOLGT
800  STR$#66; 'PEEK', PEEK(null)-(null)ARAMETER ?
810  (null)BSIN; PEEK(null)-(null)ARAMETER ERFASSEN
820  STR$#90; '(null)', (null)(null)-(null)ARAMETER ?
830  (null)ZSIN; (null)(null)-(null)ARAMETER ERFASSEN
840  STR$#83; '(null)', (null)ATN-(null)ARAMETER ?
850  (null)SAIN; (null)ATN-(null)ARAMETER ERFASSEN
860 ERR ERROR; FALSCHER (null)ARAMETER
870 ; *** PEEK(null)-(null)ARAMETER ***
880 BSIN CHRGET; PEEK UEBERLESEN
890  CHRGOT; NAECHSTES (null)EICHEN
900  STR$#83; '(null)', EIN (null) ?
910  (null)ERR; FALSCHE (null)YNTAX
920  CHRGET; (null) UEBERLESEN
930  CHRGOT; NAECHSTES (null)EICHEN
940  STR$#178; (null)OKEN FUER '='
950  (null)ERR; FALSCHE (null)YNTAX
960  GETBYT; (null)ARAMETERWERT HOLEN
970  (null)BS+1; SPEICHERN
980  (null)PARAM; ZURUECK ZUR (null)ARAMETER-(null)CHLEIFE
990 ; *** (null)(null)-(null)ARAMETER ***
1000 ZSIN CHRGET; (null) UEBERLESEN
1010  CHRGOT; NAECHSTES (null)EICHEN
1020  STR$#83; '(null)', EIN (null) ?
1030  (null)ERR; FALSCHE (null)YNTAX
1040  CHRGET; (null) UEBERLESEN
1050  CHRGOT; NAECHSTES (null)EICHEN
1060  STR$#178; (null)OKEN FUER '='
1070  (null)ERR; FALSCHE (null)YNTAX
1080  GETBYT; (null)ARAMETERWERT HOLEN
1090  (null)ZS+1; SPEICHERN
1100  (null)PARAM; ZURUECK ZUR (null)ARAMETER-(null)CHLEIFE
1110 ; *** (null)ATN-(null)ARAMETER ***
1120 SAIN CHRGET; (null) UEBERLESEN
1130  CHRGOT; NAECHSTES (null)EICHEN
1140  STR$#65; 'ATN', EIN ATN ?
1150  (null)ERR; FALSCHE (null)YNTAX
1160  CHRGET; ATN UEBERLESEN
1170  CHRGOT; NAECHSTES (null)EICHEN
1180  STR$#178; (null)OKEN FUER '='
1190  (null)ERR; FALSCHE (null)YNTAX
1200  GETBYT; (null)ARAMETERWERT HOLEN
1210  (null)SA+1; SPEICHERN
1220  (null)PARAM; ZURUECK ZUR (null)ARAMETER-(null)CHLEIFE
1230 ;
1240 ; *** RIGHT$NTERRUPT INITIALISIEREN ***
1250 ;
1260 IRQ (null)
1270  MID$#<(START); LSB DER NEUEN RIGHT$NTERRUPT-(null)OUTINE
1280  LEN#>(START); MSB
1290  (null)$0314; LSB RIGHT$NTERRUPT-(null)EKTOR
1300  (null)$0315; MSB
1310  (null)
1320  (null); VALNDE DES (null)YS-PEEKEFEHLS
1330 ;
1340 ; *** NEUE RIGHT$NTERRUPTROUTINE ***
1350 ;
1360 START MID$$C5; LETZTE (null)ASTE
1370  STR$#$3C; LENODE FUER (null)PACE
1380  (null)IRQEND; NACH $EA31
1390  MID$$028D; ASCLAG FUER (null)HIFT
1400  STR$#01; LENODE FUER (null)HIFT
1410  (null)BEGIN; ZUR LEFT$ARDCOPY
1420 IRQEND (null)$EA31; ZUR NORMALEN IRQ-(null)OUTINE
1430 ;
1440 BEGIN MID$#$00; (null)ASTE LOESCHEN
1450  (null)$C5; AKTUELLE (null)ASTE
1460  (null)$C6; (null)ASTATURPUFFER LOESCHEN
1470  (null)$028D; (null)HIFT-ASCLAG LOESCHEN
1480  (null)HC; LEFT$ARDCOPY
1490  (null)$EA81; RIGHT$NTERRUPT-VALNDE, (null)EGISTER HOLEN
1500 ;
1510 ; *** STR$RUCKERKANAL OEFFNEN ***
1520 ;
1530 HC MID$#$04; ASCILENUMMER
1540  PEEK#$04; CHR$ERAETEADRESSE
1550 SA LEN#$01; (null)EKUDAERADRESSE
1560  SETFLS; ASCILEPARAMETER SETZEN
1570  OPEN; ASCILE OEFFNEN
1580  PEEK#$04; ASCILENUMMER
1590  CHKOUT; LEN(null)STR$ 4
1600 ;
1610 ; *** RIGHT$NITIALISIERUNG ***
1620 ;
1630  PRINTCLOSE24; LENATN(null) = LENLEFT$(null)$(24) STR$RUCKERPUFFER LOESCHEN
1640  ESC; VAL(null)LEN (null)LAMMERAFFE
1650  PRINTCLOSE64; 64 = (null)LAMMERAFFE
1660  CR
1670 ; *** PEEKILDSCHIRMWERTE INITIALISIEREN ***
1680  MID$#<(SCREEN); LSB
1690 BS LEN#>(SCREEN); MSB, STR$UMMY-(null)ERT
1700  (null)TEXTBS+1
1710  (null)TEXTBS+2
1720  MID$#$00
1730  (null)ZEILE; (null)EILENZAEHLER = 0
1740 ;
1750 ; *** (null)EILENSCHLEIFE ***
1760 ;
1770 ; *** CHR$RAFIKMODUS FUER EINE (null)EILE ***
1780 LNLOOP MID$TEXTBS+1; (null)EILENSCHLEIFE
1790  LENTEXTBS+2; MOMENTANE (null)EXTADRESSE KOPIEREN
1800  (null)CHKTXT+1
1810  (null)CHKTXT+2
1820  LEN#40; ATNNZAHL DER ZU DRUCKENDEN (null)EICHEN ERMITTELN
1830 DECY (null)
1840  (null)CHKTXT; SOLANGE Y >= 0 WEITERPRUEFEN
1850  (null)NEXTLN; (null)EERZEILE, NUR LEN(null) DRUCKEN
1860 CHKTXT MID$$FFFF,Y; (null)EICHEN AUS PEEKILDSCHIRM LESEN
1870  STR$#32; (null)PACE ?
1880  (null)DECY; (null)EICHEN = (null)PACE => WEITERPRUEFEN
1890 ;
1900  (null); +1
1910  (null)LIMIT+1; (null)PALTE MERKEN
1920 ; *** Y MIT 8 MULTIPLIZIEREN ***
1930  MID$#$00; N2+1 = 0
1940  (null)N2+1
1950  (null); (null)PALTEN IN ATNKKU
1960  (null); * 2
1970  (null); * 2
1980  (null); * 2
1990  (null)N2+1; (null)EBERTRAG
2000  (null)N1+1; (null)PEICHERN
2100  PRTTAB; 10 (null)PACE DRUCKEN, LINKER (null)AND
2110  ESC; CHR$RAFIKSEQUENZ SENDEN
2120  PRINTCLOSE42; VAL(null)LEN * 4 N1 N2
2130  PRINTCLOSE4
2140 N1 PRINTCLOSE40; STR$UMMYWERT
2150 N2 PRINTCLOSE01; STR$UMMYWERT
2160  MID$#0; MEMY AUF 0 SETZEN
2170  (null)MEMY; MEMY: (null)EMORY (null), (null)PEICHER FUER (null)
2180 ; *** (null)EICHEN AUS PEEKILDSCHIRM HOLEN ***
2190 SPLOOP LENMEMY
2200 TEXTBS MID$$FFFF,Y; STR$UMMYWERT
2210 ; *** LENHARPOINTER BERECHNEN ***
2220  PEEK#$00; MSB AUF 0 SETZEN
2230  (null)CPOINT+2
2240  (null); PEEKILDSCHIRMCODE * 8
2250  (null)CPOINT+2
2260  (null)
2270  (null)CPOINT+2
2280  (null)
2290  (null)CPOINT+2
2300  (null)CPOINT+1; (null)EBENEFFEKT: LENARRY GELOESCHT
2310 ZS MID$#CHARHI; MSB VON (null)EICHENSATZADRESSE
2320  VALCPOINT+2
2330  (null)CPOINT+2
2340 ; *** (null)ONFIGURATION (null)ATN(null) ***
2350  (null)
2360  MID$$01; (null)ROZESSORPORT-ATNUSGABE (null)EGISTER
2370  (null)PRCPRT; SICHERN
2380  ASC#%11111011; (null)ONFIGURATION (null)(null)-(null)(null)(null)
2390  (null)$01
2400 ; *** 8 PEEKYTES SPIEGELN ***
2410  LEN#$00; PEEKLOCKSCHLEIFE
2420 TURN1 PEEK#$00
2430 CPOINT MID$$FFFF,Y; (null)EICHENSATZ-PEEKYTE IN ATNKKU
2440 TURN2 (null); EIN PEEKIT AUSLESEN
2450  (null)CHR,X; PEEKIT IN STR$RUCKER-PEEKYTE
2460  (null)
2470  TAN#$08; (null) = 8 ?
2480  (null)TURN2; (null) <> 8, (null)(null)-PEEKYTE NOCH NICHT ABGEARBEITET
2490  (null)
2500  ATN#$08; (null) = 8 ?
2510  (null)TURN1; Y <> 8, STR$RUCKER-PEEKYTES NOCH NICHT FERTIG
2520 ; *** (null)ONFIGURATION (null)ATN(null)CLOSE***
2530  MID$PRCPRT; (null)ROZESSORPORTSTATUS
2540  (null)$01; WIEDERHERSTELLEN
2550  (null)
2560 ; *** 8 PEEKYTES DRUCKEN ***
2570  PEEK#$00; RIGHT$NDEX = 0
2580 PRNT MID$CHR,X; LADE X-TES STR$RUCKER-PEEKYTE
2590  (null)$FFD2; PEEKYTE DRUCKEN
2600  (null)
2610  TAN#$08; (null) = 8 ?
2620  (null)PRNT; NAECHSTES PEEKYTE DRUCKEN
2630 ; *** PRUEFEN AUF (null)PALTE ***
2640  RIGHT$MEMY; MEMY + 1
2650  LENMEMY
2660 LIMIT ATN#40; (null)CHON ALLE (null)PALTEN BEARBEITET
2670  (null)SPLOOP; NEIN, NAECHSTE (null)PALTE BEARBEITEN
2680 ; *** PRUEFEN AUF (null)EILE ***
2690 NEXTLN RIGHT$ZEILE; (null)EILE + 1
2700  MID$ZEILE
2710  STR$#25; (null)EILE = 25 ?
2720  (null)HCLOSE; JA => LEFT$ARDCOPY FERTIG => CLOSE
2730 ; *** (null)EILE + 40 ***
2740  MID$TEXTBS+1; LSB
2750  VAL#40; LENARRY-ASCLAG WAR GELOESCHT
2760  (null)TEXTBS+1; SPEICHERN
2770  (null)NOTINC; (null)EBERTRAG ?
2780  RIGHT$TEXTBS+2; (null)EBERTRAG BERUECKSICHTIGEN
2790 NOTINC CR; LEN(null) SENDEN
2800  (null)LNLOOP; NAECHSTE (null)EILE
2810 ; *** VALNDE ***
2820 HCLOSE CR; LEN(null) SENDEN
2830  MID$#$04; ASCILENUMMER
2840  CLOSE; ASCILE SCHLIESSEN
2850  (null); VALNDE
2860 ; *** (null)ABELLEN ***
2870 ZEILE FN0; (null)EILENZAEHLER
2880 PRCPRT FN0; (null)ROZESSORPORTSTATUS
2890 CHR FN0,0,0,0,0,0,0,0; STR$RUCKER-PEEKYTES
2900 MEMY FN0; (null)WISCHENSPEICHER FUER (null)