home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / video-vorspann (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  171 lines
  1. 1 rem****************
  2. 2 rem*video-vorspann*
  3. 3 rem*von           *
  4. 4 rem*wolfgang r.   *
  5. 5 rem*schulz        *
  6. 6 rem*theodor-      *
  7. 7 rem*koerner-weg 5 *
  8. 8 rem*2000 hamburg61*
  9. 9 rem****************
  10. 10 poke36879,8:print"[147]"
  11. 20 print"bandnummer eingeben"
  12. 30 print:print:print:print
  13. 40 inputbn$:print"geschwindigkeit sp/lp"
  14. 50 print"":input gs$
  15. 60 gosub1360
  16. 70 print:print:print"[147]aufzeichnungsgeraet"
  17. 80 print:print:print
  18. 90 input g$
  19. 100 print:print:print"[147]serien-name"
  20. 110 print:print:print
  21. 120 inputse$
  22. 130 print:print:print"titel"
  23. 140 print:print:print:inputt$
  24. 150 print:print:print"quelle"
  25. 160 print:print
  26. 170 inputq$
  27. 180 gosub1490:gosub1280:print"[147]":gosub1280
  28. 190 gosub 1300
  29. 200 print"[147]":gosub1280
  30. 210 bn$=left$(bn$,6):gs$=left$(gs$,2)
  31. 220 print"band-nr. "bn$;:printtab(19)""gs$
  32. 230 print"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
  33. 240 print"[165]                   [167]"
  34. 250 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
  35. 260 print" [145][145] "dt$
  36. 270 g$=left$(g$,13)
  37. 280 print"geraet: [158]"g$
  38. 290 q$=left$(q$,13)
  39. 300 print:print"quelle:[158] "q$
  40. 310 print:print
  41. 320 print"[159][172][146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][187]"
  42. 330 fors=1to7:print"[181]                   [182]"
  43. 340 nexts
  44. 350 print"[188][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][190]"
  45. 360 print"[145][145][145][145][145][145][145][145]serie:[158]"
  46. 370 se$=left$(se$,19)
  47. 380 print""se$
  48. 390 print"titel:[158]"
  49. 400 t$=left$(t$,19)
  50. 410 print""t$
  51. 420 gosub1280
  52. 430 print"[147]":gosub1280
  53. 440 print"[147]    schulz   video"
  54. 450 print"    [175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  55. 460 print"[158]":print
  56. 470 fori=1to3
  57. 480 print"               "
  58. 490 nexti
  59. 500 form=1to4
  60. 510 print"           "
  61. 520 next m
  62. 530 forz=1to3
  63. 540 print"               "
  64. 550 nextz
  65. 560 forb=1to7
  66. 570 print"         "
  67. 580 nextb
  68. 590 gosub1410
  69. 600 print"[145][145][145][145][145][145][145][145]"
  70. 610 forp=1to4
  71. 620 print"           "
  72. 630 nextp
  73. 640 foro=1to3
  74. 650 print"               "
  75. 660 nexto
  76. 670 gosub1410
  77. 680 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  78. 690 foru=1to4
  79. 700 print"          "
  80. 710 nextu
  81. 720 fork=1to10                       
  82. 730 print"             "
  83. 740 nextk
  84. 750 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  85. 760 gosub1410
  86. 770 forb=1to3
  87. 780 print"              "
  88. 790 nextb
  89. 800 forl=1to4
  90. 810 print"         [146]       "
  91. 820 nextl
  92. 830 forj=1to3
  93. 840 print"               "
  94. 850 nextj
  95. 860 forx=1to4
  96. 870 print"         "
  97. 880 nextx
  98. 890 forz=1to3
  99. 900 print"              "
  100. 910 nextz
  101. 920 gosub1410
  102. 930 print"[145][145][145][145][145][145][145][145]"
  103. 940 forv=1to4
  104. 950 print"          "
  105. 960 nextv
  106. 970 forj=1to55:nextj
  107. 980 gosub1410
  108. 990 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  109. 1000 fora=1to7
  110. 1010 print"         [146]      "
  111. 1020 nexta
  112. 1030 print""
  113. 1040 fort=1to3
  114. 1050 print "             "
  115. 1060 nextt
  116. 1070 gosub1410
  117. 1080 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  118. 1090 forx=1to3
  119. 1100 print"             "
  120. 1110 nextx
  121. 1120 forq=1to4
  122. 1130 print"              "
  123. 1140 nextq
  124. 1150 print""
  125. 1160 forj=1to3
  126. 1170 print"             ":nextj
  127. 1180 gosub1410
  128. 1190 poke36876,0
  129. 1200 print"[145][145][145][145][145][145][145][145]"
  130. 1210 fork=1to4
  131. 1220 print"         [146]   "    "
  132. 1230 [130]k
  133. 1240 [129]j[178]1[164]300:[130]
  134. 1250 [151]36878,0
  135. 1260 [153]"load":[141]1280
  136. 1270 [137]1300
  137. 1280 [161]f$:[139]f$[179][177]"let"[167][137]1280
  138. 1290 [142]
  139. 1300 [129]j[178]1[164]19:[151]36876,239:[151]36878,7
  140. 1310 [153]"   sys   open      clr         "
  141. 1320 [130]j
  142. 1330 [153]:[153]"   schulz    video"
  143. 1340 [141]1280:[153]"load":[151]36876,0
  144. 1350 [137]200
  145. 1360 [153]:[153]:[153]"loaddatum"
  146. 1370 [153]:[153]"":[133]dt$
  147. 1380 [153]:[153]""
  148. 1390 [142]
  149. 1400 [128]
  150. 1410 [143] messton
  151. 1420 [129]piep[178]1[164]15
  152. 1430 [151]36878,7
  153. 1440 [151]36876,239
  154. 1450 [130]piep
  155. 1460 [151]36878,1
  156. 1470 [129]n[178]1[164]625:[130]
  157. 1480 [142]
  158. 1490 [153]"load"
  159. 1500 [153]"starte jedes element"
  160. 1510 [153]:[153]"mit der (f-7)-taste."
  161. 1520 [153]:[153]
  162. 1530 [153]"die sequenzen sind:"
  163. 1540 [153]:[153]"open1. schwarz/stumm"
  164. 1550 [153]:[153]"2. farbbalken/messton"
  165. 1560 [153]:[153]"3. schwarz/stumm"
  166. 1570 [153]:[153]"4. etikett"
  167. 1580 [153]:[153]"5. schwarz/stumm"
  168. 1590 [153]:[153]"6. countdown"
  169. 1600 [153]:[153]"7. schwarz/stumm"
  170. 1610 [142]
  171.