Listing of file='SLD.RLOP' on disk='vmedia/701-2721C.wvd.zip'
# Sector 799, program filename = 'SLD.RLOP'
0010 REM % "SLD.RLOP"
0100 DIM O$(9)28,B$1,N$20
: X=5
: N$=STR(G8$(),2,20)
: PRINT HEX(06);AT(0,39,40);"Condition Operator Display";AT(19,39,40);AT(21
,39,);
: N=9
: FOR I=1TO N
: READ O$(I)
: NEXT I
0160 DATA "IS EQUAL TO","IS NOT EQUAL TO","IS LESS THAN","IS GREATER THAN"," "
,"IS LESS THAN OR EQUAL TO","IS GREATER THAN OR EQUAL TO"," ","IS BETWEEN
"
: R=1
: C=32
: Y=X+3
: FOR I=1TO N
: IF O$(I)<>" "THEN PRINT AT(Y+I,C);". ";O$(I);
: NEXT I
0210 PRINT AT(X+2,0);HEX(0E);"Please Select a Condition Operator";HEX(0F);AT(2
3,39);" CANCEL/EDIT - Previous screen ";AT(22,34);" EXEC/RUN -
Select Condition Operator";
: O=R
0240 PRINT AT(O+Y,0,C);AT(O+Y,C);". ";O$(O);AT(R+Y,28-LEN(N$));N$;AT(R+Y,C);HE
X(0E8B20);O$(R);HEX(0F);
: O=R
0260 KEYIN B$,,332
0270 IF B$=HEX(F0)THEN LOAD T"SLD.FNAM"
: ERRORPRINT HEX(0307);"Disk error ";ERR;". Restart disk and press RUN";
0280 IF B$=HEX(82)THEN 340
: IF B$=" "THEN R=MOD(R,N)+1
: IF B$=HEX(08)THEN R=MOD(R+N-2,N)+1
: IF O$(R)=" "AND O<RTHEN R=MOD(R,N)+1
: IF O$(R)=" "AND O>RTHEN R=MOD(R+N-2,N)+1
: GOTO 240
0332 IF POS(B$=HEX(F082))=0THEN 260
: ELSE GOTO 270
0340 STR(G8$(),25,28)=O$(R)
: IF R=9THEN R=R-1
: IF R>5THEN R=R-1
: G8$(24)=BIN(R)
: PRINT AT(X+2,0,12*80)
: LOAD T"SLD.FVAL"
: ERRORPRINT HEX(0307);"Disk error ";ERR;". Restart disk and press RUN";
0395 STOP
0400 DEFFN'0
: SCRATCH T"SLD.RLOP"
: SAVE T()"SLD.RLOP"
: PRINT "'SLD.RLOP' SAVED"
: LIST DT
: RETURN