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 >
Commodore BASIC  |  2022-10-26  |  473b  |  17 lines
  1. 1 rem *********************************
  2. 2 rem *     sample loader for data    *
  3. 3 rem *        with no checksum       *
  4. 4 rem *********************************
  5. 5 rem
  6. 10 sa=49152:ea=50800
  7. 20 printchr$(147)spc(14)"reading ml!"
  8. 30 fori=satoea:read d$:gosub100
  9. 40 printchr$(19)chr$(17)chr$(17)chr$(17)"loading at:";i
  10. 50 pokei,d:next
  11. 60 printchr$(17)"finished!":end
  12. 100 rem d=val(d$):return
  13. 110 rem remove 'rem' from line 100 for decimal numbers
  14. 120 l=asc(right$(d$,1))-48:ifl>9thenl=l-7
  15. 130 h=asc(left$(d$,1))-48:ifh>9thenh=h-7
  16. 140 d=l+16*h:return
  17.