home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / fx2.bug < prev    next >
Text File  |  1989-02-06  |  640b  |  34 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "pass 
  8. NODRAW
  9. REPEAT 10 [PRINT "]
  10. PRINT [Password:____________]
  11. PRINT "
  12. PWS 100
  13. PRINT [I know that you know the password]
  14. PRINT [so if you will press the "C" key,]
  15. PRINT [you can continue.]
  16. MAKE "C READCHAR
  17. end
  18.  
  19. to "sx2 
  20. DRAW HT SBOD STAIL SBOT SGUN SWING
  21. SWIN HOME PU SETXY -15 40 SMEN
  22. HOME PU SETXY 5 115 SMEN SINSTR
  23. end
  24.  
  25. to "fx2 
  26. DRAW HT FTOP FLMID FRMID FLBOT FBOT
  27. FWING FWIN FNOSE HOME PU SETXY -25 10
  28. PD FMEN HOME SETXY 5 -5 PD TMEN
  29. HOME SETXY 5 23 PD TMEN TINSTR TWING
  30. end
  31.  
  32. BOT FBOT
  33. FWING FWIN FNOSE HOME PU SETXY -25 10
  34. PD FMEN HOME SETXY 5 -5