home *** CD-ROM | disk | FTP | other *** search
- 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