mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
112 lines
2.6 KiB
QBasic
112 lines
2.6 KiB
QBasic
10 KEY OFF
|
||
20 COLOR 15,0,0
|
||
30 IF TIM$="" THEN TIM$=TIME$
|
||
40 REM *** Anzeigeroutine ***
|
||
50 CLS
|
||
60 LOCATE 2,23:PRINT"ÛÛ"
|
||
70 LOCATE 4,23:PRINT"ÛÛ"
|
||
80 LOCATE 2,56:PRINT"ÛÛ"
|
||
90 LOCATE 4,56:PRINT"ÛÛ"
|
||
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"ÛÛÛÛÛÛ"
|
||
440 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
450 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||
460 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
470 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
480 RETURN
|
||
490 REM EINS - 1
|
||
500 LOCATE 1,X:PRINT" ÛÛ"
|
||
510 LOCATE 2,X:PRINT" ÛÛ"
|
||
520 LOCATE 3,X:PRINT" ÛÛ"
|
||
530 LOCATE 4,X:PRINT" ÛÛ"
|
||
540 LOCATE 5,X:PRINT" ÛÛ"
|
||
550 RETURN
|
||
560 REM ZWEI - 2
|
||
570 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
580 LOCATE 2,X:PRINT" ÛÛ"
|
||
590 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
600 LOCATE 4,X:PRINT"ÛÛ "
|
||
610 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
620 RETURN
|
||
630 REM DREI - 3
|
||
640 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
650 LOCATE 2,X:PRINT" ÛÛ"
|
||
660 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||
670 LOCATE 4,X:PRINT" ÛÛ"
|
||
680 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
690 RETURN
|
||
700 REM VIER - 4
|
||
710 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||
720 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
730 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
740 LOCATE 4,X:PRINT" ÛÛ"
|
||
750 LOCATE 5,X:PRINT" ÛÛ"
|
||
760 RETURN
|
||
770 REM FšNF - 5
|
||
780 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
790 LOCATE 2,X:PRINT"ÛÛ "
|
||
800 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
810 LOCATE 4,X:PRINT" ÛÛ"
|
||
820 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
830 RETURN
|
||
840 REM SECHS - 6
|
||
850 LOCATE 1,X:PRINT"ÛÛ "
|
||
860 LOCATE 2,X:PRINT"ÛÛ "
|
||
870 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
880 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
890 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
900 RETURN
|
||
910 REM SIEBEN - 7
|
||
920 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
930 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
940 LOCATE 3,X:PRINT" ÛÛ"
|
||
950 LOCATE 4,X:PRINT" ÛÛ"
|
||
960 LOCATE 5,X:PRINT" ÛÛ"
|
||
970 RETURN
|
||
980 REM ACHT - 8
|
||
990 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1000 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1010 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1020 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
1030 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
1040 RETURN
|
||
1050 REM NEUN - 9
|
||
1060 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1070 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1080 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1090 LOCATE 4,X:PRINT" ÛÛ"
|
||
1100 LOCATE 5,X:PRINT" ÛÛ"
|
||
1110 RETURN
|
||
|