8-Bit Software Online Conversion

Basic Listing Utility - Listing

10REM BASIC Listing Formatter 20REM (C) 1996 Jon Ripley 30REM This program is PD 40REM Please DO NOT ALTER this progra m 50DEFFNS="FormBAS" 60MODE 7 70FORX=1TO2:PRINTTAB(1,X)CHR$141;CHR$ (127+2*X)"Listing Formatter (C) Jon Ripl ey":NEXT:VDU28,0,24,39,4 80P=&900:FORX=1TO159STEP2:?P=EVAL("&" +MID$("AD0F02C909F0138D0201AD0E028D0101A 91B8D0E02A9098D0F0260C922D00A48AD0001490 18D000168C93AD01BAD0001D019A90D20E3FFA92 02048092048092048092048092048096C0101A93 A6C0101",X,2)):P=P+1:NEXT 90PRINT"(S)ave or (R)un:"; 100REPEATA$=GET$:UNTILINSTR("SsRr",A$) 110PRINTA$ 120IF INSTR("Ss",A$) INPUT'"Filename:" A$:OSCLI"Save "+A$+" 900+4F" ELSE CALL&9 00