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