home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU07.ARC / DATAMAKER.C64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  552 b   |  9 lines

  1. 0 PRINT"[147]  MACHINE CODE TO DATA STATEMENTS":PRINT" MACHINE CODE LOCATIONS IN DECIMAL:":INPUT"  START OF MACHINE CODE";A:INPUT"    END OF MACHINE CODE";B:PRINT" DATA STATEMENT LINE NUMBERS:"
  2. 1 INPUT"      INITIAL LINE NUMBER";L:INPUT"             LINE-NR STEP";S:GOTO6:DATASTART
  3. 2 DATA0,0,0,0:RESTORE
  4. 3 READA$:IFA$="START"THENA$="":GOTO5
  5. 4 GOTO3
  6. 5 READA:READB:READL:READS:IFS=0THENPRINT"[147]THE DATA STATEMENTS ARE FORMED":END
  7. 6 C=A+7:IFC=>BTHENC=B:S=0
  8. 7 FORJ=ATOC:A$=A$+MID$(STR$(PEEK(J))+",",2):NEXT:PRINT"[147]GOTO3":POKE198,4:POKE631,13:POKE632,13:POKE633,19:POKE634,13:PRINT"2DATA"A+8","B","L+S","S:A$=STR$(L)+"DATA "+A$:PRINTLEFT$(A$,LEN(A$)-1):PRINT"":END
  9.