mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00:00
14 lines
527 B
QBasic
14 lines
527 B
QBasic
10 CLS
|
||
20 COLOR 12:LOCATE 1,35:PRINT"Self-Check"
|
||
30 COLOR 10:PRINT:PRINT"Testing..."
|
||
40 PRINT
|
||
50 COLOR 15:PRINT"Sound-Blaster Pro card ";:A=5:GOSUB 10010
|
||
60 COLOR 15:PRINT"Motherboard ";:A=6:GOSUB 10010
|
||
10000 END:REM *** Ende wegen folgenden GOSUB...RETURN-Schleifen ***
|
||
10010 REM *** Punkt- und OK-Schleife ***
|
||
10020 GOSUB 10040:PRINT".";:GOSUB 10040:PRINT".";:GOSUB 10040:PRINT".";:GOSUB 10040:LOCATE A,70:COLOR 26:PRINT"OK"
|
||
10030 RETURN
|
||
10040 REM *** Zeitschleife ***
|
||
10050 FOR Z=0 TO 5000:NEXT Z
|
||
10060 RETURN
|
||
|