home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_A.d64 / databox (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.8 KB  |  75 lines
  1. 50000 poke53280,12:poke53281,12:poke646,0
  2. 50002 fori=1to3:readmn$(i):next
  3. 50003 fori=1to4:readdf$(i):next
  4. 50004 nr=1
  5. 50010 print"[147]"
  6. 50011 zy%=0:sy%=14:gosub60030
  7. 50012 zy%=1:sy%=sy%+2:gosub61000
  8. 50020 print"[196][193][212][193][194][207][216]":gosub52000
  9. 50030 zy%=5:fori=1to38step13
  10. 50035 sy%=i
  11. 50037 gosub60030
  12. 50038 nexti
  13. 50039 fg(1)=1:gosub50040:goto50050
  14. 50040 zy%=6:sy%=3:gosub61000:iffg(1)=1thenprintchr$(18)+mn$(1):goto50042
  15. 50041 printmn$(1)
  16. 50042 sy%=16:gosub61000:iffg(2)=1thenprintchr$(18)+mn$(2):goto50044
  17. 50043 printmn$(2)
  18. 50044 sy%=29:gosub61000:iffg(3)=1thenprintchr$(18)+mn$(3):goto50046
  19. 50045 printmn$(3)
  20. 50046 return
  21. 50050 gosub59000
  22. 50100 gett$
  23. 50105 ift$=""andfg(1)=1thengosub51000:goto50199
  24. 50110 ift$=""andfg(2)=1thengosub51010:goto50199
  25. 50115 ift$=""andfg(3)=1thengosub51020:goto50199
  26. 50120 ift$=chr$(13)andfg(1)=1thengosub50300
  27. 50130 ift$=chr$(13)andfg(2)=1thennr=1:gosub50400
  28. 50150 ift$=chr$(13)andfg(3)=1then:rclose:printchr$(147):end
  29. 50199 goto50100
  30. 50300 ifnr>1then50309
  31. 50305 zy%=8:sy%=3:gosub61000:input"[196]ateiname";dt$
  32. 50306 rlen25,25,25,25,0
  33. 50307 ropen dt$
  34. 50308 rend 5
  35. 50309 reach3,12,df$(1),25,nm$(nr),ky$
  36. 50310 reach3,14,df$(2),25,ro$(nr),ky$
  37. 50320 reach3,16,df$(3),25,wo$(nr),ky$
  38. 50330 reach3,18,df$(4),25,tf$(nr),ky$
  39. 50332 rput nr,nm$(nr),ro$(nr),wo$(nr),tf$(nr)
  40. 50333 nr=nr+1
  41. 50340 return
  42. 50400 zy%=8:sy%=3:gosub61000:input"[196]ateiname";dt$
  43. 50402 zy%=9:sy%=3:gosub61000:input"[196]atensatznummer (1-6)";dn
  44. 50403 gosub59000
  45. 50406 rlen25,25,25,25,0
  46. 50407 ropen dt$
  47. 50410 rget dn,nm$(dn),ro$(dn),wo$(dn),tf$(dn)
  48. 50415 zy%=12:sy%=3:gosub61000
  49. 50420 printdf$(1)nm$(dn):print
  50. 50422 printtab(3)df$(2)ro$(dn):print
  51. 50424 printtab(3)df$(3)wo$(dn):print
  52. 50426 printtab(3)df$(4)tf$(dn)
  53. 50499 return
  54. 51000 fg(1)=0:fg(2)=1:fg(3)=0:gosub50040:return
  55. 51010 fg(1)=0:fg(2)=0:fg(3)=1:gosub50040:return
  56. 51020 fg(1)=1:fg(2)=0:fg(3)=0:gosub50040:return
  57. 52000 printtab(3)"[195][210][211][210] rechts, per [210][197][212][213][210][206] aktivieren!"
  58. 52010 return
  59. 58999 rem grosse box
  60. 59000 zy%=10:sy%=1:gosub61000
  61. 59010 print"[167][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][144][180]"
  62. 59011 fori=1to12
  63. 59012 print" [167]                                    [144][180]"
  64. 59013 nexti
  65. 59014 print" [167][144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180]"
  66. 59999 return
  67. 60030 gosub61000:print"[167][163][163][163][163][163][163][163][163][163][163][144][180]"
  68. 60040 poke211,sy%:print"[167]          [144][180]"
  69. 60050 poke211,sy%:print"[167][144][175][175][175][175][175][175][175][175][175][175][180]"
  70. 60999 return
  71. 61000 poke214,zy%:poke211,sy%:sys58640
  72. 61999 return
  73. 62000 data "[197]ingabe ","[193]usgabe ","  [197]nde  "
  74. 62100 data"[206]ame   : ","[211]trasse: ","[215]ohnort: ","[212]elefon: "
  75.