Added multiple scripts as of 14 Dec 1995.
This commit is contained in:
10
LOGBUCH.BAS
Normal file
10
LOGBUCH.BAS
Normal file
@ -0,0 +1,10 @@
|
||||
10 OPEN "I",#1,"MSG.DAT"
|
||||
20 OPEN "A",#2,"D:\UTIL\SPRACHEN\TBATCH\LOGBUCH.DAT"
|
||||
30 LINE INPUT#1,MSG$
|
||||
40 T$=TIME$
|
||||
50 D$=DATE$
|
||||
60 T$=LEFT$(T$,5)+"."+RIGHT$(T$,2)
|
||||
70 PRINT#2,D$;" ";T$;" ";MSG$
|
||||
80 SHELL"DEL MSG.DAT"
|
||||
90 SYSTEM
|
||||
|
||||
10
MODINFO.BAS
Normal file
10
MODINFO.BAS
Normal file
@ -0,0 +1,10 @@
|
||||
10 CLS
|
||||
20 P$=" "
|
||||
30 COLOR 15,0,0
|
||||
40 INPUT"Datei: ",D$
|
||||
50 IF D$="" THEN GOTO 40
|
||||
60 CLS
|
||||
70 OPEN "I",#1,D$
|
||||
80 N$=INPUT$(20,#1)
|
||||
90 PRINT N$
|
||||
|
||||
10
MORSE.BAS
Normal file
10
MORSE.BAS
Normal file
@ -0,0 +1,10 @@
|
||||
10 CLS
|
||||
20 COLOR 15
|
||||
30 A=INT(RND*2)
|
||||
40 IF A=0 THEN B=.00005:C=2500
|
||||
50 IF A=1 THEN B=.5:C=2500
|
||||
60 IF A=2 THEN B=0:C=4000
|
||||
70 SOUND 1000,B
|
||||
75 FOR Z=0 TO C:NEXT
|
||||
80 GOTO 30
|
||||
|
||||
12
PLUTO.BAS
Normal file
12
PLUTO.BAS
Normal file
@ -0,0 +1,12 @@
|
||||
10 D$=DATE$
|
||||
20 T$=TIME$
|
||||
30 TAG$=MID$(D$,4,2)
|
||||
40 MON$=LEFT$(D$,2)
|
||||
50 JAR$=RIGHT$(D$,2)
|
||||
60 STD$=LEFT$(T$,2)
|
||||
70 MIN$=MID$(T$,4,2)
|
||||
80 AUFRUF$="RENAME PLUTO.DAT P"+STD$+MIN$+"_"+TAG$+"."+MON$+" "
|
||||
90 SHELL AUFRUF$
|
||||
100 PRINT"Nachrichtendatei unter P";STD$;MIN$;"_";TAG$;".";MON$;" gespeichert !"
|
||||
110 SYSTEM
|
||||
|
||||
53
THOM/1/THOM1.BAS
Normal file
53
THOM/1/THOM1.BAS
Normal file
@ -0,0 +1,53 @@
|
||||
10 X=400
|
||||
20 CLS
|
||||
30 KEY OFF
|
||||
40 GOSUB 490
|
||||
50 A=12:B=A:C=A:D=A:E=A:F=14:G=10:H=A:I=A:J=G:K=F:L=A:M=A:N=A:O=A:P=A
|
||||
60 GOSUB 350
|
||||
70 A=0:GOSUB 340:E=0:GOSUB 340:I=0:GOSUB 340:M=0:GOSUB 340
|
||||
80 B=0:GOSUB 340:F=0:GOSUB 340:J=0:GOSUB 340:N=0:GOSUB 340
|
||||
90 C=0:GOSUB 340:G=0:GOSUB 340:K=0:GOSUB 340:O=0:GOSUB 340
|
||||
100 D=0:GOSUB 340:H=0:GOSUB 340:L=0:GOSUB 340:P=0:GOSUB 340
|
||||
110 X=300:FOR Z=0 TO 5000:NEXT Z
|
||||
120 GOSUB 510
|
||||
130 REM HAUPTTEIL
|
||||
140 Q=INT(RND*(2)):IF Q=1 THEN A=12 ELSE A=0
|
||||
150 IF U>=V THEN A=0:W=W+1
|
||||
160 IF W=20 THEN W=0:U=0:GOSUB 490
|
||||
170 IF U/Y=INT(U/Y) THEN FOR Z=0 TO 3000:NEXT Z:GOSUB 510
|
||||
180 A$=INKEY$
|
||||
190 IF A$=CHR$(27) THEN END
|
||||
200 IF A$="+" THEN X=X+10
|
||||
210 IF A$="-" THEN X=X-10:IF X<0 THEN X=0
|
||||
220 GOSUB 340
|
||||
230 P=L:L=H:H=D:D=O
|
||||
240 C=N:B=M:M=I:I=E:E=A
|
||||
250 IF K=14 THEN O=12 ELSE O=0
|
||||
260 IF G=10 THEN K=14 ELSE K=0
|
||||
270 IF C=12 THEN G=10 ELSE G=0
|
||||
280 IF J=10 THEN N=12 ELSE N=0
|
||||
290 IF F=14 THEN J=10 ELSE J=0
|
||||
300 IF B=12 THEN F=14 ELSE F=0
|
||||
310 U=U+1
|
||||
320 GOTO 140
|
||||
330 END
|
||||
340 LOCATE 1,1
|
||||
350 COLOR A:PRINT" <20><><EFBFBD> ";:COLOR E:PRINT" <20><><EFBFBD> ";:COLOR I:PRINT" <20><><EFBFBD> ";:COLOR M:PRINT" <20><><EFBFBD> "
|
||||
360 COLOR A:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR E:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR I:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR M:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> "
|
||||
370 COLOR A:PRINT" <20><><EFBFBD> ";:COLOR E:PRINT" <20><><EFBFBD> ";:COLOR I:PRINT" <20><><EFBFBD> ";:COLOR M:PRINT" <20><><EFBFBD> "
|
||||
380 COLOR B:PRINT" <20><><EFBFBD> ";:COLOR F:PRINT" <20><><EFBFBD> ";:COLOR J:PRINT" <20><><EFBFBD> ";:COLOR N:PRINT" <20><><EFBFBD> "
|
||||
390 COLOR B:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR F:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR J:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR N:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> "
|
||||
400 COLOR B:PRINT" <20><><EFBFBD> ";:COLOR F:PRINT" <20><><EFBFBD> ";:COLOR J:PRINT" <20><><EFBFBD> ";:COLOR N:PRINT" <20><><EFBFBD> "
|
||||
410 COLOR C:PRINT" <20><><EFBFBD> ";:COLOR G:PRINT" <20><><EFBFBD> ";:COLOR K:PRINT" <20><><EFBFBD> ";:COLOR O:PRINT" <20><><EFBFBD> "
|
||||
420 COLOR C:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR G:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR K:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR O:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> "
|
||||
430 COLOR C:PRINT" <20><><EFBFBD> ";:COLOR G:PRINT" <20><><EFBFBD> ";:COLOR K:PRINT" <20><><EFBFBD> ";:COLOR O:PRINT" <20><><EFBFBD> "
|
||||
440 COLOR D:PRINT" <20><><EFBFBD> ";:COLOR H:PRINT" <20><><EFBFBD> ";:COLOR L:PRINT" <20><><EFBFBD> ";:COLOR P:PRINT" <20><><EFBFBD> "
|
||||
450 COLOR D:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR H:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR L:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ";:COLOR P:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> "
|
||||
460 COLOR D:PRINT" <20><><EFBFBD> ";:COLOR H:PRINT" <20><><EFBFBD> ";:COLOR L:PRINT" <20><><EFBFBD> ";:COLOR P:PRINT" <20><><EFBFBD> "
|
||||
470 FOR Z=0 TO X:NEXT
|
||||
480 RETURN
|
||||
490 V=INT(RND*(20))+30
|
||||
500 RETURN
|
||||
510 Y=INT(RND*(10))+10
|
||||
520 RETURN
|
||||
|
||||
63
TIMER/TIMER.BAS
Normal file
63
TIMER/TIMER.BAS
Normal file
@ -0,0 +1,63 @@
|
||||
10 CLS
|
||||
20 COLOR 15
|
||||
30 LOCATE 2,13:PRINT"1"
|
||||
40 LOCATE 3,13:PRINT"10"
|
||||
50 LOCATE 4,13:PRINT"100"
|
||||
60 LOCATE 5,13:PRINT"1000"
|
||||
70 LOCATE 6,1:COLOR 10:PRINT"12345";:COLOR 14:PRINT"678";:COLOR 12:PRINT"9"
|
||||
80 A=0
|
||||
90 A=A+1
|
||||
100 LOCATE 1,1
|
||||
110 COLOR 15
|
||||
120 PRINT USING "#";I;H;G;F;E;D;C;B;A
|
||||
130 IF A=0 THEN LOCATE 2,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":SOUND 3000,.25
|
||||
140 IF A=1 THEN LOCATE 2,1:COLOR 10:PRINT"5":SOUND 3000,.25
|
||||
150 IF A=2 THEN LOCATE 2,1:COLOR 10:PRINT"55":SOUND 3000,.25
|
||||
160 IF A=3 THEN LOCATE 2,1:COLOR 10:PRINT"555":SOUND 3000,.25
|
||||
170 IF A=4 THEN LOCATE 2,1:COLOR 10:PRINT"5555":SOUND 3000,.25
|
||||
180 IF A=5 THEN LOCATE 2,1:COLOR 10:PRINT"55555":SOUND 3000,.25
|
||||
190 IF A=6 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5":SOUND 3000,.25
|
||||
200 IF A=7 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55":SOUND 3000,.25
|
||||
210 IF A=8 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555":SOUND 3000,.25
|
||||
220 IF A=9 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5":SOUND 3000,.25
|
||||
230 IF B=0 THEN LOCATE 3,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
||||
240 IF B=1 THEN LOCATE 3,1:COLOR 10:PRINT"5"
|
||||
250 IF B=2 THEN LOCATE 3,1:COLOR 10:PRINT"55"
|
||||
260 IF B=3 THEN LOCATE 3,1:COLOR 10:PRINT"555"
|
||||
270 IF B=4 THEN LOCATE 3,1:COLOR 10:PRINT"5555"
|
||||
280 IF B=5 THEN LOCATE 3,1:COLOR 10:PRINT"55555"
|
||||
290 IF B=6 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
|
||||
300 IF B=7 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
|
||||
310 IF B=8 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
|
||||
320 IF B=9 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
|
||||
330 IF C=0 THEN LOCATE 4,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
||||
340 IF C=1 THEN LOCATE 4,1:COLOR 10:PRINT"5"
|
||||
350 IF C=2 THEN LOCATE 4,1:COLOR 10:PRINT"55"
|
||||
360 IF C=3 THEN LOCATE 4,1:COLOR 10:PRINT"555"
|
||||
370 IF C=4 THEN LOCATE 4,1:COLOR 10:PRINT"5555"
|
||||
380 IF C=5 THEN LOCATE 4,1:COLOR 10:PRINT"55555"
|
||||
390 IF C=6 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
|
||||
400 IF C=7 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
|
||||
410 IF C=8 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
|
||||
420 IF C=9 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
|
||||
430 IF D=0 THEN LOCATE 5,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
||||
440 IF D=1 THEN LOCATE 5,1:COLOR 10:PRINT"5"
|
||||
450 IF D=2 THEN LOCATE 5,1:COLOR 10:PRINT"55"
|
||||
460 IF D=3 THEN LOCATE 5,1:COLOR 10:PRINT"555"
|
||||
470 IF D=4 THEN LOCATE 5,1:COLOR 10:PRINT"5555"
|
||||
480 IF D=5 THEN LOCATE 5,1:COLOR 10:PRINT"55555"
|
||||
490 IF D=6 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
|
||||
500 IF D=7 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
|
||||
510 IF D=8 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
|
||||
520 IF D=9 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
|
||||
530 IF I=9 THEN I=0:PRINT" OVERFLOW"
|
||||
540 IF H=9 THEN H=0:I=I+1
|
||||
550 IF G=9 THEN G=0:H=H+1
|
||||
560 IF F=9 THEN F=0:G=G+1
|
||||
570 IF E=9 AND D=9 AND C=9 AND B=9 AND A=9 THEN E=-1:F=F+1
|
||||
580 IF D=9 AND C=9 AND B=9 AND A=9 THEN D=-1:E=E+1
|
||||
590 IF C=9 AND B=9 AND A=9 THEN C=-1:D=D+1
|
||||
600 IF B=9 AND A=9 THEN B=-1:C=C+1
|
||||
610 IF A=9 THEN A=-1:B=B+1
|
||||
620 GOTO 90
|
||||
|
||||
63
TIMER/TIMER2.BAS
Normal file
63
TIMER/TIMER2.BAS
Normal file
@ -0,0 +1,63 @@
|
||||
10 CLS
|
||||
20 COLOR 15
|
||||
30 LOCATE 2,13:PRINT"1"
|
||||
40 LOCATE 3,13:PRINT"10"
|
||||
50 LOCATE 4,13:PRINT"100"
|
||||
60 LOCATE 5,13:PRINT"1000"
|
||||
70 LOCATE 6,1:COLOR 10:PRINT"12345";:COLOR 14:PRINT"678";:COLOR 12:PRINT"9"
|
||||
80 A=0
|
||||
90 A=A+1
|
||||
100 LOCATE 1,1
|
||||
110 COLOR 15
|
||||
120 PRINT USING "#";I;H;G;F;E;D;C;B;A
|
||||
130 IF A=0 THEN LOCATE 2,1:COLOR 10:PRINT" "
|
||||
140 IF A=1 THEN LOCATE 2,1:COLOR 10:PRINT"1 "
|
||||
150 IF A=2 THEN LOCATE 2,1:COLOR 10:PRINT" 2 "
|
||||
160 IF A=3 THEN LOCATE 2,1:COLOR 10:PRINT" 3 "
|
||||
170 IF A=4 THEN LOCATE 2,1:COLOR 10:PRINT" 4 "
|
||||
180 IF A=5 THEN LOCATE 2,1:COLOR 10:PRINT" 5 "
|
||||
190 IF A=6 THEN LOCATE 2,1:COLOR 14:PRINT" 6 "
|
||||
200 IF A=7 THEN LOCATE 2,1:COLOR 14:PRINT" 7 "
|
||||
210 IF A=8 THEN LOCATE 2,1:COLOR 14:PRINT" 8 "
|
||||
220 IF A=9 THEN LOCATE 2,1:COLOR 12:PRINT" 9"
|
||||
230 IF B=0 THEN LOCATE 3,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
240 IF B=1 THEN LOCATE 3,1:COLOR 10:PRINT"1 "
|
||||
250 IF B=2 THEN LOCATE 3,1:COLOR 10:PRINT" 2 "
|
||||
260 IF B=3 THEN LOCATE 3,1:COLOR 10:PRINT" 3 "
|
||||
270 IF B=4 THEN LOCATE 3,1:COLOR 10:PRINT" 4 "
|
||||
280 IF B=5 THEN LOCATE 3,1:COLOR 10:PRINT" 5 "
|
||||
290 IF B=6 THEN LOCATE 3,1:COLOR 14:PRINT" 6 "
|
||||
300 IF B=7 THEN LOCATE 3,1:COLOR 14:PRINT" 7 "
|
||||
310 IF B=8 THEN LOCATE 3,1:COLOR 14:PRINT" 8 "
|
||||
320 IF B=9 THEN LOCATE 3,1:COLOR 12:PRINT" 9"
|
||||
330 IF C=0 THEN LOCATE 4,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
||||
340 IF C=1 THEN LOCATE 4,1:COLOR 10:PRINT"1 "
|
||||
350 IF C=2 THEN LOCATE 4,1:COLOR 10:PRINT" 2 "
|
||||
360 IF C=3 THEN LOCATE 4,1:COLOR 10:PRINT" 3 "
|
||||
370 IF C=4 THEN LOCATE 4,1:COLOR 10:PRINT" 4 "
|
||||
380 IF C=5 THEN LOCATE 4,1:COLOR 10:PRINT" 5 "
|
||||
390 IF C=6 THEN LOCATE 4,1:COLOR 14:PRINT" 6 "
|
||||
400 IF C=7 THEN LOCATE 4,1:COLOR 14:PRINT" 7 "
|
||||
410 IF C=8 THEN LOCATE 4,1:COLOR 14:PRINT" 8 "
|
||||
420 IF C=9 THEN LOCATE 4,1:COLOR 12:PRINT" 9"
|
||||
430 IF D=0 THEN LOCATE 5,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
440 IF D=1 THEN LOCATE 5,1:COLOR 10:PRINT"1 "
|
||||
450 IF D=2 THEN LOCATE 5,1:COLOR 10:PRINT" 2 "
|
||||
460 IF D=3 THEN LOCATE 5,1:COLOR 10:PRINT" 3 "
|
||||
470 IF D=4 THEN LOCATE 5,1:COLOR 10:PRINT" 4 "
|
||||
480 IF D=5 THEN LOCATE 5,1:COLOR 10:PRINT" 5 "
|
||||
490 IF D=6 THEN LOCATE 5,1:COLOR 14:PRINT" 6 "
|
||||
500 IF D=7 THEN LOCATE 5,1:COLOR 14:PRINT" 7 "
|
||||
510 IF D=8 THEN LOCATE 5,1:COLOR 14:PRINT" 8 "
|
||||
520 IF D=9 THEN LOCATE 5,1:COLOR 12:PRINT" 9"
|
||||
530 IF I=9 THEN I=0:PRINT" OVERFLOW"
|
||||
540 IF H=9 THEN H=0:I=I+1
|
||||
550 IF G=9 THEN G=0:H=H+1
|
||||
560 IF F=9 THEN F=0:G=G+1
|
||||
570 IF E=9 AND D=9 AND C=9 AND B=9 AND A=9 THEN E=-1:F=F+1
|
||||
580 IF D=9 AND C=9 AND B=9 AND A=9 THEN D=-1:E=E+1
|
||||
590 IF C=9 AND B=9 AND A=9 THEN C=-1:D=D+1
|
||||
600 IF B=9 AND A=9 THEN B=-1:C=C+1
|
||||
610 IF A=9 THEN A=-1:B=B+1
|
||||
620 GOTO 90
|
||||
|
||||
161
UHR/C64-U2.BAS
Normal file
161
UHR/C64-U2.BAS
Normal file
@ -0,0 +1,161 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 12,0,0
|
||||
30 CLS
|
||||
40 PRINT"<22><> <20><> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
50 PRINT"<22><> <20><> <20><> <20><> <20><> <20><>"
|
||||
60 PRINT"<22><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
70 PRINT"<22><> <20><> <20><> <20><> <20><><EFBFBD><EFBFBD>"
|
||||
80 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><> <20><>"
|
||||
90 PRINT
|
||||
100 COLOR 15:PRINT"Geschrieben in C64-Basic von"
|
||||
110 COLOR 11:PRINT"Markus Birth";CHR$(44);" dem besten Freund von"
|
||||
120 COLOR 13:PRINT"Computern"
|
||||
130 COLOR 15
|
||||
140 LOCATE 23,25:PRINT"Programmstart mit Tastendruck"
|
||||
150 A$=INKEY$:IF A$="" THEN 150
|
||||
160 REM *** Hauptroutine ***
|
||||
170 CLS
|
||||
180 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
190 PRINT"oder dr<64>cken Sie [ENTER] f<>r die interne Uhr"
|
||||
200 PRINT
|
||||
210 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
230 IF MID$(TIM$,3,1)<>":" THEN GOTO 270
|
||||
240 IF MID$(TIM$,6,1)<>":" THEN GOTO 270
|
||||
250 IF LEN(TIM$)<>8 THEN 270
|
||||
260 GOTO 310
|
||||
270 REM *** Fehler bei eingabe
|
||||
280 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
290 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
300 GOTO 210
|
||||
310 TIME$=TIM$
|
||||
320 PRINT
|
||||
330 PRINT"Die momentane Uhrzeit ist: "
|
||||
340 PRINT TIM$
|
||||
350 PRINT
|
||||
360 PRINT"Stimmt das [J/N]?"
|
||||
370 A$=INKEY$:IF A$="" THEN 370
|
||||
380 IF A$="j" OR A$="J" THEN 410
|
||||
390 IF A$="n" OR A$="N" THEN 160
|
||||
400 GOTO 370
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"<22><>"
|
||||
440 LOCATE 4,23:PRINT"<22><>"
|
||||
450 LOCATE 2,56:PRINT"<22><>"
|
||||
460 LOCATE 4,56:PRINT"<22><>"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 860
|
||||
690 IF Z=2 THEN GOSUB 940
|
||||
700 IF Z=3 THEN GOSUB 1020
|
||||
710 IF Z=4 THEN GOSUB 1110
|
||||
720 IF Z=5 THEN GOSUB 1200
|
||||
730 IF Z=6 THEN GOSUB 1290
|
||||
740 IF Z=7 THEN GOSUB 1370
|
||||
750 IF Z=8 THEN GOSUB 1450
|
||||
760 IF Z=9 THEN GOSUB 1530
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 COLOR 10
|
||||
800 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
810 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
820 LOCATE 3,X:PRINT" <20> <20> "
|
||||
830 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
840 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
850 RETURN
|
||||
860 REM EINS - 1
|
||||
870 COLOR 10
|
||||
880 LOCATE 1,X:PRINT" <20> "
|
||||
890 LOCATE 2,X:PRINT" <20><>"
|
||||
900 LOCATE 3,X:PRINT" <20> "
|
||||
910 LOCATE 4,X:PRINT" <20><>"
|
||||
920 LOCATE 5,X:PRINT" <20> "
|
||||
930 RETURN
|
||||
940 REM ZWEI - 2
|
||||
950 COLOR 10
|
||||
960 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
970 LOCATE 2,X:PRINT" <20><>"
|
||||
980 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
990 LOCATE 4,X:PRINT"<22><> "
|
||||
1000 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1010 RETURN
|
||||
1020 REM DREI - 3
|
||||
1030 COLOR 10
|
||||
1040 IF X=33 OR X=66 THEN COLOR 14
|
||||
1050 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1060 LOCATE 2,X:PRINT" <20><>"
|
||||
1070 LOCATE 3,X:PRINT" <20><><EFBFBD> "
|
||||
1080 LOCATE 4,X:PRINT" <20><>"
|
||||
1090 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1100 RETURN
|
||||
1110 REM VIER - 4
|
||||
1120 COLOR 10
|
||||
1130 IF X=33 OR X=66 THEN COLOR 14
|
||||
1140 LOCATE 1,X:PRINT" <20> <20> "
|
||||
1150 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1160 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1170 LOCATE 4,X:PRINT" <20><>"
|
||||
1180 LOCATE 5,X:PRINT" <20> "
|
||||
1190 RETURN
|
||||
1200 REM F<>NF - 5
|
||||
1210 COLOR 14
|
||||
1220 IF X=33 OR X=66 THEN COLOR 12
|
||||
1230 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1240 LOCATE 2,X:PRINT"<22><> "
|
||||
1250 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1260 LOCATE 4,X:PRINT" <20><>"
|
||||
1270 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1280 RETURN
|
||||
1290 REM SECHS - 6
|
||||
1300 COLOR 14
|
||||
1310 LOCATE 1,X:PRINT" <20> "
|
||||
1320 LOCATE 2,X:PRINT"<22><> "
|
||||
1330 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1340 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1350 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1360 RETURN
|
||||
1370 REM SIEBEN - 7
|
||||
1380 COLOR 14
|
||||
1390 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1400 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1410 LOCATE 3,X:PRINT" <20> "
|
||||
1420 LOCATE 4,X:PRINT" <20><>"
|
||||
1430 LOCATE 5,X:PRINT" <20> "
|
||||
1440 RETURN
|
||||
1450 REM ACHT - 8
|
||||
1460 COLOR 12
|
||||
1470 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1480 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1490 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1500 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1510 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1520 RETURN
|
||||
1530 REM NEUN - 9
|
||||
1540 COLOR 12
|
||||
1550 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1560 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1570 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
|
||||
1580 LOCATE 4,X:PRINT" <20><>"
|
||||
1590 LOCATE 5,X:PRINT" <20> "
|
||||
1600 RETURN
|
||||
|
||||
148
UHR/C64-UHR.BAS
Normal file
148
UHR/C64-UHR.BAS
Normal file
@ -0,0 +1,148 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 12,0,0
|
||||
30 CLS
|
||||
40 PRINT"<22><> <20><> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
50 PRINT"<22><> <20><> <20><> <20><> <20><> <20><>"
|
||||
60 PRINT"<22><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
70 PRINT"<22><> <20><> <20><> <20><> <20><><EFBFBD><EFBFBD>"
|
||||
80 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><> <20><>"
|
||||
90 PRINT
|
||||
100 COLOR 15:PRINT"Geschrieben in C64-Basic von"
|
||||
110 COLOR 11:PRINT"Markus Birth";CHR$(44);" dem besten Freund von"
|
||||
120 COLOR 13:PRINT"Computern"
|
||||
130 COLOR 15
|
||||
140 LOCATE 23,25:PRINT"Programmstart mit Tastendruck"
|
||||
150 A$=INKEY$:IF A$="" THEN 150
|
||||
160 REM *** Hauptroutine ***
|
||||
170 CLS
|
||||
180 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
190 PRINT"oder dr<64>cken Sie [ENTER] f<>r die interne Uhr"
|
||||
200 PRINT
|
||||
210 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
230 IF MID$(TIM$,3,1)<>":" THEN GOTO 270
|
||||
240 IF MID$(TIM$,6,1)<>":" THEN GOTO 270
|
||||
250 IF LEN(TIM$)<>8 THEN 270
|
||||
260 GOTO 310
|
||||
270 REM *** Fehler bei eingabe
|
||||
280 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
290 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
300 GOTO 210
|
||||
310 TIME$=TIM$
|
||||
320 PRINT
|
||||
330 PRINT"Die momentane Uhrzeit ist: "
|
||||
340 PRINT TIM$
|
||||
350 PRINT
|
||||
360 PRINT"Stimmt das [J/N]?"
|
||||
370 A$=INKEY$:IF A$="" THEN 370
|
||||
380 IF A$="j" OR A$="J" THEN 410
|
||||
390 IF A$="n" OR A$="N" THEN 160
|
||||
400 GOTO 370
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"<22><>"
|
||||
440 LOCATE 4,23:PRINT"<22><>"
|
||||
450 LOCATE 2,56:PRINT"<22><>"
|
||||
460 LOCATE 4,56:PRINT"<22><>"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 850
|
||||
690 IF Z=2 THEN GOSUB 920
|
||||
700 IF Z=3 THEN GOSUB 990
|
||||
710 IF Z=4 THEN GOSUB 1060
|
||||
720 IF Z=5 THEN GOSUB 1130
|
||||
730 IF Z=6 THEN GOSUB 1200
|
||||
740 IF Z=7 THEN GOSUB 1270
|
||||
750 IF Z=8 THEN GOSUB 1340
|
||||
760 IF Z=9 THEN GOSUB 1410
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
800 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
810 LOCATE 3,X:PRINT"<22><> <20><>"
|
||||
820 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
830 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
840 RETURN
|
||||
850 REM EINS - 1
|
||||
860 LOCATE 1,X:PRINT" <20><>"
|
||||
870 LOCATE 2,X:PRINT" <20><>"
|
||||
880 LOCATE 3,X:PRINT" <20><>"
|
||||
890 LOCATE 4,X:PRINT" <20><>"
|
||||
900 LOCATE 5,X:PRINT" <20><>"
|
||||
910 RETURN
|
||||
920 REM ZWEI - 2
|
||||
930 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
940 LOCATE 2,X:PRINT" <20><>"
|
||||
950 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
960 LOCATE 4,X:PRINT"<22><> "
|
||||
970 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
980 RETURN
|
||||
990 REM DREI - 3
|
||||
1000 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1010 LOCATE 2,X:PRINT" <20><>"
|
||||
1020 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD>"
|
||||
1030 LOCATE 4,X:PRINT" <20><>"
|
||||
1040 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1050 RETURN
|
||||
1060 REM VIER - 4
|
||||
1070 LOCATE 1,X:PRINT"<22><> <20><>"
|
||||
1080 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1090 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1100 LOCATE 4,X:PRINT" <20><>"
|
||||
1110 LOCATE 5,X:PRINT" <20><>"
|
||||
1120 RETURN
|
||||
1130 REM F<>NF - 5
|
||||
1140 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1150 LOCATE 2,X:PRINT"<22><> "
|
||||
1160 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1170 LOCATE 4,X:PRINT" <20><>"
|
||||
1180 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1190 RETURN
|
||||
1200 REM SECHS - 6
|
||||
1210 LOCATE 1,X:PRINT"<22><> "
|
||||
1220 LOCATE 2,X:PRINT"<22><> "
|
||||
1230 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1240 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1250 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1260 RETURN
|
||||
1270 REM SIEBEN - 7
|
||||
1280 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1290 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1300 LOCATE 3,X:PRINT" <20><>"
|
||||
1310 LOCATE 4,X:PRINT" <20><>"
|
||||
1320 LOCATE 5,X:PRINT" <20><>"
|
||||
1330 RETURN
|
||||
1340 REM ACHT - 8
|
||||
1350 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1360 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1370 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1380 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1390 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1400 RETURN
|
||||
1410 REM NEUN - 9
|
||||
1420 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1430 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1440 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1450 LOCATE 4,X:PRINT" <20><>"
|
||||
1460 LOCATE 5,X:PRINT" <20><>"
|
||||
1470 RETURN
|
||||
|
||||
112
UHR/UHR.BAS
Normal file
112
UHR/UHR.BAS
Normal file
@ -0,0 +1,112 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
30 IF TIM$="" THEN TIM$=TIME$
|
||||
40 REM *** Anzeigeroutine ***
|
||||
50 CLS
|
||||
60 LOCATE 2,23:PRINT"<22><>"
|
||||
70 LOCATE 4,23:PRINT"<22><>"
|
||||
80 LOCATE 2,56:PRINT"<22><>"
|
||||
90 LOCATE 4,56:PRINT"<22><>"
|
||||
100 Z=VAL(LEFT$(TIME$,1))
|
||||
110 X=1
|
||||
120 GOSUB 290
|
||||
130 Z=VAL(MID$(TIME$,2,1))
|
||||
140 X=9
|
||||
150 GOSUB 290
|
||||
160 Z=VAL(MID$(TIME$,4,1))
|
||||
170 X=33
|
||||
180 GOSUB 290
|
||||
190 Z=VAL(MID$(TIME$,5,1))
|
||||
200 X=41
|
||||
210 GOSUB 290
|
||||
220 Z=VAL(MID$(TIME$,7,1))
|
||||
230 X=66
|
||||
240 GOSUB 290
|
||||
250 Z=VAL(RIGHT$(TIME$,1))
|
||||
260 X=74
|
||||
270 GOSUB 290
|
||||
280 GOTO 100
|
||||
290 REM *** Anzeigeroutine ***
|
||||
300 INK$=INKEY$:IF INK$=CHR$(27) THEN SYSTEM
|
||||
310 IF Z=0 THEN GOSUB 420
|
||||
320 IF Z=1 THEN GOSUB 490
|
||||
330 IF Z=2 THEN GOSUB 560
|
||||
340 IF Z=3 THEN GOSUB 630
|
||||
350 IF Z=4 THEN GOSUB 700
|
||||
360 IF Z=5 THEN GOSUB 770
|
||||
370 IF Z=6 THEN GOSUB 840
|
||||
380 IF Z=7 THEN GOSUB 910
|
||||
390 IF Z=8 THEN GOSUB 980
|
||||
400 IF Z=9 THEN GOSUB 1050
|
||||
410 RETURN
|
||||
420 REM NULL - 0
|
||||
430 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
440 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
450 LOCATE 3,X:PRINT"<22><> <20><>"
|
||||
460 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
470 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
480 RETURN
|
||||
490 REM EINS - 1
|
||||
500 LOCATE 1,X:PRINT" <20><>"
|
||||
510 LOCATE 2,X:PRINT" <20><>"
|
||||
520 LOCATE 3,X:PRINT" <20><>"
|
||||
530 LOCATE 4,X:PRINT" <20><>"
|
||||
540 LOCATE 5,X:PRINT" <20><>"
|
||||
550 RETURN
|
||||
560 REM ZWEI - 2
|
||||
570 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
580 LOCATE 2,X:PRINT" <20><>"
|
||||
590 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
600 LOCATE 4,X:PRINT"<22><> "
|
||||
610 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
620 RETURN
|
||||
630 REM DREI - 3
|
||||
640 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
650 LOCATE 2,X:PRINT" <20><>"
|
||||
660 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD>"
|
||||
670 LOCATE 4,X:PRINT" <20><>"
|
||||
680 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
690 RETURN
|
||||
700 REM VIER - 4
|
||||
710 LOCATE 1,X:PRINT"<22><> <20><>"
|
||||
720 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
730 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
740 LOCATE 4,X:PRINT" <20><>"
|
||||
750 LOCATE 5,X:PRINT" <20><>"
|
||||
760 RETURN
|
||||
770 REM F<>NF - 5
|
||||
780 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
790 LOCATE 2,X:PRINT"<22><> "
|
||||
800 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
810 LOCATE 4,X:PRINT" <20><>"
|
||||
820 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
830 RETURN
|
||||
840 REM SECHS - 6
|
||||
850 LOCATE 1,X:PRINT"<22><> "
|
||||
860 LOCATE 2,X:PRINT"<22><> "
|
||||
870 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
880 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
890 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
900 RETURN
|
||||
910 REM SIEBEN - 7
|
||||
920 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
930 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
940 LOCATE 3,X:PRINT" <20><>"
|
||||
950 LOCATE 4,X:PRINT" <20><>"
|
||||
960 LOCATE 5,X:PRINT" <20><>"
|
||||
970 RETURN
|
||||
980 REM ACHT - 8
|
||||
990 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1000 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1010 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1020 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1030 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1040 RETURN
|
||||
1050 REM NEUN - 9
|
||||
1060 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1070 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1080 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1090 LOCATE 4,X:PRINT" <20><>"
|
||||
1100 LOCATE 5,X:PRINT" <20><>"
|
||||
1110 RETURN
|
||||
|
||||
136
UHR/UHR1.BAS
Normal file
136
UHR/UHR1.BAS
Normal file
@ -0,0 +1,136 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
30 REM *** Hauptroutine ***
|
||||
40 CLS
|
||||
50 IF TI=2 THEN GOTO 290
|
||||
60 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
70 PRINT"oder dr<64>cken Sie [ENTER] f<>r die interne Uhr"
|
||||
80 PRINT
|
||||
90 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
100 IF TIM$="" THEN TIM$=TIME$
|
||||
110 IF MID$(TIM$,3,1)<>":" THEN GOTO 150
|
||||
120 IF MID$(TIM$,6,1)<>":" THEN GOTO 150
|
||||
130 IF LEN(TIM$)<>8 THEN 150
|
||||
140 GOTO 190
|
||||
150 REM *** Fehler bei eingabe
|
||||
160 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
170 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
180 GOTO 90
|
||||
190 TIME$=TIM$
|
||||
200 PRINT
|
||||
210 PRINT"Die momentane Uhrzeit ist: "
|
||||
220 PRINT TIM$
|
||||
230 PRINT
|
||||
240 PRINT"Stimmt das [J/N]?"
|
||||
250 A$=INKEY$:IF A$="" THEN 250
|
||||
260 IF A$="j" OR A$="J" THEN 290
|
||||
270 IF A$="n" OR A$="N" THEN 30
|
||||
280 GOTO 250
|
||||
290 REM *** Anzeigeroutine ***
|
||||
300 CLS
|
||||
310 LOCATE 2,23:PRINT"<22><>"
|
||||
320 LOCATE 4,23:PRINT"<22><>"
|
||||
330 LOCATE 2,56:PRINT"<22><>"
|
||||
340 LOCATE 4,56:PRINT"<22><>"
|
||||
350 Z=VAL(LEFT$(TIME$,1))
|
||||
360 X=1
|
||||
370 GOSUB 540
|
||||
380 Z=VAL(MID$(TIME$,2,1))
|
||||
390 X=9
|
||||
400 GOSUB 540
|
||||
410 Z=VAL(MID$(TIME$,4,1))
|
||||
420 X=33
|
||||
430 GOSUB 540
|
||||
440 Z=VAL(MID$(TIME$,5,1))
|
||||
450 X=41
|
||||
460 GOSUB 540
|
||||
470 Z=VAL(MID$(TIME$,7,1))
|
||||
480 X=66
|
||||
490 GOSUB 540
|
||||
500 Z=VAL(RIGHT$(TIME$,1))
|
||||
510 X=74
|
||||
520 GOSUB 540
|
||||
530 GOTO 350
|
||||
540 REM *** Anzeigeroutine ***
|
||||
550 IF Z=0 THEN GOSUB 660
|
||||
560 IF Z=1 THEN GOSUB 730
|
||||
570 IF Z=2 THEN GOSUB 800
|
||||
580 IF Z=3 THEN GOSUB 870
|
||||
590 IF Z=4 THEN GOSUB 940
|
||||
600 IF Z=5 THEN GOSUB 1010
|
||||
610 IF Z=6 THEN GOSUB 1080
|
||||
620 IF Z=7 THEN GOSUB 1150
|
||||
630 IF Z=8 THEN GOSUB 1220
|
||||
640 IF Z=9 THEN GOSUB 1290
|
||||
650 RETURN
|
||||
660 REM NULL - 0
|
||||
670 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
680 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
690 LOCATE 3,X:PRINT"<22><> <20><>"
|
||||
700 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
710 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
720 RETURN
|
||||
730 REM EINS - 1
|
||||
740 LOCATE 1,X:PRINT" <20><>"
|
||||
750 LOCATE 2,X:PRINT" <20><>"
|
||||
760 LOCATE 3,X:PRINT" <20><>"
|
||||
770 LOCATE 4,X:PRINT" <20><>"
|
||||
780 LOCATE 5,X:PRINT" <20><>"
|
||||
790 RETURN
|
||||
800 REM ZWEI - 2
|
||||
810 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
820 LOCATE 2,X:PRINT" <20><>"
|
||||
830 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
840 LOCATE 4,X:PRINT"<22><> "
|
||||
850 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
860 RETURN
|
||||
870 REM DREI - 3
|
||||
880 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
890 LOCATE 2,X:PRINT" <20><>"
|
||||
900 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD>"
|
||||
910 LOCATE 4,X:PRINT" <20><>"
|
||||
920 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
930 RETURN
|
||||
940 REM VIER - 4
|
||||
950 LOCATE 1,X:PRINT"<22><> <20><>"
|
||||
960 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
970 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
980 LOCATE 4,X:PRINT" <20><>"
|
||||
990 LOCATE 5,X:PRINT" <20><>"
|
||||
1000 RETURN
|
||||
1010 REM F<>NF - 5
|
||||
1020 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1030 LOCATE 2,X:PRINT"<22><> "
|
||||
1040 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1050 LOCATE 4,X:PRINT" <20><>"
|
||||
1060 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1070 RETURN
|
||||
1080 REM SECHS - 6
|
||||
1090 LOCATE 1,X:PRINT"<22><> "
|
||||
1100 LOCATE 2,X:PRINT"<22><> "
|
||||
1110 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1120 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1130 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1140 RETURN
|
||||
1150 REM SIEBEN - 7
|
||||
1160 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1170 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1180 LOCATE 3,X:PRINT" <20><>"
|
||||
1190 LOCATE 4,X:PRINT" <20><>"
|
||||
1200 LOCATE 5,X:PRINT" <20><>"
|
||||
1210 RETURN
|
||||
1220 REM ACHT - 8
|
||||
1230 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1240 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1250 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1260 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1270 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1280 RETURN
|
||||
1290 REM NEUN - 9
|
||||
1300 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1310 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1320 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1330 LOCATE 4,X:PRINT" <20><>"
|
||||
1340 LOCATE 5,X:PRINT" <20><>"
|
||||
1350 RETURN
|
||||
|
||||
97
UHR/UHR2.BAS
Normal file
97
UHR/UHR2.BAS
Normal file
@ -0,0 +1,97 @@
|
||||
10 CLS
|
||||
20 COLOR 15
|
||||
30 PRINT"UHR.BAS by RoboCop"
|
||||
40 PRINT
|
||||
50 PRINT"W<>hlen Sie eine Funktion:"
|
||||
60 PRINT
|
||||
70 PRINT"01 - Uhr"
|
||||
80 PRINT"02 - Wecker"
|
||||
90 PRINT"03 - Timer"
|
||||
100 PRINT"04 - int. Uhr stellen"
|
||||
110 PRINT"05 - int. Datum stellen"
|
||||
120 PRINT
|
||||
130 PRINT"Geben Sie die Kennziffer ein --->"
|
||||
140 LOCATE 11,35:PRINT"--"
|
||||
150 LOCATE 13,1:PRINT"--------------"
|
||||
160 A=0
|
||||
170 A$=INKEY$:IF A$="" THEN GOTO 170
|
||||
180 IF A=0 THEN WAHL=VAL(A$)*10:LOCATE 11,35:PRINT A$
|
||||
190 IF A=1 THEN WAHL=VAL(A$)+WAHL:LOCATE 11,36:PRINT A$
|
||||
200 A=A+1
|
||||
210 IF A=2 THEN GOTO 230
|
||||
220 GOTO 170
|
||||
230 REM
|
||||
240 IF WAHL=1 THEN GOTO 320
|
||||
250 IF WAHL=2 THEN
|
||||
260 IF WAHL=3 THEN
|
||||
270 IF WAHL=4 THEN GOTO 610
|
||||
280 IF WAHL=5 THEN
|
||||
290 LOCATE 13,1:PRINT"Falscheingabe!"
|
||||
300 FOR Z=0 TO 9000:NEXT
|
||||
310 LOCATE 1,1:A=-1:GOTO 30
|
||||
320 REM WAHL=1
|
||||
330 LOCATE 5,1:COLOR 31:PRINT"01 - Uhr"
|
||||
340 FOR Z=0 TO 20000:NEXT
|
||||
350 CLS
|
||||
360 COLOR 14
|
||||
370 A=0
|
||||
380 A=A+1
|
||||
390 H$=LEFT$(TIME$,2)
|
||||
400 M$=MID$(TIME$,4,2)
|
||||
410 S$=RIGHT$(TIME$,2)
|
||||
420 H=VAL(H$)
|
||||
430 M=VAL(M$)
|
||||
440 S=VAL(S$)
|
||||
450 MS=M+(S/100)
|
||||
460 IF A=1 THEN V=S
|
||||
470 IF V+1=60 THEN V=-1
|
||||
480 IF V+1=S THEN GOTO 500
|
||||
490 GOTO 380
|
||||
500 LOCATE 12,36
|
||||
510 IF S=15 OR S=45 THEN SOUND 500,1:GOTO 590
|
||||
520 IF S=30 THEN SOUND 1000,1:GOTO 590
|
||||
530 IF S=0 THEN SOUND 3000,1:GOTO 590
|
||||
540 IF M=30 AND C=0 THEN SOUND 3000,10:C=C+1
|
||||
550 IF M=60 AND D=0 THEN SOUND 1000,10:D=D+1
|
||||
560 IF H=12 AND E=0 THEN SOUND 2000,10:E=E+1
|
||||
570 IF H=0 AND F=0 THEN SOUND 2000,10:F=F+1
|
||||
580 SOUND 2000,1
|
||||
590 PRINT USING"##:##.##";H;MS
|
||||
600 GOTO 370
|
||||
610 REM int. Uhr stellen
|
||||
620 LOCATE 8,1:COLOR 31:PRINT"04 - int. Uhr stellen"
|
||||
630 FOR Z=0 TO 20000:NEXT Z
|
||||
640 COLOR 15
|
||||
650 CLS
|
||||
660 PRINT"Interne Uhr stellen:"
|
||||
670 PRINT
|
||||
680 PRINT"Geben Sie die genaue Uhrzeit ein:"
|
||||
690 PRINT" Format: HH:MM.SS (im 24h Format)"
|
||||
700 PRINT
|
||||
710 INPUT"Neue Uhrzeit: ",TIM$
|
||||
720 T1$=LEFT$(TIM$,2)
|
||||
730 T2$=MID$(TIM$,4,2)
|
||||
740 T3$=RIGHT$(TIM$,2)
|
||||
750 IF VAL(T1$)<0 OR VAL(T1$)>23 THEN GOTO 840
|
||||
760 IF VAL(T2$)<0 OR VAL(T2$)>59 THEN GOTO 840
|
||||
770 IF VAL(T3$)<0 OR VAL(T3$)>59 THEN GOTO 840
|
||||
780 IF LEN(TIM$)<>8 THEN GOTO 840
|
||||
790 IF MID$(TIM$,3,1)<>":" THEN GOTO 840
|
||||
800 IF MID$(TIM$,6,1)<>"." THEN GOTO 840
|
||||
810 LOCATE 6,15:COLOR 31:PRINT TIME$
|
||||
820 COLOR 12:PRINT"Zeit gestellt!"
|
||||
830 GOTO 10
|
||||
840 REM Zeitstellerror!!!
|
||||
850 CLS
|
||||
860 COLOR 12
|
||||
870 PRINT"LER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEH"
|
||||
880 PRINT
|
||||
890 PRINT"Beim Uhrstellen ist ein FEHLER aufgetreten!!!"
|
||||
900 PRINT"Der Wert ";TIM$;" ist ung<6E>ltig !!!"
|
||||
910 PRINT"Bitte geben Sie die Zeit nocheinmal ein."
|
||||
920 PRINT
|
||||
930 COLOR 10:PRINT"Mit Tastendruck geht's weiter"
|
||||
940 A$=INKEY$:IF A$="" THEN 940
|
||||
950 COLOR 15
|
||||
960 GOTO 650
|
||||
|
||||
111
UHR/UHRZ.BAS
Normal file
111
UHR/UHRZ.BAS
Normal file
@ -0,0 +1,111 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"<22><>"
|
||||
440 LOCATE 4,23:PRINT"<22><>"
|
||||
450 LOCATE 2,56:PRINT"<22><>"
|
||||
460 LOCATE 4,56:PRINT"<22><>"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 850
|
||||
690 IF Z=2 THEN GOSUB 920
|
||||
700 IF Z=3 THEN GOSUB 990
|
||||
710 IF Z=4 THEN GOSUB 1060
|
||||
720 IF Z=5 THEN GOSUB 1130
|
||||
730 IF Z=6 THEN GOSUB 1200
|
||||
740 IF Z=7 THEN GOSUB 1270
|
||||
750 IF Z=8 THEN GOSUB 1340
|
||||
760 IF Z=9 THEN GOSUB 1410
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
800 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
810 LOCATE 3,X:PRINT"<22><> <20><>"
|
||||
820 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
830 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
840 RETURN
|
||||
850 REM EINS - 1
|
||||
860 LOCATE 1,X:PRINT" <20><>"
|
||||
870 LOCATE 2,X:PRINT" <20><>"
|
||||
880 LOCATE 3,X:PRINT" <20><>"
|
||||
890 LOCATE 4,X:PRINT" <20><>"
|
||||
900 LOCATE 5,X:PRINT" <20><>"
|
||||
910 RETURN
|
||||
920 REM ZWEI - 2
|
||||
930 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
940 LOCATE 2,X:PRINT" <20><>"
|
||||
950 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
960 LOCATE 4,X:PRINT"<22><> "
|
||||
970 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
980 RETURN
|
||||
990 REM DREI - 3
|
||||
1000 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1010 LOCATE 2,X:PRINT" <20><>"
|
||||
1020 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD>"
|
||||
1030 LOCATE 4,X:PRINT" <20><>"
|
||||
1040 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1050 RETURN
|
||||
1060 REM VIER - 4
|
||||
1070 LOCATE 1,X:PRINT"<22><> <20><>"
|
||||
1080 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1090 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1100 LOCATE 4,X:PRINT" <20><>"
|
||||
1110 LOCATE 5,X:PRINT" <20><>"
|
||||
1120 RETURN
|
||||
1130 REM F<>NF - 5
|
||||
1140 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1150 LOCATE 2,X:PRINT"<22><> "
|
||||
1160 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1170 LOCATE 4,X:PRINT" <20><>"
|
||||
1180 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1190 RETURN
|
||||
1200 REM SECHS - 6
|
||||
1210 LOCATE 1,X:PRINT"<22><> "
|
||||
1220 LOCATE 2,X:PRINT"<22><> "
|
||||
1230 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1240 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1250 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1260 RETURN
|
||||
1270 REM SIEBEN - 7
|
||||
1280 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1290 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1300 LOCATE 3,X:PRINT" <20><>"
|
||||
1310 LOCATE 4,X:PRINT" <20><>"
|
||||
1320 LOCATE 5,X:PRINT" <20><>"
|
||||
1330 RETURN
|
||||
1340 REM ACHT - 8
|
||||
1350 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1360 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1370 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1380 LOCATE 4,X:PRINT"<22><> <20><>"
|
||||
1390 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1400 RETURN
|
||||
1410 REM NEUN - 9
|
||||
1420 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1430 LOCATE 2,X:PRINT"<22><> <20><>"
|
||||
1440 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
1450 LOCATE 4,X:PRINT" <20><>"
|
||||
1460 LOCATE 5,X:PRINT" <20><>"
|
||||
1470 RETURN
|
||||
|
||||
20
WRITER/STASTEN.BAS
Normal file
20
WRITER/STASTEN.BAS
Normal file
@ -0,0 +1,20 @@
|
||||
10 DAT$="OUTPUT.TTN"
|
||||
20 KEY OFF
|
||||
30 COLOR 15,0,0
|
||||
40 CLS
|
||||
50 CLOSE 1
|
||||
60 INPUT"Dateinamen eingeben: ",DN$
|
||||
70 IF DN$="" THEN DN$=DAT$
|
||||
80 IF LEFT$(RIGHT$(DN$,4),1)<>"." THEN 30
|
||||
90 CLS
|
||||
100 COLOR 15,0,0
|
||||
110 FOR Z=1 TO 24
|
||||
120 LOCATE Z,1:PRINT SPACE$(79)
|
||||
130 NEXT Z
|
||||
140 LOCATE 1,1
|
||||
150 AUFRUF$="TYPE "+DN$+" |MORE"
|
||||
160 SHELL AUFRUF$
|
||||
170 LOCATE 24,1
|
||||
180 SHELL"PAUSE"
|
||||
190 CLS
|
||||
|
||||
34
WRITER/TASTEN.BAS
Normal file
34
WRITER/TASTEN.BAS
Normal file
@ -0,0 +1,34 @@
|
||||
10 DAT$="OUTPUT.TTN"
|
||||
20 OPEN "O",1,DAT$
|
||||
30 PRINT#1,"Ausgabe-Datei von TASTEN.BAS"
|
||||
40 PRINT#1,""
|
||||
50 KEY OFF
|
||||
60 B=1:C=0:D=1:E=1
|
||||
70 CLS
|
||||
80 GOTO 210
|
||||
90 ON ERROR GOTO 310
|
||||
100 A$=INKEY$:IF A$="" THEN 100
|
||||
110 A=ASC(A$)
|
||||
120 IF A=8 THEN C=C-2:E=E-2:GOSUB 320:GOTO 190
|
||||
130 IF A=13 THEN GOSUB 270:GOTO 190
|
||||
140 IF A=27 THEN GOSUB 290:GOTO 310
|
||||
150 LOCATE B,C
|
||||
160 COLOR 15,0,0
|
||||
170 PRINT CHR$(A)
|
||||
180 OUTP$=OUTP$+CHR$(A)
|
||||
190 COLOR 14:LOCATE 24,1:PRINT USING"CHR$(###) \ \";A;DAT$;
|
||||
200 LOCATE 25,1:PRINT OUTP$;SPACE$(80-LEN(OUTP$));
|
||||
210 LOCATE D,E
|
||||
220 COLOR 31,0,0
|
||||
230 PRINT CHR$(95);" "
|
||||
240 C=C+1:IF C>80 THEN C=1:B=B+1:PRINT#1,OUTP$:OUTP$=""
|
||||
250 E=E+1:IF E>80 THEN E=1:D=D+1
|
||||
260 GOTO 100
|
||||
270 LOCATE D,E-1:PRINT " "
|
||||
280 B=B+1:C=0:D=D+1:E=1
|
||||
290 PRINT#1,OUTP$:OUTP$=""
|
||||
300 RETURN
|
||||
310 COLOR 15:CLS:END
|
||||
320 OUTP$=LEFT$(OUTP$,(LEN(OUTP$)-1))
|
||||
330 RETURN
|
||||
|
||||
Reference in New Issue
Block a user