Listing of file='TRANSF.BAS;01' on disk='vmedia/chip_85-sector.ccvf'
100 PLOT 12:PRINT TAB( 24)"TRANSFER":PRINT 110 REM By Myron T. Steffy, Sun City, Arizona 8/20/82 120 PRINT TAB( 4)"A METHOD OF STORING A MACHINE LANGUAGE PROGRAM IN RAM " 130 PRINT :PRINT TAB( 4)"AT 4000H UNTIL RECALLED TO ITS NORMAL OPERATING LOCATION.":PRINT 140 PRINT TAB( 8)"Now loading machine language of TRANSFER ":PRINT 150 PLOT 27,4:PRINT "LOAD RELOAD.PRG;01":PLOT 27,27 160 FOR X= 0TO 500:NEXT X 170 PRINT "INSERT IN DEFAULT DRIVE, DISC CONTAINING PROGRAM TO BE STORED " 180 PRINT :PRINT TAB( 16):INPUT "WHEN READY, PRESS RETURN";R 190 PLOT 27,4:PRINT "DIR":PLOT 27,27:PRINT 200 INPUT "ENTER FULL NAME OF PROGRAM TO BE STORED AT 4000H ";N$ 210 PLOT 27,4:PRINT "LOAD ";N$;" 404B":PLOT 27,27 220 POKE 16409,PEEK (33032):POKE 16410,PEEK (33033):REM NORMAL LOAD ADDRESS 230 SZ= PEEK (33049)+ PEEK (33050)* 256:REM BYTE COUNT 240 HA= 16459+ SZ:REM 404BH PLUS LENGTH OF FILE 250 POKE 16412,(HA)AND 255:POKE 16413,INT (HA/ 256):REM END ADDRESS OF FILE WHEN STORED AT 404BH. 260 POKE 16438,PEEK (33034):POKE 16439,PEEK (33035):REM START ADDRESS (JUMP ADDRESS) 270 PRINT :PRINT TAB( 8):INPUT "TYPE NAME ONLY OF NEW PROGRAM ";NN$ 280 PRINT :T= HA:GOSUB 4000:REM CONVERT END ADDRESS TO HEX 290 PRINT TAB( 8):INPUT "INSERT A DISC TO RECEIVE THE NEW FILE ";CR 300 PLOT 27,4:PRINT "SAVE ";NN$;".PRG 4000-";H$:PLOT 27,27 310 POKE 33215,195:POKE 33216,0:POKE 33217,64:REM SET JUMP 320 PRINT :PRINT TAB( 16)"IT IS NOW STORED AT 4000H. ":PRINT 330 PRINT "RECALL IT TO NORMAL OPERATING POSITION WITH ESCAPE ^ (USER)" 340 PRINT :PRINT :PRINT TAB( 24):PRINT "THE END" 400 END 4000 REM DECIMAL TO HEX CONVERTER"" 4010 H$= "":X= 4096:E= 0:IF (T< 0OR T> 65535)THEN E= 1:RETURN 4020 H= INT (T/ X):T= T- (H* X) 4030 H= H+ 48:IF H> 57THEN H= H+ 7 4040 H$= H$+ CHR$ (H) 4050 X= X/ 16:IF X< 1THEN RETURN 4060 GOTO 4020