DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦a7e5518cb⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »MATHS.BAS«

Derivation

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »MATHS.BAS«

TextFile

1  REM PROGRAM MATHS.BAS
10 PRINT"		  ****	 MATHS PROGRAM	***"
20 PRINT
25 FOR N%=1% TO 5%
30 PRINT "	 *****	  ADD TWO NUMBERS    *****"
40 INPUT"FIRST NUMBER";A
50 INPUT"SECOND NUMBER";B
60 LET C=A+B
70 PRINT C
75 NEXT N%
80 FOR N%=1% TO 5%
90 PRINT "	 *****	  SUBTRACT TWO NUMBERS	 *****"
100 PRINT
110 INPUT "FIRST NUMBER" ;A
120 PRINT
130 INPUT "SECOND NUMBER";B
140 PRINT
145 IF B>A THEN 110
150 C=A-B
160 PRINT C
170 NEXT N%
«eof»