home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9110a.d64 / minidat (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  36 lines
  1. 0 POKE 53280,0:POKE 53281,0:PRINT""
  2. 5 CR$=CHR$(13)
  3. 10 PRINT"[147]* MINIDAT V1.0"+CR$+"* VON C.KOEHLER"+CR$+"* (C) 64'ER
  4. 20 A[178][184](0):[153]:[133]">";BF$:CR$[178][199](13)
  5. 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"))
  6. 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:
  7. 50 [153]"ERROR":[137]20
  8. 60 [153]"-CREATE"[170]CR$[170]"-EDIT"[170]CR$[170]"-DISPLAY"[170]CR$[170]"-LOAD"[170]CR$[170]"-SAVE":[137]20
  9. 70 [133]"SICHER";S$:[145][171](S$[179][177]"J")[137]20:[156]:[133]"DATENSAETZE";SZ:
  10. 71 [133]"ATTRIBUTE";AT:[141]200:[129]A[178]1[164]AT:[153]"ATTRIBUT#WAIT";A;
  11. 72 [133]AT$(A):[130]:[137]20
  12. 80 [133]"SATZNR";SN:[139]SN[177]SZ[176]SN[179]1[167][153]"ERROR":[137] 20
  13. 81 [153]"SATZNR.";SN:[129]A[178]1[164]AT:[153]AT$(A)[163]20)":"D$(SN,A):[130]
  14. 82 [153]"VOR(+)/ZURUECK(-)/EDIT(E)/MENUE(M)
  15. 83 GETA$:ON-(A$="")GOTO83:SN=SN+(1*-(A$="+"ANDSN<SZ)-1*-(A$="-"ANDSN>1))
  16. 84 ON-(A$="M")GOTO20:ON-(A$="E")GOTO85:GOTO81
  17. 85 PRINT"SATZNR.";SN:FORA=1TOAT:PRINTAT$(A)""TAB(22)D$(SN,A)TAB(20);:A$=""
  18. 86 INPUTA$:IF A$<>"" THEN D$(SN,A)=A$
  19. 87 NEXT:GOTO 82
  20. 90 INPUT"ATTRIBUT";AT$:FORN=1TOAT:ON-(AT$=AT$(N))GOTO91:NEXT:PRINT"ERROR":GOTO20
  21. 91 INPUT"VERGLEICH";V$:INPUT"INHALT";IH$:FORD=1TOSZ
  22. 92 A=-(D$(D,N)=IH$ANDV$="=")+-(D$(D,N)>IH$ANDV$=">")+-(D$(D,N)<IH$ANDV$="<")
  23. 93 IF A<>0 THENPRINT"SATZNR.";D:FORQ=1TOAT:PRINTAT$(Q)TAB(20)""D$(D,Q):NEXT
  24. 94 NEXT:GOTO20
  25. 99 OPEN2,8,15
  26. 100 INPUT"FILENAME";F$:OPEN 1,8,1,F$:ON-(ST<>0)GOTO108:PRINT#1,SZ:PRINT#1,AT
  27. 101 FORA=1TOAT:PRINT#1,AT$(A):INPUT#2,Q,Q$,O,P:ON-(Q<>0)GOTO108:NEXT
  28. 102 FORA=1TOSZ:FORB=1TOAT:PRINT#1,D$(A,B):INPUT#2,Q,Q$,O,P:ON-(Q<>0)GOTO108
  29. 103 NEXT:NEXT:CLOSE1:CLOSE2:GOTO20
  30. 108 PRINT"I/O ERROR":CLOSE1:PRINTQ;Q$;O;P:CLOSE2:GOTO 20
  31. 110 INPUT"SICHER";S$:ON-(S$<>"J")GOTO20:CLR:INPUT"FILENAME";N$:OPEN 1,8,0,N$
  32. 111 INPUT#1,SZ:INPUT#1,AT:DIM D$(SZ,AT),AT$(AT)
  33. 112 FOR N=1TOAT:INPUT#1,AT$(N):NEXT
  34. 113 FORA=1TOSZ:FORB=1TOAT:INPUT#1,D$(A,B):NEXT:NEXT:CLOSE1:GOTO 20
  35. 200 DIM AT$(AT),D$(SZ,AT):FORA=1TOSZ:FOR B=1TOAT:D$(A,B)="-":NEXT:NEXT:RETURN
  36.