Listing of file='ROMSAV.BAS;01' on disk='vmedia/hardware_utilities-sector.ccvf'
100 REM ROMSAV - BY K.G. WINDER - MAR.85 110 REM NOTE PROGRAM ORG ADDRESS IS NOT CHANGED FROM 120 REM THE ORIGINAL, DISC SHOWS ONLY THE SAVE ADDRESS. 130 REM AF80 USED TO SAVE, THIS IS PROGRAMMER BUFFER START. 140 CLEAR :PLOT 15,12 150 PRINT :PRINT TAB( 15)"INTERNAL ROM READER & SAVE TO DISK" 160 PRINT TAB( 15)"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 170 PRINT :INPUT " 1,2,4 OR 8K ROM ? - ";A 180 IF A= 1THEN A= 1023 190 IF A= 2THEN A= 2047 200 IF A= 4THEN A= 4095 210 IF A= 8THEN A= 8191 220 PRINT :PRINT 230 PRINT TAB( 8)"NOTE- 4000H =16384, 4800H=18432, 5000H=20480, 240 PRINT :PRINT TAB( 13)" 5800H=22528, OR AS REQUIRED." 250 PRINT :INPUT " START ADDRESS ? (IN DECIMAL) - ";B 260 PRINT :INPUT " DIR NAME OF PROGRAM TO READ = ";N$ 270 PLOT 3,0,16:PRINT TAB( 18)" READING IN PROGRESS" 280 FOR I= 0TO A 290 Z= PEEK (B+ I) 300 POKE 44928+ I,Z 310 NEXT I 320 PLOT 3,0,16:PRINT TAB( 20)" READ COMPLETED! " 330 PRINT :PRINT :INPUT " TO SAVE ON DISK, INSERT DISC AND PRESS RETURN - ";S 340 IF A= 1023THEN D= 0400 350 IF A= 2047THEN D= 0800 360 IF A= 4095THEN D= 1000 370 IF A= 8191THEN D= 2000 380 PLOT 27,4:PRINT "SAV ";N$;".PRG AF80,";D 390 PLOT 27,27 400 PRINT :PRINT TAB( 24)" SAVED! " 410 PRINT :INPUT " AGAIN? - ";R$ 420 IF R$= "Y"THEN 100 430 END