Numbers 149
930 IF N<1 OR N> KO THEN LOCATE 5,22:PRI NT"(BETWEEN 1 AND";KO;")":LOCATE 1,24:PR INT CHRS(18);:GOTO 760
840 GOSUB 680
850 LOCATE 1,15:PRINT 5TS:LOCATE 1,16:PR INT STS:LOCATE 1,15
860 FOR Y= 8 TO 1 STEP -1:PRINT TAB(35-Y *4);(24(Y);:NEXT
870 LOCATE 29,16:PRINT"= ";N 880 LOCATE 1,24:PRINT CHRS(18); 890 GOTO 760
900 STOP
910 BORDER 0: PAPER 0:INK 1,24:INK 0,0:C LS
920 FOR X=1 TO 7:READ K(X):NEXT X
930 INK 1,24
940 CLS:PRINT"	NUMBER SYSTEM Et MICHAE
L BEWS."
950 PRINT:PRINT"THIS PROGRAM EXAMINES A FEW OF THE MANY COUNTING SYSTEMS AND ENABLES YOU TOINVENT SOME OF YOUR OWN
960 PRINT:PRINT:PRINT"	M E
N U"
970 PRINT:PRINT"	1	ROMAN NUMB
ERG
2	DECIMAL SY
STEM
3	BINARY NUM
BERG"
980 PRINT:PRINT"	4	HEXADECIMA
5	INVENT YOU
R OWN!"
990 LOCATE 1,22:PRINT"	SELECT KE
Y NUMBER"
1000 INPUT XS:1F X$="" THEN 990
1010 IF X$<"1" OR X$>"5" THEN 990
1020 ON VAL(X$) GOTO 1040,1110,1280,1370 ,430
1030 REM*** ROMAN EXPLANATION 1040 INK 1,18
1050 CLS:PRINT"	ROMAN NUMBERS @1984 M
ICHAEL BEWS"