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