32 lines
778 B
QBasic
32 lines
778 B
QBasic
5 CROFF
|
|
8 CLS
|
|
10 TIMER s(1,200)
|
|
20 TIMER s(2,500)
|
|
30 TIMER s(3,300)
|
|
32 TIMER s(4,400)
|
|
33 TIMER s(5,520)
|
|
34 TIMER s(6,330)
|
|
35 TIMER s(7,185)
|
|
36 TIMER s(8,221)
|
|
37 TIMER s(9,400)
|
|
40 POS 10,10:PRINT TIMER r(1);" "
|
|
45 POS 20,10:PRINT TIMER c(1)
|
|
50 POS 10,12:PRINT TIMER r(2);" "
|
|
55 POS 20,12:PRINT TIMER c(2)
|
|
60 POS 10,14:PRINT TIMER r(3);" "
|
|
65 POS 20,14:PRINT TIMER c(3)
|
|
66 POS 10,16:PRINT TIMER r(4);" "
|
|
67 POS 20,16:PRINT TIMER c(4)
|
|
68 POS 10,18:PRINT TIMER r(5);" "
|
|
69 POS 20,18:PRINT TIMER c(5)
|
|
70 POS 10,20:PRINT TIMER r(6);" "
|
|
71 POS 20,20:PRINT TIMER c(6)
|
|
72 POS 10,22:PRINT TIMER r(7);" "
|
|
73 POS 20,22:PRINT TIMER c(7)
|
|
74 POS 10,24:PRINT TIMER r(8);" "
|
|
75 POS 20,24:PRINT TIMER c(8)
|
|
80 IF TIMER c(5) THEN GOTO 100
|
|
90 GOTO 40
|
|
100 POS 10,28:PRINT "Alle Timer abgelaufen!"
|
|
|