1 REM ATARIWRITER+ FONT PUTTER›2 REM by: PAUL V. ALHART›3 REM ›4 REM ›10 TRAP 180›20 OPEN #1,12,0,"D:AP.OBJ"›30 FOR I=1 TO 19:GET #1,A:NEXT I›40 GET #1,A:GET #1,B:IF A<>255 OR B<>39 THEN ? "NEED AtariWriter+ (48K VERSION)":GOTO 180›50 NOTE #1,E,R›60 FOR I=1 TO 256:GET #1,A:NEXT I›70 OPEN #2,4,0,"D:AWP.FNT"›80 FOR I=1 TO 512:GET #2,A:PUT #1,A:NEXT I›90 NOTE #2,Q,W›100 FOR I=1 TO 256:GET #2,A:NEXT I›110 FOR I=1 TO 256:GET #2,A:PUT #1,A:NEXT I›120 POINT #2,Q,W›130 FOR I=1 TO 4:GET #1,A:NEXT I›140 FOR I=1 TO 256:GET #2,A:PUT #1,A:NEXT I›150 NOTE #1,T,Y›160 POINT #1,E,R:POINT #2,Q,W›170 FOR I=1 TO 256:GET #2,A:PUT #1,A:NEXT I›180 CLOSE #1:CLOSE #2›