home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / txtovw.100 < prev    next >
Text File  |  2006-10-19  |  2KB  |  35 lines
  1. 1 'TXTOVW.100 Translated from James Yi's TXTOVW.200 by Phil Wheeler (11/21/87)
  2. 2 'Modified by Robert Benson (5/10/90)
  3. 3 '
  4. 4 'Enters or creates a text file in the insert mode and with "nowrap" on.
  5. 5 'Press SHIFT/ENTER after typing a file name to enter with "nowrap" off.
  6. 6 '
  7. 7 'Press ESC "o" for overwrite mode.
  8. 8 'Press ESC "i" for insert mode.
  9. 9 '
  10. 10 CLS:CLEAR50:X=99:AA=64704
  11. 11 DEFINTI-N:H$="0123456789ABCDEF"
  12. 12 PRINT@59,"Data line"
  13. 13 PRINT@99,"File address"
  14. 14 READA$:X=X+1:PRINT@72,X
  15. 15 B$=MID$(A$,1,2):GOSUB25:N=K
  16. 16 IFK=0THENSAVEM"TXTOVW",64704,64981,64704:END
  17. 17 B$=MID$(A$,3,2):GOSUB25:L=K
  18. 18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0
  19. 19 FORI=1TON
  20. 20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25
  21. 21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K
  22. 22 NEXTI
  23. 23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
  24. 24 GOTO14
  25. 25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28
  26. 26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28
  27. 27 K=(K1-1)*16+K2-1:RETURN
  28. 28 BEEP:PRINT@165,"Non HEX Character in DATA":END
  29. 100 DATA 387F1B21CDFC2252F621225ECD7C5AAFC42942CD535DCD3A1F21B1FDCDB12721155ECDB127CD3E46D7A7CA9757CD0622E52ADEFA22D2FD2125FD22
  30. 101 DATA 38BA1CDEFA2A12FB22D4FD2114FD2212FB21000022E7F63A99FFE601C3715FE52AD2FD22DEFA2AD4FD2212FBE1C39757F3C5D521000039EB3E1433
  31. 102 DATA 380E223DC22FFD2147FDE301F05F08CA41FD09E3EBF9D1C1FBC932DFF6F5CDEC65F1DA0165FE7FCA1861FE20DA0560673AE0F6FE1B7CC275FDFE6F
  32. 103 DATA 38CB23CA71FDFE69C275FDAF32B0FDC9F5CD8F62CD9B6ACDF96AF1CD89FDDAA360C39B60EB473AB0FDB778CA97632A62FBDF78CA97631AFE0D78C2
  33. 104 DATA 36F012ABFD131A1BFE0A78CA9763EB77E7F1C900285573652053484946542B454E54455220666F7220576F72642057726170290D0A00000000
  34. 105 DATA 000000
  35.