home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / tb-data (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 10 poke53280,0:poke53281,0:dimd$(500,4):poke650,128:ga=4:sa=7:as=20:g=8
  2. 20 print"[155][147]";:restore:fori=1to9:reada$:print"",a$:next:data"     [212][194]-[196][193][212][193] "
  3. 25 print"":gosub2700:fori=0to4:readf$(i):next
  4. 40 getp$:onval(p$)goto100,200,300,400,600,700,900:goto40
  5. 100 gosub2400:open1,g,2,n$+",s,r":z=0
  6. 110 fori=0to4:input#1,d$(z,i):next:z=z+1:ifst=0thengoto110
  7. 120 close1:goto20
  8. 200 gosub2400:open1,g,15,"s:"+n$:close1:open1,g,2,n$+",s,w"
  9. 210 fori=0toz-1:forii=0to4:print#1,d$(i,ii):nextii,i:close1:goto20
  10. 300 print"[147] [197]ingeben [146]",,"[206]r.:"z:gosub2700:gosub2000:f=z:gosub2800:ifx=5then20
  11. 330 z=z+1:goto300
  12. 400 print"[147] [211]uchen ":gosub2700:gosub2000:ifx=5then20
  13. 410 fori=0to4:s$(i)=e$(i):next
  14. 420 forf=0toz:x=0:forff=0to4:ifleft$(d$(f,ff),len(s$(ff)))=s$(ff)thenx=x+1
  15. 430 next:ifx<>5thennext:goto20
  16. 440 gosub2500:print"  weiter/aendern/drucken  (j/n/a/d) ?[155]"
  17. 445 gosub2600:poke781,15:sys59903:ifp$="a"thengosub3000:goto440
  18. 447 ifp$="d"thengosub2300:goto440
  19. 450 ifp$<>"j"then20
  20. 470 nextf:goto20
  21. 600 f=0:print"[147]","[196]rucken (j/n) ?[155]":gosub2600:ifp$="j"then800
  22. 610 print"[147] [193]rchiv [146]","  +,-,a,d,cr","[206]r.:"f:gosub2700:gosub2505
  23. 620 gosub2600:ifp$="+"andf<z-1thenf=f+1
  24. 630 ifp$="-"andf<>0thenf=f-1
  25. 635 ifp$="a"thengosub3000
  26. 637 ifp$="d"thengosub2300
  27. 640 ifp$<>chr$(13)then610
  28. 650 goto20
  29. 700 print"[147] [196]rucker ":gosub2700:print""
  30. 710 print"[199]eraeteadresse :",ga:print"[145]",,"[157]";:inputga
  31. 720 print"[211]ekundaeradresse :",sa:print"[145]",,"[157]";:inputsa
  32. 730 print"[193]bstand links :",as:print"[145]",,"[157]";:inputas:goto20
  33. 800 open1,ga,sa:print#1:fori=0toz-1
  34. 810 print#1,d$(i,0);" "d$(i,1);:forii=2to4
  35. 820 print#1,", "d$(i,ii);:next:print#1:getp$:ifp$=""thenprint#1:next
  36. 830 close1:gosub2600:goto20
  37. 900 gosub2450:input"[198]eld (1-5)";f:f=f-1
  38. 910 fori=0toz-2:forii=itoz-1:print"[147]"i,ii
  39. 915 ifd$(i,f)>d$(ii,f)thengosub950
  40. 920 nextii,i:goto20
  41. 950 forc=0to4:e$=d$(i,c):d$(i,c)=d$(ii,c):d$(ii,c)=e$:next:return
  42. 1000 data"(c) by [212]imo [194]ader","1) [204]aden","2) [211]peichern","3) [197]ingeben"
  43. 1010 data"4) [211]uchen","5) [193]rchiv","6) [196]rucker","7) [211]ortieren","[214]orname","[206]ame"
  44. 1020 data"[211]trasse","[208]lz/[207]rt","[212]el."
  45. 2000 x=0:fori=0to4:e$(i)="":print""f$(i),:inpute$(i):ife$(i)=""thenx=x+1
  46. 2010 next:return
  47. 2300 print"[147]":open1,ga,sa:print#1,spc(as);
  48. 2305 print#1,d$(f,0)" ";d$(f,1):print#1,spc(as)d$(f,2)
  49. 2307 print#1:print#1,spc(as)d$(f,3)
  50. 2310 print#1:close1:gosub2600:return
  51. 2400 gosub2450:input"[198]ilename :";n$:return
  52. 2450 print"":goto2700
  53. 2500 print"[147] [193]usgabe [146]",,,"[206]r.:"f:gosub2700
  54. 2505 fori=0to4:print""f$(i),": "d$(f,i)
  55. 2510 next:return
  56. 2600 poke198,0:wait198,1:getp$:return
  57. 2700 fori=1to40:print"[192]";:next:return
  58. 2800 fori=0to4:d$(f,i)=e$(i):next:return
  59. 3000 print" [193]endern [146]  ",,"[206]r.:"f:gosub2700:gosub2000
  60. 3010 goto2800
  61.