home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 11 / Commodore_Disc_11_19xx_-_de.d64 / videodatei (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  258 lines
  1. 0 rem *********************
  2. 1 rem * videodatei        *
  3. 2 rem *********************
  4. 3 rem * helmut assmann    *
  5. 4 rem * am langen damm 15 *
  6. 5 rem * 4250 bottrop      *
  7. 6 rem * tel.:02041/61554  *
  8. 7 rem *********************
  9. 8 :
  10. 9 :
  11. 10 rem ----- variablen -----------------
  12. 20 z$="                    ":zz$=z$+z$+z$+z$:z$=""
  13. 21 qq=0:nn=0
  14. 22 dimt$(100),n$(100),b$(100),l$(100)
  15. 54 :
  16. 55 rem ----- menue ---------------------
  17. 60 print"[147][158]"chr$(14);chr$(8):poke53280,0:poke53281,0
  18. 65 print"             [176][192][192][192][192][192][192][192][192][192][192][174]"
  19. 66 print"             [221][214][201][196][197][207][196][193][212][197][201][221]"
  20. 67 print"             [173][192][192][192][192][192][192][192][192][192][192][189]
  21. 70 [153]"asc1sys = valingabe                            asc3sys = atnendern"
  22. 71 [153]"asc5sys = str$ruck                              asc7sys = str$iskmenue"
  23. 72 [153]"asc8sys = atnnsehen der str$aten"
  24. 73 [153]"----------------------------------------";
  25. 74 [153]"peekitte die entsprechende (NULL)aste druecken .";
  26. 75 [153]"mit '^' zurueck ins (NULL)enue":[153]"--------------------------------------
  27. 76 print"[195]opyright 1987  [200]. [193]ssmann
  28. 77 [153]"atnm (NULL)angen str$amm 15
  29. 78 print"4250 [194]ottrop
  30. 80 [161]a$:[139]a$[178]""[167]80
  31. 82 [139]a$[178]"input"[167]nn[178]nn[170]1:qq[178]nn:[141]110
  32. 83 [139]a$[178]"dim"[167][141]1000
  33. 84 [139]a$[178]"read"[167][141]2000
  34. 85 [139]a$[178]"let"[167][141]3000
  35. 86 [139]a$[178]"restore"[167][141]4000
  36. 90 [137]60
  37. 100 :
  38. 101 [143] ----- eingabe modul ------------
  39. 105 [143] -bildschirm maske-
  40. 110 [151]53280,0:[151]53281,0:[153]"loadclr"[199](14)
  41. 120 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanwait"
  42. 130 [153]"(NULL)itel:"
  43. 140 [153]"open                                        waitclr"
  44. 150 [153]"(NULL)assettennummer: open   waitclr"
  45. 160 [153]"ascilmlaenge    :  open   waitclr (NULL)in.
  46. 170 print"[194]emerkung"
  47. 180 print"[159]"zz$"[146][156]"
  48. 190 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][146]"
  49. 195 rem -abfrage titel-
  50. 200 az=0:t$(qq)="":print"[159]";
  51. 210 geta$:ifa$=""then210
  52. 220 ifa$=chr$(13)thengoto360
  53. 230 ifa$<>chr$(20)then280
  54. 240 ifaz=0then210
  55. 250 az=az-1:print"[157] [157]";
  56. 260 t$(qq)=left$(t$(qq),az)
  57. 270 goto210
  58. 280 ifa$=chr$(34)then210
  59. 290 ifa$<chr$(32)then210
  60. 300 ifa$>chr$(191)anda$<chr$(219)then320
  61. 310 ifa$>chr$(127)then210
  62. 320 ifaz=40then210
  63. 330 printa$;
  64. 340 t$(qq)=t$(qq)+a$:a$="":az=az+1
  65. 350 goto210
  66. 355 rem -abfrage nummer-
  67. 360 az=0:n$(qq)="":print"[159]";
  68. 370 geta$:ifa$=""then370
  69. 380 ifa$=chr$(13)thengoto520
  70. 390 ifa$<>chr$(20)then440
  71. 400 ifaz=0then370
  72. 410 az=az-1:print"[157] [157]";
  73. 420 n$(qq)=left$(n$(qq),az)
  74. 430 goto370
  75. 440 ifa$=chr$(34)then370
  76. 450 ifa$<chr$(32)then370
  77. 460 ifa$>chr$(191)anda$<chr$(219)then480
  78. 470 ifa$>chr$(127)then370
  79. 480 ifaz=3then370
  80. 490 printa$;
  81. 500 n$(qq)=n$(qq)+a$:a$="":az=az+1
  82. 510 goto370
  83. 515 rem -abfrage laenge-
  84. 520 az=0:l$(qq)="":print"[159]";
  85. 530 geta$:ifa$=""then530
  86. 540 ifa$=chr$(13)thengoto650
  87. 550 ifa$<>chr$(20)then600
  88. 560 ifaz=0then530
  89. 570 az=az-1:print"[157] [157]";
  90. 580 l$(qq)=left$(l$(qq),az)
  91. 590 goto530
  92. 600 ifa$<chr$(48)ora$>chr$(57)then530
  93. 610 ifaz=3then530
  94. 620 printa$;
  95. 630 l$(qq)=l$(qq)+a$:a$="":az=az+1
  96. 640 goto530
  97. 645 rem -abfrage nummer-
  98. 650 az=0:b$(qq)="":print"[159]";
  99. 660 geta$:ifa$=""then660
  100. 670 ifa$=chr$(13)thengoto810
  101. 680 ifa$<>chr$(20)then730
  102. 690 ifaz=0then660
  103. 700 az=az-1:print"[157] [157]";
  104. 710 b$(qq)=left$(b$(qq),az)
  105. 720 goto660
  106. 730 ifa$=chr$(34)then660
  107. 740 ifa$<chr$(32)then660
  108. 750 ifa$>chr$(191)anda$<chr$(219)then770
  109. 760 ifa$>chr$(127)then660
  110. 770 ifaz=80then660
  111. 780 printa$;
  112. 790 b$(qq)=b$(qq)+a$:a$="":az=az+1
  113. 800 goto660
  114. 810 qq=0:return
  115. 815 end
  116. 995 :
  117. 999 rem ----- aenderung ----------------
  118. 1000 rem -abfrage-
  119. 1010 print"[147][150]";:print"welcher [212]itel soll geaendert werden":inputa$
  120. 1020 print"einen moment !"
  121. 1025 ifa$="^"thenreturn
  122. 1030 fori=0tonn
  123. 1040 ift$(i)<>a$thennext
  124. 1050 ift$(i)=a$thenqq=i:i=nn:ii=10:next
  125. 1060 ifii=0then1090
  126. 1070 ifii=10thenn$(qq)="":t$(qq)="":l$(qq)="":b$(qq)="":gosub110
  127. 1075 qq=0:ii=0
  128. 1080 return
  129. 1090 print"     [196]ieser [212]itel ist leider nicht"
  130. 1100 print"gespeichert !"
  131. 1110 print"----------------------------------------"
  132. 1120 print"[194]itte [212]aste drucken !"
  133. 1130 poke198,0:wait198,1:poke198,0
  134. 1140 return
  135. 1150 end
  136. 1995 :
  137. 1999 rem ----- druck -------------------
  138. 2000 print"[147][154][193]usdruck einer [204]iste !"
  139. 2010 print"[194]itte machen [211]ie den [196]rucker fertig !"
  140. 2020 print"[196]anach bitte eine [212]aste druecken !"
  141. 2025 geta$:ifa$=""then2025
  142. 2030 ifa$="^"thenreturn
  143. 2040 qq=0:ii=0
  144. 2050 open4,4
  145. 2060 fori=1tonn
  146. 2070 print#4,chr$(17)chr$(14)
  147. 2080 print#4,"----------------------------------------"
  148. 2090 print#4,chr$(17)"[203]assettennummer:    "chr$(18)" "n$(i)" "chr$(146)
  149. 2100 print#4:print#4,chr$(17)"    [212]itel:"
  150. 2110 print#4,chr$(17)t$(i)
  151. 2120 print#4:print#4,chr$(17)"[198]ilmlaenge    :     "l$(i)" [205]in."
  152. 2130 print#4:print#4,chr$(17)"    [194]emerkung:"
  153. 2140 print#4,chr$(15)chr$(17)b$(i)
  154. 2150 print#4,chr$(14)"----------------------------------------"
  155. 2160 ii=ii+1:ifii=5thengosub2500
  156. 2170 next
  157. 2180 print#4,chr$(145)chr$(15)
  158. 2190 close4
  159. 2200 return
  160. 2210 end
  161. 2490 rem -seite voll-
  162. 2500 print"[194]itte justieren [211]ie das [208]apier !"
  163. 2510 print"[196]anach eine [212]aste druecken !":ii=0
  164. 2520 poke198,0:wait198,1:poke198,0
  165. 2530 print"                                      "
  166. 2540 print"                                  "
  167. 2550 return
  168. 2560 end
  169. 2995 :
  170. 2999 rem ----- diskmenue ---------------
  171. 3000 print"[147][153]     [196]iskettenmenue"
  172. 3010 print"[198]1 = schreiben
  173. 3020 [153]"asc3 = lesen
  174. 3030 print" [194]itte [212]aste drucken !"
  175. 3040 geta$:ifa$=""then3040
  176. 3050 ifa$="[133]"then3500
  177. 3060 ifa$="[134]"then3100
  178. 3065 ifa$="^"thenreturn
  179. 3070 goto3040
  180. 3080 end
  181. 3090 rem -lesen einer datei-
  182. 3100 open2,8,2,"videodaten,s,r"
  183. 3110 input#2,nn
  184. 3120 fori=1tonn
  185. 3130 input#2,t$(i)
  186. 3140 input#2,n$(i)
  187. 3150 input#2,l$(i)
  188. 3160 input#2,b$(i)
  189. 3170 next
  190. 3180 close2
  191. 3190 return
  192. 3200 end
  193. 3490 rem -schreiben einer datei-
  194. 3500 open2,8,2,"@0:"+"videodaten,s,w"
  195. 3510 print#2,nn
  196. 3520 fori=1tonn
  197. 3530 print#2,t$(i);chr$(13);
  198. 3540 print#2,n$(i);chr$(13);
  199. 3550 print#2,l$(i);chr$(13);
  200. 3560 print#2,b$(i);chr$(13);
  201. 3570 next
  202. 3580 close2
  203. 3590 return
  204. 3600 end
  205. 3995 :
  206. 3999 rem ----- liste zeigen ------------
  207. 4000 print"[147]   [218]eigen der [196]atei"
  208. 4010 print" [198]1 = [197]inen [212]itel
  209. 4020 [153]" asc3 = atnlle (NULL)itel
  210. 4030 geta$:ifa$=""then4030
  211. 4040 ifa$="[133]"then4500
  212. 4050 ifa$="[134]"then4100
  213. 4060 ifa$="^"thenreturn
  214. 4070 goto4030
  215. 4080 end
  216. 4090 rem -alle titel-"
  217. 4100 [153]"load(NULL)eigen aller (NULL)itel
  218. 4110 print"[197]s wird nun ein [212]itel nach dem andern"
  219. 4120 print"gezeigt. [205]it '+' und '-'  kann man vor"
  220. 4130 print"und zurueck blaettern. [205]it '^' kommt man"
  221. 4140 print"ins [205]enue zurueck."
  222. 4150 print"[194]itte [212]aste druecken."
  223. 4160 geta$:ifa$=""then4160
  224. 4170 ifa$="^"thenreturn
  225. 4180 ii=1
  226. 4190 print"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  227. 4200 [153]"          ascilmtitel"
  228. 4210 [153]""t$(ii)
  229. 4220 [153]"ascilmlaenge     :"l$(ii)"(NULL)in."
  230. 4230 [153]"(NULL)assettennummer:"n$(ii)
  231. 4240 [153]"            peekemerkung:"
  232. 4250 [153]""b$(ii)
  233. 4360 [153]"sys/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  234. 4370 [161]a$:[139]a$[178]""[167]4370
  235. 4380 [139]a$[178]"^"[167][142]
  236. 4390 [139]a$[178]"+"[167]ii[178]ii[170]1:[139]ii[177]nn[167]ii[178]ii[171]1
  237. 4400 [139]a$[178]"-"[167]ii[178]ii[171]1:[139]ii[179]1[167]ii[178]ii[170]1
  238. 4410 [137]4190
  239. 4420 [128]
  240. 4495 [143] -einen titel-
  241. 4500 [153]"load(NULL)elcher (NULL)itel soll gezeigt werden"
  242. 4510 [133]a$
  243. 4520 [153]"valinen (NULL)oment !"
  244. 4521 [129]i[178]1[164]nn
  245. 4530 [139]a$[178]t$(i)[167]4550
  246. 4540 [130]
  247. 4550 [153]"loadsysortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  248. 4560 print"          [198]ilmtitel"
  249. 4570 print""t$(i)
  250. 4580 print"[198]ilmlaenge     :"l$(i)"[205]in."
  251. 4590 print"[203]assettennummer :"n$(i)
  252. 4600 print"            [194]emerkung:"
  253. 4610 print""b$(ii)
  254. 4620 print"[158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  255. 4630 poke198,0:wait198,1:poke198,0
  256. 4640 return
  257. 4645 end
  258.