mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
111 lines
2.6 KiB
QBasic
111 lines
2.6 KiB
QBasic
10 KEY OFF
|
||
20 COLOR 15,0,0
|
||
220 IF TIM$="" THEN TIM$=TIME$
|
||
410 REM *** Anzeigeroutine ***
|
||
420 CLS
|
||
430 LOCATE 2,23:PRINT"ÛÛ"
|
||
440 LOCATE 4,23:PRINT"ÛÛ"
|
||
450 LOCATE 2,56:PRINT"ÛÛ"
|
||
460 LOCATE 4,56:PRINT"ÛÛ"
|
||
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"ÛÛÛÛÛÛ"
|
||
800 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
810 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||
820 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
830 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
840 RETURN
|
||
850 REM EINS - 1
|
||
860 LOCATE 1,X:PRINT" ÛÛ"
|
||
870 LOCATE 2,X:PRINT" ÛÛ"
|
||
880 LOCATE 3,X:PRINT" ÛÛ"
|
||
890 LOCATE 4,X:PRINT" ÛÛ"
|
||
900 LOCATE 5,X:PRINT" ÛÛ"
|
||
910 RETURN
|
||
920 REM ZWEI - 2
|
||
930 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
940 LOCATE 2,X:PRINT" ÛÛ"
|
||
950 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
960 LOCATE 4,X:PRINT"ÛÛ "
|
||
970 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
980 RETURN
|
||
990 REM DREI - 3
|
||
1000 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1010 LOCATE 2,X:PRINT" ÛÛ"
|
||
1020 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||
1030 LOCATE 4,X:PRINT" ÛÛ"
|
||
1040 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
1050 RETURN
|
||
1060 REM VIER - 4
|
||
1070 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||
1080 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1090 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1100 LOCATE 4,X:PRINT" ÛÛ"
|
||
1110 LOCATE 5,X:PRINT" ÛÛ"
|
||
1120 RETURN
|
||
1130 REM FšNF - 5
|
||
1140 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1150 LOCATE 2,X:PRINT"ÛÛ "
|
||
1160 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1170 LOCATE 4,X:PRINT" ÛÛ"
|
||
1180 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
1190 RETURN
|
||
1200 REM SECHS - 6
|
||
1210 LOCATE 1,X:PRINT"ÛÛ "
|
||
1220 LOCATE 2,X:PRINT"ÛÛ "
|
||
1230 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1240 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
1250 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
1260 RETURN
|
||
1270 REM SIEBEN - 7
|
||
1280 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1290 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1300 LOCATE 3,X:PRINT" ÛÛ"
|
||
1310 LOCATE 4,X:PRINT" ÛÛ"
|
||
1320 LOCATE 5,X:PRINT" ÛÛ"
|
||
1330 RETURN
|
||
1340 REM ACHT - 8
|
||
1350 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1360 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1370 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1380 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||
1390 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||
1400 RETURN
|
||
1410 REM NEUN - 9
|
||
1420 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||
1430 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||
1440 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||
1450 LOCATE 4,X:PRINT" ÛÛ"
|
||
1460 LOCATE 5,X:PRINT" ÛÛ"
|
||
1470 RETURN
|
||
|