home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / loader2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  601 b   |  19 lines
  1. 1 REM *********************************
  2. 2 REM *     SAMPLE LOADER FOR DATA    *
  3. 3 REM *         WITH CHECKSUM         *
  4. 4 REM *********************************
  5. 5 REM
  6. 10 SA=49152:EA=50800:DT=16
  7. 20 PRINTCHR$(147)SPC(14)"READING ML!"
  8. 30 FORI=0TODT-2:READ D$:GOSUB 100
  9. 40 PRINTCHR$(19)CHR$(17)CHR$(17)CHR$(17)"LOADING AT:";SA+I
  10. 50 POKESA+I,D:CK=CK+D:NEXT:READD$:GOSUB100:CK=CKAND255
  11. 60 IFD<>CKTHENPRINTCHR$(17)"DATA ERROR IN LINE";PEEK(63)+256*PEEK(64):STOP
  12. 70 SA=SA+DT-1:CK=0:IFSA<=EAGOTO30
  13. 80 PRINTCHR$(17)"FINISHED!":END
  14. 100 REM D=VAL(D$):RETURN
  15. 110 REM REMOVE 'REM' FROM LINE 100 FOR DECIMAL NUMBERS
  16. 120 L=ASC(RIGHT$(D$,1))-48:IFL>9THENL=L-7
  17. 130 H=ASC(LEFT$(D$,1))-48:IFH>9THENH=H-7
  18. 140 D=L+16*H:RETURN
  19.