80  ' THIS PROGRAM CAN BE FOUND IN THE JULY'82 ISSUE OF CREATIVE COMPUTING.
90  '
100 ' ROMCHAR - display dot matrix characters from ROM patterns
110 ' Will Fastie -- Revised 24 march 1982
120 DEFINT A-Z
130 DIM COLMASK(8)
140 FOR I = 0 TO 7: COLMASK(I + 1) = 2 ^ (7 - I): NEXT I
150 DOTCHAR = 219
160 DOTSIZE = 1
170 DOT$ = STRING$(DOTSIZE, DOTCHAR)
180 GOSUB 490
190 DEF SEG = &HF000
200 BASEADR = &HFA6E
210 BYTESPERCHAR = 8
220 KEY OFF
230  ' Main loop
240  CLS
250 CHAR$ = INKEY$: IF CHAR$ = "" THEN 250
260 IF CHAR$ = " " THEN CLS : END
270 CODE = ASC(CHAR$)
280 IF CODE >= 128 THEN BEEP: GOTO 230
290 ADR = BASEADR + (CODE * BYTESPERCHAR)
300 CLS
310 X = 8
320 Y = (SCREENWIDTH - (8 * DOTSIZE)) / 2
330 GOSUB 350
340 GOTO 250
350 ' Subroutine to display character
360 FOR ROW = 1 TO 8
370   ROWVAL = PEEK(ADR + (ROW - 1))
380   FOR COL = 1 TO 8
390     COLMASK = COLMASK(COL)
400     IF (ROWVAL AND COLMASK) <> 0 THEN GOSUB 450
410   NEXT COL
420 NEXT ROW
430 LOCATE 1, 1
440 RETURN
450 ' Locate to bit position and display giant pixel!
460 LOCATE X + (ROW - 1), Y + (COL - 1) * DOTSIZE
470 PRINT DOT$;
480 RETURN
490 ' Initialize display
495 WIDTH 80
500 SCREENWIDTH = 80
510 RETURN