home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1986 April / 86_apr.atr / dragon.lgo < prev    next >
Text File  |  2023-02-26  |  2KB  |  1 lines
  1. TO LINE2¢TYPE .EXAMINE :SCREEN¢MAKE "SCREEN :SCREEN + 1¢END¢¢TO LINE1¢REPEAT 40 [LINE2]¢END¢¢TO R¢WALK 90 :STEP¢END¢¢TO SET_UP¢TELL [0 1 2 3] PU HOME CS¢TELL 1 SETH 0 SETPC 0 39¢SETPN 0¢TELL 0 SETH -90 SETPC 1 15¢SETPN 1¢TELL 2 SETH 90 SETPN 1¢TELL 3 SETH 180 SETPC 2 87¢SETPN 2¢TELL [0 1 2 3]¢PD¢END¢¢TO REDO¢IF 0 = COUNT :DRAG [STOP]¢IF EQUALP "R LAST :DRAG [MAKE "WORK SE :WORK CHAR 76] [MAKE "WORK SE :WORK CHAR 82]¢MAKE "DRAG BUTLAST :DRAG¢REDO¢END¢¢TO REDUCE¢IF 4 > :STEP [STOP]¢MAKE "STEP INT :STEP / 1.3¢END¢¢TO DRAW¢IF KEYP [STOP]¢MAKE "WORK :DRAG¢MAKE "WORK SE :WORK CHAR 76¢REDO¢MAKE "DRAG :WORK¢TELL 0¢CS¢RUN :WORK¢WAIT 45¢SET_UP RUN :WORK¢REDUCE¢END¢¢TO START¢PRINT [DO YOU WNAT YOUR OWN DRAGON Y / N]¢IF EQUALP RC "N [MAKE "DRAG [L] STOP]¢PRINT [YOU WILL NEED TO TYPE R'S AND L'S]¢PRINT [WITH A SPACE BETWEEN EACH ONE] MAKE "DRAG RL¢IF 5 < COUNT :DRAG [MAKE "STEP :STEP / 1.2]¢IF 8 < COUNT :DRAG [MAKE "STEP :STEP / 1.2]¢END¢¢TO DRAGON¢MAKE "STEP 50¢START FS¢REPEAT 10 [DRAW]¢END¢¢TO L¢WALK -90 :STEP¢END¢¢TO WALK :A :B¢RIGHT :A¢FD :B¢END¢¢TO NAME¢IF 0 = COUNT :WORK [STOP]¢RUN FIRST :WORK¢MAKE "WORK BUTFIRST :WORK¢NAME¢END¢¢TO PRINTER¢MAKE "SCREEN .EXAMINE 88 + 256 * .EXAMINE 89¢SETWRITE "P: SPACING¢REPEAT 96 [LINE1]¢SETWRITE []¢END¢¢TO BLANKING¢REPEAT 25 [RIGHTBLANK]¢PRINT []¢END¢¢TO LINE¢REPEAT 40 [PIXEL]¢END¢¢TO PIXEL¢MAKE "SPOT .EXAMINE :SCREEN¢WRITE INT :SPOT / 16¢WRITE REMAINDER :SPOT 16¢MAKE "SCREEN :SCREEN + 1¢END¢¢TO RIGHTBLANK¢TYPE CHAR 27 TYPE CHAR 83¢TYPE CHAR 48 TYPE CHAR 48¢TYPE CHAR 48 TYPE CHAR 56¢TYPE CHAR 0 TYPE CHAR 0¢TYPE CHAR 0 TYPE CHAR 0¢TYPE CHAR 255 TYPE CHAR 255¢TYPE CHAR 255 TYPE CHAR 255¢END¢¢TO BLANK¢TYPE CHAR 32¢END¢¢TO WRITE :A¢IF 0 = :A [BLANK STOP]¢IF 4 > :A [RIGHTBLANK STOP]¢IF 0 = REMAINDER :A 4 [LEFTBLANK STOP]¢SQUARE¢END¢¢TO SPACING¢TYPE CHAR 27 TYPE CHAR 84¢TYPE CHAR 49 TYPE CHAR 54¢END¢¢TO SQUARE¢TYPE CHAR 135¢END¢¢TO LEFTBLANK¢TYPE CHAR 139¢END¢¢TO TRIAL¢REPEAT 25 [LEFTBLANK]¢PRINT []¢END¢¢¢