0 ' LETTER.BA - Bill D. 
1 ' CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT" MODEL 100 CHARACTER DISPLAY":PRINT"             DEMONSTRATION":PRINT:PRINT" HIT 'ENTER' TO CONTINUE ..."
3 K$=INKEY$:IFK$=""THEN3
4 CLS:DATA "H","E","L","L","O":FOR C=1TO5:READK$:K(C)=ASC(K$):NEXT:CC=5:E=0:GOSUB 200
5 FOR CC=1TO100:FORC=0TO5:K(C)=32:NEXT:NEXT:CC=0:CLS:PRINT"NOW YOU MAY ENTER UP TO FIVE (5)":PRINT"CHARACTERS OR SIMPLY PRESS THE ":PRINT"'CTRL' & 'T' KEYS FOR THE TIME!":PRINT "HIT 'ENTER' TO CONTINUE"
6 K$=INKEY$:IFK$=""THEN6
7 CLS:IF K$=CHR$(20)THEN233
8 K$=INKEY$:PRINT@280,"INPUT NEXT ";:IF K$=""THEN 8
9 PRINT@280,"  WAIT     ";:K(CC)=ASC(K$):IF K(CC)=20 THEN 233
10 IF K(CC)<32 THEN 8
11 CC=CC+1:E=CC-1:IF CC=6THEN5
12 GOSUB200:GOTO8
200 REM ........... DECODE & DISPLAY
201 FOR PO=CCTOESTEP-1:IF K(PO)=0 THEN K(PO)=32
202 IF K(PO)=32 THEN232
203 IF K(PO)<128THENZ=30481+((K(PO)-32)*5):X=4ELSE Z=30961+((K(PO)-128)*6):X=5
225 REM ALPHA-NUMER START @ 30481
230 REM BLOCK CHAR  START @ 30961
231 FORG=0TOX:II=PEEK(Z+G):FOR V=7TO0STEP-1:T=INT(II/2^V):L=(40*V)+(((PO)*6)+G):O=(T*207)+32:PRINT@L,CHR$(O);:II=II-T*2^V:NEXT V:NEXT G
232 NEXT PO:RETURN
233 FOR C=1TO5:K(C)=ASC(MID$(TIME$,C,1)):NEXTC:K(0)=32:CC=5:E=0:GOSUB200:GOTO233