home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 105 / Tiger_Disk_105_20xx_Tiger-Crew-Disk_de_Side_B.d64 / bestell-datei_tc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  161 lines
  1. 10 fe$=" programm unvollstaendig ! [146]":dimx$(200,2):lw=peek(186):iflw<8thengosub1550
  2. 20 open2,lw,2,"konfig,s,r":gosub1290:ifa<>0thenprintfe$:close2:end
  3. 30 input#2,az:dimbz$(az)
  4. 40 fort=1toaz:input#2,bz$(t):next
  5. 50 close2:close15
  6. 60 poke53281,0:poke53280,0:dimg(200,az)
  7. 70 print"[147]             bestell-datei"
  8. 80 print" [153]by            tigercrew"
  9. 90 print"               (c)  1992"
  10. 100 fort=1to500:next
  11. 110 p=0:goto360
  12. 120 print"[147]","datei wird eingelesen[146]"
  13. 130 open2,lw,2,"vk-liste,s,r":gosub1290:ifa<>0then360
  14. 140 i=1
  15. 150 input#2,x$(i,1),x$(i,2):fort=1toaz:input#2,g(i,t):next
  16. 160 ifst<>64theni=i+1:goto150
  17. 170 close2:close15
  18. 180 print"     "i;"datensaetze sind geladen"
  19. 190 gosub1280:gosub260:return
  20. 200 print"       eingabe richtig (space=j/n) ? [146]"
  21. 210 getp$:ifp$<>"j"andp$<>" "andp$<>"n"then210
  22. 220 ifp$="n"thenreturn
  23. 230 print"      weitere eingaben (space=j/n)[160]? [146]"
  24. 240 getr$:ifr$<>"j"andr$<>" "andr$<>"n"then240
  25. 250 return
  26. 260 poke198,0:wait198,1:poke198,0:return
  27. 270 open2,lw,2,"vk-liste,s,w"
  28. 280 gosub1290:ifa<>0then360
  29. 290 fort=1toi
  30. 300 print#2,x$(t,1):print#2,x$(t,2)
  31. 310 fortt=1toaz:print#2,g(t,tt):nexttt
  32. 320 nextt
  33. 330 close2:close15:ifj<>0theni=j:j=0
  34. 340 print"[147]","datei ist gespeichert[146]"
  35. 350 gosub1280:gosub260
  36. 360 print"[147]","[155]datei einrichten","1"
  37. 370 print"","datei erweitern","2"
  38. 380 print"","mengen eingeben","3"
  39. 390 print"","daten ausgeben","4"
  40. 400 print"","konfiguration","5"
  41. 410 print"","prg. beenden","6"
  42. 420 getwe$:ifwe$<"1"orwe$>"6"then420
  43. 430 ifwe$="6"thenend
  44. 440 ifwe$="2"then570
  45. 450 ifwe$="3"andp>0then670
  46. 460 ifwe$="3"then660
  47. 470 ifwe$="4"andp>0then920
  48. 480 ifwe$="4"then900
  49. 490 ifwe$="5"then1350
  50. 500 i=1
  51. 510 x$(i,1)="":input"[147] artikel  ";x$(i,1):ifx$(i,1)=""then360
  52. 520 input" lieferant";x$(i,2)
  53. 530 gosub200:ifp$="n"then510
  54. 540 ifr$="n"then560
  55. 550 i=i+1:goto510
  56. 560 print"[147]","datei wird gespeichert[146]":goto270
  57. 570 l=1:print"[147]"
  58. 580 x$(l,1)="":input" artikel  ";x$(l,1):ifx$(l,1)=""then360
  59. 590 input" lieferant";x$(l,2)
  60. 600 gosub200:ifp$="n"thenprint"[145][145][145][145][145][145][145][145]":goto580
  61. 610 ifr$="n"then630
  62. 620 l=l+1:print"[147]":goto580
  63. 630 print"[147]","datei wird gespeichert[146]":j=i+l:i=l
  64. 640 open2,lw,2,"vk-liste,s,a"
  65. 650 goto280
  66. 660 gosub120
  67. 670 fi=0:input"[147] artikel";s$
  68. 680 forzz=1toi
  69. 690 ifx$(zz,1)=s$thenfi=1:z=zz:zz=i
  70. 700 nextzz
  71. 710 iffi<>0then790
  72. 720 print"artikel ist nicht gespeichert"
  73. 730 print"","weiter[146]",,"1[146]"
  74. 740 print""," ende [146]",,"2[146]"
  75. 750 getq$:ifq$<>"1"andq$<>"2"then750
  76. 760 ifq$="1"then670
  77. 770 ifq$="2"ando>0then880
  78. 780 ifq$="2"then360
  79. 790 fi=0:print"neuer art. = e"
  80. 800 input"groesse";gr$
  81. 810 ee=0:ifgr$="e"then670
  82. 820 fort=1toaz:ifgr$=bz$(t)thenee=t:t=az
  83. 830 next:ifee=0thenprint"[145][145][145]":goto800
  84. 840 input"menge  ";m$:m=val(m$)
  85. 850 gosub200:ifp$="n"thenprint"[145][145][145][145][145]":goto800
  86. 860 g(z,ee)=g(z,ee)+m:ifr$="n"then880
  87. 870 goto800
  88. 880 print"[147]","datei wird gespeichert[146]"
  89. 890 open15,lw,15,"s:vk-liste":close15:goto270
  90. 900 gosub120
  91. 910 p=p+1
  92. 920 print"[147]ausgabe drucken ? (j/n)"
  93. 930 getdu$:ifdu$<>"j"anddu$<>"n"then930
  94. 940 print"[147] lieferant = l  /  alle = a":z=0
  95. 950 s$="":input" gesuchter artikel ";s$:ifs$=""then360
  96. 960 ifs$="a"then1100
  97. 970 ifs$="l"then1180
  98. 980 forzz=1toi
  99. 990 ifx$(zz,1)=s$thenz=zz:zz=i
  100. 1000 nextzz:ifz<>0thenprint"[147]":gosub1110:goto1060
  101. 1010 print"artikel ist nicht gespeichert"
  102. 1020 print"","weiter[146]",,"1[146]"
  103. 1030 print""," ende [146]",,"2[146]"
  104. 1040 getq$:ifq$<>"1"andq$<>"2"then1040
  105. 1050 onval(q$)goto950,360
  106. 1060 print"[147]   weiteren artikel ausgeben (j/n) ?"
  107. 1070 getu$:ifu$<>"j"andu$<>"n"then1070
  108. 1080 ifu$="j"thenz=0:goto950
  109. 1090 goto360
  110. 1100 forz=1toi:gosub1110:next:goto1160
  111. 1110 ifdu$="j"thenopen4,4:cmd4
  112. 1120 print"artikel  :",x$(z,1):print"lieferant:",x$(z,2):print""
  113. 1130 fort=1toaz:printbz$(t),g(z,t):next
  114. 1140 ifdu$="j"thenprint#4:close4:return
  115. 1150 gosub1280:gosub260:return
  116. 1160 print"[147]    datei - ende [146]"
  117. 1170 gosub1280:gosub260:goto360
  118. 1180 input"[147] gesuchter lieferant ";li$:li=len(li$)
  119. 1190 forz=1toi
  120. 1200 ifleft$(x$(z,2),li)=li$thenfo=1:gosub1110
  121. 1210 nextz
  122. 1220 iffo=0thenprint"[147] nicht gefunden!"
  123. 1230 fo=0:print"","neu suchen[146]","1[146]"
  124. 1240 print"","   ende   [146]","2[146]"
  125. 1250 getq$:ifq$<>"1"andq$<>"2"then1250
  126. 1260 ifq$="1"then1180
  127. 1270 goto360
  128. 1280 print"           taste druecken          [146]":return
  129. 1290 open15,lw,15
  130. 1300 input#15,a,bb$,c,d
  131. 1310 ifa=0then1340
  132. 1320 print" fehler[160]!":print""a,bb$,c;d
  133. 1330 gosub260:close2:close15:return
  134. 1340 return
  135. 1350 print"[147]              konfiguration             [146]"
  136. 1360 print"bei versehentlicher anwahl f2[146] druecken."
  137. 1370 print"f1[146] = vorhandene daten ansehen.":print"space[146] = dateneingabe"
  138. 1380 getbx$:ifbx$=""then1380
  139. 1390 ifbx$=chr$(137)then360
  140. 1400 ifbx$=chr$(133)then1540
  141. 1410 clr:dimbz$(25):print"[147]":t=1
  142. 1420 printt" ";:bz$(t)="":input"bezeichung ";bz$(t):ifbz$(t)=""thent=t-1:goto1480
  143. 1430 print"            eingabe korrekt ?        "
  144. 1440 geteg$:ifeg$<>" "andeg$<>"j"andeg$<>"n"then1440
  145. 1450 ifeg$="n"thenprint"[145][145][145][145]":goto1420
  146. 1460 print"[145]                                      [145]":t=t+1:ift<26then1420
  147. 1470 print"ende der eingabe !":forbs=1to500:next
  148. 1480 ift<1then360
  149. 1490 open15,lw,15,"s:konfig":close15
  150. 1500 open2,lw,2,"konfig,s,w"
  151. 1510 print#2,t
  152. 1520 forsr=1tot:print#2,bz$(sr):next
  153. 1530 close2:clr:run
  154. 1540 print"[147]":fort=1toaz:printt"  "bz$(t):next:gosub260:goto1350
  155. 1550 print"[147]durch programm-abbruch ist vor neustart eine laufwerkbestimmung er";
  156. 1560 print"forderlich.":print"bitte, geben sie ein, mit welchem lw dasprogramm";
  157. 1570 print" arbeiten soll:"
  158. 1580 lw$="":input"";lw$:iflw$=""thenend
  159. 1590 lw=val(lw$):iflw<8orlw>15then1550
  160. 1600 return
  161.