0 CLS:PRINT"Unloading Disk BASIC ... ";
1 READA:IFA=-1THENPRINT"done":CLEAR256,62336:MENUELSEIFA<64042!THENPOKEA,219:POKEA+1,127:GOTO1ELSEPOKEA,135:POKEA+1,11:GOTO1
3 DATA 63948,63964,63968,63970,63978,63980,63982,63984,63986,63988,63990,63996,64000,64004,64006,64008,64010,64016,64036,64064,64066,64070,64072,64074,64076,64078,64080,64082,64086,64088,64090,64094,-1