Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/TOJIREN.PRG

Text File | 1980-01-01 | 1.6 KB | 52 lines

        *****╚╦╩²═│╝╞(TOJIREN)*****
CLEAR
STORE 0 TO ZREN,ZREN1,ZREN2
STORE .T. TO RENT
DO WHILE RENT
   CLEAR
   USE B:AC2&Z
   STORE " " TO YES1
   @ 2,8 SAY "&ZZ"+"╫¿╥╡╨Φ╥¬░┤─Ω╝╢═│╝╞┬≡(Y),╖±╘≥░┤╫¿╥╡═│╝╞(N)"GET YES1
   READ
   STORE "  " TO X
     IF UPPER(YES1)="Y"
        @ 4,8 SAY "╟δ╩Σ╚δ──╕÷─Ω╝╢(╚τ84,85,86...)"GET X
        READ
        CLEAR
        @ 4,10 SAY "╧╓╘┌╒²═│╝╞"+"&X"+"╝╢"+"&ZZ"+"╫¿╥╡╚╦╩²"+",╟δ╔╘╡╚║≥!"
        COUNT FOR ì
B1="─╨".AND.X=SUBSTR(BIN,1,2).AND.(B18=" ".OR.B18="╕┤╤º") TO REN1
        COUNT FOR B1="┼«".AND.X=SUBSTR(BIN,1,2).AND.(B18=" ".OR.B18="╕┤╤º") ì
TO REN2
        REN=REN1+REN2
        ELSE
        @ 4,10 SAY "╧╓╘┌╒²═│╝╞"+"&ZZ"+"╫¿╥╡╚╦╩²,╟δ╔╘╡╚║≥!"
        COUNT FOR B1="─╨".AND.(B18=" ".OR.B18="╕┤╤º") TO REN1
        COUNT FOR B1="┼«".AND.(B18=" ".OR.B18="╕┤╤º") TO REN2
        REN=REN1+REN2
        USE AC7
        LOCATE FOR XIBIN="&Z"
        REPL GA1 WITH REN1,GA2 WITH REN2
        ENDIF
   ZREN1=ZREN1+REN1
   ZREN2=ZREN2+REN2
   ZREN=ZREN1+ZREN2
   CLEAR
   @ 1,20 SAY "********░┤╚╦╩²═│╝╞╥╗└└▒φ*******"
   @ 2,8 SAY "&X"+"&ZZ"+"╫¿╥╡╚╦╩²="+STR(REN,5)
   @ 3,8 SAY "&X"+"&ZZ"+"╫¿╥╡┼«╔·╚╦╩²="+STR(REN2,5)
   @ 4,8 SAY "&X"+"&ZZ"+"╫¿╥╡─╨╔·╚╦╩²="+STR(REN1,5)
   @ 2,40 SAY "╡▒╟░└█╝╞╚╦╩²="+STR(ZREN,5)
   @ 3,40 SAY "╡▒╟░└█╝╞┼«╔·╚╦╩²="+STR(ZREN2,5)
   @ 4,40 SAY "╡▒╟░└█╝╞─╨╔·╚╦╩²="+STR(ZREN1,5)
   @ 6,20 SAY "╨Φ╥¬┤≥╙í,╟δ░┤≈SHIFT+PRTSC"
   STORE " " TO YES2
   @ 8,8 SAY "╝╠╨°═│╝╞┬≡ ?(Y/N)" GET YES2
   READ
   IF UPPER(YES2)="Y"
      CLEAR
      LOOP
   ENDIF
   STORE .F. TO RENT
ENDDO
RETURN