Name: Anonymous 2008-06-04 10:39
GO!
10 INPUT">";P$
20 FOR I=1 TO LEN(P$)
30 I$=MID$(P$,I,1)
40 IF I$="A" THEN A=A+1
50 IF I$="B" THEN A=A-1
60 IF I$="C" THEN PRINT A;
70 NEXT I
80 REMARKABLE