10 DIM KT$(9):DIM BE$(350)                :NA$="KEINES":NB$="KEINES":MP=0
50 POKE54272+24,15:POKE54272+5,25:POKE54272+6,15
55 POKE54272,0:POKE54273,15
90 POKE53280,0:POKE53281,0:POKE788,52     :GOTO100
95 REM                                         --- TON ---
96 POKE54276,33:FORX=0TO600:NEXT          :POKE54276,0 :RETURN
97 REM                                              ---------
99 REM                                         --- MENUE ---
100 PRINT"[147]-------------SUPER--QUIZ----------------             E D";
101 PRINT" I T O R":PRINT"          [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
102 PRINT"          [221][157][221][157][171][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][171][157][221][157][221][157][173]";
103 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
104 PRINT"                          [221][157][221][157][179][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][179]";
105 PRINT"[157][221][157][221]"
106 PRINT"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
107 PRINT"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
109 IFNA$="_"THENNA$=NB$
110 PRINT"[154]          FILE : ":PRINT""NA$"[154]"
115 ME$(0)="  NEU EINGEBEN  "
120 ME$(1)="   ERGAENZEN    "
125 ME$(2)="    ANSEHEN     "
130 ME$(3)="  KORRIGIEREN   "
140 ME$(4)="    LOESCHEN    "
142 ME$(5)="   SORTIEREN    "
143 ME$(6)="     LADEN      "
144 ME$(7)="  ABSPEICHERN   "
145 ME$(8)=" SPIEL STARTEN  "
146 ME$(9)="PROGRAMM BEENDEN"
147 FORX=0TO9:PRINTME$(X):NEXT
148 PRINT""ME$(MP)"[146]"
149 POKE198,0
150 GETA$:IFA$=""THEN150
152 IFASC(A$)=13THEN220
155 IFA$=""ORA$="+"ORA$="[136]"ORA$="[135]"THENPRINTME$(MP):MP=MP+1
157 IFA$="[145]"ORA$=""ORA$="-"ORA$="[133]"ORA$="[134]"THENPRINTME$(MP):MP=MP-1
170 IFMP<0THENMP=9
180 IFMP>9THENMP=0
190 PRINT""ME$(MP)"[146]"
200 GOTO150
220 ONMP+1GOTO500,1000,1500,2500,2000,6000,7000,8000,4900,400
400 END
500 REM                                         --- NEU EINGEBEN ---
502 X$=""
505 PRINT"[147]-------NEUEN BEGRIFFSATZ EINGEBEN-------"
510 PRINT"NAME FUER DEN NEUEN BEGRIFFSATZ:"
520 POKE198,0:INPUT"  _[157][157][157]";X$
525 IFX$="_"THEN100
526 IFX$=""THEN505
528 IFLEN(X$)<12THEN550
530 PRINT"[150]ZU LANG ! (MAX 11 ZEICHEN)[154]"    :GOSUB95:POKE198,0:WAIT198,1
540 GOTO505
550 NA$=X$:NB$=X$
560 FORKA=0TO9
562 PRINT"KATEGORIE "KA":";
564 INPUT"";KA$:PRINT"[154]";
565 IFKA$=""THENKA$="NICHT BELEGT    "     :PRINT"[145]"KA$"[154]"
570 IFLEN(KA$)>16THENPRINT"[150]! ZU LANG! (MAX.16 ZEICHEN)[154]":GOSUB95:KA$="":GOTO562
572 IFLEN(KA$)=16THEN580
575 FORZ=1TO16-LEN(KA$):KA$=KA$+" ":NEXT
580 KT$(KA)=KA$:KA$="":NEXTKA
590 AB=0
595 REM                                             ---------
600 BE$=""
605 IFAB<350THEN610
607 PRINT"[150]KEINE WEITEREN EINGABEN MOEGLICH ![154]":GOSUB95
608 POKE198,0:WAIT198,1:GOTO100
610 PRINT"BEGRIFF"AB+1":"
620 POKE198,0:INPUT"  _[157][157][157]";BE$           :PRINT"[154]";
625 IFBE$="_"THEN 100
626 IFBE$=""THENPRINT"[145][145][145]":GOTO610
627 GOSUB8500:IFFE=1THEN610
630 PRINT"KATEGORIE(0-9) ? ";
640 PRINT" "AR"[157]/"KT$(AR)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB5000:PRINT
670 AB=AB+1:BE$(AB)=BE$+STR$(AR)
680 GOTO600
810 GOTO100
1000 REM                                         --- ERGAENZEN ---
1002 IFNA$="KEINES"THEN150
1005 PRINT"[147]---------BEGRIFFSATZ ERGAENZEN----------"
1110 GOTO600
1500 REM                                         --- ANSEHEN ---
1505 IFNA$="KEINES"THEN150
1510 PRINT"[147]----------BEGRIFFSATZ ANSEHEN-----------"
1555 PRINT"[150]<RET>[154] UNTERBRICHT,[150]<_>[154] BEENDET AUFLISTUNG"
1557 PRINTTAB(16)"[150]<SPACE>[154]":                POKE198,0:WAIT198,1:POKE198,0
1565 FOR KA=0TO9:PRINT"KATEGORIE"KA":";:PRINT""KT$(KA)"[154]":NEXT
1569 IFAB=0THEN1620
1570 FORZ=1TOAB
1575 PRINTZ":"
1590 PRINT""BE$(Z)"[150][157][157]()[154]"
1595 IFPEEK(198)<>0THENPOKE198,0:WAIT198,1:GETX$:IFX$="_"THEN 100
1597 POKE198,0
1600 NEXTZ
1620 POKE198,0:WAIT198,1:GOTO100
2000 REM                                         --- LOESCHEN ---
2010 PRINT"[147][150]----------BEGRIFFSATZ LOESCHEN----------"
2020 POKE53281,2:POKE53280,2
2030 PRINT"FILENAME :";
2040 POKE198,0:INPUT"  _[157][157][157]";Z$
2050 IFZ$="_"THEN90
2060 IFZ$=""THEN2010
2070 OPEN2,8,2,"SATZ "+Z$:INPUT#2,Z         :CLOSE2
2080 GOSUB10100:PRINT"[150]";:IFX>0THEN 2010
2082 IFZ<30THENPRINT"SIND SIE SICHER ??(J/N)":GOTO2087
2084 PRINT"SIE WOLLEN "Z"BEGRIFFE EINFACH SO"
2086 PRINT"LOESCHEN ??(J/N)"
2087 GETX$:IFX$=""THEN2087
2088 IFX$="J"THEN2090
2089 GOTO90
2090 OPEN1,8,15,"S:SATZ "+Z$:CLOSE1
2100 GOSUB10100:GOTO90
2500 REM                                         --- KORRIGIEREN ---
2501 IFNA$="KEINES"THEN150
2505 NR=1:POKE650,128
2510 PRINT"[147]--------------KORRIGIEREN---------------"
2520 PRINT"     F1[146] +10         K/ATEGORIEN"
2530 PRINT"     F3[146]  +1         L/OESCHEN"
2540 PRINT"     F5[146]  -1         A/ENDERN"
2550 PRINT"     F7[146] -10         M/ENUE"
2590 IFAB=0THEN2650
2600 PRINT" 1:[146]"
2601 PRINT""BE$(1)"[150][157][157]()[154]"
2650 POKE198,0
2670 GETA$:IFA$=""THEN2670
2675 IFAB=0THEN2726
2680 IFA$="[133]"THEN NR=NR+10
2690 IFA$="[134]"THEN NR=NR+1
2700 IFA$="[135]"THEN NR=NR-1
2710 IFA$="[136]"THEN NR=NR-10
2713 IF NR>AB THEN NR=1
2716 IF NR<1  THEN NR=AB
2720 IFA$="L"THEN2960
2725 IFA$="A"THEN2800
2726 IFA$="M"THENPOKE650,0:GOTO90
2729 IFA$="K"THEN3000
2750 IFAB=0THEN2670
2752 PRINT""NR"[157]:[146]   "
2755 PRINT"                                        [145]";
2760 PRINT""BE$(NR)"[150][157][157]()[154]";
2780 GOTO2670
2800 REM                                         --- AENDERN ---
2802 PRINT"   "
2804 PRINT"  "LEFT$(BE$(NR),LEN(BE$(NR))-2)" "
2810 POKE198,0:BE$="":INPUT"";BE$
2830 IFBE$=""THEN2810
2840 GOSUB8500:IFFE=1THEN2810
2900 AR=VAL(RIGHT$(BE$(NR),1))              :PRINT"[154]KATEGORIE(0-9) :";
2910 PRINTAR"[157]/";KT$(AR)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2920 GOSUB5000
2930 BE$(NR)=BE$+STR$(AR)
2940 PRINT:PRINT"[145][145]                                       ";
2945 PRINT"                                         "
2950 GOTO2750
2960 REM                                         --- LOESCHEN ---
2962 IFNR<ABTHEN2970
2965 AB=AB-1:NR=NR-1
2966 IFAB>0THEN2750
2967 PRINT"     ":PRINT"                                        "
2968 GOTO2750
2970 FORX=NRTOAB-1:BE$(X)=BE$(X+1):NEXT
2980 AB=AB-1
2985 POKE198,0:GOTO2750
3000 REM                                         --- KATEGORIEN ---
3005 NR=0
3010 PRINT"B/EGRIFFE  "
3020 PRINT"KAT."NR":   "KT$(NR)"[154]"
3030 PRINT"                                        "
3050 GETA$:IFA$=""THEN3050
3060 IFA$="[134]"ORA$="[133]"THEN NR=NR+1
3070 IFA$="[135]"ORA$="[136]"THEN NR=NR-1
3080 IF NR>9 THEN NR=0
3090 IF NR<0 THEN NR=9
3100 IFA$="L"THENKT$(NR)="NICHT BELEGT    "
3110 IFA$="B"THEN2505
3120 IFA$="M"THENPOKE650,0:GOTO90
3130 IFA$="A"THEN3200
3150 PRINT"KAT."NR":   "KT$(NR)"[154]"
3160 GOTO3050
3200 REM                                         --- KAT AENDERN ---
3210 INPUT"[145]         ";X$:PRINT"[154]";
3220 IFLEN(X$)>16THENGOSUB95:GOTO3210
3230 IFLEN(X$)=16THEN3250
3240 FORZ=1TO16-LEN(X$):X$=X$+" ":NEXT
3250 KT$(NR)=X$
3290 GOTO3150
4900 REM                                         --- SPIEL LADEN ---
4910 PRINT"[152][147]           EINEN MOMENT..."
4920 PRINT"[144]LOAD"CHR$(34)"SUPER QUIZ"CHR$(34)",8"
4930 PRINT"RUN50"
4940 POKE631,13:POKE632,13:POKE198,2:NEW
5000 REM                                         --- KAT.INPUT ---
5010 POKE198,0:PRINT"";
5020 GETA$:IFA$=""THEN5020
5025 IFASC(A$)=13 THEN PRINT"[154]";:RETURN
5030 IFASC(A$)<48 ORASC(A$)>57THEN5020
5050 AR=VAL(A$):PRINTAR"[157]/";KT$(AR)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO5020
6000 REM                                         --- SORTIEREN ---
6005 IFNA$="KEINES"THEN150
6010 PRINT"[147]----------BEGRIFFSATZ SORTIEREN---------"
6015 POKE198,0:PRINT"BUBBLE,BUBBLE";
6020 Y=0:FORX=2TOAB:
6030 IFRIGHT$(BE$(X-1),1)<=RIGHT$(BE$(X),1)THEN6050
6040 BE$=BE$(X-1):BE$(X-1)=BE$(X):BE$(X)=BE$:Y=1
6050 IFPEEK(198)>0THEN6100
6055 NEXTX:PRINT".";
6060 IFY=1THEN6020
6070 PRINT"OK.":FORX=1TO500:NEXT
6080 GOTO100
6100 PRINT:PRINT"[150]! SORTIEREN ABGEBROCHEN !":GOSUB95
6110 POKE198,0:WAIT198,1:GOTO100
7000 REM                                         --- LADEN ---
7010 PRINT"[147]------------BEGRIFFSATZ LADEN-----------"
7030 PRINT"FILENAME :";
7040 POKE198,0:INPUT"  _[157][157][157]";NA$
7050 IFNA$="_"THEN100
7060 IFNA$=""THEN7010
7070 OPEN2,8,2,"SATZ "+NA$:INPUT#2,AB:       CLOSE2
7080 GOSUB10100:IFX>0THEN7010
7100 OPEN2,8,2,"SATZ "+NA$
7110 PRINT"LOADING...":INPUT#2,AB
7120 FORKA=0TO9:INPUT#2,KT$(KA):NEXT
7150 FORZ=1TOAB:INPUT#2,BE$(Z):NEXT
7160 CLOSE2:NB$=NA$:GOSUB10100:GOTO100
8000 REM                                         --- SPEICHERN ---
8005 IFNA$="KEINES"THEN 150
8010 PRINT"[147]----------BEGRIFFSATZ ABSPEICHERN-------"
8030 OPEN2,8,2,"SATZ "+NA$+",S,W":PRINT#2,AB:CLOSE2
8040 GOSUB10100:IFX=0THEN8100
8045 IFX<>63THEN8010
8050 PRINT"ALTES FILE UEBERSCHREIBEN (J/N) ?"
8055 POKE198,0
8060 GETA$:IFA$=""THEN8060
8065 IFA$<>"J"THEN8200
8070 OPEN2,8,2,"@:SATZ "+NA$+",S,W":PRINT#2,AB:GOTO8120
8100 OPEN2,8,2,"SATZ "+NA$+",S,A"
8120 PRINT"SAVING..."                       :FORKA=0TO9:PRINT#2,KT$(KA):NEXT
8130 FORZ=1TOAB:PRINT#2,BE$(Z):NEXT
8170 CLOSE2:GOSUB10100:GOTO100
8200 REM                                             ----------
8210 PRINT"NAMEN AENDERN (J/N) ?"
8220 POKE198,0
8230 GETA$:IFA$=""THEN8230
8240 IFA$<>"J"THEN100
8250 INPUT"NEUER NAME ";NA$
8270 OPEN2,8,2,"SATZ "+NA$+",S,W":PRINT#2,AB:CLOSE2
8280 GOSUB10100:IFX=0THEN8100
8290 IFX=63THENGOSUB95:PRINT"[150]FILENAME EXISTIERT BEREITS![154]":GOTO8250
8300 GOTO100
8500 REM                                         --- EINGABE PRUEFEN ---
8505 FE=0
8510 IFLEN(BE$)<=37 THEN 8550
8530 PRINT"[150]! ZU LANG ![154]":GOSUB95          :POKE198,0:WAIT198,1
8540 PRINT"[145]           "                    :PRINT"           ":GOTO8620
8550 Z=0
8560 FORX=1TOLEN(BE$)
8570 X$=MID$(BE$,X,1):Y=ASC(X$)             :IFY<>32THENIFY<65ORY>90THENZ=1
8580 NEXTX
8590 IF Z=0THENRETURN
8600 PRINT"[150]! BITTE NUR BUCHSTABEN ![154]"     :GOSUB95
8610 POKE198,0:WAIT198,1:PRINT"[145]                        "
8615 PRINT"                        "
8620 FE=1:RETURN
10000 :
10100 REM                                         --- FEHLERKANAL ABFRAGEN ---
10110 OPEN3,8,15
10120 INPUT#3,X,X$:IFX=63THEN10140
10130 IFX>0THENPRINT"[150]ERROR"X": "X$"[154]"       :GOSUB95:POKE198,0:WAIT198,1
10140 CLOSE3
10150 RETURN
11000 REM                                         --- EDIT / ENDE ---