home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 April / VPR9904A.BIN / Vpr_data / Special / Yoolw101 / Yoolw101.lzh / GROWTH.FO < prev    next >
Text File  |  1989-05-12  |  450b  |  8 lines
  1. (: INIT WIPE NORTH HOME 15 COLOR)
  2. (: INC 1 PLUS)
  3. (: DEC 1 DIF)
  4. (: INCCL PUSHCOLOR 14 REM 2 PLUS COLOR)
  5. (: GR INCCL DUP 1 LOAD GREAT WHILE (ABORT DUP FORWARD 4 LOAD TIMES 5 LOAD DIV -35 ROTATE DUP 10 STORE POINT DIRECTION 10 LOAD 2 LOAD TIMES 3 LOAD DIV GR NORTH ROTATE 70 ROTATE MOVE DUP 1 LOAD GREAT) ABORT)
  6. (: MAIN -150 160 MOVE 4 1 STORE 6 2 STORE 10 3 STORE 9 4 STORE 10 5 STORE GR)
  7. (: RUN1 INIT 80 MAIN)
  8. (: RUN2 INIT 4 LOOP (HOME 50 GR))