home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / video-vorspann (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.