home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / fonts / font04 / make06nt.txt < prev    next >
Text File  |  1990-06-03  |  343b  |  17 lines
  1. \READ 242906NW.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+96,Y*2/3,1\ENDIF
  8. \ADD 1 TO X
  9. \IF X<25\JUMP LOOP1\ENDIF
  10. \MOVE 0 TO X \ADD 1 TO Y
  11. \IF Y<32\JUMP LOOP1\ENDIF
  12. \MOVE 0 TO Y
  13. \FRAME 96,0,24,20
  14. \ADD 1 TO M
  15. \CLEAR SCREEN
  16. \IF M>95\END\ELSE\SHOW 0,0,M\JUMP LOOP1\ENDIF
  17.