59000 CLOSE:IFVV!=0THENDIMVV%,VV!,VV$,VW%,VW!,VW$,VW$(200):REM VARLST.DO V01 Woods Martin 12/01/83 59001 CLS:PRINT"VARLST LPT:=1 COM:=2 LCD:=ENT ?";:VV$=INPUT$(1) 59002 IFVV$="1"THENVV$="LPT:"ELSEIFVV$="2"THENVV$="COM:37I1E"ELSEVV$="LCD:" 59003 CLS:PRINT"Reading";:VV!=PEEK(64434)+256*PEEK(64435):VW!=PEEK(64436)+256*PEEK(64437):VW%=0 59004 IFVV!=VW!THENFORVW%=VW%-1TO1STEP-1:IFINSTR(VW$(VW%),"VV")ORINSTR(VW$(VW%),"VW")THENNEXTVW%:VW%=0 59005 VV%=PEEK(VV!):IFVV%<2ORVV%>8THENCLS:VW%=VW%-1%:IFVW%<1%THENPRINT"No Variables":GOTO59018ELSE59010 59006 VW%=VW%+1:IFPEEK(VV!+2)THENVW$(VW%)=CHR$(PEEK(VV!+1))+CHR$(PEEK(VV!+2))+MID$(" %$! #",VV%,1):GOTO59008 59007 VW$(VW%)=CHR$(PEEK(VV!+1))+MID$(" %$! #",VV%,1) 59008 PRINT@10,VW%;:IFVV!"LCD:"THENINPUT"Program Name";VW$:PRINT#1," Variables - ";VW$;" ";DATE$;" ";TIME$ 59011 CLS:PRINT#1,SPACE$(-6*(VV$<>"LCD:"));"ACCESS ORDER: ";:GOSUB59019 59012 VV%=VW%:CLS:PRINT"Sorting"; 59013 VV%=INT(VV%/2):IFVV%=0THEN59017ELSEJ%=1:K%=VW%-VV% 59014 I%=J%:PRINT@10,I%; 59015 L%=I%+VV%:IFVW$(I%)>VW$(L%)THENVW$=VW$(I%):VW$(I%)=VW$(L%):VW$(L%)=VW$:I%=I%-VV%:IFI%>=1THEN59015 59016 J%=J%+1:IFJ%>K%THEN59013ELSE59014 59017 CLS:PRINT#1,SPACE$(-6*(VV$<>"LCD:"));"SORTED ORDER: ";:GOSUB59019:CLS 59018 PRINT"Delete the VARLST code now!":PRINT"Type: EDIT 59000-59021 ENTER":PRINT" F7 CTRL SHIFT F6 F8 F8":END 59019 IFVV$="LCD:"THENFOR VV%=1TOVW%:PRINT#1,VW$(VV%);" ";:NEXTVV%:PRINT:INPUT"press ENTER";VW$:RETURN 59020 VW$=CHR$(13)+CHR$(10)+SPACE$(6):PRINT#1%,VW$;:FORVV%=1TOVW%:PRINT#1,USING"\ \";VW$(VV%);:IFVV%MOD9=0THENPRINT#1,VW$; 59021 NEXTVV%:PRINT#1," ":RETURN