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

Text File | 1980-01-01 | 444 b | 26 lines

        ****╩²╛▌┼╠│⌡╩╝╗»(JKU)****
STORE .T. TO T1
DO WHILE T1
CLEAR
DO XZC1
CLEAR
@ 5,20 SAY "╧╓╘┌╒²╘┌╜¿╗∙▒╛╩²╛▌┐Γ,╟δ╔╘║≥ !"
USE AC2
COPY TO B:AC2&Z STRU
USE AC3
COPY TO B:AC3&Z STRU
USE AC4
COPY TO B:AC4&Z STRU
USE AC5
COPY TO B:AC5&Z STRU
USE AC8
COPY TO B:AC8&Z STRU
STORE " " TO YES
@ 8,20 SAY "&ZZ"+"╫¿╥╡╩²╛▌┼╠╥╤│⌡╩╝╗»,╨Φ╥¬╝╠╨°┬≡ (Y/N)?"GET YES
READ
  IF UPPER(YES)="Y"
  LOOP
  ENDIF
STORE .F. TO T1
ENDDO
RETURN