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