THE LISTINGS

votes1c

10 REM *WHY AM I DOING THIS?*
20 REM *WHAT AM I DOING ANYWAY?*
30 REM *ERR... SOMETHING TO DO WITH*
40 REM *POLITICS...*
50 REM *THAT WILL PROBABLY GET ME-*
60 REM *-SACKED ANYWAY!!!*
70 REM DELETE-71
80 COLOR0,2,5:COLOR4,2,6
100 REM *VOTES1*
110 A=12
120 DIMV$(A):DIMV(A)
130 V$(0)="WWW.PHOENIXFM.CO.UK"
140 V$(1)="BBC RADIO "
150 V$(2)="BBC SPORT "
160 V$(3)="BBC W/S "
170 V$(4)="BBC OTHER "
180 V$(5)="INDEPENDENT"
190 V$(6)="OTHERS /TV"

210 Q$="HOW MANY LISTENERS (IN 1000'S)":Q=7
220 V(0)=20:V(1)=18:V(2)=16:V(3)=12:V(4)=10:V(5)=9:V(6)=5
230 IN$="[rvson] [rvsoff]"
300 REM *HERE'S WHERE THE INPUTTING*
310 REM * WOULD GO! *
450 SCNCLR:PRINT" VOTES:":PRINT
460 PRINTQ$;" ?":PRINT
470 PRINTTAB(20);"¸0";TAB(25);"5";
TAB(30);"10";TAB(35);"15"
500 RESTORE 10010
510 FORJ=0TO6
520 READ A,B
530 COLOR1,A,B
540 PRINTV$(J);" ";TAB(20);
550 FORK=1TOV(J):PRINTIN$;:NEXTK
560 PRINT
600 NEXTJ
610 PRINT:PRINT"[orange]
[rvson] A N Y K E Y [rvsoff]"
620 GETKEYA$
700 COLOR1,A-5,B-3 :PRINT
710 PRINT"WWW.COMMODOREFREE.COM ";
720 PRINT: FORL=1TO255+225 :
PRINTIN$;:NEXTL
900 COLOR1,1
10000 DATA8,6, 2,3, 3,1, 4,1, 5,2, 5,6, 6,4, 7,2, 7,5, 8,5, 9,2, 10,5
10010 DATA 10,6, 11,2, 11,4, 12,4, 12,6, 13,3, 13,7, 14,3, 14,6, 15,4, 15,6 10015 DATA 16,1, 16,4, 16,6

Colours1

90 SCNCLR
100 FORJ=1TO16
105 FORK=0TO7
110 COLOR1,J,K:PRINT" [rvson][12*space][rvsoff]",J;K
115 GETKEYA$
120 NEXTK,J
200 COLOR1,1

For those of you looking to make vertical bars, there is a hint; how to in
one of the pictures.

Happy Prog'ing

John Fielden
=====================================


--- MBSE BBS v0.95.12 (GNU/Linux-i386)
* Origin: Dragon's Lair: telnet: bbs.vk3heg.net Port: 2323 (39:901/280)