home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1995 February
/
1995-02b.d64
/
dataloader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
33 lines
5 poke55,0:poke56,16:clr
10 printchr$(147):print"***displaymaker data transfer utility***":print:print
20 input"filename";n$:ifn$="end"thenend
21 ifn$="chars"then3000
22 ifn$="save"then4000
23 z$="0:"+n$+",s,r":open2,8,2,z$
24 input"load address";a:gosub 1000:gosub5000:poke252,d:gosub5010:poke253,d
25 h$="00"+right$(la$,2)
30 input"row length";rl:poke828,rl
40 input"step size";ss:poke829,ss
45 print:print" loading ";n$
50 sys 3119:close2:goto10
1000 h$="":a=a/4096:forj=1to4:a%=a:h$=h$+chr$(48+a%-(a%>9)*7):a=16*(a-a%):next
1001 return
2000 d=0:forj=1to4:d%=asc(x$):d%=d%-48+(d%>64)*7:x$=mid$(x$,2):d=16*d+d%:next
2001 return
3000 print:print:print" character set[146]":print:input"filename";n$:gosub6000
3001 input "new filename";n$:gosub7000
3010 input "address to relocate";a:gosub1000
3020 gosub5000:poke832,d:gosub5010:poke833,d:sys 3170:goto10
4000 print:print:print" save as prg file[146]":print:input"filename(prg file)";n$
4001 gosub7000
4010 input"start address of save";a:gosub1000
4020 gosub5000:poke834,d:gosub5010:poke835,d
4040 input"last address to save +1";a:gosub1000
4050 gosub5000:poke836,d:gosub5010:poke837,d:sys 3269:goto10
5000 x$="00"+right$(h$,2):gosub2000:return
5010 x$="00"+left$(h$,2):gosub2000:return
6000 l=len(n$):poke831,l:v=678:fori=1tol:s$=mid$(n$,i,1):pokev+i,asc(s$):next
6010 return
7000 l1=len(n$):poke838,l1:v=694:fori=1tol1:s$=mid$(n$,i,1):pokev+i,asc(s$):next
7010 return