home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 October / 64er_Magazin_91-10_1991_Markt__Technik_de_Side_A.d64 / minidat (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.