0 REM *********************
1 REM * VIDEODATEI        *
2 REM *********************
3 REM * HELMUT ASSMANN    *
4 REM * AM LANGEN DAMM 15 *
5 REM * 4250 BOTTROP      *
6 REM * TEL.:02041/61554  *
7 REM *********************
8 :
9 :
10 REM ----- VARIABLEN -----------------
20 Z$="                    ":ZZ$=Z$+Z$+Z$+Z$:Z$=""
21 QQ=0:NN=0
22 DIMT$(100),N$(100),B$(100),L$(100)
54 :
55 REM ----- MENUE ---------------------
60 PRINT"[147][158]"CHR$(14);CHR$(8):POKE53280,0:POKE53281,0
65 PRINT"             [176][192][192][192][192][192][192][192][192][192][192][174]"
66 PRINT"             [221][214][201][196][197][207][196][193][212][197][201][221]"
67 PRINT"             [173][192][192][192][192][192][192][192][192][192][192][189]
70 [153]"ASC1SYS = VALINGABE                            ASC3SYS = ATNENDERN"
71 [153]"ASC5SYS = STR$RUCK                              ASC7SYS = STR$ISKMENUE"
72 [153]"ASC8SYS = ATNNSEHEN DER STR$ATEN"
73 [153]"----------------------------------------";
74 [153]"PEEKITTE DIE ENTSPRECHENDE (null)ASTE DRUECKEN .";
75 [153]"MIT '^' ZURUECK INS (null)ENUE":[153]"--------------------------------------
76 PRINT"[195]OPYRIGHT 1987  [200]. [193]SSMANN
77 [153]"ATNM (null)ANGEN STR$AMM 15
78 PRINT"4250 [194]OTTROP
80 [161]A$:[139]A$[178]""[167]80
82 [139]A$[178]"INPUT"[167]NN[178]NN[170]1:QQ[178]NN:[141]110
83 [139]A$[178]"DIM"[167][141]1000
84 [139]A$[178]"READ"[167][141]2000
85 [139]A$[178]"LET"[167][141]3000
86 [139]A$[178]"RESTORE"[167][141]4000
90 [137]60
100 :
101 [143] ----- EINGABE MODUL ------------
105 [143] -BILDSCHIRM MASKE-
110 [151]53280,0:[151]53281,0:[153]"LOADCLR"[199](14)
120 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANWAIT"
130 [153]"(null)ITEL:"
140 [153]"OPEN                                        WAITCLR"
150 [153]"(null)ASSETTENNUMMER: OPEN   WAITCLR"
160 [153]"ASCILMLAENGE    :  OPEN   WAITCLR (null)IN.
170 PRINT"[194]EMERKUNG"
180 PRINT"[159]"ZZ$"[146][156]"
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]"
195 REM -ABFRAGE TITEL-
200 AZ=0:T$(QQ)="":PRINT"[159]";
210 GETA$:IFA$=""THEN210
220 IFA$=CHR$(13)THENGOTO360
230 IFA$<>CHR$(20)THEN280
240 IFAZ=0THEN210
250 AZ=AZ-1:PRINT"[157] [157]";
260 T$(QQ)=LEFT$(T$(QQ),AZ)
270 GOTO210
280 IFA$=CHR$(34)THEN210
290 IFA$<CHR$(32)THEN210
300 IFA$>CHR$(191)ANDA$<CHR$(219)THEN320
310 IFA$>CHR$(127)THEN210
320 IFAZ=40THEN210
330 PRINTA$;
340 T$(QQ)=T$(QQ)+A$:A$="":AZ=AZ+1
350 GOTO210
355 REM -ABFRAGE NUMMER-
360 AZ=0:N$(QQ)="":PRINT"[159]";
370 GETA$:IFA$=""THEN370
380 IFA$=CHR$(13)THENGOTO520
390 IFA$<>CHR$(20)THEN440
400 IFAZ=0THEN370
410 AZ=AZ-1:PRINT"[157] [157]";
420 N$(QQ)=LEFT$(N$(QQ),AZ)
430 GOTO370
440 IFA$=CHR$(34)THEN370
450 IFA$<CHR$(32)THEN370
460 IFA$>CHR$(191)ANDA$<CHR$(219)THEN480
470 IFA$>CHR$(127)THEN370
480 IFAZ=3THEN370
490 PRINTA$;
500 N$(QQ)=N$(QQ)+A$:A$="":AZ=AZ+1
510 GOTO370
515 REM -ABFRAGE LAENGE-
520 AZ=0:L$(QQ)="":PRINT"[159]";
530 GETA$:IFA$=""THEN530
540 IFA$=CHR$(13)THENGOTO650
550 IFA$<>CHR$(20)THEN600
560 IFAZ=0THEN530
570 AZ=AZ-1:PRINT"[157] [157]";
580 L$(QQ)=LEFT$(L$(QQ),AZ)
590 GOTO530
600 IFA$<CHR$(48)ORA$>CHR$(57)THEN530
610 IFAZ=3THEN530
620 PRINTA$;
630 L$(QQ)=L$(QQ)+A$:A$="":AZ=AZ+1
640 GOTO530
645 REM -ABFRAGE NUMMER-
650 AZ=0:B$(QQ)="":PRINT"[159]";
660 GETA$:IFA$=""THEN660
670 IFA$=CHR$(13)THENGOTO810
680 IFA$<>CHR$(20)THEN730
690 IFAZ=0THEN660
700 AZ=AZ-1:PRINT"[157] [157]";
710 B$(QQ)=LEFT$(B$(QQ),AZ)
720 GOTO660
730 IFA$=CHR$(34)THEN660
740 IFA$<CHR$(32)THEN660
750 IFA$>CHR$(191)ANDA$<CHR$(219)THEN770
760 IFA$>CHR$(127)THEN660
770 IFAZ=80THEN660
780 PRINTA$;
790 B$(QQ)=B$(QQ)+A$:A$="":AZ=AZ+1
800 GOTO660
810 QQ=0:RETURN
815 END
995 :
999 REM ----- AENDERUNG ----------------
1000 REM -ABFRAGE-
1010 PRINT"[147][150]";:PRINT"WELCHER [212]ITEL SOLL GEAENDERT WERDEN":INPUTA$
1020 PRINT"EINEN MOMENT !"
1025 IFA$="^"THENRETURN
1030 FORI=0TONN
1040 IFT$(I)<>A$THENNEXT
1050 IFT$(I)=A$THENQQ=I:I=NN:II=10:NEXT
1060 IFII=0THEN1090
1070 IFII=10THENN$(QQ)="":T$(QQ)="":L$(QQ)="":B$(QQ)="":GOSUB110
1075 QQ=0:II=0
1080 RETURN
1090 PRINT"     [196]IESER [212]ITEL IST LEIDER NICHT"
1100 PRINT"GESPEICHERT !"
1110 PRINT"----------------------------------------"
1120 PRINT"[194]ITTE [212]ASTE DRUCKEN !"
1130 POKE198,0:WAIT198,1:POKE198,0
1140 RETURN
1150 END
1995 :
1999 REM ----- DRUCK -------------------
2000 PRINT"[147][154][193]USDRUCK EINER [204]ISTE !"
2010 PRINT"[194]ITTE MACHEN [211]IE DEN [196]RUCKER FERTIG !"
2020 PRINT"[196]ANACH BITTE EINE [212]ASTE DRUECKEN !"
2025 GETA$:IFA$=""THEN2025
2030 IFA$="^"THENRETURN
2040 QQ=0:II=0
2050 OPEN4,4
2060 FORI=1TONN
2070 PRINT#4,CHR$(17)CHR$(14)
2080 PRINT#4,"----------------------------------------"
2090 PRINT#4,CHR$(17)"[203]ASSETTENNUMMER:    "CHR$(18)" "N$(I)" "CHR$(146)
2100 PRINT#4:PRINT#4,CHR$(17)"    [212]ITEL:"
2110 PRINT#4,CHR$(17)T$(I)
2120 PRINT#4:PRINT#4,CHR$(17)"[198]ILMLAENGE    :     "L$(I)" [205]IN."
2130 PRINT#4:PRINT#4,CHR$(17)"    [194]EMERKUNG:"
2140 PRINT#4,CHR$(15)CHR$(17)B$(I)
2150 PRINT#4,CHR$(14)"----------------------------------------"
2160 II=II+1:IFII=5THENGOSUB2500
2170 NEXT
2180 PRINT#4,CHR$(145)CHR$(15)
2190 CLOSE4
2200 RETURN
2210 END
2490 REM -SEITE VOLL-
2500 PRINT"[194]ITTE JUSTIEREN [211]IE DAS [208]APIER !"
2510 PRINT"[196]ANACH EINE [212]ASTE DRUECKEN !":II=0
2520 POKE198,0:WAIT198,1:POKE198,0
2530 PRINT"                                      "
2540 PRINT"                                  "
2550 RETURN
2560 END
2995 :
2999 REM ----- DISKMENUE ---------------
3000 PRINT"[147][153]     [196]ISKETTENMENUE"
3010 PRINT"[198]1 = SCHREIBEN
3020 [153]"ASC3 = LESEN
3030 PRINT" [194]ITTE [212]ASTE DRUCKEN !"
3040 GETA$:IFA$=""THEN3040
3050 IFA$="[133]"THEN3500
3060 IFA$="[134]"THEN3100
3065 IFA$="^"THENRETURN
3070 GOTO3040
3080 END
3090 REM -LESEN EINER DATEI-
3100 OPEN2,8,2,"VIDEODATEN,S,R"
3110 INPUT#2,NN
3120 FORI=1TONN
3130 INPUT#2,T$(I)
3140 INPUT#2,N$(I)
3150 INPUT#2,L$(I)
3160 INPUT#2,B$(I)
3170 NEXT
3180 CLOSE2
3190 RETURN
3200 END
3490 REM -SCHREIBEN EINER DATEI-
3500 OPEN2,8,2,"@0:"+"VIDEODATEN,S,W"
3510 PRINT#2,NN
3520 FORI=1TONN
3530 PRINT#2,T$(I);CHR$(13);
3540 PRINT#2,N$(I);CHR$(13);
3550 PRINT#2,L$(I);CHR$(13);
3560 PRINT#2,B$(I);CHR$(13);
3570 NEXT
3580 CLOSE2
3590 RETURN
3600 END
3995 :
3999 REM ----- LISTE ZEIGEN ------------
4000 PRINT"[147]   [218]EIGEN DER [196]ATEI"
4010 PRINT" [198]1 = [197]INEN [212]ITEL
4020 [153]" ASC3 = ATNLLE (null)ITEL
4030 GETA$:IFA$=""THEN4030
4040 IFA$="[133]"THEN4500
4050 IFA$="[134]"THEN4100
4060 IFA$="^"THENRETURN
4070 GOTO4030
4080 END
4090 REM -ALLE TITEL-"
4100 [153]"LOAD(null)EIGEN ALLER (null)ITEL
4110 PRINT"[197]S WIRD NUN EIN [212]ITEL NACH DEM ANDERN"
4120 PRINT"GEZEIGT. [205]IT '+' UND '-'  KANN MAN VOR"
4130 PRINT"UND ZURUECK BLAETTERN. [205]IT '^' KOMMT MAN"
4140 PRINT"INS [205]ENUE ZURUECK."
4150 PRINT"[194]ITTE [212]ASTE DRUECKEN."
4160 GETA$:IFA$=""THEN4160
4170 IFA$="^"THENRETURN
4180 II=1
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]
4200 [153]"          ASCILMTITEL"
4210 [153]""T$(II)
4220 [153]"ASCILMLAENGE     :"L$(II)"(null)IN."
4230 [153]"(null)ASSETTENNUMMER:"N$(II)
4240 [153]"            PEEKEMERKUNG:"
4250 [153]""B$(II)
4360 [153]"SYS/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4370 [161]A$:[139]A$[178]""[167]4370
4380 [139]A$[178]"^"[167][142]
4390 [139]A$[178]"+"[167]II[178]II[170]1:[139]II[177]NN[167]II[178]II[171]1
4400 [139]A$[178]"-"[167]II[178]II[171]1:[139]II[179]1[167]II[178]II[170]1
4410 [137]4190
4420 [128]
4495 [143] -EINEN TITEL-
4500 [153]"LOAD(null)ELCHER (null)ITEL SOLL GEZEIGT WERDEN"
4510 [133]A$
4520 [153]"VALINEN (null)OMENT !"
4521 [129]I[178]1[164]NN
4530 [139]A$[178]T$(I)[167]4550
4540 [130]
4550 [153]"LOADSYSORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
4560 PRINT"          [198]ILMTITEL"
4570 PRINT""T$(I)
4580 PRINT"[198]ILMLAENGE     :"L$(I)"[205]IN."
4590 PRINT"[203]ASSETTENNUMMER :"N$(I)
4600 PRINT"            [194]EMERKUNG:"
4610 PRINT""B$(II)
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]"
4630 POKE198,0:WAIT198,1:POKE198,0
4640 RETURN
4645 END