10 REM ********************************
11 REM *                              *
12 REM *         APFELPRINTER         *
13 REM *         WRITTEN 1985         *
14 REM *        BY PETER SIEPEN       *
15 REM *     VON-STEPHAN-STRASSE 6    *
16 REM *       4200 OBERHAUSEN 1      *
17 REM *                              *
18 REM ********************************
100 A=A+1:IFA=1THENLOAD"APFEL/OBJ",8,1
110 POKE55,0:POKE56,32:CLR
120 REM *** SPEICHERGRENZE SETZEN ***
130 :
140 :
1000 REM ********** MENUE ***********
1003 POKE53280,11:POKE53281,0:PRINTCHR$(5);
1005 PRINTCHR$(8)CHR$(14)
1010 PRINT"[147]"TAB(15)"[205] E N U E"
1020 PRINT"  1 [146] [194]ERECHNEN"
1030 PRINT"  2 [146] [196]RUCKEN"
1040 PRINT"  3 [146] [211]PEICHERN"
1050 PRINT"  4 [146] [204]ADEN"
1100 GETA$:IFA$=""THEN1100
1110 IFVAL(A$)<1ORVAL(A$)>4THEN1100
1120 ON VAL(A$)GOTO2000,3000,5000,6000
1130 GOTO1000
1140 :
1150 :
1900 REM ****** WERTE EINGEBEN *******
2000 PRINT"[147] [215] E R T E :"
2010 INPUT " [204]INKER [210]AND  ";LI
2020 INPUT " [210]ECHTER [210]AND ";RE
2030 INPUT " [213]NTERER [210]AND ";UN
2040 INPUT " [207]BERER [210]AND  ";OB
2050 INPUT " [212]IEFE        ";T
2060 IFT<5ORT>254THEN2050
2065 REM MASCHINENPRG AUFRUFEN
2070 POKE821,0
2080 POKE52999,T
2090 SYS 49152,LI,RE,UN,OB
2100 POKE53280,0
2110 GOTO1000 : REM MENUE
2120 :
2130 :
3000 REM ********** DRUCKEN **********
3010 PRINT"[147] [196] R U C K E N "
3020 PRINT:PRINT:PRINT" [215]OLLEN [211]IE NORMAL ODER INVERS [196]RUCKEN ?"
3030 GETA$:IFA$<>"N"ANDA$<>"I"THEN3030
3040 IFA$="N"THENPOKE820,0   :REM (null)ASKE
3050 IFA$="I"THENPOKE820,255
3060 PRINT:PRINT:PRINT" [198]ERTIG ?"
3070 GETA$:IFA$=""THEN3070
3080 POKE821,255 : REM AUFRUF MC-PRG
3090 SYS49161
3100 PRINT"[147] [198]ERTIG"
3110 PRINT:PRINT" [215]OLLEN [211]IE DIE [215]ERTE AUSDRUCKEN LASSEN"
3120 GETA$:IFA$<>"J"ANDA$<>"N"THEN3120
3130 IFA$="N"THEN1000  :REM MENUE
3140 OPEN 4,4,7 :REM WERTE DRUCKEN
3150 FORI=1TO3:PRINT#4:NEXT
3160 PRINT#4,"[204]INKER [210]AND  : ";LI;
3170 PRINT#4,CHR$(16)"40";
3175 PRINT#4,"[210]ECHTER [210]AND : ";RE
3178 PRINT#4,CHR$(13)
3180 PRINT#4,"[213]NTERER [210]AND : ";UN;
3185 PRINT#4,CHR$(16)"40";
3190 PRINT#4,"[207]BERER [210]AND  : ";OB
3200 PRINT#4,CHR$(13)
3210 PRINT#4,"[212]IEFE : ";PEEK(52999)
3220 CLOSE4
3230 GOTO1000 :REM MENUE
3240 :
3250 :
5000 REM ******** SPEICHERN *********
5005 PRINT"[147] [211] P E I C H E R N"
5010 PRINT:PRINT:INPUT " [206]AME ";NA$
5015 REM NAME UEBERGEBEN
5020 IFLEN(NA$)>16THENNA$=LEFT$(NA$,16)
5030 FORI=1TOLEN(NA$)
5040 POKE828+I-1,ASC(MID$(NA$,I,1))
5050 NEXT
5055 POKE822,LEN(NA$)
5060 SYS49155 : REM AUFRUF MC-PRG
5070 OPEN15,8,15 : REM FEHLERKANAL
5080 INPUT#15,EN,ER$,A,A
5090 PRINT""EN,ER$
5100 CLOSE15
5110 GETA$:IFA$=""THEN5110
5120 GOTO1000: REM MENUE
5130 :
5140 :
6000 REM ********* LADEN ************
6005 PRINT"[147] [204] A D E N"
6010 PRINT:PRINT:INPUT " [206]AME ";NA$
6015 REM NAME UEBERGEBEN
6020 IFLEN(NA$)>16THENNA$=LEFT$(NA$,16)
6030 FORI=1TOLEN(NA$)
6040 POKE828+I-1,ASC(MID$(NA$,I,1))
6050 NEXT
6055 POKE822,LEN(NA$)
6060 SYS49158 : REM AUFRUF MC-PRG
6070 OPEN15,8,15 :REM FEHLERKANAL
6080 INPUT#15,EN,ER$,A,A
6090 PRINT""EN,ER$
6100 CLOSE15
6110 GETA$:IFA$=""THEN6110
6115 REM WERTE AUSGEBEN
6120 PRINT"[210]ECHTER [210]AND : ";RE
6130 PRINT"[204]INKER [210]AND  : ";LI
6140 PRINT"[207]BERER [210]AND  : ";OB
6150 PRINT"[213]NTERER [210]AND : ";UN
6160 PRINT"[212]IEFE        : ";PEEK(52999)
6170 GETA$:IFA$=""THEN6170
6180 GOTO1000:REM MENUE
6190 REM ENDE