10 DEFFNS="Counter" 20 IFPAGE<>&1D00:PAGE=&1D00:CHAIN"Counter" 30 FORL%=&1900TO&1CF0STEP4:!L%=0:NEXT 40 ONERROR:VDU3:IFERR<>17:REPORT:PRINTERL:END 50 MODE7 60 PROCscr 70 REPEAT 80 VDU31,13,19,129,141,32,32,32,31,13,20,131,141,32,32,32 90 T%=0:C%=0 100 REPEAT 110 REPEAT:A%=GET-48:UNTIL A%>-1 AND A%<10 OR A%=35 OR A%=28 OR A%=20 OR A%=21 OR A%=79 120 VDU31,15+T%,19,A%+48,31,15+T%,20,A%+48 130 T%=T%+1 140 IFA%>-1 IF A%<10 PROCadd ELSE C%=-1 150 UNTILT%=3 OR A%=35 OR A%=28 OR A%=20 OR A%=21 OR A%=79 160 IFA%=35:OSCLI"SA. CData 1900 1CF0" 170 IFA%=28:OSCLI"LO. CData 1900" 180 IFA%=20:MODE0:PROCdisp:MODE7:PROCscr 190 IFA%=21:END 200 IF C%<>-1 ?(&1900+C%)=?(&1900+C%)+1:IF ?(&1900+C%)=255:VDU7:PRINT'"Warning!! Memory full at "STR$C% 210 UNTILFALSE 220 DEFPROCadd 230 IF T%=1 C%=C%+A%*100 240 IF T%=2 C%=C%+A%*10 250 IF T%=3 C%=C%+A% 260 ENDPROC 270 DEFPROCdisp 280 CLS 290 PRINT''"Printer on? Y/N" 300 A$=GET$ 310 IF A$="Y":VDU2 320 IF A$="N" PRINT''" Spool to Results? Y/N":A$=GET$:IF A$="Y":OSCLI"SPOOL Results" 330 B%=0:FORL%=&1900TO&1CE7:IF?L%>B% B%=?L%:NEXT ELSE NEXT 340 PRINT"Colour frequency calculator for 8BS by CJR."'' 350 Y%=0:FORL%=&1900TO&1900+1000:Y%=Y%+?L%:NEXT:PRINTSTR$(Y%);" Numbers used" 360 Y%=0:FORL%=&1900TO&1900+1000:IF ?L%<>0 Y%=Y%+1:NEXT ELSE NEXT 370 PRINTSTR$(Y%);" Colours used"' 380 PRINT"Col. Frq. Col. Frq. Col. Frq. Col. Frq. Col. Frq. Col. Frq. Col. Frq. Col. Frq."' 390 Z%=0 400 FORL%=B%TO0STEP-1 410 FORI%=&1900TO&1CE7 420 IF?I%=L%:PRINT TAB(Z%);STRING$(3-LEN(STR$(I%-&1900)),"0");STR$(I%-&1900);TAB(Z%+3)"=";L%;:Z%=Z%+10:IF Z%=80 Z%=0 430 NEXT 440 NEXT 450 VDU3 460 *SPOOL 470 PRINT''"Press a key.":REPEATUNTILGET 480 ENDPROC 490 DEFPROCscr 500 VDU23;8202;0;0;0; 510 PRINT'" Counter for 8-Bit Software." 520 PRINT" ƒCounter for 8-Bit Software." 530 PRINT'TAB(10)"ƒBy C.J.Richardson." 540 PRINT'" ƒKeeps a tally of 1000 numbers." 550 PRINT'"…Originally designed to work out colour" 560 PRINT" …frequency for cross stitch charts." 570 PRINT'TAB(5)"‚Enter a 3 digit number or:" 580 PRINT'TAB(7)"‚(S)ave." 590 PRINTTAB(7)"‚(L)oad." 600 PRINTTAB(7)"‚(D)isplay data." 610 PRINTTAB(7)"‚(E)nd." 620 ENDPROC