home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / grp / letter.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  23 lines
  1. 0 ' LETTER.BA - Bill D. 
  2. 1 ' CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:PRINT" MODEL 100 CHARACTER DISPLAY":PRINT"             DEMONSTRATION":PRINT:PRINT" HIT 'ENTER' TO CONTINUE ..."
  4. 3 K$=INKEY$:IFK$=""THEN3
  5. 4 CLS:DATA "H","E","L","L","O":FOR C=1TO5:READK$:K(C)=ASC(K$):NEXT:CC=5:E=0:GOSUB 200
  6. 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"
  7. 6 K$=INKEY$:IFK$=""THEN6
  8. 7 CLS:IF K$=CHR$(20)THEN233
  9. 8 K$=INKEY$:PRINT@280,"INPUT NEXT ";:IF K$=""THEN 8
  10. 9 PRINT@280,"  WAIT     ";:K(CC)=ASC(K$):IF K(CC)=20 THEN 233
  11. 10 IF K(CC)<32 THEN 8
  12. 11 CC=CC+1:E=CC-1:IF CC=6THEN5
  13. 12 GOSUB200:GOTO8
  14. 200 REM ........... DECODE & DISPLAY
  15. 201 FOR PO=CCTOESTEP-1:IF K(PO)=0 THEN K(PO)=32
  16. 202 IF K(PO)=32 THEN232
  17. 203 IF K(PO)<128THENZ=30481+((K(PO)-32)*5):X=4ELSE Z=30961+((K(PO)-128)*6):X=5
  18. 225 REM ALPHA-NUMER START @ 30481
  19. 230 REM BLOCK CHAR  START @ 30961
  20. 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
  21. 232 NEXT PO:RETURN
  22. 233 FOR C=1TO5:K(C)=ASC(MID$(TIME$,C,1)):NEXTC:K(0)=32:CC=5:E=0:GOSUB200:GOTO233
  23.