DECLARE FUNCTION SEX() STRING - PowerPoint PPT Presentation

declare function sex string n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
DECLARE FUNCTION SEX() STRING PowerPoint Presentation
Download Presentation
DECLARE FUNCTION SEX() STRING

play fullscreen
1 / 190
DECLARE FUNCTION SEX() STRING
137 Views
Download Presentation
gavan
Download Presentation

DECLARE FUNCTION SEX() STRING

- - - - - - - - - - - - - - - - - - - - - - - - - - - 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