home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #10
/
Commodore_Disk_User_Vol.4_10_1991_-.d64
/
loader1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
473b
|
17 lines
1 rem *********************************
2 rem * sample loader for data *
3 rem * with no checksum *
4 rem *********************************
5 rem
10 sa=49152:ea=50800
20 printchr$(147)spc(14)"reading ml!"
30 fori=satoea:read d$:gosub100
40 printchr$(19)chr$(17)chr$(17)chr$(17)"loading at:";i
50 pokei,d:next
60 printchr$(17)"finished!":end
100 rem d=val(d$):return
110 rem remove 'rem' from line 100 for decimal numbers
120 l=asc(right$(d$,1))-48:ifl>9thenl=l-7
130 h=asc(left$(d$,1))-48:ifh>9thenh=h-7
140 d=l+16*h:return