home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Pack
/
Power_Pack_1_1992_Alfons_Mittelmeyer_de.d64
/
videodatei
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
258 lines
0 rem *********************
1 rem * videodatei *
2 rem *********************
3 rem * helmut assmann *
4 rem * *
5 rem * bottrop *
6 rem * *
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]
78 [153]"peekottrop
80 geta$:ifa$=""then80
82 ifa$="[133]"thennn=nn+1:qq=nn:gosub110
83 ifa$="[134]"thengosub1000
84 ifa$="[135]"thengosub2000
85 ifa$="[136]"thengosub3000
86 ifa$="[140]"thengosub4000
90 goto60
100 :
101 rem ----- eingabe modul ------------
105 rem -bildschirm maske-
110 poke53280,0:poke53281,0:print"[147][156]"chr$(14)
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]"
130 print"[212]itel:"
140 print"[159] [146][156]"
150 print"[203]assettennummer: [159] [146][156]"
160 print"[198]ilmlaenge : [159] [146][156] [205]in.
170 [153]"peekemerkung"
180 [153]"open"zz$"waitclr"
190 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanwait"
195 [143] -abfrage titel-
200 az[178]0:t$(qq)[178]"":[153]"open";
210 [161]a$:[139]a$[178]""[167]210
220 [139]a$[178][199](13)[167][137]360
230 [139]a$[179][177][199](20)[167]280
240 [139]az[178]0[167]210
250 az[178]az[171]1:[153]"cmd cmd";
260 t$(qq)[178][200](t$(qq),az)
270 [137]210
280 [139]a$[178][199](34)[167]210
290 [139]a$[179][199](32)[167]210
300 [139]a$[177][199](191)[175]a$[179][199](219)[167]320
310 [139]a$[177][199](127)[167]210
320 [139]az[178]40[167]210
330 [153]a$;
340 t$(qq)[178]t$(qq)[170]a$:a$[178]"":az[178]az[170]1
350 [137]210
355 [143] -abfrage nummer-
360 az[178]0:n$(qq)[178]"":[153]"open";
370 [161]a$:[139]a$[178]""[167]370
380 [139]a$[178][199](13)[167][137]520
390 [139]a$[179][177][199](20)[167]440
400 [139]az[178]0[167]370
410 az[178]az[171]1:[153]"cmd cmd";
420 n$(qq)[178][200](n$(qq),az)
430 [137]370
440 [139]a$[178][199](34)[167]370
450 [139]a$[179][199](32)[167]370
460 [139]a$[177][199](191)[175]a$[179][199](219)[167]480
470 [139]a$[177][199](127)[167]370
480 [139]az[178]3[167]370
490 [153]a$;
500 n$(qq)[178]n$(qq)[170]a$:a$[178]"":az[178]az[170]1
510 [137]370
515 [143] -abfrage laenge-
520 az[178]0:l$(qq)[178]"":[153]"open";
530 [161]a$:[139]a$[178]""[167]530
540 [139]a$[178][199](13)[167][137]650
550 [139]a$[179][177][199](20)[167]600
560 [139]az[178]0[167]530
570 az[178]az[171]1:[153]"cmd cmd";
580 l$(qq)[178][200](l$(qq),az)
590 [137]530
600 [139]a$[179][199](48)[176]a$[177][199](57)[167]530
610 [139]az[178]3[167]530
620 [153]a$;
630 l$(qq)[178]l$(qq)[170]a$:a$[178]"":az[178]az[170]1
640 [137]530
645 [143] -abfrage nummer-
650 az[178]0:b$(qq)[178]"":[153]"open";
660 [161]a$:[139]a$[178]""[167]660
670 [139]a$[178][199](13)[167][137]810
680 [139]a$[179][177][199](20)[167]730
690 [139]az[178]0[167]660
700 az[178]az[171]1:[153]"cmd cmd";
710 b$(qq)[178][200](b$(qq),az)
720 [137]660
730 [139]a$[178][199](34)[167]660
740 [139]a$[179][199](32)[167]660
750 [139]a$[177][199](191)[175]a$[179][199](219)[167]770
760 [139]a$[177][199](127)[167]660
770 [139]az[178]80[167]660
780 [153]a$;
790 b$(qq)[178]b$(qq)[170]a$:a$[178]"":az[178]az[170]1
800 [137]660
810 qq[178]0:[142]
815 [128]
995 :
999 [143] ----- aenderung ----------------
1000 [143] -abfrage-
1010 [153]"loaddef";:[153]"welcher (NULL)itel soll geaendert werden":[133]a$
1020 [153]"einen moment !"
1025 [139]a$[178]"^"[167][142]
1030 [129]i[178]0[164]nn
1040 [139]t$(i)[179][177]a$[167][130]
1050 [139]t$(i)[178]a$[167]qq[178]i:i[178]nn:ii[178]10:[130]
1060 [139]ii[178]0[167]1090
1070 [139]ii[178]10[167]n$(qq)[178]"":t$(qq)[178]"":l$(qq)[178]"":b$(qq)[178]"":[141]110
1075 qq[178]0:ii[178]0
1080 [142]
1090 [153]" str$ieser (NULL)itel ist leider nicht"
1100 [153]"gespeichert !"
1110 [153]"----------------------------------------"
1120 [153]"peekitte (NULL)aste drucken !"
1130 [151]198,0:[146]198,1:[151]198,0
1140 [142]
1150 [128]
1995 :
1999 [143] ----- druck -------------------
2000 [153]"loadcontatnusdruck einer (NULL)iste !"
2010 [153]"peekitte machen (NULL)ie den str$rucker fertig !"
2020 [153]"str$anach bitte eine (NULL)aste druecken !"
2025 [161]a$:[139]a$[178]""[167]2025
2030 [139]a$[178]"^"[167][142]
2040 qq[178]0:ii[178]0
2050 [159]4,4
2060 [129]i[178]1[164]nn
2070 [152]4,[199](17)[199](14)
2080 [152]4,"----------------------------------------"
2090 [152]4,[199](17)"(NULL)assettennummer: "[199](18)" "n$(i)" "[199](146)
2100 [152]4:[152]4,[199](17)" (NULL)itel:"
2110 [152]4,[199](17)t$(i)
2120 [152]4:[152]4,[199](17)"ascilmlaenge : "l$(i)" (NULL)in."
2130 [152]4:[152]4,[199](17)" peekemerkung:"
2140 [152]4,[199](15)[199](17)b$(i)
2150 [152]4,[199](14)"----------------------------------------"
2160 ii[178]ii[170]1:[139]ii[178]5[167][141]2500
2170 [130]
2180 [152]4,[199](145)[199](15)
2190 [160]4
2200 [142]
2210 [128]
2490 [143] -seite voll-
2500 [153]"peekitte justieren (NULL)ie das (NULL)apier !"
2510 [153]"str$anach eine (NULL)aste druecken !":ii[178]0
2520 [151]198,0:[146]198,1:[151]198,0
2530 [153]" "
2540 [153]" "
2550 [142]
2560 [128]
2995 :
2999 [143] ----- diskmenue ---------------
3000 [153]"loadprint str$iskettenmenue"
3010 [153]"asc1 = schreiben
3020 print"[198]3 = lesen
3030 [153]" peekitte (NULL)aste drucken !"
3040 [161]a$:[139]a$[178]""[167]3040
3050 [139]a$[178]"input"[167]3500
3060 [139]a$[178]"dim"[167]3100
3065 [139]a$[178]"^"[167][142]
3070 [137]3040
3080 [128]
3090 [143] -lesen einer datei-
3100 [159]2,8,2,"videodaten,s,r"
3110 [132]2,nn
3120 [129]i[178]1[164]nn
3130 [132]2,t$(i)
3140 [132]2,n$(i)
3150 [132]2,l$(i)
3160 [132]2,b$(i)
3170 [130]
3180 [160]2
3190 [142]
3200 [128]
3490 [143] -schreiben einer datei-
3500 [159]2,8,2,"@0:"[170]"videodaten,s,w"
3510 [152]2,nn
3520 [129]i[178]1[164]nn
3530 [152]2,t$(i);[199](13);
3540 [152]2,n$(i);[199](13);
3550 [152]2,l$(i);[199](13);
3560 [152]2,b$(i);[199](13);
3570 [130]
3580 [160]2
3590 [142]
3600 [128]
3995 :
3999 [143] ----- liste zeigen ------------
4000 [153]"load (NULL)eigen der str$atei"
4010 [153]" asc1 = valinen (NULL)itel
4020 print" [198]3 = [193]lle [212]itel
4030 [161]a$:[139]a$[178]""[167]4030
4040 [139]a$[178]"input"[167]4500
4050 [139]a$[178]"dim"[167]4100
4060 [139]a$[178]"^"[167][142]
4070 [137]4030
4080 [128]
4090 [143] -alle titel-"
4100 print"[147][218]eigen aller [212]itel
4110 [153]"vals wird nun ein (NULL)itel nach dem andern"
4120 [153]"gezeigt. (NULL)it '+' und '-' kann man vor"
4130 [153]"und zurueck blaettern. (NULL)it '^' kommt man"
4140 [153]"ins (NULL)enue zurueck."
4150 [153]"peekitte (NULL)aste druecken."
4160 [161]a$:[139]a$[178]""[167]4160
4170 [139]a$[178]"^"[167][142]
4180 ii[178]1
4190 [153]"loadsysortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
4200 print" [198]ilmtitel"
4210 print""t$(ii)
4220 print"[198]ilmlaenge :"l$(ii)"[205]in."
4230 print"[203]assettennummer:"n$(ii)
4240 print" [194]emerkung:"
4250 print""b$(ii)
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]"
4370 geta$:ifa$=""then4370
4380 ifa$="^"thenreturn
4390 ifa$="+"thenii=ii+1:ifii>nnthenii=ii-1
4400 ifa$="-"thenii=ii-1:ifii<1thenii=ii+1
4410 goto4190
4420 end
4495 rem -einen titel-
4500 print"[147][215]elcher [212]itel soll gezeigt werden"
4510 inputa$
4520 print"[197]inen [205]oment !"
4521 fori=1tonn
4530 ifa$=t$(i)then4550
4540 next
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]
4560 [153]" ascilmtitel"
4570 [153]""t$(i)
4580 [153]"ascilmlaenge :"l$(i)"(NULL)in."
4590 [153]"(NULL)assettennummer :"n$(i)
4600 [153]" peekemerkung:"
4610 [153]""b$(ii)
4620 [153]"sys/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
4630 [151]198,0:[146]198,1:[151]198,0
4640 [142]
4645 [128]