100 CIA = 56576:VIC = 53248:VRAM = 648:BSTART = 43:BTERM = 55:NMIVEC = 792
110 POKE CIA, PEEK(CIA) AND 252 OR 1:REM SELECT VIC MEMORY BANK #2 ($8000 - $BFFF)
120 POKE VIC+24, PEEK(VIC+24) AND 15:REM SET VIDEO RAM TO START OF BANK
130 POKE VRAM,128
140 POKE NMIVEC,193:REM POINT VECTOR TO RTI (DISABLE STOP/RESTORE)
150 POKE BSTART+1,4:REM SET START OF BASIC RAM TO $0401
160 POKE 1024,0:REM ENSURE BYTE AT NEW BASIC START - 1 IS NULL
170 POKE BTERM+1,128:SET END OF BASIC RAM TO $8000
200 POKE VIC+32,0:POKE VIC+33,0:REM SET BORDER/BACKGROUND COLOR TO BLACK
210 PRINT "{green}{clr}### COMMODORE BASIC ###"
220 PRINT " 31743 BYTES FREE."
230 NEW