1 / 190

DECLARE FUNCTION SEX() STRING

DECLARE FUNCTION SEX() STRING. DECLARE FUNCTION TYPE() STRING. *$USEFUNCS. *$INCLUDE:READ.LIB. FUNCTION TYPE() STRING. BOOLEAN XIT. STRING S. INTEGER POS. POS=1. XIT=0. ANSIPOS 23,18. PRINT "@X3F COURIER @X07". WHILE (XIT=0) DO. ANSIPOS 30,5. S="". WHILE (S="") S=INKEY().

gavan
Télécharger la présentation

DECLARE FUNCTION SEX() STRING

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. DECLARE FUNCTION SEX() STRING

  2. DECLARE FUNCTION TYPE() STRING

  3. *$USEFUNCS

  4. *$INCLUDE:READ.LIB

  5. FUNCTION TYPE() STRING

  6. BOOLEAN XIT

  7. STRING S

  8. INTEGER POS

  9. POS=1

  10. XIT=0

  11. ANSIPOS 23,18

  12. PRINT "@X3F COURIER @X07"

  13. WHILE (XIT=0) DO

  14. ANSIPOS 30,5

  15. S=""

  16. WHILE (S="") S=INKEY()

  17. IF ((S="RIGHT") & (POS<4)) INC POS

  18. IF ((S="LEFT") & (POS>1)) DEC POS

  19. IF (S=CHR(13)) XIT=1

  20. ANSIPOS 23,18

  21. SELECT CASE (POS)

  22. CASE 1

  23. PRINT "@X3F COURIER @X07 CRACKER SUPPLIER SITE @X0F"

  24. CASE 2

  25. PRINT "@X07 COURIER @X3F CRACKER @X07 SUPPLIER SITE @X0F"

  26. CASE 3

  27. PRINT "@X07 COURIER CRACKER @X3F SUPPLIER @X07 SITE @X0F"

  28. CASE 4

  29. PRINT "@X07 COURIER CRACKER SUPPLIER @X3F SITE @X0F"

  30. END SELECT

  31. ENDWHILE

  32. IF (POS=1) TYPE="COURIER"

  33. IF (POS=2) TYPE="CRACKER"

  34. IF (POS=3) TYPE="SUPPLIER"

  35. IF (POS=4) TYPE="SITE"

  36. ENDFUNC

More Related