home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / load80.ba < prev    next >
Text File  |  2006-10-19  |  399b  |  15 lines
  1. 10 CLEAR56,61311
  2. 20 CALL7994:INPUT"File Name";A$:IFLEN(A$)>6THEN20
  3. 30 IFA$=""THEN60
  4. 40 A$=A$+SPACE$(6-LEN(A$))+"DO":FORX=1TO8
  5. 45 F=ASC(MID$(A$,X,1)):IFF>96THENF=F-32
  6. 50 POKE62950+X,F:NEXT
  7. 60 INPUT"Word Wrap";I
  8. 70 II=0:IFI<10ORI>80THENI=60:II=20:GOTO80
  9. 75 IFI>60THENII=I-60:I=60
  10. 80 POKE62959,I*3-1:POKE62958,II*3
  11. 90 INPUT"Page Break";J
  12. 100 IFJ=0THENJ=54
  13. 110 POKE62950,J
  14. 120 RUNM"VIEW80
  15.