STYLISER.BAS ·
BAS ·
24.2 KB ·
1987-07-13 ·
from PCPlus_Issue-11_Aug-1987
REM **********************
REM ******STYLISER********
REM ******Written By******
REM ****David Collinson***
REM ******MAY 1987********
REM **********************
CLS
SCREEN #1 TEXT:WINDOW FULL
CLS
PRINT
PRINT
PRINT" Business Font ..............1"
PRINT" Data Run Font ..............2"
PRINT" Free Hand Font ..............3"
PRINT" Test a font ..............4"
PRINT" help! ..............5"
FOR t=1 TO 6:PRINT:NEXT
PRINT"N.B Dip switch DS2-4 should be on, printer turned on line"
PRINT"*** and fed with paper BEFORE choosing typestyle. Also "
PRINT" choose EPSON printer with your Word Processor, and type "
PRINT" each capital followed by its lower case equivilent in"
PRINT" italics for Double Width characters."
1 a$=INKEY$
IF a$<>"1" AND a$<>"2" AND a$<>"3" AND a$<>"4" AND a$<>"5" THEN GOTO 1
2 REM
IF a$="1" THEN PRINT"Business Font being loaded. Please wait.":GOTO 1000
IF a$="2" THEN PRINT"Data Run Font being loaded. Please wait.":GOTO 100
IF a$="3" THEN PRINT"Free Hand Font being loaded. Please wait.":GOTO 2000
IF a$="5" THEN GOTO 3000
testing=1
CLS
PRINT "Is dip switch DS2-4 on? (Yes/No/Don't Know)"
3 temp$=INKEY$:IF temp$="" THEN GOTO 3
temp$=UPPER$(temp$)
IF temp$<>"Y" THEN CLS:PRINT"PLEASE CHOOSE HELP FROM MAIN MENU OR READ PRINTER MANUAL (PAGE 28)":FOR t=1 TO 20000:NEXT:RUN
PRINT"O.K now thats done, turn the printer back on again."
PRINT"Right, now place some paper in the printer and turn it on line."
PRINT"Good. Now choose the style you would like to test."
PRINT
PRINT"BUSINESS.................1"
PRINT"DATA RUN.................2"
PRINT"FREE HAND................3"
4 a$=INKEY$:IF a$<>"1" AND a$<>"2" AND a$<>"3" THEN GOTO 4
GOTO 2
100 RESTORE 102
LPRINT CHR$(27)+"E";:LPRINT CHR$(27)+"G";
FOR t=32 TO 126
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
FOR t=193 TO 218
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
FOR t=225 TO 250
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
PRINT"DATA RUN HAS NOW BEEN LOADED"
101 IF testing=0 THEN PRINT"Now Load your ussual word procesing program. and use as normal.":FOR t=1 TO 10000:NEXT:QUIT ELSE PRINT"testing in process."
LPRINT"Testing testing"
LPRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LPRINT"abcdefghijklmnopqrstuvwxyz"
LPRINT"1234567890-=[]#'/.,"
LPRINT"!$%&*()_+}{@?><"
LPRINT"This is just a quick test of 'styliser'.Testing has now finished"
PRINT"Testing has now finished."
FOR t=1 TO 10000:NEXT:RUN
102 DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,253,0,253,0,0,0,0
DATA 0,0,0,96,0,0,0,96,0,0,0
DATA 0,36,0,126,0,36,0,126,0,36,0
DATA 0,114,0,82,0,255,0,82,0,94,0
DATA 0,198,0,12,0,24,0,48,0,102,0
DATA 0,12,82,146,146,162,74,4,4,10,0
DATA 0,0,0,16,0,96,0,96,0,0,0
DATA 0,0,0,126,0,195,0,129,0,129,0
DATA 0,129,0,129,0,195,0,126,0,0,0
DATA 0,66,102,60,24,24,60,102,66,0,0
DATA 0,24,0,24,0,126,0,24,0,24,0
DATA 0,0,0,1,0,15,0,14,0,0,0
DATA 0,0,24,0,24,0,24,0,24,0,0
DATA 0,0,0,14,0,14,0,0,0,0,0
DATA 0,6,0,12,0,24,0,48,0,96,0
DATA 0,254,0,138,0,146,0,162,0,254,0
DATA 0,0,0,0,240,0,254,0,0,0,0
DATA 0,222,0,146,0,146,0,242,0,242,0
DATA 0,146,0,146,0,146,0,242,0,254,0
DATA 0,248,0,184,0,136,0,254,0,8,0
DATA 0,242,0,242,0,146,0,146,0,222,0
DATA 0,254,0,242,0,146,0,146,0,222,0
DATA 0,0,0,128,0,128,0,158,0,254,0
DATA 0,62,0,226,0,162,0,226,0,62,0
DATA 0,240,0,144,0,144,0,240,0,254,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,1,0,103,0,102,0,0,0,0
DATA 0,24,0,60,0,62,0,102,0,66,0
DATA 0,0,0,102,0,102,0,102,0,0,0
DATA 0,66,0,102,0,62,0,60,0,24,0
DATA 0,192,0,157,0,144,0,240,0,240,0
DATA 0,254,0,130,0,186,0,186,0,250,0
DATA 0,30,0,254,0,144,0,240,0,30,0
DATA 0,254,0,158,0,146,0,242,0,30,0
DATA 0,254,0,142,0,130,0,130,0,198,0
DATA 0,254,0,142,0,130,0,130,0,254,0
DATA 0,254,0,158,0,146,0,146,0,146,0
DATA 0,254,0,158,0,144,0,144,0,144,0
DATA 0,254,0,142,0,130,0,138,0,206,0
DATA 0,254,0,30,0,16,0,16,0,254,0
DATA 0,0,0,0,254,0,30,0,0,0,0
DATA 0,6,0,2,0,2,0,254,0,30,0
DATA 0,254,0,30,0,16,0,112,0,30,0
DATA 0,254,0,30,0,2,0,2,0,2,0
DATA 0,254,0,142,0,248,0,128,0,254,0
DATA 0,254,0,158,0,128,0,128,0,254,0
DATA 0,254,0,130,0,130,0,226,0,254,0
DATA 0,254,0,158,0,144,0,144,0,240,0
DATA 0,254,0,130,0,130,0,134,0,254,1
DATA 0,254,0,158,0,144,0,240,0,30,0
DATA 0,242,0,146,0,146,0,158,0,158,0
DATA 0,128,0,128,0,254,0,158,0,128,0
DATA 0,254,0,30,0,2,0,2,0,254,0
DATA 0,224,0,254,0,2,0,30,0,240,0
DATA 0,254,0,2,0,30,0,226,0,254,0
DATA 0,238,0,46,0,56,0,40,0,238,0
DATA 0,240,0,16,0,30,0,30,0,240,0
DATA 0,158,0,158,0,146,0,146,0,226,0
DATA 0,0,254,0,158,0,130,0,130,0,0
DATA 0,96,0,48,0,24,0,12,0,6,0
DATA 0,0,130,0,130,0,158,0,254,0,0
DATA 0,48,0,96,0,192,0,96,0,48,0
DATA 0,1,0,1,0,1,0,1,0,1,0
DATA 0,0,0,0,192,0,192,0,0,0,0
DATA 0,46,0,46,0,42,0,42,0,62,0
DATA 0,254,0,38,0,34,0,34,0,62,0
DATA 0,62,0,38,0,34,0,34,0,54,0
DATA 0,62,0,34,0,34,0,38,0,254,0
DATA 0,62,0,58,0,42,0,42,0,58,0
DATA 0,32,0,254,0,174,0,160,0,128,0
DATA 0,61,0,45,0,37,0,37,0,63,0
DATA 0,254,0,38,0,32,0,32,0,62,0
DATA 0,0,0,0,190,0,14,0,0,0,0
DATA 0,0,1,0,1,0,29,0,95,0,0
DATA 0,254,0,14,0,8,0,56,0,14,0
DATA 0,0,0,128,0,254,0,6,0,0,0
DATA 0,62,0,38,0,56,0,32,0,62,0
DATA 0,62,0,38,0,32,0,32,0,62,0
DATA 0,62,0,34,0,34,0,50,0,62,0
DATA 0,63,0,44,0,36,0,36,0,60,0
DATA 0,60,0,44,0,36,0,36,0,63,0
DATA 0,62,0,38,0,32,0,32,0,48,0
DATA 0,58,0,42,0,42,0,46,0,46,0
DATA 0,0,32,0,254,0,38,0,2,0,0
DATA 0,62,0,6,0,2,0,2,0,62,0
DATA 0,48,0,62,0,2,0,14,0,56,0
DATA 0,62,0,2,0,14,0,50,0,62,0
DATA 0,0,54,0,14,0,8,0,54,0,0
DATA 0,61,0,53,0,5,0,5,0,63,0
DATA 0,34,0,38,0,42,0,50,0,34,0
DATA 0,0,16,0,124,0,254,0,130,0,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,130,0,254,0,124,0,16,0,0
DATA 0,56,0,48,0,48,0,48,0,112,0
DATA 0,0,1,3,7,15,29,56,112,104,192
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,0,255,0,255,0,129,0,129
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,129,129,255,255,255,145,145,144,144
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,145,145,16,16
DATA 0,0,0,0,0,0,0,0,129,129,255
DATA 0,0,4,6,7,3,1,0,1,0,129
DATA 0,0,129,129,255,255,255,153,153,24,24
DATA 0,0,129,129,255,255,255,129,129,1,1
DATA 0,0,1,1,7,31,127,249,224,96,60
DATA 0,0,1,1,255,255,255,113,113,56,56
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,100,0,247,0,145,0,145,0,145
DATA 0,0,192,0,128,0,128,0,129,0,255
DATA 0,0,128,0,254,0,255,0,129,0,1
DATA 0,0,128,128,192,224,240,184,28,12,7
DATA 0,0,128,128,224,248,254,159,7,6,60
DATA 0,0,129,129,195,67,103,36,60,24,24
DATA 0,0,128,128,192,224,240,176,17,0,31
DATA 0,0,225,225,227,131,135,135,141,141,153
DATA 232,120,56,29,15,7,3,1,0,0,0
DATA 145,145,145,145,145,195,255,255,110,0,0
DATA 129,129,129,129,129,195,231,102,36,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 145,145,185,129,129,129,129,0,195,0,0
DATA 144,144,184,128,128,128,128,0,192,0,0
DATA 129,137,139,207,239,111,47,8,8,0,0
DATA 16,16,145,145,255,255,255,129,129,0,0
DATA 255,255,129,129,0,0,0,0,0,0,0
DATA 129,129,255,255,254,128,128,128,128,0,0
DATA 176,240,248,221,143,135,3,1,1,0,0
DATA 1,1,1,1,1,1,7,7,7,0,0
DATA 60,48,96,249,127,31,7,1,1,0,0
DATA 28,28,142,142,255,255,255,128,128,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 136,136,136,136,136,216,248,248,112,0,0
DATA 129,129,129,129,133,198,247,123,57,0,0
DATA 136,136,141,255,255,115,1,1,1,0,0
DATA 145,0,145,0,145,0,223,0,78,0,0
DATA 255,0,129,0,128,0,128,0,192,0,0
DATA 1,0,129,0,255,0,254,0,128,0,0
DATA 7,14,28,184,240,224,192,128,128,0,0
DATA 60,14,7,159,254,248,224,128,128,0,0
DATA 24,24,60,37,103,67,195,129,129,0,0
DATA 31,17,177,240,224,192,128,128,0,0,0
DATA 153,177,177,225,225,193,199,135,135,0,0
1000
RESTORE 1002
LPRINT CHR$(27)+"E";:LPRINT CHR$(27)+"G";
FOR t=32 TO 126
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
FOR t=193 TO 218
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
FOR t=225 TO 250
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
PRINT"Business Font loaded":GOTO 101
1002 DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,253,0,253,0,0,0,0
DATA 0,0,0,96,0,0,0,96,0,0,0
DATA 0,18,0,254,0,146,0,130,0,194,0
DATA 0,114,0,82,0,255,0,82,0,94,0
DATA 0,194,198,12,24,48,96,198,134,0,0
DATA 0,12,66,146,146,162,74,4,4,10,0
DATA 0,0,0,16,0,96,0,96,0,0,0
DATA 0,0,0,126,0,195,0,129,0,129,0
DATA 0,129,0,129,0,195,0,126,0,0,0
DATA 0,66,102,60,24,24,60,102,66,0,0
DATA 0,24,0,24,0,126,0,24,0,24,0
DATA 0,0,0,1,0,15,0,14,0,0,0
DATA 0,0,24,0,24,0,24,0,24,0,0
DATA 0,0,0,14,0,14,0,0,0,0,0
DATA 0,6,0,12,0,24,0,48,0,96,0
DATA 0,254,0,138,0,146,0,162,0,254,0
DATA 0,0,0,66,0,254,0,2,0,0,0
DATA 0,222,0,146,0,146,0,146,0,242,0
DATA 0,198,0,130,0,146,0,146,0,254,0
DATA 0,4,8,20,32,68,128,126,0,4,0
DATA 0,230,0,162,0,162,0,190,0,156,0
DATA 0,254,0,146,0,146,0,146,0,222,0
DATA 0,192,0,128,0,128,158,190,224,192,0
DATA 0,62,0,226,0,162,0,226,0,62,0
DATA 0,240,0,144,0,144,0,144,0,254,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,1,0,103,0,102,0,0,0,0
DATA 0,24,0,60,0,62,0,102,0,66,0
DATA 0,0,0,102,0,102,0,102,0,0,0
DATA 0,66,0,102,0,62,0,60,0,24,0
DATA 0,192,0,157,0,144,0,240,0,240,0
DATA 0,254,0,130,0,186,0,186,0,250,0
DATA 0,30,62,104,200,200,200,72,32,30,0
DATA 0,130,254,254,146,146,146,146,238,108,0
DATA 0,254,254,130,130,130,130,130,130,198,0
DATA 0,130,254,254,130,130,130,130,130,254,0
DATA 0,130,254,254,146,146,146,130,130,198,0
DATA 0,130,254,254,146,144,144,128,128,192,0
DATA 0,254,254,130,130,130,0,146,130,222,0
DATA 0,130,254,146,16,16,16,146,254,130,0
DATA 0,0,0,130,130,254,130,130,0,0,0
DATA 0,6,2,2,130,130,130,254,128,128,0
DATA 0,254,0,48,0,120,0,204,0,134,0
DATA 0,128,254,254,130,2,2,2,6,6,0
DATA 0,254,0,96,0,48,0,96,0,254,0
DATA 0,254,254,192,96,48,24,12,4,254,0
DATA 0,254,254,130,130,130,130,130,130,254,0
DATA 0,130,254,254,2,144,0,144,0,240,0
DATA 0,254,0,130,0,130,0,134,0,254,1
DATA 0,130,254,254,146,144,152,156,6,242,0
DATA 0,246,146,146,146,146,146,146,146,222,0
DATA 0,192,128,128,130,254,130,128,128,192,0
DATA 0,254,0,2,0,2,0,2,0,254,0
DATA 0,240,248,12,6,2,4,12,248,240,0
DATA 0,254,0,12,0,24,0,12,0,254,0
DATA 0,130,198,108,56,16,56,108,198,130,0
DATA 0,128,192,226,62,62,226,192,128,0,0
DATA 0,194,194,134,142,154,178,226,0,134,0
DATA 0,0,254,0,130,0,130,0,130,0,0
DATA 0,96,0,48,0,24,0,12,0,6,0
DATA 0,0,130,0,130,0,130,0,254,0,0
DATA 0,48,0,96,0,192,0,96,0,48,0
DATA 0,1,0,1,0,1,0,1,0,1,0
DATA 0,0,0,0,192,0,192,0,0,0,0
DATA 0,46,0,42,0,42,0,62,0,2,0
DATA 0,130,0,254,0,34,0,34,0,62,0
DATA 0,62,0,34,0,34,0,34,0,54,0
DATA 0,62,0,34,0,162,0,254,0,2,0
DATA 0,62,0,42,0,42,0,42,0,58,0
DATA 0,16,18,254,146,144,128,128,128,192,0
DATA 0,61,0,37,0,37,0,37,0,63,0
DATA 0,130,0,254,0,32,0,32,0,62,0
DATA 0,0,0,34,0,190,0,2,0,0,0
DATA 0,0,3,0,1,0,33,0,191,0,0
DATA 0,254,0,48,0,112,0,88,14,6,0
DATA 0,0,0,130,0,254,0,2,0,0,0
DATA 0,62,0,32,0,56,0,32,0,62,0
DATA 0,32,0,62,0,32,0,32,0,62,0
DATA 0,62,0,34,0,34,0,34,0,62,0
DATA 0,33,0,63,0,36,0,36,0,60,0
DATA 0,60,0,36,0,36,0,63,0,33,0
DATA 0,32,0,62,0,32,0,32,0,48,0
DATA 0,58,0,42,0,42,0,42,0,46,0
DATA 0,32,0,254,0,34,0,2,0,6,0
DATA 0,62,0,2,0,2,0,2,0,62,0
DATA 0,48,56,44,6,2,6,44,56,48,0
DATA 0,62,0,2,0,14,0,2,0,62,0
DATA 0,34,54,28,8,8,8,28,54,34,0000000000000
DATA 0,61,0,5,0,5,0,5,0,63,0
DATA 0,34,0,38,0,42,0,50,0,34,0
DATA 0,0,16,0,124,0,254,0,130,0,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,130,0,254,0,124,0,16,0,0
DATA 0,56,0,48,0,48,0,48,0,112,0
DATA 0,0,1,3,7,15,29,56,112,104,192
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,0,255,0,255,0,129,0,129
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,129,129,255,255,255,145,145,144,144
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,145,145,16,16
DATA 0,0,0,0,0,0,0,0,129,129,255
DATA 0,0,4,6,7,3,1,0,1,0,129
DATA 0,0,129,129,255,255,255,153,153,24,24
DATA 0,0,129,129,255,255,255,129,129,1,1
DATA 0,0,1,1,7,31,127,249,224,96,60
DATA 0,0,1,1,255,255,255,113,113,56,56
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,100,0,247,0,145,0,145,0,145
DATA 0,0,192,0,128,0,128,0,129,0,255
DATA 0,0,128,0,254,0,255,0,129,0,1
DATA 0,0,128,128,192,224,240,184,28,12,7
DATA 0,0,128,128,224,248,254,159,7,6,60
DATA 0,0,129,129,195,67,103,36,60,24,24
DATA 0,0,128,128,192,224,240,176,17,0,31
DATA 0,0,225,225,227,131,135,135,141,141,153
DATA 232,120,56,29,15,7,3,1,0,0,0
DATA 145,145,145,145,145,195,255,255,110,0,0
DATA 129,129,129,129,129,195,231,102,36,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 145,145,185,129,129,129,129,0,195,0,0
DATA 144,144,184,128,128,128,128,0,192,0,0
DATA 129,137,139,207,239,111,47,8,8,0,0
DATA 16,16,145,145,255,255,255,129,129,0,0
DATA 255,255,129,129,0,0,0,0,0,0,0
DATA 129,129,255,255,254,128,128,128,128,0,0
DATA 176,240,248,221,143,135,3,1,1,0,0
DATA 1,1,1,1,1,1,7,7,7,0,0
DATA 60,48,96,249,127,31,7,1,1,0,0
DATA 28,28,142,142,255,255,255,128,128,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 136,136,136,136,136,216,248,248,112,0,0
DATA 129,129,129,129,133,198,247,123,57,0,0
DATA 136,136,141,255,255,115,1,1,1,0,0
DATA 145,0,145,0,145,0,223,0,78,0,0
DATA 255,0,129,0,128,0,128,0,192,0,0
DATA 1,0,129,0,255,0,254,0,128,0,0
DATA 7,14,28,184,240,224,192,128,128,0,0
DATA 60,14,7,159,254,248,224,128,128,0,0
DATA 24,24,60,37,103,67,195,129,129,0,0
DATA 31,17,177,240,224,192,128,128,0,0,0
DATA 153,177,177,225,225,193,199,135,135,0,0
2000
RESTORE 2002
LPRINT CHR$(27)+"E";:LPRINT CHR$(27)+"G";
FOR t=32 TO 126
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0);
LPRINT CHR$(27)+"I"+CHR$(1);
FOR t=193 TO 218
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0);
LPRINT CHR$(27)+"I"+CHR$(1);
FOR t=225 TO 250
LPRINT CHR$(27)+"&"+CHR$(0)+CHR$(t)+CHR$(t)+CHR$(11);
FOR d=1 TO 11:READ q:LPRINT CHR$(q);:NEXT:NEXT
LPRINT CHR$(27)+"%"+CHR$(1)+CHR$(0)
LPRINT CHR$(27)+"I"+CHR$(1)
PRINT "Free Hand Font loaded":GOTO 101
2002 DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,253,0,253,0,0,0,0
DATA 0,0,0,96,0,0,0,96,0,0,0
DATA 0,18,0,254,0,146,0,130,0,194,0
DATA 0,114,0,82,0,255,0,82,0,94,0
DATA 0,194,198,12,24,48,96,198,134,0,0
DATA 0,12,66,146,146,162,74,4,4,10,0
DATA 0,0,0,16,0,96,0,96,0,0,0
DATA 0,0,0,126,0,195,0,129,0,129,0
DATA 0,129,0,129,0,195,0,126,0,0,0
DATA 0,66,102,60,24,24,60,102,66,0,0
DATA 0,24,0,24,0,126,0,24,0,24,0
DATA 0,0,0,1,0,15,0,14,0,0,0
DATA 0,0,24,0,24,0,24,0,24,0,0
DATA 0,0,0,14,0,14,0,0,0,0,0
DATA 0,6,0,12,0,24,0,48,0,96,0
DATA 0,254,0,138,0,146,0,162,0,254,0
DATA 0,0,0,66,0,254,0,2,0,0,0
DATA 0,222,0,146,0,146,0,146,0,242,0
DATA 0,198,0,130,0,146,0,146,0,254,0
DATA 0,4,8,20,32,68,128,126,0,4,0
DATA 0,230,0,162,0,162,0,190,0,156,0
DATA 0,254,0,146,0,146,0,146,0,222,0
DATA 0,192,0,128,0,128,158,190,224,192,0
DATA 0,62,0,226,0,162,0,226,0,62,0
DATA 0,240,0,144,0,144,0,144,0,254,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,1,0,103,0,102,0,0,0,0
DATA 0,24,0,60,0,62,0,102,0,66,0
DATA 0,0,0,102,0,102,0,102,0,0,0
DATA 0,66,0,102,0,62,0,60,0,24,0
DATA 0,192,0,157,0,144,0,240,0,240,0
DATA 0,254,0,130,0,186,0,186,0,250,0
DATA 0,30,62,104,200,200,200,72,32,30,0
DATA 0,130,254,254,146,146,146,146,238,108,0
DATA 0,56,124,198,130,130,130,130,130,130,0
DATA 0,0,254,0,130,0,130,198,124,56,0
DATA 0,130,254,254,146,146,146,130,130,130,0
DATA 0,128,254,254,144,144,144,128,128,128,0
DATA 0,56,124,198,130,130,130,130,134,158,0,0
DATA 0,254,16,16,16,16,16,16,16,254,0
DATA 0,0,0,130,130,254,130,130,0,0,0
DATA 0,4,6,130,130,130,254,252,128,128,0
DATA 0,254,0,48,0,120,0,204,0,134,0
DATA 0,254,254,2,2,2,2,2,2,2,0
DATA 0,254,0,96,0,48,0,96,0,254,0
DATA 0,254,254,192,96,48,24,12,4,254,0
DATA 0,56,68,130,0,130,0,68,56,0,0
DATA 0,254,0,144,0,144,0,240,0,96,0
DATA 0,56,68,130,0,130,0,76,52,2,0
DATA 0,254,0,144,0,144,8,244,2,96,0
DATA 0,100,246,146,146,146,146,222,76,0
DATA 0,128,128,128,128,254,128,128,128,128,0
DATA 0,248,252,6,2,2,2,6,252,248,0
DATA 0,240,248,12,6,2,4,12,248,240,0
DATA 0,254,0,12,0,24,0,12,0,254,0
DATA 0,130,198,108,56,16,56,108,198,130,0
DATA 0,128,192,96,62,62,96,192,128,0,0
DATA 0,130,130,134,142,154,178,226,0,130,0
DATA 0,0,254,0,130,0,130,0,130,0,0
DATA 0,96,0,48,0,24,0,12,0,6,0
DATA 0,0,130,0,130,0,130,0,254,0,0
DATA 0,48,0,96,0,192,0,96,0,48,0
DATA 0,1,0,1,0,1,0,1,0,1,0
DATA 0,0,0,0,192,0,192,0,0,0,0
DATA 8,20,54,34,38,44,56,60,62,2,4
DATA 8,244,146,194,2,18,18,40,62,28,4
DATA 8,28,54,34,34,34,34,34,50,18,4
DATA 8,28,50,0,34,0,2,252,254,2,4
DATA 8,28,62,42,42,42,42,58,18,2,4
DATA 0,1,9,15,30,56,40,32,48,16,0
DATA 8,24,61,37,37,37,37,37,26,30,0
DATA 8,254,254,24,48,32,32,60,30,2,4
DATA 4,12,24,48,32,188,190,2,2,2,4
DATA 8,26,19,17,49,35,190,188,0,0,0
DATA 8,254,254,212,60,40,60,22,2,2,4
DATA 8,8,24,16,60,126,242,194,2,2,4
DATA 24,32,62,62,32,24,24,32,62,30, 0
DATA 24,48,38,62,56,16,32,38,62,26,4
DATA 8,8,12,30,58,42,50,50,30,12,4
DATA 8,17,39,62,56,36,38,34,30,28,4
DATA 0,28,62,34,38,44,56,62,63,1,0
DATA 8,16,38,62,56,16,32,32,48,16,0
DATA 8,8,16,20,34,50,94,78,0,0,0
DATA 8,8,16,20,62,122,114,18,18,2,4
DATA 8,16,36,62,58,2,2,6,60,62,4
DATA 8,16,48,60,14,6,28,56,48,8,4
DATA 8,60,62,2,12,12,2,60,62,2,4
DATA 0,34,34,54,28,28,28,54,34,34,0
DATA 8,18,35,57,61,5,5,13,63,62,0
DATA 0,34,0,38,0,42,0,50,0,34,0
DATA 0,0,16,0,124,0,254,0,130,0,0
DATA 0,0,0,0,102,0,102,0,0,0,0
DATA 0,0,130,0,254,0,124,0,16,0,0
DATA 0,56,0,48,0,48,0,48,0,112,0
DATA 0,0,1,3,7,15,29,56,112,104,192
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,0,255,0,255,0,129,0,129
DATA 0,0,129,129,255,255,255,145,145,145,145
DATA 0,0,129,129,255,255,255,145,145,144,144
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,145,145,16,16
DATA 0,0,0,0,0,0,0,0,129,129,255
DATA 0,0,4,6,7,3,1,0,1,0,129
DATA 0,0,129,129,255,255,255,153,153,24,24
DATA 0,0,129,129,255,255,255,129,129,1,1
DATA 0,0,1,1,7,31,127,249,224,96,60
DATA 0,0,1,1,255,255,255,113,113,56,56
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,60,126,255,195,129,129,129,129,129
DATA 0,0,129,129,255,255,255,137,137,136,136
DATA 0,0,100,0,247,0,145,0,145,0,145
DATA 0,0,192,0,128,0,128,0,129,0,255
DATA 0,0,128,0,254,0,255,0,129,0,1
DATA 0,0,128,128,192,224,240,184,28,12,7
DATA 0,0,128,128,224,248,254,159,7,6,60
DATA 0,0,129,129,195,67,103,36,60,24,24
DATA 0,0,128,128,192,224,240,176,17,0,31
DATA 0,0,225,225,227,131,135,135,141,141,153
DATA 232,120,56,29,15,7,3,1,0,0,0
DATA 145,145,145,145,145,195,255,255,110,0,0
DATA 129,129,129,129,129,195,231,102,36,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 145,145,185,129,129,129,129,0,195,0,0
DATA 144,144,184,128,128,128,128,0,192,0,0
DATA 129,137,139,207,239,111,47,8,8,0,0
DATA 16,16,145,145,255,255,255,129,129,0,0
DATA 255,255,129,129,0,0,0,0,0,0,0
DATA 129,129,255,255,254,128,128,128,128,0,0
DATA 176,240,248,221,143,135,3,1,1,0,0
DATA 1,1,1,1,1,1,7,7,7,0,0
DATA 60,48,96,249,127,31,7,1,1,0,0
DATA 28,28,142,142,255,255,255,128,128,0,0
DATA 129,129,129,129,129,195,255,126,60,0,0
DATA 136,136,136,136,136,216,248,248,112,0,0
DATA 129,129,129,129,133,198,247,123,57,0,0
DATA 136,136,141,255,255,115,1,1,1,0,0
DATA 145,0,145,0,145,0,223,0,78,0,0
DATA 255,0,129,0,128,0,128,0,192,0,0
DATA 1,0,129,0,255,0,254,0,128,0,0
DATA 7,14,28,184,240,224,192,128,128,0,0
DATA 60,14,7,159,254,248,224,128,128,0,0
DATA 24,24,60,37,103,67,195,129,129,0,0
DATA 31,17,177,240,224,192,128,128,0,0,0
DATA 153,177,177,225,225,193,199,135,135,0,0
3000 CLS
PRINT" GETTING STARTED"
PRINT" ***************
PRINT
PRINT" These fonts will only work with an amstrad DMP 3000 printer."
PRINT" Before running this program, you should first turn your"
PRINT" your printer OFF and turn Dip switch DS2-4 to the ON position."
PRINT" This is the second bank of 10 switches located at the back of"
PRINT" Your printer. Dip switch DS2-4 is the 4th. switch on the "
PRINT" second bank. To turn it on, use your hand or pencil, and "
PRINT" gently push it to the DOWN position."
PRINT" If you are not sure how to do this, check with your printer"
PRINT" manual."
PRINT
PRINT" You can now turn on your printer. You won't need to touch"
PRINT" the dip switch again-unless you switch it back.
PRINT" When you print out your text from your Word processor,"
PRINT" Choose EPSON FX or similar epson model. In this way you will"
PRINT" have access to the double width characters."
PRINT" Any key to continue;"
3010 IF INKEY$="" THEN GOTO 3010
CLS
PRINT" PLEASE NOTE:"
PRINT" ***********"
PRINT
PRINT
PRINT" BEFORE choosing your font, please turn the printer on,"
PRINT" put paper in it and Turn it ON LINE."
PRINT
PRINT" any key to continue."
3015 IF INKEY$="" THEN GOTO 3015
CLS
PRINT" DOUBLE WIDTH CHARACTERS"
PRINT" ***********************"
PRINT
PRINT" this program allows upper-case characters to be printed in"
PRINT" double width, even if your wordprocessor will not allow it."
PRINT" To achieve double width characters follow these procedures"
PRINT
PRINT" 1. Ensure you have selcted Epson printer (Not IBM)"
PRINT" 2. Select Italics print."
PRINT" 3. print each letter of the word first in upper case"
PRINT" then in lower-case.
PRINT" 4. Deselect italics when you have finished."
PRINT
PRINT" E.G to type HI THERE in double width characters you select"
PRINT" Italics, and type:-"
PRINT
PRINT" HhIi TtHhEeRrEe
PRINT
PRINT" And remember to deselect italics afterwards!"
PRINT" Any key to continue.";
3020 IF INKEY$="" THEN GOTO 3020
CLS
PRINT" CHANGING BACK TO NORMAL TYPE"
PRINT" ****************************"
PRINT
PRINT" The new defined sets are NOT permanent. This means that you"
PRINT" can change back to the normal print, simply by resetting"
PRINT" your printer. E.G turning it off and then back on again."
PRINT" This does however, mean that any programs which reset the"
PRINT" printer will clear the newly defined sets."
PRINT" DRAFT & NEAR LETTER QUALITY"
PRINT" ***************************"
PRINT
PRINT" To select Near letter quality, hold down the online button"
PRINT" and the LF button together as you turn on the printer."
PRINT" Draft quality is achieved just by turning the printer on."
PRINT
PRINT" Any key to continue"
3030 IF INKEY$="" THEN GOTO 3030
CLS
PRINT" TYPE STYLES"
PRINT" ***********"
PRINT
PRINT" This program supports most of the typestyles available."
PRINT" including the following:-"
PRINT
PRINT" DOUBLE WIDTH"
PRINT" SUPERSCRIPT"
PRINT" SUBSCRIPT"
PRINT" STANDARD TYPE FACE WIDTH"
PRINT" ALTERNATIVE TYPE FACE WIDTH"
PRINT" BOLD"
PRINT" UNDERLINE"
PRINT" DOUBLE STRIKE"
PRINT" NEAR LETTER QUALITY"
PRINT" DRAFT"
PRINT
PRINT" NOTE: THIS PROGRAM DOES NOT SUPPORT ITALICS AS THE DOUBLE "
PRINT" WIDTH CHARACTERS OCCUPY THIS SPACE."
PRINT" any key to continue.";
3040
IF INKEY$="" THEN GOTO 3040 ELSE RUN