Old Hackers Atari User Group Newsletter/Old_Hackers_Atari_User_Group_Newsletter_OHJF97A.atr/obj2data.lst

File List | 2023-02-26 | 964b | 1 lines

1 REM OBJ2DATA.BAS by Frank Walters¢2 REM Uses Analog Magazine checksums for MLEDIT program.¢10 DIM L$(256),FSOURCE$(18),FDEST$(18)¢20 GRAPHICS 0:POKE 710,128:LINE=990¢30 ? :? "Source dev:filename> ";¢40 INPUT #16;FSOURCE$¢50 ? :? "Dest.  dev:filename> ";¢60 INPUT #16;FDEST$¢70 TRAP 30:CLOSE #1:OPEN #1,4,0,FSOURCE$¢80 ? :TRAP 50:CLOSE #2:OPEN #2,8,0,FDEST$¢90 TRAP 160:LINE=LINE+10:CHKSUM=0:L$=STR$(LINE):L$(LEN(L$)+1)=" DATA "¢100 FOR X=1 TO 16:GET #1,BYTE¢110 CHKSUM=CHKSUM+BYTE*X:IF CHKSUM>9999 THEN CHKSUM=CHKSUM-10000¢120 L$(LEN(L$)+1)=STR$(BYTE):L$(LEN(L$)+1)=","¢130 NEXT X:CHKSUM=CHKSUM+LINE:IF CHKSUM>9999 THEN CHKSUM=CHKSUM-10000¢140 L$(LEN(L$)+1)=STR$(CHKSUM):? L$:? #2;L$¢150 GOTO 90¢160 TRAP 40000:CLOSE #1:IF X<2 THEN 200¢170 FOR I=X TO 16:L$(LEN(L$)+1)="0,":NEXT I¢180 CHKSUM=CHKSUM+LINE:IF CHKSUM>9999 THEN CHKSUM=CHKSUM-10000¢190 L$(LEN(L$)+1)=STR$(CHKSUM):? L$:? #2;L$¢200 CLOSE #1:CLOSE #2:? :? "DONE":? :? "Listed file saved as ";FDEST$:END ¢