Listing of file='MEM' on disk='vmedia/tbo_81.wvd.zip'
# Sector 850, program filename = 'MEM' 0010 COM D$(1)6 : PRINT HEX(03);" DATE JUNE 3, 1975" 0020 INPUT "MEMORY SIZE (IN K)",Q 0030 IF Q<>4*INT(Q/4) THEN 20 : BIN(STR(D$(1),6))=Q/4 0050 ON VAL(STR(D$(1),6))GOTO 110,120,130,140,150,160,170,180 : GOTO 20 0110 STOP "NO 4K" 0120 STOP "NO 8K" 0130 STOP "NO 12K" 0140 LOAD DC T"16K" 0150 LOAD DC T"20K" 0160 LOAD DC T"24K" 0170 LOAD DC T"28K" 0180 LOAD DC T"32K"