home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG012.ARK / PILOT.TST < prev    next >
Text File  |  1984-04-29  |  812b  |  51 lines
  1. *LOOP
  2. T:TEST PROGRAM OF PILOT-8080 FUNCTIONS
  3. T:
  4. T:WANT DISPLAY PGM?
  5. A:
  6. M:Y
  7. JN:*GON
  8. DP:
  9. *GON
  10. T:BEGIN BY TYPING ANYTHING, THEN PRESS 'RETURN'
  11. A:$WHAT
  12. T:YOU TYPED $WHAT.
  13. T:$WHAT IS WHAT YOU TYPED.
  14. T:   PRESS 'RETURN' TO CONTINUE.
  15. A:
  16. T:
  17. *TESTM
  18. T:I WILL LOOK FOR 'ABC', ' DEF', ' GHI '
  19. T:NOTE THE SPACES.  THEY ARE IMPORTANT IF THE LETTERS WE ARE 
  20. T:TRYING TO MATCH ARE NOT AT EITHER END OF A LINE.
  21. A:
  22. M:ABC, DEF, GHI ,
  23. TY:MATCH
  24. TN:NO MATCH
  25.    U:*ASK
  26.    JY:*TESTM
  27.    J:TESTC
  28.  
  29. *ASK
  30. T:AGAIN? (Y OR N)
  31. A:
  32. M: Y
  33. E:
  34. *TESTC
  35. T:TYPE A NUMBER FROM 0 TO 99
  36. T:I USE THE FIRST TWO DIGITS ENTERED.
  37.    A:#A
  38. T:ANOTHER NUMBER PLEASE
  39.    A:#B
  40. T:YOUR NUMBERS ARE #A AND #B.
  41. T:I WILL SUBTRACT THEM.
  42.    C:C=A-B
  43. T:#A - #B = #C
  44. T:
  45. T:   TYPE 'NEXT' TO GO ON
  46. A:
  47. M:NEXT
  48.    JN:*TESTC
  49. T:
  50. J:*LOOP
  51.