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