LOAD RAM
]LIST

 10 BS =  PEEK (43626):BD =  PEEK (43624):BT =  PEEK (7776 + BS)
 20 RS =  PEEK (8146):RD =  PEEK (8147):RT =  PEEK (7776 + RS)
 40  IF BT = 17 OR BT = 18 THEN  GOTO 60
 42  IF BT = 23 THEN  GOTO 60
 45  PRINT  CHR$ (7);"You must boot from a floppy disk"
 50  PRINT  CHR$ (4);"RUN START,S";BS;",D";BD
 60  IF RT = 20 OR RT = 22 THEN  GOTO 70
 65  PRINT  CHR$ (7);"Virtual drive one is not a RAM drive": GOTO 50
 70  ONERR  GOTO 90
 75  PRINT  CHR$ (4);"BLOAD OUT-03,A$8200,S";RS;",D";RD
 80  POKE 8165,1: PRINT  CHR$ (4);"RUN MAIN"
 90 E =  PEEK (222): IF E = 6 THEN  GOTO 100
 95  PRINT  CHR$ (7);"Disk access error": GOTO 50
 100  REM 
 101  PRINT  CHR$ (4);"BSAVE XX,A$800,L$1800,S";RS;",D";RD
 104  PRINT  CHR$ (4);"OPEN RAMLOAD,S";RS;",D";RD
 105  PRINT  CHR$ (4);"WRITE RAMLOAD"
 110  PRINT "CALL 8*256+3"
 115  PRINT "1"
 120  PRINT BS
 121  IF BT = 23 THEN  PRINT 3: GOTO 124
 122  PRINT BD
 124  PRINT RS
 126  PRINT RD
 128  PRINT "="
 130  PRINT "N": PRINT : PRINT 
 131  PRINT "9"
 132  PRINT "POKE 16384,0"
 134  PRINT "POKE 16385,0"
 136  PRINT "POKE 16386,0"
 138  PRINT "POKE 103,1"
 140  PRINT "POKE 104,64"
 142  PRINT "POKE 105,3"
 144  PRINT "POKE 106,64"
 146  PRINT "BLOAD XX,S";RS;",D";RD
 148  PRINT "DELETE XX"
 149  PRINT "POKE 8165,1"
 150  PRINT "BLOAD AUTO.A"
 151  REM  PRINT "CALL 3635"
 152  PRINT "RUN MAIN"
 180  PRINT  CHR$ (4);"CLOSE"
 200 VF =  PEEK (7682):TY =  PEEK (7689)
 210  IF VF AND (TY = 1) THEN SS$ =  CHR$ (5) + "O"
 220  IF VF AND (TY = 3) THEN SS$ =  CHR$ (5) + "1E"
 500  TEXT : HOME 
 520  CALL 114 * 256 + 39
 522  PRINT 
 525  PRINT  CHR$ (4);"BLOAD FID,S";BS;",D";BD
 530  IF BT = 23 THEN  HOME : POKE 43624,3: POKE 49168,0: GOTO 570
 540  HOME : PRINT  CHR$ (7); CHR$ (7); CHR$ (7)
 550  PRINT "Insert Main disk": PRINT "and press any key"
 560  POKE 49168,0: GET A$: PRINT 
 570  ONERR  GOTO 540
 575  PRINT  CHR$ (4);"BLOAD OUT-03,A$8200"
 577  PRINT SS$: PRINT 
 600  HOME : PRINT : PRINT : PRINT "Loading Software to RAM drive"
 610  POKE 43603,32: POKE 43604,3
 620  POKE 2135,234: POKE 2136,234: POKE 2137,234
 625  POKE 2266,234: POKE 2267,234: POKE 2268,234
 630  POKE 800,96
 700  PRINT  CHR$ (4);"EXEC RAMLOAD,S";RS;",D";RD
 710  END 

]