home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_B.d64 / druck (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.3 KB  |  98 lines
  1. 0 clr:dimt$(100,8)
  2. 1 printchr$(14):poke53280,0:poke53281,0
  3. 2 print"[147][159][198]ile-[206]ame ?":inputh$:h$="0:"+h$+",s,r"
  4. 800 print"[147][204]ade [196]aten - [194]itte warten !"
  5. 820 open2,8,2,h$
  6. 830 j=0:i=1
  7. 835 get#2,v$:ifv$=chr$(255)thenj=j+1:goto838
  8. 837 t$(i,j)=t$(i,j)+v$
  9. 838 ifj=8theni=i+1:j=0
  10. 840 rs=st
  11. 850 ifrs=64thenclose2:g=i-1:goto1000
  12. 870 goto835
  13. 1000 print"[147][195][207][206][212][193][195][212] [196][197][193][204][197][210]-[196][193][212][197][206] [218][197][201][199][197][206] [213][206][196] [196][210][213][195][203][197][206]"
  14. 1001 print"[198]1 - [194]ildschirmausgabe"
  15. 1002 print"[198]3 - [196]ruck (#4)"
  16. 1003 print"[198]5 - [206]eubeginn"
  17. 1004 print"[198]7 - [193]bsender eingeben"
  18. 1005 print"[198]8 - [198]inito"
  19. 1006 print"[198]or easier paperhandling: [208]ut [217]our"
  20. 1007 print"adresstickerlane in the singlepaper-":print"shetslot"
  21. 1008 print"[212]his programm makes [211][208][193][195][197][211] !"
  22. 1009 geta$
  23. 1010 ifa$="[133]"then1100
  24. 1011 ifa$="[134]"then1200
  25. 1012 ifa$="[135]"thenrun
  26. 1013 ifa$="[140]"thenend
  27. 1014 ifa$="[136]"then1500
  28. 1015 goto1009
  29. 1100 i=1
  30. 1101 ifi>gtheni=g
  31. 1102 ifi=0theni=1
  32. 1103 print"[147][196]aten zeigen:"
  33. 1105 print"[197]ingabe [206]r. : "i
  34. 1110 print"[199]ruppe......: "t$(i,0)
  35. 1111 print"[208]seudo......: "t$(i,1)
  36. 1112 print"[215]irkl. [206]ame.: "t$(i,2)
  37. 1113 print"[193]dresse.....: "t$(i,3)
  38. 1114 print"[215]ohnort.....: "t$(i,4)
  39. 1115 print"[204]and........: "t$(i,5)
  40. 1116 print"[212]el.-[206]ummer : "t$(i,6)
  41. 1117 print"[204]etzter [203]ont: "t$(i,7)
  42. 1120 print"[198]1 - [218]urueck"
  43. 1121 print"[198]3 - [197]rste [193]dresse"
  44. 1122 print"[198]5 - [204]etzte [193]dresse"
  45. 1123 print"[198]7 - [215]eiter"
  46. 1124 print"[210][197][212] - [205][197][206][213][197] !"
  47. 1125 print"[196] - [193]dressetiketten drucken"
  48. 1130 geta$:ifa$="[133]"theni=i-1:goto1101
  49. 1131 ifa$="[134]"theni=1:goto1101
  50. 1132 ifa$="[135]"theni=g:goto1101
  51. 1133 ifa$="[136]"theni=i+1:goto1101
  52. 1134 ifa$="d"then1150
  53. 1135 ifa$=chr$(13)then1000
  54. 1140 goto1130
  55. 1150 d=i:open4,4,7
  56. 1152 gosub1400
  57. 1160 close4:goto1101
  58. 1200 i=0
  59. 1201 print"[147][196]aten drucken:"
  60. 1202 print"[198]1 - [193]uf [208]apier drucken"
  61. 1203 print"[198]3 - [193]dress-[197]tiketten drucken"
  62. 1204 print"[210][197][212] - [205][197][206][213][197] !"
  63. 1205 geta$:ifa$="[133]"then1209
  64. 1206 ifa$="[134]"then1230
  65. 1207 ifa$=chr$(13)then1000
  66. 1208 goto1205
  67. 1209 open4,4,7:ford=1tog
  68. 1210 print#4,"  [199]roup.......: "t$(d,0)
  69. 1211 print#4,"  [205]ember......: "t$(d,1)
  70. 1212 print#4,"  [210]eal name...: "t$(d,2)
  71. 1213 print#4,"  [193]dress......: "t$(d,3)
  72. 1214 print#4,"  [195]ode & [195]ity.: "t$(d,4)
  73. 1215 print#4,"  [195]ountry.....: "t$(d,5)
  74. 1216 print#4,"  [208]hone number: "t$(d,6)
  75. 1217 print#4,"  [204]atest send.: "t$(d,7)
  76. 1218 print#4
  77. 1220 next:close4:goto1000
  78. 1230 open4,4,7:ford=1tog
  79. 1232 gosub1400
  80. 1240 next:close4:goto1000
  81. 1400 ifn$=""thenn$="[214]on: [213]nbekannt"
  82. 1401 print#4,"      "n$
  83. 1404 print#4,"      --------------------------------":print#4
  84. 1405 print#4,"      "t$(d,2)
  85. 1406 print#4,"      "t$(d,3)
  86. 1407 print#4,"      "t$(d,4)
  87. 1408 print#4:print#4,"      "t$(d,5)
  88. 1409 print#4:return
  89. 1500 print"[147][193]bsender-[193]ngabe fuer erste [218]eile"
  90. 1501 print"des [193]dress-[197]tiketts eingeben !"
  91. 1502 print"z.[194].: [199]erd [200]olz/12345 [194]erlin"
  92. 1503 input n$:n$=left$(n$,31)
  93. 1510 print""n$:print"[211]o in [207]rdnung ? (j/n/c)"
  94. 1511 geta$:ifa$="j"then1000
  95. 1512 ifa$="n"then1500
  96. 1513 ifa$="c"thenn$="":goto1000
  97. 1514 goto1511
  98.