10 IFAA=0THENAA=1:LOAD"0:PGM.BIN",8,1
20 POKE55,255:POKE56,130:CLR
30 POKE53280,0:POKE53281,0
40 BA=32768+4*256
50 X=FRE(0)
60 PRINT"[147][159]64K RAM SYSTEM ";X;"[159] BASIC BYTES FREE"
70 PRINT"   **** [159]COMMODORE 64  PGM BASIC ****"
75 PRINT"LOADING DEMO...."
80 PRINT"[144]LOAD"CHR$(34)"PGM.DEMO"CHR$(34)",8"
82 PRINT"RUN"
84 POKE631,13:POKE632,13:POKE198,2:END
90 END