0 POKE 53280,0:POKE 53281,0:PRINT""
5 CR$=CHR$(13)
10 PRINT"[147]* MINIDAT V1.0"+CR$+"* VON C.KOEHLER"+CR$+"* (C) 64'ER
20 A[178][184](0):[153]:[133]">";BF$:CR$[178][199](13)
30 A[178][171](1[172](BF$[178]"HELP")[170]2[172](BF$[178]"CREATE")[170]3[172](BF$[178]"EDIT")[170]4[172](BF$[178]"DISPLAY"))
40 A[178]A[170]([171](5[172](BF$[178]"SAVE")[170]6[172](BF$[178]"LOAD"))):[145]A[137]60,70,80,90,099,110:
50 [153]"ERROR":[137]20
60 [153]"-CREATE"[170]CR$[170]"-EDIT"[170]CR$[170]"-DISPLAY"[170]CR$[170]"-LOAD"[170]CR$[170]"-SAVE":[137]20
70 [133]"SICHER";S$:[145][171](S$[179][177]"J")[137]20:[156]:[133]"DATENSAETZE";SZ:
71 [133]"ATTRIBUTE";AT:[141]200:[129]A[178]1[164]AT:[153]"ATTRIBUT#WAIT";A;
72 [133]AT$(A):[130]:[137]20
80 [133]"SATZNR";SN:[139]SN[177]SZ[176]SN[179]1[167][153]"ERROR":[137] 20
81 [153]"SATZNR.";SN:[129]A[178]1[164]AT:[153]AT$(A)[163]20)":"D$(SN,A):[130]
82 [153]"VOR(+)/ZURUECK(-)/EDIT(E)/MENUE(M)
83 GETA$:ON-(A$="")GOTO83:SN=SN+(1*-(A$="+"ANDSN<SZ)-1*-(A$="-"ANDSN>1))
84 ON-(A$="M")GOTO20:ON-(A$="E")GOTO85:GOTO81
85 PRINT"SATZNR.";SN:FORA=1TOAT:PRINTAT$(A)""TAB(22)D$(SN,A)TAB(20);:A$=""
86 INPUTA$:IF A$<>"" THEN D$(SN,A)=A$
87 NEXT:GOTO 82
90 INPUT"ATTRIBUT";AT$:FORN=1TOAT:ON-(AT$=AT$(N))GOTO91:NEXT:PRINT"ERROR":GOTO20
91 INPUT"VERGLEICH";V$:INPUT"INHALT";IH$:FORD=1TOSZ
92 A=-(D$(D,N)=IH$ANDV$="=")+-(D$(D,N)>IH$ANDV$=">")+-(D$(D,N)<IH$ANDV$="<")
93 IF A<>0 THENPRINT"SATZNR.";D:FORQ=1TOAT:PRINTAT$(Q)TAB(20)""D$(D,Q):NEXT
94 NEXT:GOTO20
99 OPEN2,8,15
100 INPUT"FILENAME";F$:OPEN 1,8,1,F$:ON-(ST<>0)GOTO108:PRINT#1,SZ:PRINT#1,AT
101 FORA=1TOAT:PRINT#1,AT$(A):INPUT#2,Q,Q$,O,P:ON-(Q<>0)GOTO108:NEXT
102 FORA=1TOSZ:FORB=1TOAT:PRINT#1,D$(A,B):INPUT#2,Q,Q$,O,P:ON-(Q<>0)GOTO108
103 NEXT:NEXT:CLOSE1:CLOSE2:GOTO20
108 PRINT"I/O ERROR":CLOSE1:PRINTQ;Q$;O;P:CLOSE2:GOTO 20
110 INPUT"SICHER";S$:ON-(S$<>"J")GOTO20:CLR:INPUT"FILENAME";N$:OPEN 1,8,0,N$
111 INPUT#1,SZ:INPUT#1,AT:DIM D$(SZ,AT),AT$(AT)
112 FOR N=1TOAT:INPUT#1,AT$(N):NEXT
113 FORA=1TOSZ:FORB=1TOAT:INPUT#1,D$(A,B):NEXT:NEXT:CLOSE1:GOTO 20
200 DIM AT$(AT),D$(SZ,AT):FORA=1TOSZ:FOR B=1TOAT:D$(A,B)="-":NEXT:NEXT:RETURN