home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / 20 / APPEND (.txt) < prev    next >
Commodore BASIC  |  1988-11-19  |  384b  |  10 lines
  1. 1 BU=631:BC=198:S1=43:S2=44:A=PEEK(S1):B=PEEK(S2):C=PEEK(45):D=PEEK(46)
  2. 2 INPUT"[147]PROGRAM TO APPEND";PROG$:IFPROG$="QUIT"THEN9
  3. 3 OPEN15,8,15,"I0:":OPEN1,8,8,PROG$+",P,R":INPUT#15,E,E$
  4. 4 CLOSE1:CLOSE15:IFETHENPRINT"ERROR:"E;E$:END
  5. 5 PRINT"[147]LOAD"CHR$(34)PROG$CHR$(34)",8"
  6. 6 PRINT"POKE"S1","A":POKE"S2","B"":POKEBU,13:POKEBU+1,13:POKEBC,2
  7. 7 IFC>1THENPOKES1,C-2:POKES2,D:END
  8. 8 POKES1,C+253:POKES2,D-1:END
  9. 9 PRINT"[147]":FORJ=0TO9:PRINTJ:POKEBU+J,13:NEXT:POKEBC,10:PRINT"":END
  10.