home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
fx2.bug
< prev
next >
Wrap
Text File
|
1989-02-06
|
640b
|
34 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "pass
NODRAW
REPEAT 10 [PRINT "]
PRINT [Password:____________]
PRINT "
PWS 100
PRINT [I know that you know the password]
PRINT [so if you will press the "C" key,]
PRINT [you can continue.]
MAKE "C READCHAR
end
to "sx2
DRAW HT SBOD STAIL SBOT SGUN SWING
SWIN HOME PU SETXY -15 40 SMEN
HOME PU SETXY 5 115 SMEN SINSTR
end
to "fx2
DRAW HT FTOP FLMID FRMID FLBOT FBOT
FWING FWIN FNOSE HOME PU SETXY -25 10
PD FMEN HOME SETXY 5 -5 PD TMEN
HOME SETXY 5 23 PD TMEN TINSTR TWING
end
BOT FBOT
FWING FWIN FNOSE HOME PU SETXY -25 10
PD FMEN HOME SETXY 5 -5