home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / loader1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  473 b   |  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.