1 REM ATARIWRITER+ FONT GETTER›2 REM by: PAUL V. ALHART›3 REM ›4 REM ›10 TRAP 130›20 OPEN #1,4,0,"D:AP.OBJ"›30 FOR I=1 TO 277:GET #1,A:NEXT I›40 OPEN #2,8,0,"D:AWP.FNT"›50 FOR I=1 TO 512:GET #1,A:PUT #2,A:NEXT I›60 NOTE #1,Q,W›70 FOR I=1 TO 260:GET #1,A:NEXT I›80 FOR I=1 TO 256:GET #1,A:PUT #2,A:NEXT I›90 NOTE #1,E,R›100 POINT #1,Q,W›110 FOR I=1 TO 256:GET #1,A:PUT #2,A:NEXT I›120 POINT #1,E,R›130 CLOSE #1:CLOSE #2›