1 REM DATA2OBJ.LST by Frank Walters¢2 REM Uses Analog Magazine checksums for MLEDIT program.¢10 DIM F$(18),B(16):LINE=990:FOR I=0 TO 16:B(I)=0:NEXT I¢20 GRAPHICS 0:POKE 710,34:POKE 709,42¢30 TRAP 40:RESTORE :READ A:GOTO 50¢40 ? :? "You must ENTER the LISTed DATA lines":? "for the ML program, then type RUN":TRAP 40000:END ¢50 TRAP 50:? :? "Dest. dev:filename> ";¢60 INPUT #16;F$:CLOSE #1:OPEN #1,8,0,F$:POKE 752,1:? :? :RESTORE ¢70 TRAP 150:LINE=LINE+10:CHKSUM=0¢80 FOR X=1 TO 16:READ BYTE:CHKSUM=CHKSUM+X*BYTE:IF CHKSUM>9999 THEN CHKSUM=CHKSUM-10000¢90 B(X)=BYTE:NEXT X¢100 CHKSUM=CHKSUM+LINE:IF CHKSUM>9999 THEN CHKSUM=CHKSUM-10000¢110 READ CHK:IF CHK<>CHKSUM THEN ? "CHECKSUM ERROR ON LINE ";LINE:GOTO 180¢120 ? "DATA LINE ";LINE;CHR$(28)¢130 FOR I=1 TO 16:PUT #1,B(I):NEXT I¢140 GOTO 70¢150 ? :? "Last full line of DATA: ";LINE-10¢160 ? :? :? "File saved as ";F$¢170 CLOSE #1:POKE 710,128:POKE 752,0:END ¢180 CLOSE #1:? :XIO 33,#1,0,0,F$:? F$;" DELETED":? :LIST LINE:GOTO 170¢
