home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug010.ark / TEST.FIL < prev    next >
Encoding:
Text File  |  1984-04-29  |  549 b   |  24 lines
  1. 10 PRINT "THIS IS A SIMPLE BENCHMARK PROGRAM.  IT"
  2. 20 PRINT "MULTIPLIES, DIVIDES, ADDS AND SUBTRACTS."
  3. 25 PRINT "INPUT 1ST NUMBER    ";
  4. 30 INPUT A
  5. 35 PRINT "INPUT 2ND NUMBER    ";
  6. 40 INPUT B
  7. 45 PRINT
  8. 50 LET C=A+B
  9. 60 LET A=A+1
  10. 70 LET E=B/C
  11. 80 LET F=A*E
  12. 90 LET C=C-F
  13. 95 PRINT "A IS";A;"     B IS";B;"     C IS";C
  14. 97 PRINT "E IS";E;"     F IS";F
  15. 98 PRINT
  16. 99 PRINT
  17. 100 IF A=100THEN 200
  18. 110 GO TO 50
  19. 200 PRINT "THE LOOP IS DONE"
  20. 202 PRINT "NOW FOR THE FANCY STUFF!!"
  21. 203 PRINT "WE ARE GOING TO DO A WARM BOOT"
  22. 205 CALL (1)
  23. 210 END
  24.