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