VB6.0 a 24C16

[Miroslav Sinko]

> Mne skor islo o to, poradit ako spolahlivo (nezavisle od vykonu PC, ako
> by to bolo pri sluckach) ziskat minimalny cas a co najjednoduchsie.

Kdysi jsem si zkousel hrat se systemovym casovacem.
Napsal jsem si k tomu programek, abych videl, zda to funguje.

10 N = &H43
15 CLS
20 SCREEN 9
30 WINDOW (-2, -5)-(257, 257)
35 LINE (-1, -1)-(256, 256), 3, B
36 OUT N, 0: a = INP(&H40): b = INP(&H40): IF b <> 0 THEN 36
40 FOR X = 0 TO 255
90 PSET (X, b)
50 OUT N, 0
60 a = INP(&H40): b = INP(&H40)
80 rem b = b * 256: C = b + a
100 NEXT X
cekej:
105 a$ = INKEY$: IF a$ = "" THEN goto cekej
107 IF a$ = " " THEN STOP
110 LINE (0, 0)-(255, 255), 0, BF
120 GOTO 36

Rozumy jsem bral z elektronickeho manualu SYSMAN.

Tehdy jsem se spokojil s tim, ze by to fungovat mohlo a dal s tim nic
nedelal.