0 REMSAVE"Q&D.POLLSTER",8 100 REM"[209][160]&[160][196][160][208]OLLSTER 5/24/85" 101 OPEN15,8,15:FORC=54272TO54296:POKEC,0:NEXT 102 POKE53281,7:POKE53280,7:PRINT"[144]" 103 AD=120 104 PRINT"[147]" 105 DIMQ$(500),AN$(AD) 106 DA$="---------------------------------------" 107 DIMQ1$(10),A1$(15),A2$(15,10),AL(15),TG(15),AN(15) 108 US$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 109 GOSUB44000:Q=1:GOTO10000 110 REMINPUT ANSWERS FROM DISK 120 PRINT#15,"I0":OPEN8,8,8,"POLL.D."+PS$ 125 INPUT#15,A:IFA=62THEN170 140 AC=0 150 INPUT#8,AN$(AC) 151 PRINT"."; 160 IFAN$(AC)<>"///"THENAC=AC+1:GOTO150 165 AN$(AC)="" 170 CLOSE8 200 REM DONE READING IN. 210 RETURN 10000 GOSUB20000 11000 PRINT"[147]"; 11050 IFR=1THEN11700 11100 IFCM$="QUIT"THEN11600 11200 GOSUB21000 11300 GOSUB12000 11400 PRINT"[147]"; 11500 GOTO11000 11600 REM 11610 GOSUB40000 11700 RUN 12000 REM 12010 IFTYPE=1THENGOSUB35000:GOTO12140 12020 IFTYPE=2THENGOSUB22000:GOTO12140 12140 REM 12150 REM 12300 IFTYPE=1THENGOSUB37000:GOTO12390 12310 IFTYPE=2THENGOSUB25000:GOTO12390 12390 REM 12400 IFCM$<>"QUIT"THENIFK$<>"_"THENGOSUB12600 12410 IFK$="_"THENIFQ>1THENQ=Q-1:GOSUB39000:RETURN 12500 RETURN 12600 REM 12610 DP=DP+1:IFQ$(DP)<>"?"THENIFQ$(DP)<>"///"THEN12610 12612 Q=Q+1:IFQ$(DP)="///"THENDP=0:Q=1 12620 RETURN 20000 REM 20010 QC=0 20015 FI$="POLL.Q."+PS$ 20016 OPEN8,8,8,FI$ 20020 INPUT#8,Q$(QC) 20030 IFQ$(QC)="///"THENQC=QC-1:GOTO20080 20040 QC=QC+1:GOTO20020 20080 REM 20082 CLOSE8 20085 DP=0:GOSUB50000:IFR<>1THENGOSUB110 20090 RETURN 21000 REM 21005 DS=DP+1 21010 TYPE=VAL(Q$(DS)):DS=DS+1 21020 IFTYPE=1THENGOSUB27000:GOTO21040 21030 IFTYPE=2THENGOSUB28000:GOTO21040 21040 RETURN 22000 REM 22010 PRINT""; 22020 PRINT"[209]UESTION: "Q;TAB(21)MX"ANSWER";:IFMX<>1THENPRINT"S"; 22022 PRINT" ALLOWED" 22025 PRINTDA$ 22030 FORC1=1TONL:PRINTQ1$(C1):NEXT 22035 PRINTDA$ 22040 FORC1=1TOAC 22050 FORC2=1TOAL(C1):PRINTSPC(4); 22055 IFAN$(AN(C1))<>""THENIFAN$(AN(C1))<>"0"THENPRINT""; 22056 PRINTA2$(C1,C2) 22058 IFTG(C1)<>0THENPRINTSPC(6)US$; 22059 IFAN$(AN(C1))<>""THENIFTG(C1)<>0THENPRINT:PRINT"[145]"AN$(AN(C1)); 22060 IFTG(C1)<>0THENPRINT 22061 NEXT 22065 NEXT 22070 RETURN 23000 REM 23010 VS=VT:VT=19:GOSUB61000:VT=VS: PRINT""DA$ 23020 IFTYPE<>1THENPRINT" [198]UNCTION KEYS MOVE CURSOR[160]([160]>[160]) " 23030 IFTYPE=2THENPRINT" [211]PACE BAR TOGGLES SELECTIONS. " 23035 IFTYPE=1THENPRINT" [208]RESS SPACE BAR THEN TYPE ANSWER. " 23040 PRINT" [208]RESS [210][197][212][213][210][206] FOR NEXT QUESTION. " 23050 PRINT" [208]RESS _ FOR PREVIOUS QUESTION. " 23055 PRINT" [208]RESS [195][212][210][204]-[199] TO QUIT. " 23060 RETURN 25000 GOSUB23000 25005 A=1:VT=4+NL 25006 REM 25010 HT=1:GOSUB60000 25015 GOSUB61000:PRINT">"; 25020 GETK$:IFK$=""THEN25020 25025 PRINT"[157] "; 25026 IFK$="[145]"ORK$=""THENK$="[133]" 25027 IFK$=""ORK$="[157]"THENK$="[136]" 25030 IFK$="[135]"ORK$="[136]"THENA=A+1:VT=VT+AL(A-1)+TG(A-1):IFA>ACTHENA=1:VT=4+NL 25040 IFK$="[133]"ORK$="[134]"THENA=A-1:VT=VT-AL(A)-TG(A):IFA=0THENA=AC:VT=4+NL:GOSUB62000 25050 IFK$=" "ORK$="[160]"THENGOSUB25999:K$="" 25060 IFK$=CHR$(13)THENRETURN 25070 IFK$="_"THENRETURN 25075 IFK$=""THENCM$="QUIT":RETURN 25080 GOTO25006 25999 REM 26000 IFTYPE=2THENGOSUB26002:RETURN 26001 IFTYPE=1THENGOSUB37000:RETURN 26002 NA=0:FORC=1TOAC:IFAN$(AN(C))<>""THENIFAN$(AN(C))<>"0"THENNA=NA+1 26004 NEXT 26005 IFTG(A)=0THENIFAN$(AN(A))="1"THENAN$(AN(A))="0":GOTO26015 26006 IFTG(1)=1THENIFAN$(AN(A))<>""THENGOSUB36000:GOTO26015 26007 IFMX=1THENFORC=1TOAC:AN$(AN(C))="":NEXT:ONTG(A)+1GOSUB41000,36000:GOTO26015 26008 IFTG(A)=0THENIFNA=MXTHENIFVAL(AN$(AN(A)))=0THENGOSUB59000:RETURN 26010 IFTG(A)=0THENIFVAL(AN$(AN(A)))<>0THENAN$(AN(A))="0":GOTO26012 26011 IFTG(A)=0THENAN$(AN(A))="1" 26012 IFTG(A)=1THENIF((NA0)THENGOSUB36000:GOTO26015 26013 IFTG(A)=1THENIFNA=MXTHENIFLEN(AN$(AN(A)))=0THENGOSUB64000:RETURN 26014 IFTG(A)=1THENGOSUB36000:GOTO26015 26015 REM 26020 GOSUB22000 26025 REM 26030 RETURN 27000 REM 27010 GOSUB29000 27020 AC=VAL(Q$(DS)):DS=DS+1 27030 FORAN=1TOAC 27040 GOSUB34000 27050 NEXT 27060 RETURN 28000 REM 28010 GOSUB29000 28020 AC=VAL(Q$(DS)):DS=DS+1:MX=VAL(Q$(DS)):DS=DS+1 28030 FORAN=1TOAC 28040 GOSUB30000 28042 GOSUB31000 28044 GOSUB32000 28046 FORAO=1TOAL(AN) 28048 GOSUB33000 28049 NEXT 28050 NEXT 28060 RETURN 29000 REM 29010 NL=VAL(Q$(DS)):DS=DS+1 29020 FORLC=1TONL 29030 Q1$(LC)=Q$(DS):DS=DS+1 29040 NEXT 29050 RETURN 30000 REM 30010 AN(AN)=VAL(Q$(DS)):DS=DS+1:RETURN 31000 REM 31010 AL(AN)=VAL(Q$(DS)):DS=DS+1:RETURN 32000 REM 32010 TG(AN)=VAL(Q$(DS)):DS=DS+1:RETURN 33000 REM 33010 A2$(AN,AO)=Q$(DS):DS=DS+1:RETURN 34000 REM 34010 AN(AN)=VAL(Q$(DS)):DS=DS+1:RETURN 35000 REM 35010 PRINT""; 35020 PRINT"[209]UESTION "Q 35025 PRINTDA$ 35030 FORC1=1TONL:PRINTQ1$(C1):NEXT 35040 PRINTDA$ 35050 FORC1=1TOAC 35060 PRINTSPC(6)US$;:HT=7:GOSUB60000:IFLEN(AN$(AN(C1)))<>0THENPRINTAN$(AN(C1)); 35061 PRINT 35070 NEXT 35080 RETURN 36000 REM 36010 PRINT:PRINTSPC(6); 36020 GOSUB38000:HT=7:GOSUB60000:PRINTUS$;:GOSUB60000:PRINTL$; 36030 RETURN 37000 REM 37010 VT=4+NL 37020 GOSUB23000:GOSUB61000:HT=1:GOSUB60000:PRINT">"; 37030 GETK$ 37031 IFK$<>" "THENIFK$<>"[160]"THENIFK$<>CHR$(13)THENIFK$<>"_"THENIFK$<>""THEN37030 37035 IFK$=""THENCM$="QUIT" 37040 IFK$=CHR$(13)ORK$="_"ORK$=""THENRETURN 37050 A=1:GOSUB42000:GOSUB61000 37060 HT=7:GOSUB60000:GOSUB38000:HT=7:GOSUB60000:PRINTUS$;:GOSUB60000:PRINTL$ 37070 IFAN$(AN(A))=""THENFORC1=ATOAC:AN$(AN(C1))="":NEXT:GOSUB35000:GOTO37020 37080 A=A+1:IFA>ACTHENK$="":GOTO37020 37090 GOTO37060 38000 REM 38002 DL$=CHR$(20):X$="[164]" 38005 L$="":CR$=CHR$(13):BS$="[157]":FS$="" 38010 FORL1=1TOLEN(US$) 38020 PRINT""X$BS$; 38021 GETK$:IFK$=""THENPRINT"[146]"X$BS$;:GOTO38020 38022 POKE198,0:PRINT"[146]"; 38023 IFK$=DL$THENK$=BS$ 38024 IFL1=LEN(AN$(AN(A)))THENX$="[164]" 38030 IFK$=CR$THENAN$(AN(A))=L$:PRINT" "BS$;:RETURN 38031 IFK$=","THENK$=";" 38032 IFK$=":"THENK$="-" 38033 IFK$=CHR$(34)THENK$="'" 38034 IFK$=BS$THENIFL1>LEN(AN$(AN(A)))THENAN$(AN(A))=L$ 38035 IFK$=BS$THENIFL1>1THENGOSUB38200:GOTO38020 38036 IFK$=FS$THENHT=7:GOSUB60000:GOSUB38100:X$="[164]":GOTO38020 38040 IFK$<" "ORK$>"Z"THEN38020 38045 IFL1=LEN(US$)THENGOSUB59000:GOTO38020 38050 L$=L$+K$:PRINTK$; 38060 NEXT 38070 RETURN 38100 PRINTL$MID$(AN$(AN(A)),L1);:L$=L$+MID$(AN$(AN(A)),L1):L1=LEN(L$)+1:RETURN 38200 GOSUB63000:POKE782,PEEK(782)-1:POKE783,0:SYS65520 38205 X$=RIGHT$(L$,1) 38210 L1=L1-1:L$=MID$(LEFT$(" "+L$,L1),2) 38220 PRINT"[146]"X$BS$; 38230 RETURN 39000 REM 39010 DP=DP-1:IFQ$(DP)<>"?"THEN39010 39020 RETURN 40000 REM 40010 FORC1=ADTO1STEP-1 40020 IFAN$(C1)<>""THENTP=C1:C1=0 40030 NEXT 40035 PRINT"[208]LEASE, WAIT...."; 40040 PRINT#15,"S0:POLL.D."+PS$ 40050 OPEN8,8,8,"POLL.D."+PS$+",S,W" 40060 FORC1=0TOTP 40070 PRINT#8," "AN$(C1):PRINT"."; 40080 NEXT 40085 PRINT#8,"///" 40090 CLOSE8:PRINT 40100 RETURN 41000 AN$(AN(A))="1":RETURN 42000 VS=VT:VT=19:GOSUB61000:VT=VS: PRINT 42010 PRINT" [212]YPE YOUR RESPONSE. " 42020 PRINT" [208]RESS [210][197][212][213][210][206][160]AFTER EACH LINE. " 42030 PRINT" [197]DIT EACH LINE WITH [195][210][211][210][160]KEYS. " 42040 PRINT""DA$ 42060 RETURN 44000 PRINT"[147]"; 44010 PRINT"[209][160]&[160][196][160][208]OLLSTER" 44020 PRINT:PRINT:PRINT"[204]OADSTAR [208]OLL" 44030 PRINT:PRINT:PRINT"[215]HICH TOPIC DO YOU CHOOSE?" 44040 PRINT:PRINT"1 = [196]EMOGRAPHICS" 44050 PRINT:PRINT"2 = [200]ARDWARE" 44060 PRINT:PRINT"3 = [211]OFTWARE" 44070 PRINT:PRINT"4 = [204]OADSTAR" 44080 PRINT:PRINT"5 = [204]EAVE THE [208]OLLS" 44090 GETK$:IFK$=""THEN44090 44091 IFK$>"5"ORK$<"1"THENGOSUB59000:GOTO44090 44094 PRINT#15,"I0" 44095 OPEN8,8,8,"$":FORC=1TO142:GET#8,L$:NEXT:N$="":FORC=1TO16:GET#8,L$:N$=N$+L$ 44096 NEXT:CLOSE8:IFN$<>"LOADSTAR #14 S-2"THENGOSUB53000:GOTO44094 44099 PS$="" 44100 IFK$="1"THENPS$="DEMOGRAPHICS" 44110 IFK$="2"THENPS$="HARDWARE" 44120 IFK$="3"THENPS$="SOFTWARE" 44130 IFK$="4"THENPS$="LOADSTAR" 44140 IFK$="5"THEN45000 44145 PRINT 44147 PRINT""K$" "PS$ 44150 RETURN 45000 REM QUIT HERE 45010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN" 45020 POKE631,13:POKE632,13:POKE198,2: END 50000 REM 50005 PRINT:PRINT"[201]NSERT YOUR POLL DATA DISK AND PRESS SPACE." 50006 GETK$:IFK$=""THEN50006 50007 IFK$="Q"THENR=1:RETURN 50008 IFK$<>" "THENIFK$<>"[160]"THENGOSUB59000:GOTO50006 50010 R=0:N$="":PRINT#15,"I0":INPUT#15,A:IFA=21THENGOSUB54000:IFR=1THENRETURN 50015 IFA<>0THENN$="XXXXXXXXXXXXXXXXX" 50020 IFN$="XXXXXXXXXXXXXXXXX"THENPRINT#15,"N0:POLL DATA DISK ,PD":GOTO50010 50100 OPEN8,8,8,"$" 50200 FORC=1TO142:GET#8,K$:NEXT 50250 N$="" 50300 FORC=1TO16:GET#8,L$:N$=N$+L$:NEXT:CLOSE8 50350 IFLEFT$(N$,6)="LOADST"THENGOSUB52000:GOTO50010 50400 IFLEFT$(N$,14)<>"POLL DATA DISK"THENGOSUB51000 50999 CLOSE8:RETURN 51000 PRINT:PRINT"[212]HAT DISK IS CALLED --" 51010 PRINTN$"." 51020 GOTO52010 52000 PRINT:PRINT"[212]HAT APPEARS TO BE A LOADSTAR DISK." 52010 PRINT:PRINT"[193]RE YOU [211][213][210][197] YOU WANT TO ERASE IT?(Y/N)" 52020 GETK$:IFK$=""THEN52020 52030 IFK$<>"Y"THENIFK$<>"N"THENGOSUB59000:GOTO52020 52040 IFK$="Y"THENPRINT#15,"N:POLL DATA DISK,PD":RETURN 52050 PRINT:PRINT"[201]NSERT ANOTHER DISK AND PRESS SPACE TO RETRY." 52060 GETK$:IFK$=""THEN52060 52070 IFK$<>" "THENIFK$<>"[160]"THENGOSUB59000:GOTO52060 52080 RETURN 53000 PRINT:PRINT"[208]UT [204][207][193][196][211][212][193][210] SIDE TWO IN THE DRIVE AND PRESS SPACE." 53010 GETL$:IFL$=""THEN53010 53020 IFL$<>" "THENIFL$<>"[160]"THENGOSUB59000:GOTO53010 53030 RETURN 54000 PRINT:PRINT"[210]EAD ERROR!":PRINT 54010 PRINT"[201]NSERT ANOTHER DISK AND PRESS SPACE TO TRY AGAIN." 54020 PRINT:PRINT"[207]THERWISE, PRESS 'Q' TO QUIT." 54030 GETK$:IFK$=""THEN54030 54040 IFK$="Q"THENR=1 54050 IFK$=" "ORK$="[160]"ORK$="Q"THENRETURN 54060 GOSUB59000:GOTO54030 59000 REM 59010 FORC1=1TO3 59020 POKE54273,RND(1)*57+12 59040 POKE54296,15 59060 POKE54272,128 59070 POKE54277,0:POKE54278,240 59080 POKE54276,32 59100 POKE54276,33 59110 FORAA=1TO22 :NEXT 59120 POKE54276,32 59130 NEXT:RETURN 60000 REM HTAB 60010 GOSUB63000:POKE782,HT-1:POKE783,0:SYS65520:RETURN 61000 REM VTAB 61010 GOSUB63000:POKE781,VT-1:POKE783,0:SYS65520:RETURN 62000 FORC1=1TOAC-1:VT=VT+AL(C1)+TG(C1):NEXT:RETURN 63000 REM PLOT TO RETURN POSN 63010 POKE783,1:SYS65520:RETURN 63999 RETURN