home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 December / 64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64 / mini-adress (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.0 KB  |  21 lines
  1. 1 dima$(150,5):poke53280,0:poke53281,0:poke646,15:poke53272,23:r=1
  2. 2 print"[147][196]atax-mini - ([215]) by [212][207][195]":print"1) [197]ingabe":print"2) [193]usgabe":print"3) [204]aden"
  3. 3 print"4) [211]peichern":print"5) [196]rucken":print"6) [211]elektieren":print"7) [193]endern"
  4. 4 f=1:t=r-1:y=6:d=r:x=1:getw$:ifw$=""then4
  5. 5 w=val(w$):on-(w<1orw>7)goto4:onwgosub6,9,13,11,19,16,15:goto2
  6. 6 forr=dto150:print"[147][206]r. ";r;"":restore:ford=1to5:readb$:printb$:inputa$(r,d):ifa$(r,d)="*"then2
  7. 7 ifa$(r,d)=""thenprint"[145]   -":a$(r,d)="   -"
  8. 8 nextd :nextr:return:data"[206]ame         ","[211]trasse/[200]nr. ","[208][204][218]/[207]rt      "
  9. 9 forn=xtot:print"[147][206]r. ";n:print:restore:ford=1to5:readb$:printb$;:printa$(n,d):print:nextd:wait198,1:ify=5thenreturn
  10. 10 poke198,0:nextn:return:data"[212]elefon      ","[211]onstiges    "
  11. 11 input"[206]ame";l$:open2,8,2,l$+",s,w":print#2,t:forn=1tor:ford=1to5
  12. 12 print#2,a$(n,d):nextd:nextn:close2:return
  13. 13 input"[206]ame";l$:open2,8,2,l$+",s,r":input#2,r:forn=1tor:ford=1to5
  14. 14 input#2,a$(n,d):next:next:close2:r=r+1:return
  15. 15 input"[147][206]r.";k:restore:ford=1to5:readb$:printb$;a$(k,d):input"neu";c$:a$(k,d)=c$:next:return
  16. 16 y=5:input"[206]ame";q$:forx=1tor:ifa$(x,1)=q$thengosub9:poke198,0:gosub18:nextx:return
  17. 17 nextx:return
  18. 18 input"[196]rucken (j/n)";m$:print:t=1:f=x:ifm$<>"j"thenreturn
  19. 19 v=5:input"[197]tikettendruck (j/n)";z$:ifz$="j"thenv=3
  20. 20 open1,4,7:forn=ftot:print#1:ford=1tov:print#1,a$(n,d):nextd:nextn:close1:return
  21.