home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
append.100
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
26 lines
1 'APPEND.100 by Wilson Van Alst, loader added by Robert Benson
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"APPEND",64704,64906,64707: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 38891DC3EBFCCD3A1F21D3FC2252F621195ECD7C5AAFC42942CD535D21145ECD9157CD3E46D7CA97573AA2FFE601F5CD0622F1E511DEFAED222AFD
101 DATA 38F01C2105FDD921000022E7F6C36E5FE52A2AFDE3E5D5C5F521ED14E5381CED01F05F08218FF7C226FD36FF2130FDD9C97E3CC821000022DEFAC9
102 DATA 38FF2532DFF6F5CDEC65F1F5FE0FCA58FDFE15CA65FDFE1BC2F75F3AE0F6FE1BC2F75FF1CD29FDAFC35C60F1CDEE62CD8363CD78FDC33A64F1CDEE
103 DATA 23511362CD8363CDAB64CA4B64CD78FDC34E64CD462111A5F9ED3E1ABE23C281FD2BD9C3BC64
104 DATA 000000