home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8505.d64
/
cop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
173 lines
10 DIM TI$(30):DIM PP$(30):DIM T1$(30)
20 Q=0:T1$=TI$
30 PRINT CHR$(147):POKE 53280,0:POKE 53281,0
40 REM ******* MENUE ******************
50 PRINTTAB(8)CHR$(18)" CASSETTEN - DIRECTORY ";CHR$(146)
60 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"AUSWAHLMOEGLICHKEITEN:"
70 PRINT:PRINT:PRINT:PRINT"1 - ANFAENGE ERMITTELN - 1"
80 PRINT:PRINT"2 - PROGRAMM SUCHEN - 2"
90 PRINT:PRINT"3 - ZEITEN ABSPEICHERN - 3"
100 PRINT:PRINT"4 - ZEITEN EINLADEN - 4"
110 PRINT:PRINT"5 - VERZEICHNIS AUSDRUCKEN - 5"
120 PRINT:PRINT:PRINT:PRINT"BITTE TASTE DRUECKEN !"
130 GETA$:IFA$=""THEN130
140 ONVAL(A$)GOTO1000,2000,3000,4000,5000
150 GOTO130
200 REM *** UNTERPROGRAMME ************
210 REM * TASTATUR ZEICHNEN *
220 PRINT "
230 [153]"LOAD ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
240 [129]Q[178]1[164]13
250 [153]" (null) (null)"
260 [130]Q
270 [153]" -TANTANTANTANTANTANTAN=TANTANTANTAN=TANTANTANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTANTANTAN<"
280 [153]" (null) RECORD(null)PLAY(null)REWIND(null)FFWD(null)STOP(null)EJECT (null)
290 PRINT" [171][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][192][192][179]"
300 FORQ=1TO4
310 PRINT" [221] [221] [221] [221] [221] [221] [221]
320 [130]Q
330 [153]" /TANTANTANTANTANTANTAN>TANTANTANTAN>TANTANTANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTANTANTANEXP"
340 R$[178]"^^^^^^"
350 R1$[178]" "
360 P$[178]"^^^^"
370 P1$[178]" "
374 Z$[178]"^^^^^^"
376 Z1$[178]" "
380 F$[178]"^^^^"
390 F1$[178]" "
400 S$[178]"^^^^"
410 S1$[178]" "
420 [153]"CASSETTE:";C$
430 [153]" SEITE:";CS$
440 PR$[178]"PROGRAMM:"
445 PL$[178]" "
450 [142]
460 [143] UNTERPROGRAMM ZEIT
470 TI$[178]T1$
480 [142]
500 T1$[178]TI$
510 [142]
1000 [143] *** ANFAENGE ERMITTELN *******
1010 [153][199](18)"LOAD ANFAENGE ERMITTELN ";[199](146)
1020 [153]:[153]:[153]:[133]"WELCHE CASSETTE ";C$
1030 [133]"WELCHE SEITE ";CS$
1040 [153]:[153]"BITTE GEBEN SIE DIE PROGRAMME EIN:"
1050 Q[178]Q[170]1
1060 [153]"PROGRAMM";Q;"=";:[133]PP$(Q)
1070 [139]PP$(Q)[178]"*"[167]1090
1080 [137]1050
1090 [143] *** ZEIT ERMITTELN ***********
1200 [153]"LOAD":Q1[178]Q[171]1
1210 [141] 200
1220 [139]([194](1)[175]16)[178]16[167]1250
1230 [139]([194](1)[175]16)[178]0[167][153]S$
1240 [146] 1,16,255[171]16:[153]S1$
1250 [129] Q[178]1[164]Q1
1260 [153]PL$:[153]PR$;PP$(Q)
1270 [153]F$
1275 [161]A$
1280 [139]([194](1)[175]16)[178]0[167][137]1290
1285 [139]A$[178]""[167]1275
1290 [139]Q[178]1[167]TI$[178]"000000":[139]Q[178]1[167]T1$[178]"000000"
1291 [141]460
1292 [153]F1$:[153]S$
1295 [161]A$
1300 [139]([194](1)[175]16)[178]16[167]1310
1305 [139]A$[178]""[167]1295
1310 [141]500
1315 TI$(Q)[178]T1$
1320 [153]S1$:[130]Q
1330 [153]Z$:[153]PL$:[153]PR$;"ENDE"
1340 [161]A$
1350 [139]([194](1)[175]16)[178]0[167][137]1365
1360 [139]A$[178]""[167]1340
1365 [153]Z1$:[153]S$
1370 [161]A$
1380 [139]([194](1)[175]16)[178]16[167]1400
1390 [139]A$[178]""[167]1370
1400 [137]30
2000 [143] *** PROGRAMM SUCHEN **********
2010 [141]200:Q[178]0
2020 Q[178]Q[170]1:[139]Q[178]Q1[170]1[167]2075
2030 [153]PL$:[153]PR$;PP$(Q)
2040 [161]A$:[139]A$[178]""[167]2040
2050 [139]A$[178][199](32)[167]2020
2060 [139]A$[178][199](13)[167]2080
2070 [137]2040
2075 Q[178]0:[137]2020
2080 [153]F$
2090 [161]A$
2100 [139]([194](1)[175]16)[178]0[167]2115
2110 [139]A$[178]""[167]2090
2115 T1$(Q)[178]TI$(Q)
2120 TI$[178]"000000":[153]F1$
2130 [139]T1$(Q)[179][177]TI$[167]2130
2150 [151]192,1:[151]1,[194](1)[176]32
2160 [153]S$
2170 [161]A$
2180 [139]([194](1)[175]16)[178]16[167]2200
2190 [139]A$[178]""[167]2170
2200 [153][199](147):[151]198,1:[151]631,131:[128]
3000 [143] *** ZEITEN ABSPEICHERN *******
3010 [141]200
3020 [153]R$:[153]K$
3030 [153]P$
3040 [153]:[153]:Q[178]0:Q2[178]Q1[170]1
3050 [159]1,1,1,"DIRECTORY"
3055 [152]1,C$:[152]1,CS$:[152]1,Q2:[152]1,Q1
3060 [129]Q[178]Q[170]1[164]Q2
3070 [152]1,PP$(Q)
3080 [152]1,TI$(Q)
3090 [130]Q
3100 [160]1
3110 [153]S$:[153]P1$:[153]R1$
3120 [161]A$
3130 [139]([194](1)[175]16)[178]16[167]3150
3140 [139]A$[178]""[167]3120
3150 [137] 30
4000 [143] *** ZEITEN EINLADEN **********
4010 [141]200
4030 [153]P$
4040 [153]:Q[178]0
4050 [159]1,1,0,"DIRECTORY"
4055 [132]1,C$:[132]1,CS$:[132]1,Q2:[132]1,Q1
4060 Q[178]Q[170]1
4065 [139]Q[178]Q2[167]4100
4070 [132]1,PP$(Q)
4080 [132]1,TI$(Q)
4090 [137]4060
4100 [160]1
4110 [153]S$:[153]P1$
4120 [161]A$
4130 [139]([194](1)[175]16)[178]16[167]4150
4140 [139]A$[178]""[167]4120
4150 [137] 30
5000 [143] *** VERZEICHNIS AUSDRUCKEN ***
5010 [153][199](147):Q[178]0
5020 [153][163]10)[199](18)" PROGRAMMVERZEICHNIS ";[199](146)
5030 [153]:[153]"CASSETTE: ";C$
5040 [153]" SEITE: ";CS$:[153]
5050 Q[178]Q[170]1:[139]Q[178]Q1[170]1[167]5100
5055 [139]Q[178]15[167][137]5080
5060 [153]"PROGRAMM ";Q;"=";PP$(Q)
5070 [137]5050
5080 [161]A$:[139]A$[178]""[167]5080
5090 [139]A$[178][199](32)[167][153][199](19):[153]:[153]:[153]:[153]:[153]:Q[178]15:[137]5060
5100 [153]"***************************************"
5110 [153]"A = AUSDRUCK M = MENUE"
5120 [161]A$:[139]A$[178]""[167]5120
5130 [139]A$[178]"M"[167]30
5140 [139]A$[178]"A"[167]5160
5150 [137]5120
5160 [159]1,6
5170 [152]1,"******** V E R Z E I C H N I S ********"
5180 Q[178]0:[152]1:[152]1
5190 [152]1,"CASSETTE: ";C$
5200 [152]1," SEITE: ";CS$
5210 [152]1
5220 Q[178]Q[170]1:[139]Q[178]Q1[170]1[167]5250
5230 [152]1,"PROGRAMM ";Q;"=";PP$(Q)
5240 [137]5220
5250 [160]1
5260 [137]30