home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / fonts / font04 / make04nt.txt < prev    next >
Text File  |  1990-06-04  |  334b  |  17 lines
  1. \READ 081104PW.PIC
  2. \MOVE 1 TO M \MOVE 0 TO X \MOVE 0 TO Y
  3. \CLEAR SCREEN
  4. \SHOW 0,0,M
  5. \X LOOP1
  6. \DOT X,Y,?
  7. \IF A>0\DOT X,Y,3\ENDIF
  8. \ADD 1 TO X
  9. \IF X<10\JUMP LOOP1\ENDIF
  10. \MOVE 0 TO X \ADD 1 TO Y
  11. \IF Y<12\JUMP LOOP1\ENDIF
  12. \MOVE 0 TO Y
  13. \SHOW 0,0,M,M,S
  14. \ADD 1 TO M
  15. \CLEAR SCREEN
  16. \IF M>95\END\ELSE\SHOW 0,0,M\JUMP LOOP1\ENDIF
  17.