home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / access.ba next >
Text File  |  2006-10-19  |  404b  |  12 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 1 'ACCESS.BA by Fred Edelkamp, to access SMALL.CO
  3. 10 CLEAR50,61600
  4. 20 CALL7994:INPUT"File Name";A$:IFLEN(A$)>6THEN20
  5. 30 IFA$=""THEN70
  6. 40 A$=A$+SPACE$(6-LEN(A$))+"DO":FORX=1TO8
  7. 50 F=ASC(MID$(A$,X,1)):IFF>96THENF=F-32
  8. 60 POKE62950+X,F:NEXT
  9. 70 INPUT"Word Wrap";I
  10. 80 IFI<10ORI>60THENI=60
  11. 90 POKE62959,I*4-1:RUNM"SMALL
  12.