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