home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
video-vorspann
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
171 lines
1 REM****************
2 REM*VIDEO-VORSPANN*
3 REM*VON *
4 REM*WOLFGANG R. *
5 REM*SCHULZ *
6 REM*THEODOR- *
7 REM*KOERNER-WEG 5 *
8 REM*2000 HAMBURG61*
9 REM****************
10 POKE36879,8:PRINT"[147]"
20 PRINT"BANDNUMMER EINGEBEN"
30 PRINT:PRINT:PRINT:PRINT
40 INPUTBN$:PRINT"GESCHWINDIGKEIT SP/LP"
50 PRINT"":INPUT GS$
60 GOSUB1360
70 PRINT:PRINT:PRINT"[147]AUFZEICHNUNGSGERAET"
80 PRINT:PRINT:PRINT
90 INPUT G$
100 PRINT:PRINT:PRINT"[147]SERIEN-NAME"
110 PRINT:PRINT:PRINT
120 INPUTSE$
130 PRINT:PRINT:PRINT"TITEL"
140 PRINT:PRINT:PRINT:INPUTT$
150 PRINT:PRINT:PRINT"QUELLE"
160 PRINT:PRINT
170 INPUTQ$
180 GOSUB1490:GOSUB1280:PRINT"[147]":GOSUB1280
190 GOSUB 1300
200 PRINT"[147]":GOSUB1280
210 BN$=LEFT$(BN$,6):GS$=LEFT$(GS$,2)
220 PRINT"BAND-NR. "BN$;:PRINTTAB(19)""GS$
230 PRINT"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
240 PRINT"[165] [167]"
250 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
260 PRINT" [145][145] "DT$
270 G$=LEFT$(G$,13)
280 PRINT"GERAET: [158]"G$
290 Q$=LEFT$(Q$,13)
300 PRINT:PRINT"QUELLE:[158] "Q$
310 PRINT:PRINT
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]"
330 FORS=1TO7:PRINT"[181] [182]"
340 NEXTS
350 PRINT"[188][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][190]"
360 PRINT"[145][145][145][145][145][145][145][145]SERIE:[158]"
370 SE$=LEFT$(SE$,19)
380 PRINT""SE$
390 PRINT"TITEL:[158]"
400 T$=LEFT$(T$,19)
410 PRINT""T$
420 GOSUB1280
430 PRINT"[147]":GOSUB1280
440 PRINT"[147] SCHULZ VIDEO"
450 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
460 PRINT"[158]":PRINT
470 FORI=1TO3
480 PRINT" "
490 NEXTI
500 FORM=1TO4
510 PRINT" "
520 NEXT M
530 FORZ=1TO3
540 PRINT" "
550 NEXTZ
560 FORB=1TO7
570 PRINT" "
580 NEXTB
590 GOSUB1410
600 PRINT"[145][145][145][145][145][145][145][145]"
610 FORP=1TO4
620 PRINT" "
630 NEXTP
640 FORO=1TO3
650 PRINT" "
660 NEXTO
670 GOSUB1410
680 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
690 FORU=1TO4
700 PRINT" "
710 NEXTU
720 FORK=1TO10
730 PRINT" "
740 NEXTK
750 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
760 GOSUB1410
770 FORB=1TO3
780 PRINT" "
790 NEXTB
800 FORL=1TO4
810 PRINT" [146] "
820 NEXTL
830 FORJ=1TO3
840 PRINT" "
850 NEXTJ
860 FORX=1TO4
870 PRINT" "
880 NEXTX
890 FORZ=1TO3
900 PRINT" "
910 NEXTZ
920 GOSUB1410
930 PRINT"[145][145][145][145][145][145][145][145]"
940 FORV=1TO4
950 PRINT" "
960 NEXTV
970 FORJ=1TO55:NEXTJ
980 GOSUB1410
990 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1000 FORA=1TO7
1010 PRINT" [146] "
1020 NEXTA
1030 PRINT""
1040 FORT=1TO3
1050 PRINT " "
1060 NEXTT
1070 GOSUB1410
1080 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1090 FORX=1TO3
1100 PRINT" "
1110 NEXTX
1120 FORQ=1TO4
1130 PRINT" "
1140 NEXTQ
1150 PRINT""
1160 FORJ=1TO3
1170 PRINT" ":NEXTJ
1180 GOSUB1410
1190 POKE36876,0
1200 PRINT"[145][145][145][145][145][145][145][145]"
1210 FORK=1TO4
1220 PRINT" [146] " "
1230 [130]K
1240 [129]J[178]1[164]300:[130]
1250 [151]36878,0
1260 [153]"LOAD":[141]1280
1270 [137]1300
1280 [161]F$:[139]F$[179][177]"LET"[167][137]1280
1290 [142]
1300 [129]J[178]1[164]19:[151]36876,239:[151]36878,7
1310 [153]" SYS OPEN CLR "
1320 [130]J
1330 [153]:[153]" SCHULZ VIDEO"
1340 [141]1280:[153]"LOAD":[151]36876,0
1350 [137]200
1360 [153]:[153]:[153]"LOADDATUM"
1370 [153]:[153]"":[133]DT$
1380 [153]:[153]""
1390 [142]
1400 [128]
1410 [143] MESSTON
1420 [129]PIEP[178]1[164]15
1430 [151]36878,7
1440 [151]36876,239
1450 [130]PIEP
1460 [151]36878,1
1470 [129]N[178]1[164]625:[130]
1480 [142]
1490 [153]"LOAD"
1500 [153]"STARTE JEDES ELEMENT"
1510 [153]:[153]"MIT DER (F-7)-TASTE."
1520 [153]:[153]
1530 [153]"DIE SEQUENZEN SIND:"
1540 [153]:[153]"OPEN1. SCHWARZ/STUMM"
1550 [153]:[153]"2. FARBBALKEN/MESSTON"
1560 [153]:[153]"3. SCHWARZ/STUMM"
1570 [153]:[153]"4. ETIKETT"
1580 [153]:[153]"5. SCHWARZ/STUMM"
1590 [153]:[153]"6. COUNTDOWN"
1600 [153]:[153]"7. SCHWARZ/STUMM"
1610 [142]