1600 CLS
1601 PRINT "Color Test for the Planeteers"
1602 FOR X = 1 TO 15
1603 COLOR X
1604 PRINT "Planeteers";X
1605 NEXT X
1606 COLOR 7
1607 PRINT "Please enter a String."
1608 INPUT PH$
1609 INPUT "What character do you want to count"; CH$
1610 FOR X = 1 TO LEN(PH$)
1611 IF MID$(PH$,X,1) = CH$ THEN C = C + 1
1612 NEXT X
1613 IF C = 0 THEN PRINT "Their are no ";CH$; "'s in the string:":GOTO  1616
1614 IF C = 1 THEN PRINT "Their is only one ";CH$; " in the string:":GOTO  1616
1615 PRINT "Their are"; C; CH$"'s in the string:"
1616 PRINT PH$
1617 FOR X = 1 TO 2000 : NEXT
1618 END