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