Wang 2200 Virtual Media

Listing of file='SLE.STRT' on disk='vmedia/701-2721C.wvd.zip'

# Sector 835, program filename = 'SLE.STRT'
0010 REM %                "SLE.STRT"
0030 COM G$(1848)1,G7$(200)1,G1$1
0080 IF G$()=" "THEN G1$="N"
   : ELSE G1$="S"
   : PRINT AT(0,0,);AT(0,25);HEX(0E);"Selection Execution";
   : MAT SEARCHG$(),="\EFV"TO R9$()
   : IF VAL(R9$(),2)>0THEN LOAD T"SLE.VARI"
   : G=1
0140 G=POS(STR(G$(),G)=HEX(00))+G+1
   : IF G>LEN(G$())THEN 190
   : IF G$(G)="V"THEN LOAD T"SLE.VARI"
   : GOTO 140
0190 IF L0(5)=1THEN R9$()="LPPRESELLPID1OPN"
   : ELSE R9$()="LPACTID2"
   : LOAD T<INT((LEN(R9$())+7)/8)>R9$()
0210 DEFFN'16"RENUMBER";HEX(0D);
0220 DEFFN'0
   : SCRATCH T"SLE.STRT"
   : SAVE T()"SLE.STRT"
   : PRINT "'SLE.STRT' SAVED"
   : LIST DT
   : RETURN