0 'Displays LCD characters changed from 100 to 102. Based on data in 102.DIF; will run on either machine.
1 DEFINTA-Z:CLS:FORC=1TO5:GOSUB2:NEXT:K$=INPUT$(1):CLS:C=1:GOSUB2:K$=INPUT$(1):MENU
2 FORR=0TO7:READA:PRINT@(C-1)*8+40*R,A;:Y=R*8:X=C*48-19:GOSUB3:X=X+12:GOSUB3:NEXT:PRINT@0,"";:RETURN
3 FORN=1TO6:READA:FORP=0TO7:B=AAND2^P:IFB>0THENPSET(X+N,Y+P)
4 NEXTP,N:RETURN
5 DATA66,65,127,73,73,54,,127,73,73,73,54,,67,28,34,65,65,34,,62,65,65,65,34,,68,65,127,65,34,28,,127,65,65,65,62,,112,252,24,36,36,24,,252,40,68,68,56,,113,24,36,36,24,252,,56,68,68,40,252,,115,88,84,84,84,36,,72,84,84,84,36,0
6 DATA117,60,64,64,60,64,,60,64,64,32,124,,135,,,125,,,,2,126,2,62,66,,160,,4,2,1,,,,,2,1,,,162,14,81,49,17,10,,56,68,196,68,40,,164,,1,2,4,,,,,1,2,,,165,127,16,16,15,16,,252,64,64,60,64,,169,24,167,165,229,24,,26,165,165,165,88,0
7 DATA172,23,8,52,34,113,,64,47,16,104,68,226,173,85,63,16,104,68,226,21,63,16,104,68,226,174,23,8,4,106,89,,64,47,16,8,212,178,175,6,9,127,1,127,1,6,9,127,1,127,,177,112,41,36,41,112,,120,21,18,21,120,0
8 DATA178,56,69,68,69,56,,60,67,66,67,60,,179,60,65,64,65,60,,62,65,64,65,62,,181,8,4,4,8,4,,2,1,1,2,1,,183,48,74,72,74,48,,56,69,68,69,56,,185,64,127,73,73,62,,128,124,74,74,52,,190,,4,,4,,,,1,,1,,,191,72,126,73,1,2,,136,126,9,9,2,0
9 DATA192,64,170,169,170,240,,32,86,85,86,120,,193,112,170,169,170,48,,56,86,85,86,24,,194,,2,233,2,,,,74,121,66,,,195,48,74,73,74,48,,56,70,69,70,56,,197,8,4,2,4,8,,,2,1,2,,,199,,2,104,2,,,,69,124,65,,0
10 DATA200,32,84,86,85,124,,32,84,86,85,120,,201,,,106,1,,,,72,122,65,,,204,12,80,82,81,60,,,,125,,,,206,66,169,169,170,241,,34,85,85,86,121,,207,50,73,73,74,49,,58,69,69,70,57,,208,224,82,73,82,224,,124,18,17,127,73,0
11 DATA209,248,170,169,170,136,,36,84,120,84,88,,210,,138,249,138,,,120,20,19,20,120,,211,112,138,137,138,112,,32,84,85,84,120,,212,120,130,129,130,120,,62,81,73,69,62,,213,,69,124,69,,,56,100,84,76,56,0
12 DATA214,124,85,84,85,68,,126,9,17,34,125,,216,224,80,74,81,224,,112,40,38,41,112,,217,,136,250,137,,,,68,126,69,,,218,112,136,138,137,112,,56,68,70,69,56,,220,12,16,98,17,12,,48,72,69,64,32,,223,224,81,74,80,224,,112,41,38,40,112,0