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)-(FRE(0)<0)*65536
60 PRINT"[147][159]64K RAM SYSTEM ";X;"[159] BASIC BYTES FREE"
70 PRINT"   **** [159]COMMODORE 64  PGM BASIC ****"
80 PRINT"[159]  BY D. DARUS, K. FRENC AND L. WALLACE"