home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
DISKS.OPT
< prev
next >
Wrap
Text File
|
1995-04-27
|
705b
|
56 lines
DEF(X0)
DEF(Y0)
DEF(XM)
DEF(YM)
DEF(COL)
DEF(SMAX, 50)
BEGIN
SETPVGA
SETALLPAL
SYSFONT(3,0)
SETCOLOR(255)
SETBCOLOR(0)
REPEAT
RANDOM(SMAX-10,XM)
RANDOM(XMAX, X0)
RANDOM(YMAX, Y0)
INC(COL,1)
DISK(X0, Y0, XM+10, COL)
UNTIL READKEY <> 0
PRINTAT(100,100, ' Bitte bewegen Sie die Maus. ')
XM := 0
YM := 0
REPEAT
IF XM <> MOUSEX
GOTO('DSK')
ENDIF
IF YM <> MOUSEY
GOTO('DSK')
ELSE
GOTO('LL')
ENDIF
:DSK
XM := MOUSEX
YM := MOUSEY
DISK(XM, YM, SMAX, COL)
INC(COL,1)
:LL
UNTIL MOUSEK <> KEYPRESSED
:EE
END