10 REM PROGRAMMIERTE FRAGEN
20 POKE 53280,12:POKE53281,0
100 PRINT CHR$(147)
101 IF A=0 THEN A=1:LOAD"PRINT OBJ",8,1
102 IF A=1 THEN A=2:LOAD"IN21 OBJ",8,1
103 IF A=2 THEN A=3:LOAD"BILDSCHIRM OBJ",8,1
104 IF A=3 THEN A=4:LOAD"READ10 OBJ",8,1
105 IF A=4 THEN A=5:LOAD"DRUCKER OBJ",8,1
110 PR=12*16^3   : DR=PR+6*16^2
111 IN=PR+1*16^2 : BI=PR+3*16^2
112 WR=PR+5*16^2 : RE=WR+13*16+10
113 DIM L(99,2),M$(15),SP(15),ZE(15)
114 PRINTCHR$(14):POKE 657,128
118 AU=0:KO$="[208]RUEFUNGSFRAGEN":GOSUB 11000:REM KOPF
119 SYS PR,01,01,"[200]. [199]OELKER / 28.03.84[154]"
125 M$(1)= " [196]RUCK.EINST. ":SP(1)=0:ZE(1)=24
130 M$(2)= " [194]ESCHREIBUNG ":SP(2)=16:ZE(2)=24
135 M$(3)= " [211]TART ":SP(3)=32:ZE(3)=24:NN=3:J=2:GOSUB14010
140 IF X$=CHR$(136) THEN 118
145 IF J=3 THEN 156
150 ON J GOSUB 15000,16000
151 GOTO 118
156 KO$="[208]RUEFUNGSFRAGEN":GOSUB11000
158 GOSUB 13000
159 IF X$=CHR$(136) THEN 118
160 GOSUB10700:KO$="[208]RUEFUNGSFRAGEN":GOSUB 11000
162 M$(1)=" LERNEN ":SP(1)=7:ZE(1)=24
164 M$(2)=" BEARBEITEN ":SP(2)=22:ZE(2)=24 :NN=2
166 GOSUB 14000
168 IF X$=CHR$(136) THEN 118
170 ON J GOSUB 200,800
180 GOTO 160
190 :
200 REM AUFGABEN LERNEN ***************
210 KO$="[193]UFGABEN LERNEN":GOSUB11000
230 GOSUB 12500
240 IF X$=CHR$(136)THEN RETURN
245 IF F=0 THEN GOSUB 10000
250 IF N>0  THEN 300
255 GOSUB 11400
260 SYS PR,07,24,"[203]EINE [193]UFGABEN GESPEICHERT"CHR$(145)
270 GET X$:IF X$=""THEN 270
280 SA$="":RETURN
300 FOR I=1 TO N:L(I,1)=I:L(I,2)=0:NEXT
310 MAX=N
320 T=INT(RND(1)*MAX)+1:R=L(T,1)
330 IF L(T,2)=0 THEN FR=FR+1
340 GOSUB17000:GOSUB10600:REMKOPF/FRAGE
350 SYS PR,00,24,"[196]EINE [193]NTWORT   ?";
360 SYS IN,18,24,21,1,ER$
365 IF PEEK(828)=136 THEN 700
370 IF ER$<>AW$ THEN 500
380 IF L(T,2)=0 THEN RI=RI+1
390 L(T,1)=L(MAX,1):L(T,2)=L(MAX,2)
400 MAX=MAX-1
410 GOSUB11400:REM FUSSZEILEN LOESCHEN
420 SYS PR,12,23," ** RICHTIG ** "
440 GETX$:IF X$<>CHR$(13)ANDX$<>CHR$(136)THEN 440
450 IF X$=CHR$(136) OR MAX=0 THEN 700
460 GOTO 320
470 :
500 REM FALSCHE ANTWORT
510 L(T,2)=1
520 GOSUB 12000 :REM FALSCHE ANTWORT
530 GOSUB11400
540 SYS PR,00,24,"[196]EINE [193]NTWORT   ?";
550 SYS IN,18,24,21,1,ER$
560 IF ER$=AW$ THEN FA=0:GOTO410
570 GOSUB 12000:FA=FA+1:IF FA<2 THEN 530
580 GOSUB 11400:GOSUB13200
581 SYS PR,(40-L)/2,23," * RICHTIG IST :"AW$" * "
600 FA=0: GOTO 440
610 :
700 GOSUB 11000:REM KOPF
710 SYS PR,2,12,"[193]NZAHL DER [198]RAGEN :";FR
720 SYS PR,2,14,"RICHTIGE [193]NTWORTEN:";RI
730 FA=0:RI=0:FR=0:SA$=""
740 GET X$:IF X$="" THEN 740
750 RETURN
760 :
800 REM AUFGABEN BEARBEITEN ***********
810 IF S$="001  "THEN 890
820 KO$="[193]UFGABEN BEARBEITEN":GOSUB11000
830 SYS PR,01,05,"[194]ITTE [195]ODE-[206]R. EINGEBEN:"
840 SYS IN,01,07,5,1,S$
850 IF S$="001  "THEN 890
860 SYS PR,01,24,"[195]ODE-[206]R. UNBEKANNT / WEITER MIT [210][197][212][213][210][206]"CHR$(145)
870 GETX$:IFX$<>CHR$(13) THEN 870
880 GOTO 800
890 GOSUB 11000:REM KOPF
900 GOSUB 12200:IF A=136 THEN SA$="": RETURN
980 :
1000 REM AUFGABEN BEARBEITEN TEIL 2 ---
1010 KO$="[193]UFGABEN BEARBEITEN":GOSUB 11000:REM KOPF
1020 M$(1)=" [197]INGABE ":SP(1)=6:ZE(1)=24
1030 M$(2)=" [193]USGABE ":SP(2)=24:ZE(2)=24
1090 NN=2:GOSUB14000
1095 IF X$=CHR$(136) THEN SA$="":RETURN
1100 ONJ GOSUB 1140,3000,1090:GOTO 1000
1110 :
1140 REM EINGABE ----------------------
1145 KO$="[193]UFGABEN EINGEBEN":AW$=""
1146 IF N+1<99 THEN 1150
1147 GOSUB11400:SYSPR,5,23,"[203]EINE [197]INGABE MEHR MOEGLICH[146]":GOSUB11100:GOTO 1280
1150 R=N+1:GOSUB 11000:REM KOPF
1160 SYS PR,10,24,"F1=[212]EXT UEBERNEHMEN"CHR$(145)
1170 SYS BI,0,3,39,20
1180 A=PEEK(828)
1195 IF A=136 THEN 1280
1200 GOSUB 11400:REM ZEILE 24 LOESCHEN
1205 POKE781,21:SYS 59903
1210 SYS PR,0,24,"RICHTIGE [193]NTWORT: "AW$;CHR$(145)
1220 SYS IN,18,24,21,1,AW$
1225 A=PEEK(828)
1226 IF A=136 THEN 1280
1230 A=PEEK(828):IF A=17 OR A=145 OR AW$="                     "THEN1220
1240 IF KO=0 THEN N=N+1:R=N
1260 GOSUB 10500:REM AUFGABEN WRITE
1270 GOSUB 10200:REM STATUS WRITE
1280 R=0:RETURN
1290 :
3000 REM AUSGABE
3010 R=0: KO$="[193]USGABE/[203]ORREKTUR":IFN<1 THEN 3700
3015 GOTO 3200
3020 GOSUB11000
3100 GOSUB10600
3102 GOSUB13200:SYS PR,(52-L)/2,21," -- "AW$" -- "
3105 GOSUB11400
3110 M$(1)=" WEITER ":SP(1)=1:ZE(1)=23
3111 M$(2)=" ZURUECK  ":SP(2)=13:ZE(2)=23
3112 M$(3)=" [193]UFG.[206]R.  ":SP(3)=27:ZE(3)=23
3120 M$(4)=" DRUCKEN ":SP(4)=1:ZE(4)=24
3121 M$(5)=" LOESCHEN ":SP(5)=13:ZE(5)=24
3122 M$(6)=" [203]ORREKTUR ":SP(6)=27:ZE(6)=24
3130 NN=6:GOSUB 14000
3135 IF X$=CHR$(136) THEN 3800
3140 ON J GOTO 3200,3300,3400,5000,4000,3600
3150 :
3200 REM WEITER -----------------------
3210 R=R+1:IF R<=N THEN 3020
3220 GOSUB 11400
3230 SYS PR,8,24,"[197]NDE DES [193]UFGABENSATZES"CHR$(145)
3240 GET X$:IF X$=""THEN 3240
3250 GOTO 3800
3260 :
3300 REM ZURUECK ----------------------
3310 R=R-1:IF R>=1 THEN 3020
3320 GOTO 3220
3330 :
3400 REM NUMMER EINGEBEN --------------
3410 R=0:GOSUB 11000
3420 SYS PR,1,24,"[193]UFGABEN-[206]UMMER ?"CHR$(145)
3430 SYS IN,19,24,3,0,B$:B=INT(VAL(B$))
3435 IF PEEK(828)=136 THEN 3020
3440 IF B>N OR B<1  THEN SYS PR,1,23,"UNGUELTIGE [206]UMMER":GOTO 3420
3450 R=B:GOTO 3020
3460 :
3600 REM KORREKTUR --------------------
3610 GOSUB11400:REM FUSSZEILEN LOESCHEN
3615 SYS PR,09,23,"[199]IB DIE [203]ORREKTUR EIN !"
3620 KO=R:GOSUB 1160:R=KO:KO=0
3630 IF A=136 THEN RETURN
3640 GOTO 3105
3650 :
3700 GOSUB11000:SYS PR,8,24,"[203]EINE [193]UFGABE GESPEICHERT "CHR$(145)
3710 GET X$:IF X$=""THEN 3710
3800 R=0:RETURN
3810 :
4000 REM LOESCHEN ---------------------
4100 GOSUB 11400
4110 SYS PR,4,24,"[193]UFGABE WIRKLICH LOESCHEN (J/N) ?"CHR$(145)
4120 GETX$:IFX$<>"J" AND X$<>"N" THEN 4120
4130 IF X$="N" THEN 3105
4135 GOSUB 11400:SYS PR,5,24,"... [193]UFGABE WIRD GELOESCHT ..."CHR$(145)
4140 IF N=1 OR N=R THEN 4570
4500 OPEN 15,8,15
4510 PRINT#15,"S:"STR$(R)+SA$
4520 PRINT#15,"R:"STR$(R)+SA$"="STR$(N)+SA$
4530 CLOSE15
4570 N=N-1
4580 GOSUB10200:REM STATUSDATEI
4590 GOTO 3800
4600 :
5000 REM DRUCKEN **********************
5001 GOSUB 11400
5002 POKE2,4:SYS DR
5003 IF PEEK(2)=0 THEN AU=AU+1:GOTO5008
5004 SYS PR,07,24,"[196]RUCKER NICHT EINGESCHALTET"CHR$(145)
5005 GET X$:IF X$=""THEN 5005
5006 GOTO 3105
5007 :
5008 ON D GOTO 5009,5100
5009 REM EPSON DRUCKER ----------------
5010 OPEN2,4,0:CMD2
5020 PRINT CHR$(27);"3";CHR$(22);:PRINT CHR$(15);
5026 PRINT CHR$(27);"L";CHR$(5);
5027 PRINT   "[193]UFG.";AU
5028 PRINT CHR$(27);"L";CHR$(15);
5030 SYS WR:CLOSE2
5070 GOTO 3105
5080 :
5100 REM VC 1526 DRUCKER --------------
5102 OPEN2,4,7:PRINT#2,"[193]UFG.";AU
5103 PRINT#2,LEFT$("[183][183][183][183][183][183][183][183][183][183][183][183][183][183]",5+LEN(STR$(AU)))
5105 OPEN6,4,6:PRINT#6,CHR$(16);
5130 SYS WR
5140 PRINT#2:CLOSE2:CLOSE6: GOTO 3105
10000 REM DATEIEN *********************
10010 :
10020 REM STATUSDATEI READ ------------
10100 N=0:R=0:OPEN15,8,15
10110 OPEN2,8,2,SA$+"/S,S,R"
10120 INPUT#15,F:IF F<>0 THEN 10140
10130 INPUT#2,N:REM ANZAHL AUFGABEN
10140 CLOSE 2:CLOSE15:RETURN
10195 :
10200 REM STATUSDATEI ANLEGEN ---------
10230 OPEN2,8,2,"@:"+SA$+"/S,S,W"
10240 PRINT#2,N
10250 CLOSE2:RETURN
10260 :
10300 REM SACHGEBIETE WRITE -----------
10310 IF II>0 THEN 10350
10320 OPEN15,8,15,"S:[211]ACHGEBIETE"
10325 SA$(1)=""
10330 CLOSE15:RETURN
10340 :
10350 OPEN2,8,2,"@:[211]ACHGEBIETE,S,W"
10360 FOR I=1 TO II:PRINT#2,SA$(I):NEXT
10370 CLOSE2:CLOSE15:RETURN
10500 REM AUFGABEN WRITE --------------
10504 GOSUB 11400:REM ZEILE 24 LOESCHEN
10505 SYS PR,08,24,"... BITTE WARTEN ..."CHR$(145)
10510 SYS PR,00,3,"";
10520 OPEN3,3
10530 OPEN2,8,2,"@:"+STR$(R)+SA$+",S,W"
10540 SYS WR
10565 PRINT#2,AW$
10570 CLOSE2:CLOSE3
10580 RETURN
10590 :
10600 REM AUFGABEN READ ---------------
10610 OPEN2,8,2,STR$(R)+SA$+",S,R"
10620 SYS RE
10630 INPUT#2,AW$
10660 CLOSE2:RETURN
10700 REM SACHGEBIETE PRUEFEN/EINLESEN
10705 II=0
10710 OPEN 15,8,15
10720 OPEN 2,8,2,"[211]ACHGEBIETE,S,R"
10730 INPUT#15,F
10740 IF F<>0 THEN 10780
10750 II=II+1
10760 INPUT#2,SA$(II)
10770 IF ST<>64 THEN 10750
10780 CLOSE2:CLOSE15:RETURN
10790 :
11000 REM KOPF ------------------------
11010 PRINT CHR$(147);:PRINT TAB(1)KO$
11015 IF SA$="" THEN 11020
11016 SYS PR,1,1,SA$
11017 SYS PR,28,0,"[193]UFG.[206]R.:"R
11018 SYS PR,28,1,"[193]NZAHL  :"N
11020 SYS PR,00,02,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"CHR$(145)
11021 SYS PR,27,0,"[170]"
11022 SYS PR,27,1,"[170]"
11030 SYS PR,00,22,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"CHR$(145)
11040 SYS PR,00,03,"";
11050 RETURN
11060 :
11100 REM WEITER MIT RETURN -----------
11110 SYS PR,10,24,"[215]EITER MIT [210][197][212][213][210][206]"CHR$(145)
11120 GETX$:IFX$<>CHR$(13) THEN 11120
11130 A=136:RETURN
11140 :
11400 REM ZEILE 24 LOESCHEN -----------
11410 POKE781,23:SYS 59903
11420 POKE781,24:SYS 59903:RETURN
11430 :
11580 :
12000 REM FALSCHE ANTWORT -------------
12010 FOR J=1 TO 5
12020 SYS PR,25,24,"** [198][193][204][211][195][200] **";
12030 FOR JJ=1 TO 60:NEXT
12040 SYS PR,25,24,"** [198][193][204][211][195][200] **[146]";
12050 FOR JJ=1 TO 60:NEXT:NEXT
12060 RETURN
12070 :
12200 REM SACHGEBIET WAEHLEN/ANLEGEN --
12205 N=0:SA$="":A=0
12210 IF II=0 THEN 12320
12215 SYS PR,05,4,"[211]ACHGEBIETE"
12216 SYS PR,05,5,"[163][163][163][163][163][163][163][163][163][163][163]"
12220 FOR I=1 TO II
12230 M$(I)=SA$(I):SP(I)=5:ZE(I)=I+5
12240 NEXT
12245 M$(II+1)="NEUES [211]ACHGEBIET ANLEGEN ":SP(II+1)=5:ZE(II+1)=18
12246 M$(II+2)="[211]ACHGEBIET LOESCHEN      ":SP(II+2)=5:ZE(II+2)=19
12260 NN=II+2:GOSUB 14500
12270 IF X$=CHR$(136) THEN A=136:RETURN
12280 IF J=II+1 THEN 12320
12290 IF J=II+2 THEN 12700
12310 SA$=SA$(J):GOSUB 10000:GOTO 12430
12320 GOSUB 11400:REM STATUSZEILE LOESCHEN
12322 IF II<10 THEN 12330
12324 SYS PR,08,23," ** NICHT MOEGLICH ** [146]":GOSUB 11100:RETURN
12330 SYS PR,00,24,"[206]EUES [211]ACHGEBIET EINGEBEN: "CHR$(145)
12340 SYS IN,27,24,12,1,SA$
12344 A=PEEK(828):IF A=136 THENSA$="":RETURN
12345 IF A=145 OR A=17 OR SA$="            "THEN 12340
12350 FOR I=1 TO II
12360 IF SA$=SA$(I) THEN SYSPR,00,23,"-- [206]AME EXISTIERT SCHON --":GOTO 12330
12370 NEXT
12380 II=II+1:SA$(II)=SA$
12390 GOSUB 10300:REM SACHGEBIETE WRITE
12420 GOSUB 10200:REM STATUSDATEI ANLEGEN
12430 RETURN
12440 :
12500 REM SACHGEBIETE WAEHLEN ---------
12510 N=0:SA$="":F=0:A=0
12520 IF II=0 THEN F=1:RETURN
12530 IF II=1 THEN SA$=SA$(1):RETURN
12534 SYS PR,05,4,"[211]ACHGEBIETE"
12535 SYS PR,05,5,"[163][163][163][163][163][163][163][163][163][163][163]"
12536 FOR I=1 TO II
12537 M$(I)=SA$(I):SP(I)=5:ZE(I)=I+5
12538 NEXT:NN=II
12540 GOSUB 14500
12545 IF X$=CHR$(136) THEN RETURN
12550 SA$=M$(J):RETURN
12630 :
12700 REM SACHGEBIET LOESCHEN ---------
12710 KO$="[211]ACHGEBIET LOESCHEN[146]":GOSUB11000:GOSUB12500
12720 IF A=136 THEN RETURN
12725 A=J:IF II=1 THENA=1
12730 GOSUB 11400:SYS PR,1,23,"ZU LOESCHENDES [211]ACHGEBIET:"SA$(A)
12740 SYS PR,10,24,"SICHER (J/N)?"CHR$(145)
12750 GETX$:IF X$<>"J"AND X$<>"N" THEN 12750
12760 IF X$="N" THEN A=136:RETURN
12765 GOSUB 11400:SYS PR,3,24,"... "SA$(A)" WIRD GELOESCHT ..."CHR$(145)
12770 IF A=II THEN 12810
12780 FOR I=A TO II-1
12790 SA$(I)=SA$(I+1)
12800 NEXT
12810 II=II-1
12820 GOSUB10300:REM  SACHGEBIETE WRITE
12830 OPEN15,8,15,"S:"+SA$(A)+"*":CLOSE15
12831 OPEN15,8,15,"S:??"+SA$(A)+"*":CLOSE15
12832 OPEN15,8,15,"S:???"+SA$(A)+"*":CLOSE15
12840 CLOSE15:A=136:RETURN
12850 :
13000 REM "[193]UFGABENDISKETTE EINLEGEN"
13010 SYS PR,6,23," [193]UFGABENDISKETTE EINLEGEN "
13020 FOR J=1 TO 80:NEXT
13030 GET X$:IF X$<>""THEN 13070
13040 SYS PR,6,23," [193]UFGABENDISKETTE EINLEGEN [146]"
13050 FOR J=1 TO 80:NEXT
13060 GOTO 13010
13070 GOSUB11400:RETURN
13080 :
13200 REM AUSGABE RICHTIGE ANTWORT
13210 JJ=0:FOR J=0 TO LEN(AW$)
13220 IF MID$(AW$,LEN(AW$)-J,1)<>" "THEN 13240
13230 JJ=JJ+1:NEXT
13240 AW$=LEFT$(AW$,LEN(AW$)-JJ)
13250 L=LEN(AW$)+19
13270 RETURN
13280 :
14000 REM MENUE ***********************
14005 J=1
14010 GOSUB 14100:SYSPR,SP(J),ZE(J),""M$(J)CHR$(145)
14015 GET X$
14017 IF X$=CHR$(13) THEN 14060
14020 IF X$=CHR$(133)ORX$=CHR$(29)ORX$=CHR$(157)ORX$=CHR$(136)THEN14025
14022 IF X$<>CHR$(17)ANDX$<>CHR$(145)THEN 14015
14025 IF X$=CHR$(17)ANDZE(J)=23ANDJ+3<=NN THEN J=J+3
14026 IF X$=CHR$(145)ANDZE(J)=24ANDNN>4THEN J=J-3
14030 IF X$=CHR$(133)OR X$=CHR$(136)THEN 14060
14040 IF X$=CHR$(157)THEN J=J-1:IF J=0 THEN J=NN
14045 IF X$=CHR$(29)THEN J=J+1:IF J=NN+1 THEN J=1
14050 GOTO 14010
14060 RETURN
14070 :
14100 FOR I=1 TO NN
14110 SYS PR,SP(I),ZE(I),M$(I)CHR$(145)
14120 NEXT:RETURN
14500 REM MENUE ***********************
14505 J=1
14510 GOSUB 14100:SYSPR,SP(J),ZE(J),""M$(J)CHR$(145)
14515 GET X$
14518 IF X$=CHR$(13) THEN 14560
14520 IF X$<>CHR$(133)ANDX$<>CHR$(17)ANDX$<>CHR$(145)ANDX$<>CHR$(136)THEN 14515
14530 IF X$=CHR$(133)OR X$=CHR$(136) THEN 14560
14540 IF X$=CHR$(145)THEN J=J-1:IF J=0 THEN J=NN
14545 IF X$=CHR$(17)THEN J=J+1:IF J=NN+1 THEN J=1
14550 GOTO 14510
14560 RETURN
15000 REM DRUCKERANPASSUNG ************
15010 GOSUB11400
15020 M$(1)=" [197][208][211][207][206] ":SP(1)=5:ZE(1)=24
15030 M$(2)=" [205][208][211] 801 ":SP(2)=23:ZE(2)=24:NN=2:GOSUB14000
15040 D=J:RETURN
16000 REM PROGRAMMBESCHREIBUNG ********
16010 PRINT CHR$(147)
16020 PRINT " [205]IT DIESEM [208]ROGRAMM KANN MAN"
16030 PRINT " [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
16040 PRINT "  - [208]RUEFUNGSFRAGEN LERNEN
16050 [153] "  - (null)RUEFUNGSFRAGEN EINGEBEN / AENDERN"
16060 [153] "  - (null)RUEFUNGSFRAGEN AUSDRUCKEN
16070 PRINT
16080 PRINT " [197]S IST BESONDERS FUER PROGRAMMIERTE     [198]RAGEN GEEIGNET.
16090 [153]:[153]
16100 [153] " ASCOLGENDENDE (null)ASTEN WERDEN BENUTZT:"
16110 [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(TAB(":[153]
16120 [153] " F1 / (null)VAL(null)(null)(null)(null) ZUR (null)EBERNAHME VON (null)ERTEN
16130 PRINT "             UND [205]ENUEPUNKTEN":PRINT
16140 PRINT" F7          ZUR [210]UECKKEHR ZUM VORHER-               GEHENDEN [208]RO";:
16150 PRINT "GRAMMTEIL":PRINT
16160 PRINT " [195]URSORSTEU- ZUR [193]NWAHL DER EINZELNEN"
16170 PRINT " ERTASTEN    [205]ENUEPUNKTE"
16180 SYSPR,12,24,"[158][218]URUECK MIT F7[154]"CHR$(145)
16190 GET X$:IFX$<>CHR$(136)THEN16190
16200 RETURN
17000 REM KOPF ------------------------
17010 PRINT CHR$(147);:PRINT TAB(1)KO$
17015 IF SA$="" THEN 11020
17016 SYS PR,1,1,SA$
17017 SYS PR,28,0,"[193]UFG.[206]R.:"N-MAX+1
17018 SYS PR,28,1,"[193]NZAHL  :"N
17020 SYS PR,00,02,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"CHR$(145)
17021 SYS PR,27,0,"[170]"
17022 SYS PR,27,1,"[170]"
17030 SYS PR,00,22,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"CHR$(145)
17040 SYS PR,00,03,"";
17050 RETURN
17060 :
30000 OPEN 15,8,15
30010 INPUT#15,A,A$
30020 PRINT A,A$
30030 CLOSE 15