'Subj : EASY FONTS Version 1.23 'Sender : abionnnn 'Date : 9/10/97 'Here is a way to make fonts easyly! Just chnage the data statements . 'This can be easily used in conjuction with ZOOM.BAS , which can be 'downloaded at http://www.geocities.com/ResearchTriangle/3561/ 'Errors so far : 'Non that I know of tell me if you find any DECLARE SUB PrintF (Strn$, Sx, Sy, C, IC) DECLARE SUB PrintL (Strn$, Sx, Sy, C, IC) DECLARE SUB FSET (X, Y, C) SCREEN 13 CLS DIM SHARED Font(38, 7, 5) FOR F% = 0 TO 38 FOR I% = 1 TO 7 FOR Z% = 1 TO 5 READ Font(F%, I%, Z%) NEXT Z% NEXT I% NEXT F% FOR I = 16 TO 31 PrintF "Hello Bozzo ?!", 100, 100, I, 32 - I NEXT I SPACE: DATA 0,0,0,0,0 DATA 0,0,0,0,0 DATA 0,0,0,0,0 DATA 0,0,0,0,0 DATA 0,0,0,0,0 DATA 0,0,0,0,0 DATA 0,0,0,0,0 A: DATA 0,0,1,0,0 DATA 0,1,0,1,0 DATA 1,0,0,0,1 DATA 1,1,1,1,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 B: DATA 1,1,1,1,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,1 C: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,1 DATA 0,1,1,1,0 D: DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,0 E: DATA 1,1,1,1,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,1 F: DATA 1,1,1,1,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 G: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,1,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 H: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 I: DATA 1,1,1,1,1 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 1,1,1,1,1 J: DATA 1,1,1,1,1 DATA 0,0,0,1,0 DATA 0,0,0,1,0 DATA 0,0,0,1,0 DATA 1,0,0,1,0 DATA 1,0,0,1,0 DATA 0,1,1,0,0 K: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,1,0 DATA 1,1,1,0,0 DATA 1,0,0,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 L: DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,1 M: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,0,1,1 DATA 1,0,1,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 N: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,0,0,1 DATA 1,0,1,0,1 DATA 1,0,0,1,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 O: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 P: DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 Q: DATA 0,1,1,0,0 DATA 1,0,0,1,0 DATA 1,0,0,1,0 DATA 1,0,0,1,0 DATA 1,0,1,1,0 DATA 0,1,1,1,0 DATA 0,0,0,0,1 R: DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 S: DATA 0,1,1,1,0 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 0,1,1,1,0 DATA 0,0,0,0,1 DATA 0,0,0,0,1 DATA 0,1,1,1,0 T: DATA 1,1,1,1,1 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,1,1,1,0 U: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 V: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,0,1,0 DATA 0,0,1,0,0 W: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,1,0,1 DATA 0,1,0,1,0 DATA 0,1,0,1,0 X: DATA 1,0,0,0,1 DATA 0,1,0,1,0 DATA 0,1,0,1,0 DATA 0,0,1,0,0 DATA 0,1,0,1,0 DATA 0,1,0,1,0 DATA 1,0,0,0,1 Y: DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 Z: DATA 1,1,1,1,1 DATA 1,0,0,0,1 DATA 0,0,0,1,0 DATA 0,0,1,0,0 DATA 0,1,0,0,0 DATA 1,0,0,0,1 DATA 1,1,1,1,1 Opsterfy: DATA 0,0,1,0,0 DATA 0,1,1,1,0 DATA 0,1,1,1,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,0,0,0 DATA 0,0,1,0,0 Question: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 0,0,0,1,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,0,0,0 DATA 0,0,1,0,0 One: DATA 0,0,1,0,0 DATA 0,1,1,0,0 DATA 1,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 0,0,1,0,0 DATA 1,1,1,1,1 Two: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,0,0,1,0 DATA 0,0,1,0,0 DATA 0,1,0,0,0 DATA 1,1,1,1,1 Three: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 0,0,0,0,1 DATA 0,1,1,1,0 DATA 0,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 Four: DATA 0,0,0,1,0 DATA 0,0,1,1,0 DATA 0,1,0,1,0 DATA 1,1,1,1,1 DATA 0,0,0,1,0 DATA 0,0,0,1,0 DATA 0,0,0,1,0 Five: DATA 1,1,1,1,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,0 DATA 0,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 Six: DATA 0,1,1,1,1 DATA 1,0,0,0,0 DATA 1,0,0,0,0 DATA 1,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 Seven: DATA 1,1,1,1,1 DATA 0,0,0,0,1 DATA 0,0,0,0,1 DATA 0,0,0,1,0 DATA 0,0,1,0,0 DATA 0,1,0,0,0 DATA 1,0,0,0,0 Eight: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 Nine: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,1 DATA 0,0,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 Zero: DATA 0,1,1,1,0 DATA 1,0,0,0,1 DATA 1,0,0,1,1 DATA 1,0,1,0,1 DATA 1,1,0,0,1 DATA 1,0,0,0,1 DATA 0,1,1,1,0 ' 'This is a fast way of setting a point of the moniter (With POKE) ' SUB FSET (X, Y, C) DEF SEG = &HA000 'Takes screen Memory POKE X + (Y * 320), C 'POKEs the dot into place DEF SEG 'Returns Screen Memory END SUB SUB PrintF (Strn$, Sx, Sy, C, IC) FOR I = 1 TO LEN(Strn$) TStrn$ = MID$(Strn$, I, 1) PrintL TStrn$, Sx + (I * 7), Sy, C, IC NEXT I END SUB ' 'Prints one letter ' 'Strn$ = The Letter 'Sx = Start X 'Sy = Start Y 'C = Color 'IC = BackColor ' SUB PrintL (Strn$, Sx, Sy, C, IC) Strn$ = MID$(Strn$, 1, 1) Strn$ = UCASE$(Strn$) IF UCASE$(Strn$) = "Z" THEN Num = 26: GOTO 111 IF Strn$ = CHR$(ASC("0")) THEN Num = 38: GOTO 111 IF Strn$ = CHR$(32) THEN Num = 0: GOTO 111 IF Strn$ = CHR$(ASC("!")) THEN Num = 27: GOTO 111 IF Strn$ = CHR$(ASC("?")) THEN Num = 28: GOTO 111 IF Strn$ >= CHR$(ASC("a")) AND Strn$ <= CHR$(ASC("z")) THEN Num = ASC(Strn$) - 96: GOTO 111 IF Strn$ >= CHR$(ASC("0")) AND Strn$ <= CHR$(ASC("9")) THEN Num = ASC(Strn$) - 47 + 27: GOTO 111 IF Strn$ > CHR$(64) AND Strn$ < CHR$(ASC("Z")) THEN Num = ASC(Strn$) - 64 ELSE EXIT SUB END IF 111 : FOR I = 1 TO 5 FOR Z = 1 TO 7 IF IC < 1 THEN IF Font(Num, Z, I) > 0 THEN FSET I + Sx, Z + Sy, C ELSE LINE (Sx, Sy)-(Sx + 6, Sy + 8), IC, B IF Font(Num, Z, I) = 1 THEN FSET I + Sx, Z + Sy, C IF Font(Num, Z, I) = 0 THEN FSET I + Sx, Z + Sy, IC END IF NEXT Z NEXT I END SUB