' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6  H8`?E V9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD#HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hE(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠ8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ穎7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*55L6 &L"L& # "#-55*( $ z$egehtpjigh q$ Q(l` $ z$8L`*Ma*EK@>ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ*@ N'5L& ' ' ' ' "L#` -e* L  #s*r* #m*l* #s*r*L# "-5L& # z$e*)r*s* z$r*s*Lq$ ]# Q(lr** L& #8gh #hgL# #8LʨM #ˤL#5H "hL'55555 &55L&&E`( !80 0 !DDL"DLDL^* t*^*`,t*P pMt*-^*^*`*DH #hW*L' " d'@` "L" 5 5 c* "L" " &Lq6L#c*l* m*l*l*5m*5 "EL&AD@ C' N' 'c*5L&u*ɠ% d': "L" 'c*vc*]*ܢ @)J)0G e*e*ʎd* !d* E DU)EX) ЃDW)c*ДJEg*Df*L H e*e*h) t*t* !L [' !_*HH`]*ɍ]*ɬ` !ɠ`5`DE !ɤ<(L! !DE`80!  !eDeE ! !eDDeEE8`DͲ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L 5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`/B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4Ќ7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 5` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 5AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3UVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS ng: It's Up to You","","Version 1.0",6dÃSmoking I.Q.,SMOKING I.Q.,"This program quizzes students on","their knowledge of the effects","of smoking. The questions represent","the content of this package.",""nÃSmoking Attitudes,SMOKING ATTITUDES,"Thi4000:3090" AN1İ15000:3090K A0ANZ$CN$(A):Z1$MN$(A):4000U 3020[ pRUN THE PROGRAM{216,0VSP:CL$:CO,0,89:"Getting "Z1$"...":RNH,Z$'SUBROUTINES'P(S)(S)(S1)256':DL5:CA1:DR0:PR0:SO1:IN1:DI0:EE1:MH4:TC0:SB975$'DL=DESCRIPTION LINES,CA=TEACHER OPTION,DR=DISKETTE SUPPORT,PR=PRINTER SUPPORT,SOUND SWITCH,IN=INSTRUCTIONAL,DI=DISCLAIMER,EE=ESC ESC,MH=MENU HORIZONTAL,TC=TWO COLUMNS,SB=SOUND BYTE.'CA$(1):CL$(12):CP$(16):CQ$(17):CC$(3):D$(4)8''*SOUND SWITCH{+OO(SB):OO(OO):SB,OO:DB:CO,62,SY:N2PRDR;:CEL:". Turn sound "OO$(OO)*+\+ DRAW BORDERf+4:21,021,191+1:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,185P+6:X10:Y10:X2278:Y2191:DX18:DY12:L02 +X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:r+1:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:x+.SUPPORT BOOK INFO.2:VSP,6:JUST:"A manual to aid in the use of this diskette is available from MECC.":VSP:PARSE!.9:"::"Since 1974, the percentage of GIRLS smoking has dropped from 15% to 13%.":171,149225,149Y6013236:BOX,18,Y,22,Y4,6:Y:SPACE:300:::" These statistics show us that 9 out of every 10 American teenagers DO NOT smoke!":SPACE300:2 Title: ";DN$:D2$""Ė13:D2$C/12:" Direct inquiries to:"/:7:"MECC Distribution":7:"3490 Lexington Avenue North":7:"St. Paul, Minnesota 55112":7:"(612) 481-3527"/30000:CL$&/HELP LINE & DISCLAIMERN/DIıX/2:17:"NOTICE:"::WIND,28,40:COb/VSP,5:"REASONABLE EFFORTS HAVE BEEN MADE IN THE PREPARATION OF THIS COURSEWARE TO ASSURE ITS ACCURACY. MECC CANNOT ASSUME";l/" ANY LIABILITY RESULTING FROM ERRORS, OMISSIONS, OR USE OF THE INFORMATION CONTAINED HEREIN."v/WIND:VSP,1:30000:CL$:<2DECIDE UPON SCREEN FORMATX2PD(PRDRSO):TNPDN2i3N1SP$"s"o36END OPTION6CL$:11:"Insert another diskette."(3)630000:CL$6CS(P(P(999))1)16:SLOT #6CS1CS7CS66CS::DESCRIPTIONS C:WIND:CO:CL$:DN$CC$:DV$CC$:WIND,0,36:COt:CT0:I1N:CT13DLİ30000::CO:CEW:CT1:MN$(I)::CTCT2:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1:J:::I:30000:WIND:CL$:12000:EEİ17000 :>INPUT ROUTINE=>EXIT: ANSWER PLACED IN Z$r>CT0:(1);:ZE0:16368,0:ZC0:GCP,ZX,ZY:Z$"">CO,ZX,ZY:CEL:CO$""CN$(8);:CTCT1>Z$""CT116035>ZN(16384):ZZ(1):ZN12816041>16368,0:CT0:ZNZN1285>ZN1ZN127ZN8ZN13ZN24(ZN49ZN48TN)16040{>(ZN8ZN127)ZC0ZCZC1:(8)CO$""CN$(8);:ZC0Z$(Z$,ZC)>ZC0(ZN8ZN127)Z$"":16040>ZN8ZN12716040>ZN13ĺCO$:>ZN24ZC0:Z$"":16035>ZC0ĺCO$""CN$(8);:16040%>Z$Z$(ZN):ZN32ĺCO$:S>ZCZC1:CN$(ZN12)CO$""CN$(8);:16040ghBESC ESC SCREEN3rBVSP,3:CL$"Leaving a Program"CC$:CO,0,45:"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenever the computer is waiting for you to type.":VSP:30000:J0uSPACE BAR ROUTINE[:u:SPACE::ay|STANDARD YES-NO INPUT(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020Pò USER DATA AREA'ZÃ"Smoki;:CEL:16000:A$Z$j CAA$(1)ĺCL$:CO,0,70::"There are no management options available.":30000:y A((A$)) PRAN2Z$X1$(0):Z1$X1$(1):4000 DRAN2PRZ$X2$(0):Z1$X2$(1):4000 SOAN2PRDRİ11000:3020  AN2PDİ1SIZ$"":37972,CN:CMCO:SIZ$S$:, DELAY@ DB:PAUSE,15:L ZEROES V$(1)(V1):V$(2)(V2):V$(3)(AN):L213:((V$(L2)))(V$(L2))V$(L2)V$(L2)".0" (V$(L2),1,1)"."V$(L2)"0"V$(L2) L2:700:V1$"":V2$"":AN$"":V1$V$(1):V2$fter smoking: ","Number of hits before smoking: ","Number of hits after smoking: ","Temperature before smoking: "nÃ"Temperature after smoking: ","PPM","BPM","","","(PPM = Parts per million)","(BPM = Beats per minute)","",""xà 0,99,25,150,0,999,11,1:300:" In addition to lung cancer, smoking can cause other types of cancer, such as:"::" Cancer of the mouth"" Cancer of the esophagus":" Cancer of the larynx":" Cancer of the bladder":" Cancer of the pancreas":Z10915912:20 vBOX,24,Z,28,Z4,6:Z:SPACE BOX:200::"FACT: Smoking is a major risk factor in heart attacks.":300:" Smokers have nearly 70% more heart attacks than nonsmokers do. Of the nearly one million deaths each year from heart diseases, ";"25% of them are caused by smoking.":SPACE:BOX:200::"FACT: Smoking is a major cause of lung diseases.":300:" Smoking can greatly increase the chances of developing:":b " chronic bronchitis":" emphysema"::" These are lingering diseases th SMOKING7PROGRAM: SMOKING ATTITUDESTDEVELOPER: C SOLOMONSENq(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/01 RJGF1000dDRAW GRAPHJ nCL$"SELF-TEST RESULTS"CC$:6:0,115279,115:BOX,48,23,252,87,3:0:X5025040:X,25X,85:X:X16:CO,48(X1)40,90:X:X xY123:Y15132:CO,30,Y1:Y:Y1Y110:Y:CO,32,Y1:"11":Y1Y110:Y952:CO,36,Y1:Y:Y1Y110:YE BOX,30,101,250,110,3:WIND,34,101,240,110:CO:DB::"average your score "CC$:5:96,105120,105:0:222,105242,105:WIND:CO:DBM :_ ADD TO GRAPH LXXV40:NXXV:NY75(SC5)5:L1ĒHC:LX,75(LY5)5NX,NY:YVNY:HC1ēLX,74(LY5)5NX,NY1:LX,76(LY5)5NX,NY1 BOX,NX2,NY1,NX2,NY2,HC  ,CALCULATE RESULTK 6R0:L2LL246:L3L2:L225L31:L21L33` @RRR%(L2):L2: 10000:L130:Q$:CL$"STATEMENT #"L;CC$:VSP,4:CO,0,30:Q$;:GCP,X,Y:6:0,25279,25:0,Y12279,Y12: CO,30,100:"1) Disagree":CO,28,112:"2) Neither agree nor disagree":CO,28,124:"3) Agree":CO,0,150:"Enter your choice (1-3): ";:CEL:INP,(1,"-13",1),R$:R%(L)(R$):LP VSP:CL$"SELF-TEST RESULTS"CC$::"The self-test had five statements from each of the following categories:":VSP,3:WIND,/0<=(0% Hh @H(hJ)?<= pPpL 2 & &JJ==<= pP`̓˃̃)"h΃ σ >? z>?e>>?˃̓΃H(̃`!Ii냠>냢Pjjjjjjj0Nj       SMOKING+PROGRAM: SMOKE ANALYSISHDEVELOPER: C SOLOMOMSONe(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/02 RJGP(4)"MAXFILES1":12544ZSV0 d10000:NOCNV:CL$:WIND,25,55,260,120:CO:DB:VSP,8:"These statistics are from the Federal Trade Commission reports of March 1983 and March 1984.":EDGE,5,45,275,118,3,1:SPACE:WIND:CO:DB:1000 CALCULATE PERCENT P(ANV2)100:PC(P):(PPC.499)PCPC1 ,READ RECORD! 6C$"":S$"":ENDING\"yVSP:DB:WIND:CL$:CO,0,89:"One moment please ...":D$"RUN IMMEDIATE EFFECTS"fPòDATAZÃ5,5,14,26,78,80,85,104,21,17,24,47,83,84,83,80qdÃ"Reading before smoking: ","Reading after smoking: ","Pulse rate before smoking: ","Pulse rate aBOX:200::"FACT: Nonsmokers live about 7 years longer than smokers do.":300:" For light smokers (less than 10 cigarettes per day), the life expectancy is 4.6 years less.":4" For heavy smokers (2 packs per day), the life expectancy is 8.3 yeaTLC$,TA,NI,CO,S$king sizereg size100 mm120 mm/filter/mentholHHW ߄ hh g RPP) ee ȱȱe ȱ 8 8  Rrq  ȱȱȱȱȱ  +  +  U +0 L L)L(eLLLŕ)  {` Lf~~~ ~~~~~`````````0``0`00`~>cc>cc>>cc>0000000|~~~w~~~~f<ff<DRĖMH4((N2PR)9):X2$(1)"DRIVE SUPPORT":X2$(0)"Diskette Support":N2PR". "X2$(0) H(SO)2130 JOO$"off":(975)OO$"on"] MMH2((N2PRDR)9):GCP,SX,SY:N2PRDR". Turn sound "OO$(OO) R2MH((N2PD)9):LLN2PD:LL".";:DB:2MH(LL9)(S$)1:"End": \GCP,IX,IY:VSP: RESPOND TO USER'S CHOICE CO,IX,IY:MH:"Which number? "at result in shortness of breath and severe discomfort.":Z9811012:BOX,24,Z,28,Z4,6:Z:SPACE%300:::" Emphysema destroys the air sacs in the lungs. This leads to severe difficulty in breathing. There is no cure for emphysema!":SPACE* to 30%) for nonsmokers. These rates often apply to home, auto, life, and disability policies."l :" Here are some of the reasons why ...":SPACE:BOX:CO,10,50:DB:"25% of all U.S. fires are caused by smoking."pv IMAGE,1,101,60:PAUSE,10:3:184hw` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6:BOX:CO:DB:! UPPER WINDOWF WIND,0,20,279,70:BOX:CO:DB:V XCILIACTION ]D10:D20:NC25:T1$"dirt ... mucus ... germs ... ":T1$T1$T1$:T2$"mucus ... germs ... dirt ... ":T2$T2$T2$:TS$"SMOKE ... SMOKE ... SMOKE ... SMOKE ... SMOKE ..x SMOKING)PROGRAM: SMOKING TESTFDEVELOPER: C SOLOMONSENc(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/04/17 RJGF16384d10000:1000SCRAMBLE CHOICES HITC:CH$(ZR%(L),HI)"All of the above"C. "K b16368,0:EC0:CO,0,183:"Press SPACE BAR to continue"CC$:AFT,0,0 lXZ(0):XX(16384):XXXX128:XX32XX27XX13660 vXX27ECEC1:EC231000 XX27660 16368,0:AFT,0,2:* D1D11:D1DYCFD10:IMAGE,CN,X%(CN),18:IMAGE,CN3,X%(CN3),60:CNCN1:CN3CN17 TF680 D2D21:D2DYD2$(T1$,1,NC):CO,50,52:D2$:X$(T1$,(T1$),1):T1$X$(T1$,1,(T1$)1):D3$(T2$,1,NC):CO,50,34:D3$:X$(T2$,(T2$),1):T2$X$(T2$,1,(T2$)1):D202 SFD1$(TS$,1,NC):rs less.":SPACE: COSTD RFL,"COST1.IMA"36168:DFT,7,36168 200:CO,0,10::CN$"SMOKING IS EXPENSIVE"CO$CC$:300:" Each year, the cost of smoking goes higher. The cost includes:"::" cigarettes":" higher insurance rates" " property losses":" accidents":" increased medical bills":Z9814612:BOX,32,Z,36,Z4,6:Z:SPACE:BOX:200:CO,0,10::CN$"COST OF CIGARETTES"CO$CC$:300:U "Let's find out how much a smoker might spend on cigarettes over a period of time. Assume the role of a smoker and answer the questions on the next screen.":SPACE YY0:BOX:CO:DB:"1. How many cigarettes are smoked each day (1-99)? ";:DB:GCP,CX,CY::"(20 cigarettes = 1 pack)" CO,CX,CY:CEL:INP,(2,"-09",1),N$:N(N$):N1N993040n CO,10,104:"2. How many years (1-50)? ";:CEL:INP,(2,"-09",1),Y$:Y(Y$):Y1Y503050 CO,10,122:"3. Cost per pack? $";:DB:GCP,CX,CY::"(Usually about $1.00)":CO,CX,CY:CEL:INP,(4,"-09.",1),C$:C(C$):C.5C2įSPACE:3080` :"Please enter a price between $0.50 and $2.00":SPACE:BOX,10,144,270,175:DB:3060 BOX:200:CO,90,12:"Cigarettes per day":CO,90,27:"Per pack":BOX,15,10,80,20,3:BOX,15,25,80,35,3:WIND,15,12,80,20::CO:N;CC$:WIND,15,27,80,35:INC:400:CO:"$"IN$CC$: KN20:CCK:WIND:DB:300:"COST OF CIGARETTES"CC$:INC:400:"$"IN$" per day"CC$:INC7:400:"$"IN$" per week"CC$:INC30:400:"$"IN$" per month"CC$:INC365 400:"$"IN$" per year"CC$:PAUSE,10:Y23110 " per years"CC$::YY2Y:BOX,40,120,120,130,3:WIND,40,122,120,129:CO:INC365YY:400:"$"IN$CC$:BOX,156,120,186,130,3:WIND,156,122,186,129:CO:YY;CC$:PAUSE,10:YYu& :3,145275,145:WIND,10,60,270,176:IN(IN.07Y)IN:400:CO,10,150:DB:"If saved at 7% interest, that":"would amount to ":BOX,140,160,230,170,3::WIND,140,162,230,169:CO:"$"IN$"!"CC$:0 SPACE:0:3,145275,145:3:BOX,10,10,270,40:300:200:CO,0,10::CN$"COST OF CIGARETTES"CO$CC$:300:}N CO,10,90:DB:"Would you like to calculate the cost again using different values? ";:CEL:INP,(3,"YESNO",1),DV$:DV$(DV$,1):DV$"Y"DV$"N"3150X DV$"Y"3035_b BOX:200:CO,0,10::CN$"INSURANCE COSTS"CO$CC$:300:" Many insurance companies offer reduced rates (up     ~~~HB*[GAՀGFE{[FA}Su}[GAՀGFE{[AəAGAՀGFE{[HAGAՀGBGABA    th`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx`````x 8` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``l000t u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)捿ttmtt`BAՀGBGAՀGFpDnp]EAGAՀGFAqn`~a[BAGAՀGFABnu{[DA/++OkA+/[GAՀGFAqn`~a[BBABUCEDBU[GAՀGFyD{q[BBAB*CEDB*[GAՀGFAqBnq[BABUEBDBU[GAՀGFApnnp~~[FAB*EDB*[GAՀGFAqn`~a[DABUOBU[GAՀGFAoaBna[AB*CÙBDB*[GAՀGFG[BVBfBUCACDBU[GAՀGF{yB{q[AVBfB*ECDB*[GAՀGFApCnPB]CfBUCDBU[GAՀGFGIADBBBPLmB*EDB*[GAՀGFAaB~aPBBBKKHfBUCADBU[GAՀGFAqBnqPBHRDfB*EDB*[GAՀGFAqBnq[GSABfBUEDBU[GAՀGFApnnp~~[GVCfB*EDB*[GAՀGFAqn`~a[AĄBVCfBUEßDBU[GAՀGFAb|B~[󳓓VCfB*OB*[GAՀGFAqoana[V̜̌fBUCDBU[GAՀGFA}p}}ms{fB*CΌ̞DB*[GAՀGF{yB{q[BVfBUEDBU[GAՀGFAqBnq[əəVfB*CDB*[GAՀGFApCn[𧿿VBfBUCEDBU[GAՀGFG[TAfB*CFDB*[GAՀGFAAnAjd[FVfBUCBDBU[GAՀGF{yB{q[D̞VfB*EDB*[GAՀGFA}p}}ms[BAABUEBDBU[GAՀGFA~pCn[FAB*ECB*[GAՀGFG[ÙBABUCχDBU[GAՀGFA}p}}ms[EAB*EDB*[GAՀGFA~pCn[FABU ___DBU[GAՀGFAqn`~a[FAB*BC~~|~~JU40,55,260,191:CO:"Effects on health":"Nonsmokers' rights":"Positive effects" "Manufactured reasons":"Reasons for starting":"Teenage smoker's image":WIND:Z5711211:BOX,26,Z,32,Z4,1:Z:2:0,50279,50:0,122279,122CO,0,130:VSP:"YourCO,50,44:D1$:X$(TS$,1,1):TS$(TS$,2,(TS$))X$; 620H PROGRAMS 10000c CILIACTION CO,0,35:"LUNGS":CO,10,45:"<-":CO,250,35:"AIR":CO,254,45:"<-":400:" Cilia are tiny hairlike structures found inside your bronchial tubes. "; "They work like brooms to sweep germs, mucus and dirt from the lungs.":CN1:KB1:SF0:DY1:TF1:CF1:KD20:X%(1)43:X%(2)43:X%(3)41:ZZ46:X%(ZZ)X%(ZZ3):ZZ:600o400:" Smoking one cigarette will slow down the sweeping motion of the cilia,90175,100:WIND,190,70,270,130:AFT,0,0:CO:DB:"I'm going to have a smoke before I go to bed ... ":PAUSE,30x BOX:CO:DB:ZZ118:"z ";:DB:PAUSE,4:ZZ:PAUSE,30:BOX:IMAGE,2,101,59:RFL,"COST2.IMA"36168:AFT,0,2:WIND,10,60,270,176:CO:DB}y CO,10,132:"Each year, more than 2,500 people die in fires caused by smoking. Property damage is more than $300,000,000."S{ SPACE:300:CO,10,50:DB:"Smoking reduces life expectancy.":CO,10,143:"Each year almost 350,000 Ameri- cans die earlier than they would have if they had never smoked.":IMAGE,1,77,72:RFL,"COST3.IMA"36168 SPACE:300:CO,10,50:DB:"Smoking is the cause of many accidents.":CO,10,133:"Many accidents are caused by smoke in the eyes, lighting a cigarette, or dropping a lit cigarette in a vehicle."< IMAGE,1,101,60:SPACE:AFT,3! BOX:200:CO,0,10::CN$"SMOKING IS EXPENSIVE"CO$CC$:300:" It has been estimated that smoking costs Americans (smokers and nonsmokers) more than $27 billion each year due to:"::WIND,40,107,240,191:CO:DB! "Medical costs":"Building fires":"Higher insurance premiums":"Forest fires":"Illnesses":"Accidents"! LL10817012:BOX,22,LL,26,LL4,6:LL:WIND:CO:DB:SPACE:!'INITIALIZE"'D$(13)(4):CC$(3):CN$(14):CO$(15):CL$(12)$"$'(903)2000,3000n".'200:300:CO,0,95:"One moment please ..."CC$:D$"RUN SMOKING FACTS"z"yENDING""yWIND:VSP:CL$:CO,0,89:"One moment please ...":D$"RUN SMOKING FACTS" :"One moment please ..."CC$:D$"RUN SMOKING FACTS" #yENDINGM#"yCL$:CO,0,89:"One moment please ...":D$"RUN SMOKING FACTS" ,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010#,yZN$"Y"::"One moment please ... "CC$:D$"RUN SMOKING FACTS""$6yVSP:WIND:CL$:CO,0,90:"Getting the Menu program ...":902,255:D$"RUN MENU" "Incorrect. ":400:IXIX1:IN%(IX)ZR%(L):L FOLLOWUP STATEMENT WIND,10,122,195,168:CO:VSP:FS$(ZR%(L)):VSP,5:EDGE,4,119,198,168,3,6:WIND,0,20,210,180: PROGRAM' 10000:L1MAX:BOX::CO:L".":WIND,20,20,205,180:CO:Q$(ZR score for each category will range from 5 to 15. These scores will be compared to the average scores of teenagers who took part in the national survey.":SPACERESULTSALX%(1)50:L26:LX%(L)LX%(L1)40:L:VSP:100:WIND,0,120,279,191:L16:N,T$,R$,AV:L11N:LB%(L1),UB%(L1),R$(L1):L1:LY%(L)75(AV5)5X146(L1)40:BOX,X1,89,X110,97,3:CO,X12,90::L::CO,0,120:(L)". "T$CC$:6:0,130279,130:CO,0,135:"The average teenager scores "AV", which indicates "R$:CYL:SCAV:LYOY:HC5200:OYSC:300:SPACE:L41N:(RLB%(L4)RUB%(L4))įCO,0,135:CEW:CO,0,126::"Your score of "R" indicates that you "R$(L4):SCR:LYSY:HC0:200:SYSC:XVXV40:SPACE:L4N1pL4:BOX:BOX,X1,89,X110,97,0:CO,X12,90:L:L:VSP,4:CO,0,135:CEW:CO,0,130:" As you face decisions concerning smoking, it helps to know your own attitudes.":VSP:SPACE{ 31000'INITIALIZE'24576:AFT,0,2:D$(13)(4):CC$(3):CL$(12):CN$(14):CO$(15):XV50$'R%(30),X%(6),LB%(4),UB%(4),R$(4).'D$"BLOAD QUOTES.IMA,A$88C0":DFT,7,35008:CL$"SMOKING ATTITUDES"CC$:BOX,24,25,114,118,7:BOX,156,25,246,118,7:IMAGE,((1)2)1,33,29:IMAGE,((1)2)3,163,29:EDGE,24,25,114,118,3,5:EDGE,156,25,246,118,3,53'WIND,8,130,122,180:CO:(34)"Try it. One puff isn't going to hurt you."(34):WIND,148,130,272,180:CO:(34)"Oh? How many does it take?"(34):WIND:CO::SPACE:VSP,5_8'CL$"A national survey in the form of a self-test was conducted to find out how teenagers feel about smoking. Iss0HC xE 0#B pE 0#B pE0HKBH0D@ # @]BAAABMCDBpE``dE`@ tE`pdDD]BAAABMCC@FAF@AA@AAG@AAB@AF@A@@AAI@`BAAABMCCu`BAAABMCCu`BAAABMCCu`BAAABM?H0pu`BAAABWu`BAAABWu`BAAABWFFFGKKK`BAAABX#$$bEB#"B""GEB#B"gE  D D ]BAAABXBBEEvBAAAB@ACB@AAAL . This makes the lungs more susceptible to infections and leads to "(34)"smoker's cough."(34):SF1:DY3:600$400:" Smoking can eventually paralyze the cilia. This will greatly increase the chances of getting sick and can lead to more serious re Ues because their friends smoke.","Teenagers who smoke cigarettes are more likely to be troublemakers than those who don't."4Vǃ"Cigarette smoking can harm the health of teenagers.","Cigarette smokers should be kept apart from nonsmokers in public places.$N2$:N2$X$:XV1:V1V2:V2X+CL$T$(L)CC$:ANV1V2:200:500:CO,0,36:N1$:CO,255(V1$)9,36:CN$V1$CO$" mg":V2$"! "V2$:CO,0,45:N2$:CO,255(V2$)9,45:CN$V2$CO$" mg"+6:0,25279,25:0,84279,84+V1V2TX$N1$" has "(PC)"%"" more "T1$" than "N2$" does."x +27:HSP,0:"-------------":HSP::CO,255(AN$)9,66:CN$AN$CO$" mg"::::TX$:SPACE*+L:.SMOKE.:3:CL$::230,64:DUN,"SMOKE.PCK":(2):CO,70,0:NOCNV:C$:CO,85,10:SIZ$@.CNV:ZZ13:WIND,BEG(ZZ)9,BOT5,BEG(ZZ)WIDTH11,BOT40::CO:T$(ZZ)CC$:ZZ:NOCNV:WIND.HI53:Y4875:64,Y69,Y:Y:X69199:X,71X,74:X:Y7580:64,Y69,Y:128,Y133,Y:194,Y199,Y:Y:YBOTHI1BOT:X13:BEG(X),YBEG(X)WIDTH,Y:X:Y.0:I(1)TAR:I(2)NIC:I(3)CM:I13:I1BOTBOT(HI(I(I)MAX(I)))1:BEG(I),I1BEG(I)WIDTH,I1:Z150:Z:I1:WIND,BEG(I)9,BOT5,BEG(I)WIDTH11,BOT40::CO/CNV:T$(I)CC$:"("I(I)" mg)"CC$:PAUSE,10:I:WIND:NOCNV::SPACE:2LIST@2CT0:VSP:CL$:"Code# Brand name":" (size/filter?/menthol?)":WIND,0,30,279,170:N1:CO2YY20:LILBUB:6:0,34279,34:0,165279,165:CTCT1:NOCNV:CNLI:300:YYYY25:CO,0,YY2((LI)" ",8);C$:CNV:" "SIZ$:NOCNV2ZX(0)/2:LIUB(CT5)CT5İ15000:BOX::CO:YY20:XX83ECįWIND:13050M2LI:(CO5)CO5įSPACEY2WIND:p:SPECIAL SPACE-BAR:EC0:NOCNV:CO,0,171:"Press SPACE BAR to continue"CC$:CO,0,182:"Press 'S' to stop"CC$:16368,0:XX(16384)128:XX13XX32XX83įBOX,0,170,279,191,0:Q:XX27Ĺ16368,0:16384,128:(16384)12827EC1:\:15020hyENDING|"yWIND:DB:1000|yRETURN TO MENUy903,255:CL$:VSP:CO,0,89:"Getting the Menu Program ...":D$"RUN MENU": SProgram ...":D$"RUN MENU":D SMOKING8PROGRAM: IMMEDIATE EFFECTSUDEVELOPER: C SOLOMOMSONr(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/10 RJG F8192:1000dSPECIAL SPACE-BAR3 n16368,0:EC0:S12:CB$CF$:CO,0,J ">0ȱ>jN j ">` &Lst`L 䎱 掲`RFRNSEIMAGDUEDGPACPOFFEEPLAIMAG~2"m{wuvu@mt st`ues covered in the survey included:":PARSE:WIND,58,82,279,191:CO:VSP,5:"Effects on health"B'"Nonsmokers' rights":"Positive effects":"Manufactured reasons":"Reasons for starting":"Teenage smoker's image":Z8415613:BOX,38,Z,44,Z4,5:Z:VSP/L'6:0,75279,75:0,163279,163:SPACE:WINDV'CL$"DIRECTIONS"CC$:VSP,5:CO,0,36:" These are statements that some teenagers have made about cigarette smokers. You may agree or disagree with these statements. ";`'"After reading each statement, enter the number that shows how you feel about it."::" Note: There are no "(34)"right"(34)" or "(34)"wrong"(34)" answers.":SPACE:VSP:y ENDING#"yVSP:WIND:CL$:CO:CO,0,90:"Do you want to try again? ";:CEL:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010l,yZN$"N"ĺCL$:CO,0,90:"Getting the Menu Program ...":D$"RUN MENU"r6y8DzDATA STUFF4Bǃ"Even though lung cancer and heart disease can be caused by other things, smoking cigarettes is still a significant factor in those diseases.","Cigarette smoke smells bad."Gǃ"People smoke cigarettes to help them think more clearly.","It's okay for teenagers to experiment with cigarettes if they quit before it becomes a habit."{Lǃ"Most teenagers start smoking cigarettG(5)NIC:MG(6)CM*L13:N1$C1$:N2$C2$:T1$"":ZL1(T$(L)):TZ$(T$(L),ZL,1):TZ$"A"TZ$"Z"TZ$(((T$(L),ZL,1))32)*T1$T1$TZ$:ZL+V1MG(L):V2MG(L3):V1V2TX$"Both brands contain the same amount of "T1$"." +V1V2X$N1$:N1e mixed feelings about whether teenage smokers are show-offs or troublemakers.",5,6,"do not feel teenage smokers are show-offs or troublemakers." emakers or faking how grown up they are." DBOX:CO:DB: UPPER WINDOWD WIND,0,20,279,70:BOX:CO:DB:T XCILIACTION ]NC25:AFT,0,0:T1$"dirt ... mucus ... germs ... ":T1$T1$T1$:T2$"mucus ... germs ... dirt ... ":T2$T2$T2$:TS$"SMOKE ... SMOKE ... SMOKE ... SMOKE ... SMOKE ... "","Smoking cigarettes can help you enjoy life more."`ǃ"Cigarette smoking is harmful only if a person inhales.","Most teenagers start smoking cigarettes to try to attract friends of the opposite sex.","A person who smokes is more of a follower than one who doesn't smoke."jǃ"Even if cigarettes don't kill you, they can cut down on what you might get out of life.","I prefer the company of people of the opposite sex who don't smoke.","People who smoke seem more at ease with others."tǃ "There is no danger in smoking cigars or pipes.","Most teenagers start smoking cigarettes to try to become more popular.","Teenagers who smoke are show-offs.","I believe the health information about smoking is true."x~ǃ"Cigarette smoking should be forbidden inside public places.","Smoking cigarettes gives you a good feeling.","Cigarettes low in tar and nicotine can't harm your health."Tǃ"If you don't smoke cigarettes, other teenagers put you down.","Teenage smokers think they are grown up, but they really aren't.","There's nothing wrong with smoking cigarettes as long as you don't smoke too many." ǃ"If I smoke around other people, I take away their right to breathe clean air.","Smoking cigarettes seems to make good times even better.","Teenagers who smoke can quit for good any time they like."ǃ"I am under pressure from my friends to smoke.","Teenage smokers think they look cool, but they don't really."= ȃ4,"EFFECTS ON HEALTH","a high level of belief in the health hazards of smoking.",12,13,15,"know about the harmful effects of smoking and are concerned about them."!ȃ12,12,"have a high level of belief in the health hazards of smoking.",9,11,"show concern about the health hazards, but slightly less than the average teenager does.",5,8,"know little about the health hazards of smoking."! ȃ3,"NONSMOKERS RIGHTS","a feeling that people who do not smoke have the right to breathe clean air.",10,12,15,"would rather not be around smokers and would like to see them kept away from others in public places."" ȃ7,11,"feel that people who do not smoke have the right to breathe clean air.",5,6,"do not feel that cigarette smoke bothers nonsmokers."C#ȃ3,"POSITIVE EFFECTS","that most teenagers do not believe cigarettes contribute much to a person's enjoyment of life.",7,12,15,"believe that people benefit a great deal from smoking."#ȃ7,11,"do not believe cigarettes contribute to a person's enjoyment of life.",5,6,"do not see many positive aspects about cigarette smoking."$ȃ3,"MANUFACTURED REASONS","that most teenagers do not find reasons to justify that it is all right to smoke.",7,12,15,"feel there are reasons which make it all right to smoke or that smoking will not harm you."% ȃ7,11,"do not try to find reasons to justify smoking.",5,6,"do not pretend that it's all right to smoke."&(ȃ3,"REASONS FOR STARTING","that many teenagers do not believe smoking makes one more popular.",9,12,15,"see the smoker as being popular and attractive to the opposite sex.",8,11,"do not believe smoking makes one more popular."B&*ȃ5,7,"feel that smoking does not enhance one's social life."&2ȃ3,"TEENAGE SMOKER'S IMAGE","mixed feelings about whether teenage smokers are show-offs or troublemakers.",10,12,15,"feel teenage smokers are show-offs or troublemakers."'4ȃ7,11,"hav183:"Press SPACE BAR to continue"CC$:Z1DL:Z:S{ xCB$CF$:Z1DL:Z:XX(16384):XXXX128:XX32XX27XX13120 XX27ECEC1:EC231000 XX27120 16368,0: ,DELAY 6Z1DL:Z: LOWER WINDOW WIND,0,90,279,191:60:CNCN1:CN3CN1 TFD2$(T1$,1,NC):CO,50,52:D2$:X$(T1$,(T1$),1):T1$X$(T1$,1,(T1$)1):D3$(T2$,1,NC):CO,50,34:D3$:X$(T2$,(T2$),1):T2$X$(T2$,1,(T2$)1) SFD1$(TS$,1,NC):CO,50,44:D1$:X$(TS$,1,1):TS$(TS$,2,(TS$))X$ 100'S BENSON & HEDGES LIGHTS  BENSON & HEDGES LIGHTS  BENSON&HEDGES ULTRA LIGHTBENSON&HEDGES ULTRA LIGHTBRIGHTBRIGHT BULL DURHAMCAMBRIDGECAMBRIDGECAMEL CAMEL CAMEL LIGHTS CAMEL LONG LIGHTS CARLTONCARLTONCARLTONCARLTONCARLTONCARLTONCHESTERFIELD CHESTERFIELDCHESTERFIELD CHESTERFIELD DECADEDECADEDECADEDORAL IIDORAL IIDUMAURIER ENGLISH OVALS ENGLISH OVALSEVE LIGHTS EVE LIGHTS EVE LIGHTS EVE LIGHTS GALAXY GOLDEN LIGHTS  GOLDEN LIGHTS  GOLDEN LIGHTS 100'S  GOLDEN LIGHTS 100'S  HALF & HALF HERBERT TAREYTONICEBERG 100'SKENT KENT KENT KENT IIIKENT IIIKOOL KOOL KOOL MILDS KOOL MILDS  KOOL LIGHTS  KOOL LIGHTS  KOOL SUPER LIGHTSKOOL SUPER LIGHTS  KOOL SUPER LONGS KOOL ULTRAKOOL ULTRAL&M L&M L&M LIGHTS L&M LIGHTSL&M LIGHTSLARK LARK LARK LIGHTS LARK LIGHTS 100'S LONG JOHNS LONG JOHNS LUCKY STRIKELUCKY STRIKE  LUCKY 100'SMARLBORO MARLBORO MARLBORO MARLBORO LIGHTS  MARLBORO LIGHTS  MAXMAXMERIT  MERIT  MERIT  MERIT  MERIT ULTRA LIGHTSMERIT ULTRA LIGHTSMERIT ULTRA LIGHTSMERIT ULTRA LIGHTSMONTCLAIR MORE MORE MORE LIGHTSMORE LIGHTSMULTIFILTER  MULTIFILTER  NEWPORT NEWPORTNEWPORT LIGHTS  NEWPORT LIGHTS  NEWPORT RED NORTHWIND  NORTHWIND  NOWNOWNOW 100'SNOW 100'SOASIS OLD GOLD STRAIGHTSOLD GOLD FILTERS OLD GOLD 100'SOLD GOLD LIGHTS  OMNIPALL MALLPALL MALL PALL MALL PALL MALL LIGHTS PALL MALL LIGHTS PALL MALL EXTRA LIGHTSPARLIMENT LIGHTS  PARLIMENT LIGHTS 100'S PHILIP MORRIS PHILIP MORRIS COMMANDERPHILIP MORRIS INTER. PHILIP MORRIS INTER. PICAYUNE PLAYERSRALEIGHRALEIGH RALEIGH RALEIGH LIGHTS  RALEIGH LIGHTS 100'S  REBEL REBEL ST. MORITZ ST. MORITZ SALEM SALEM SALEM LIGHTS SALEM LIGHTS  SALEM SLIM LIGHTSSALEM ULTRASALEM ULTRASARATOGA SARATOGA SATIN  SATIN  SILVA THINS SILVA THINS SPRING 100'S TALLTALL TAREYTON TAREYTON TAREYTON LIGHTSTAREYTON LONG LIGHTSTAREYTON ULTRA LOW TARTRIUMPHTRIUMPHTRIUMPHTRIUMPHTRUETRUETRUETRUE VANTAGE  VANTAGE  VANTAGE  VANTAGE ULTRA LIGHTSVANTAGE ULTRA LIGHTSVANTAGE ULTRA LIGHTSVANTAGE ULTRA LIGHTSVICEROY VICEROY RICH LIGHTS  VICEROY RICH LIGHTS  VICEROY SUPER LONGS VIRGINIA SLIMS VIRGINIA SLIMS VIRGINIA SLIMS LIGHTSVIRGINIA SLIMS LIGHTSWINSTON WINSTON 100'S WINSTON LIGHTS  WINSTON LIGHTS 100'S WINSTON ULTRAWINSTON ULTRA 100'SWINSTON INTERNATIONAL ENDOFFILE? b16368,0:EC0:CO,0,183:"Press SPACE BAR to continue"CC$| lXZ(0):XX(16384):XXXX128:XX32XX27XX13660 vXX27ECEC1:EC231000 XX27660 16368,0: D1D11:D1DYCFD10:IMAGE,CN,X%(CN),18:IMAGE,CN3,X%(CN3), % 3 @ M Z g {   - > L Z e p   , 9 F S ] g q {  0 I b v !:UALPINEBELAIR  BELAIR  BENSON & HEDGESBENSON & HEDGES BENSON & HEDGES 100'S BENSON & HEDGESFvBAAABMCCxux`BAAABMCCu`BAAABMCCu`BAAABMCEu`BAAABMC~C~u`BAAABMCCu`BAAABMCCu``BAAABMCD110001:TB200:L12(L12)TB10:3147 8TVTV1S :(975)0įPLAY,TV,5,TB ;WIND,122,42,162,50:BOX,122,42,162,50,3:CO:L1;CC$:L2115:X(16384):(X176X181)X155X1X128:XX176:330 @L2:L1e EL11XCA:FL1:500:FL0:WIND,122,42,162,50:BOX,122,42,162,50,3:CO:"0"CC$::400:CO,30,160:CEW:"Your time is up ...":PAUSE,40:u JX127335 LX127ECEC1:EC231000 N16368,0:315G OBOX,172,158,185,168,0:CO,178,160::X::(XCA)İ600:WIND,205,42,245,50:BOX,205,42,245,50,3:CO:SCSCL1:SC;CC$:400:500::CO,0,150:CEW:PAUSE,40: TL1L125:400:16368,0:CO,100(R$(2))9,105((X1)9)::R$(2):PAUSE,20::BOX,0,104,86,139:L10325 ^:CO,178,160:""::16368,0:315 SET WINDOW WIND,0,60,279,191:CO: QUESTION #h QNQN1:BOX:WIND,38,42,78,50:BOX,38,40,78,50,3::CO:QN;CC$::400:| INVERSE ANSWER 400:X1110:X2LN(X):Y1104((CA1)9):Y2Y19:BOX,X1,Y1,X2,Y2,3:CO,X12,Y11:CH$(ZR%(L),CH%(CA)):FLįCO,X110(R$(1))9,Y11::R$(1)&XPOSITIVE TONEMb(975)0āL32050:PLAY,L3,2:L3Sl`PROGRAMQN0:LO1(10(RN1)):LLOLO9:450:200:CO::Q$(ZR%(L));:HSP,0:" ___?___":HSP:BOX,122,40,162,50,3:WIND,122,42,162,50:CO::"100"CC$::400:PAUSE,30L11TC:CO,90,105(L11)9:L1") ";:DB:CO,112,105(L11)9:CH$(ZR%(L),CH%(L1));:DB:GCP,XX,YY::LN(L1)XX:L1:PAUSE,8:300:LBOX:DB:CO,0,80:"Your score was "SC;CC$:::R1$"EXCELLENT!":SC950SC899R1$"VERY GOOD!" SC900SC799R1$"GOOD"3SC800R1$"Please try again."MR1$CC$:SPACE:31000]'INITIALIZEf'FL0'TQ30:TC4:D$(13)(4):CC$(3):CL$(12):CN$(14):CO$(15):RN1:SC0:R$(1)" Correct->":R$(2)"Incorrect->" $'Q$(TQ),CH$(TQ,TC),CO%(TQ),CH%(TC),ZR%(TQ)H.'L1TQ:Q$(L):L11TC:CH$(L,L1):L1:CO%(L):L:12000&0'24576:AFT,0,2:RFL,"QUOTES.IMA"35008:DFT,7,35008:CL$"SMOKING TEST"CC$:BOX,24,25,114,118,7:BOX,156,25,246,118,7:IMAGE,((1)2)1,33,29:IMAGE,((1)2)3,163,29:EDGE,24,25,114,118,3,5:EDGE,156,25,246,118,3,52'VSP,1:WIND,8,130,122,180:CO:(34)"I can quit any time I want."(34):WIND,148,130,272,180:CO:(34)"There's no better time than right now!"(34):WIND:CO::SPACEY8'CL$:VSP,5::" This test will ask you a set of questions dealing with smoking that have been dealt with in earlier programs."(B':" Each of the ten questions is worth 100 points. Your response is timed and the quicker you answer, the higher your score will be. Each incorrect answer will result in a 25-point penalty.":SPACEL'VSP:AFT,1:CL$"TEST YOUR SMOKING KNOWLEDGE"CC$:EDGE,15,20,265,56,2,6:CO,0,25:"Question Points Score "CC$:BOX,38,40,78,50,3:BOX,122,40,162,50,3:BOX,205,40,245,50,3::WIND,205,42,245,50:CO:SC0      IAxAAxAAB|A |BAAABABAAABWu`BA`@`0E  C0D`@H`BWu`BA\`8I@D0`D@ACc36FBCAB@W@u`BA[F`8D[BD p@cu`BA[p@CAB `h3b`@@DxB x@C~03cCCBMCCu`BA^  C BB  ~CAABMCCu`BAuBIABMCC ::673401..+,))&'$%"# ! 3#< = <=L` <=LbLLޭ@A @0R } y!8! @<ȱ@=@e<?e>>? `tLtL„ 8ɀ  L8e湥 HH L` <=ݕu >ݙu?Ȑ۩`?)8鍸ζ`H88HHuu ߅$0Huu LbLv?<>?>,>$f<<` 6ut$H)th0,t0Ruuv67 m uuuuu0Nt t9tI7tzvt{vt߭ tauwuu` L+w,w-w6H7Hu6u7,u0 +w Lw$Hu8$u$ .w+w  @ .w$uhi+w$u6uh7h6-w,w+w`ɍɌ uͳ u` 8w`Hwt)hHwɍ awh`www(s }Lލwww L }Lލwww LNx ʎww ^ L᎑w I L᎐wLNxwwwwmwwmwwwwwww<=8w}?}@}A}B}C}D}E} { 媤^_ D}  |)`L | 7} | | 7}0ޢ |ܦH)?hJ 7} | 7} |?LN| z&'&Ȅ`,&@ȱ@Ȍ}>}? ~ >`LHh`<=< Dﭲ}}} } ) 8`}D}EDB` g R  QP (`L }`L  ~~~ <= <ȭ<ȭ<ȭ~<ȭ~<><ȥ?< <<= H <=~I<~<~~`<=ʱD>` ~VDVEWBZC[@\A]>^?_   { RPQ L Ll`N ~bDVEWBZC[@\A]>^?_  & eL׭XLXLX €$)^>_? p G 8`L8ghegiȱehj8ȱCv  ȱ8쭠8ȱ>? :p"^>_? %p g^h_^`ȱ^Șe^^_iȑ^^_TSR@A N  > `@ i @ ȱ ~`,X` {ݩD ^ D`VDWED` ځ ہ8ځ?=4=0>?`LL<0>?`LLāLˁ>?`L؁ø{{ttlng      1z# 0@  ŠӠŠӠвǠԠԱԠӠвϠ  ! Ϡ Բ Գ Ԯʠ̮ʠ ŮˠΠ ʠ ˮԠɠĮԠ ̠ĮԠ" Ӯ ˮԠȮ ԱˠԲˠӠϠ б ŮԠ Ӯ ǠϠՠ ǠɮѮ! ǠӠ!" ǠӠ)ŠӠDBAAAAA@ @ I ABBB@BB@BB@BܟC@C@FFFCϳEϹFDD@CDFFhealth","risks, and effects of smoking.","",""ÃSmoke Analysis,SMOKE ANALYSIS,"This program allows students to","compare the tar, nicotine, and","carbon monoxide content of various","brands of cigarettes.",""ÃImmediate Effects,IMMEDIATE EFFECTS,"This program looks at the","immediate effects of smoking on","pulse rate, steadiness, skin","temperature, and carbon monoxide","level in the lungs."0 ÃSmoking Test,SMOKING TEST,"This program is a timed test which","presents a series of questions","derive            00:CO,0,10::CN$"MARIJUANA SMOKE"CO$CC$:300:" Whenever hot gases (smoke) are inhaled into the lungs, the potential for serious damage exists. Marijuana smoke is no exception.":" Marijuana smoke does not contain nicotine, but it does contain @@A@ BP" BD  B@( BQ" C* DQP D@DA E@ T @* D@ (T FP(QFPA FD @FQ D FDD TFDD(FD"P(FD(P  F@(@ (FD(TFT(QFT  PFP  "FQ""FPP QE@*TE F@*EQ F@ U E@" DU D "E CU*A BQE BA BQA D@A D@Aa D@Aap @@A@ C@A C@A C@ A@1B|A@B.U:C`CCk_kB`D@3X/I``X9I`gp XauJ` FuaYXWK`F3_W~D`nY>U*@C`,Y*UA*5B`|~~6f~~~ ~~~~~~ 0`0  0  0 ~~<~>>gccccg>>~~~~|~~~{~~~f<ff<=M0k?'<>.k.k/k` H g Rh PQ`L     խ)?` ` @)`,` Nj ެLLj|C@|A|Z180:Z:CF$CB$:X:300:CB$:GLGL2400:LLCB$CO$:S12:WIND,0,90,279,191::CO:" The increased pulse rate caused by smoking places an additional strain on the heart. This can lead to heart disease!"CF$:300:S:100CILIACTION3CF$:en estimated that smoking can cause a teenager's heart to beat an additional 20,000 times ";V"in one day!"CF$:300:S:100:CB$:S12:BOX:COE[" The human heart is a two-stage pump which handles about 3 gallons of blood each minute. Smoking could force the heart to pump several additional gallons of blood."CF$`300:S:100:CB$:S12:BOX:CO:::" Let's see how many additional gallons would be pumped in one month ..."CF$:300:S:CB$:100yCB$:S12:BOX,25,33,57,45,5:CF$:S:CE$~AFT,3:GL0:5:CN$CB$:S12:400:BOX,90,30,279,60:CF$:S:CB$:S12:BOX,88,23,131,33,3:CO,135,25:CO$"Extra gallons":CO,135,35:"Per month"CF$CN$:S:CE$ILL12:T$"":Z4149:T$T$(Z):Z:CO,84,46:CP$T$:CO,84,46:CF$CP$T$CB$CO$CQ$:300::Y60551:S12:WIND,90,23,129,33:BOX,90,23,129,33,3:CO,90,25CO$CF$;GL;CC$CN$:WIND:95,Y133,Y:Z1200:Z:CB$CF$:S:GLGL2400:Y:300::T$"":Z3240:T$T$(Z):Z:CN$:X86(256(LL70))2:CO,X,46.CP$T$:CO,X,46:CF$CP$T$CE$:h,lp` ֩PyQ ALŠҠ僁iimiʈii &'iq&iLi N8`  h`+ hR("  h5880`L ooooo ( oLn | {$0! o ,Ln ^ {$0LnNo o|o rnr- o rno rn o-ooo oL=nooo^`No o oopp߹ppo oo , g o ,o oo) o oo)o ߅ l o ) L{o o ɛ Moo0LooɈ5ɍo7,o oʝo) oo9p Ю oL0o ` ֩PyQ AL opo`oo ooo` ~LoH)hJJJo`LANC SAZ 09!/:@[`{~ @BOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEPAUSCWININjfj0kSkkkkkkkdkkkl>mTmomm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@@ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP ؈P PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP P Pxp @ @  @  @hPPP    0":0,0:1,49:D$"BLOAD QUOTES.IMA,A$88C0":DFT,7,35008:D$"BLOAD CIGDATA.OBJ"e/'(903)255100350'CL$"SMOKE ANALYSIS"CC$:BOX,24,25,114,118,7:BOX,156,25,246,118,7:IMAGE,((1)2)1,33,29:IMAGE,((1)2)3,163,29:EDGE,24,25,114,118,3,5:EDGE,156,25,246,118,3,51'WIND,8,130,122,180:CO:(34)"My parents both light up."(34):WIND,148,130,272,180:CO:(34)"Yeah? Where do you plug them in?"(34):WIND:CO::SPACE3'NOCNV:WIND:VSP,4:CL$:"Options Menu"CC$:CO,0,40:"Options:":WIND,35,60ke also drives oxygen out of the blood stream. This forces the heart to work harder to provide oxygen to the body."CF$:300:S:100LCB$:S12:BOX,90,30,279,60,0:CO,100,40:"<--- 20,000 extra beats":CO,136,50:"per day"\QBOX:CO:" It has be SMOKING;PROGRAM: IMMEDIATE EFFECTS P2XDEVELOPER: C SOLOMOMSONu(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/10 RJGF1000,DELAY6Z1DL:Z:LOWER WINDOW WIND,0,90,279,191  (2):CC$(3):CE$(5):CF$(6)h$'CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17):(901)25510040@.'D$"BLOAD QUOTES.IMA,A$88C0":DFT,7,35008:CL$"IMMEDIATE EFFECTS"CC$:BOX,24,25,114,118,7:BOX,156,25,246,118,7:IMAGE,((1)2)1,33,29:IMAGE,(@jj CAB`B`@B`|A` A`A`AxA`A A< A0F@px@B Fp@ @0C @<C @ C @Cx @C` A`C` @`B @xB @B  @B< @B0 A@Bp A@B@ ApB@ @>m'>@p@X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X0`@ 0`@ 0`@ 0X0`@ 0`@ 0`@ 0X0`@ 0`@ 0`@ 0X0`@ 0`@ 0`@ X0`@ 0`@ 0`@ X 0`@ 0`@ 0`@ X 0`@ 0`@ 0`@ X 0`@ 0`@ 0`@@p@X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`X`@ 0`@ 0`@ 0`@@@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@ X 0`@ 0`@ 0`@ X0`@ 0`@ 0`@ X0`@ 0`@ 0`@ X0`@ 0`@ 0`@ 0X 0`@ 0`@ 0`@X 0`@ 0`@ 0`@ X 0`@ 0`@ 0`@ X0`@ 0`@ 0`@ X0`@ 0`@ 0`@ X0`@ 0`@ 0`@ 0X0`@ 0`@ 0`@ 0X0`@ 0`@(1)2)3,163,29:EDGE,24,25,114,118,3,5:EDGE,156,25,246,118,3,53'VSP,1:WIND,8,130,122,180:CO:(34)"Smoking helps me to stay thin."(34):WIND,148,130,272,180:CO:(34)"So do exercise and proper diet!"(34):WIND:CO::SPACE8'RFL,"TRUCK.FNT"35008:DFT,3,35008:AFT,3:901,0:CL$:DB:CO,0,40:"Options:":WIND,35,60,279,181:CO:VSP,4:"Background information about the immediate effects of smoking":='"Enter Biomeasurement results"::"Return to Menu Program":CO,15,60:"1)":CO,15,108:"2)":CO,15,132:"3)"B'CO,0,150:"Which number (1-3)? ";:CEL:INP,(1,"-13",1),A$:A(A$):A3įVSP:CL$:CO,0,89:901,255:"Getting the Menu Program ... ":D$"MAXFILES3":D$"RUN MENU":L'A2ĺCL$:CO,0,89:"One moment please ...":D$"RUN BIOMEASUREMENT"V'WIND:yENDINGB6y230,64:24576:AFT,0,2:WIND:DB: KENU" " N$(ZN$,1):ZN$"Y"ZN$"N"31010,yZN$"Y"Ĭ6yVSP:WIND:CL$:CO,0,90:"Getting the Menu Program ...":901,255:D$"RUN MENU" D      BOX,0,20,279,70:BOX:CO:DB:CB$:(230)642010CO,0,5:CEL:RFL,"CILIA.IMA"35008:DFT,7,35008:"SMOKING SLOWS CILIA ACTION"CC$:CO,0,99:"One moment please ...":D$"RUN IMMEDIATE EFFECTS P2"'INITIALIZE'24576:AFT,0,2:D$(13)(4):CB$           ` H  ` H  ` H  ` H  ` H  ` CB` B A` B A` B A` B A`B @`B @` D @ A@fA0A AF@AЂ@@AАDԂ`DԂxHԂ Ԃ@EԂ<Ԃ@EЊ0@HpՂxOHՂ̀GՂ GԂ HՂ Hӂ HH+͊I˂ЎADԂЎACԎ ACЎ AD<̀ACв ACв A@B ApB @0B @<B @ B @C B @B @C @Cª @DЪ @C @Cإ @Cئ @Cإ @Cت` @Cد` @Cx` @Cx` @A` @A` @A` @A` @A` C~B` H  ` H  ` H ` H  ` H ׎` H Վ` H ׎` H ֎` CB` B A` B A` B A` B A`B @`B @`spiratory illnesses.":CF0:TF0:600[CO,0,5:CEL:"INCREASED CARBON MONOXIDE LEVEL"CC$6400:500:BOX,0,19,279,25:WIND,0,25,279,191:BOX:CO:DB:" Carbon monoxide is a colorless, odorless and very poisonous gas. It is formed by incomplete comd from the content of this","entire package.",""bustion while smoking. Large doses can cause death "; "and lesser amounts will cause:"::" dizziness":" fatigue":" confusion":" headaches":Z11114712:BOX,67,Z,71,Z4,1:Z:SPACEBOX:CO:DB:" Carbon monoxide first enters the lungs and then the blood stream. It can remain in the blood stream as long as six hours after smoking.":j " The level of carbon monoxide is measured in parts per million (PPM). Nonsmokers usually have levels less than 10 PPM, while smokers have levels greater than 10 PPM. Each cigarette smoked can raise the level by 5 PPM." *SPACE:CO,0,5:CEL:DB:"COMMON CARBON MONOXIDE READINGS"CC$:VSP,9:BOX:CO:DB::" SITUATION":" found in lungs (nonsmoker)":" found in lungs (smoker)"Z/" work rate decreased":" vision affected":" air pollution alert issued"4" max allowed in industry":" heavy smoking in a car":6:Y3618717:0,Y279,Y:Y:0,360,172:278,36278,172:0,52279,52:0,54279,54:210,36210,172:VSP,4>Y4216117:WIND,216,Y,273,Y9:TX$:CO:CP$TX$CC$CQ$:Y:WIND,0,25,279,191:CO:DB:SPACE:BOX,0,0,279,191:CO:DB:" In addition to the immediate effects already covered, smoking will also produce:"yH::" increased blood pressure":" decreased blood flow":" drop in skin temperature":" throat and eye irritation":" decreased sense of taste & smell"RY8713912:BOX,11,Y,15,Y4,5:Y:DB:SPACE:CL$:CO,0,89:"One moment please ...":D$"RUN IMMEDIATE EFFECTS"'INITIALIZE3'D$(13)(4):CB$(2):CC$(3):CE$(5):CF$(6)i$'CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17)o.'{yENDINGyCF$CL$CB$:(230)6431005""yAFT,0,2:WIND:CL$:CO:CO,0,90:"Do you want to try again? ";:CEL:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010Y,yD$"MAXFILES3":ZN$"Y"ĺD$"RUN IMMEDIATE EFFECTS"6yVSP:WIND:CL$:CO,0,90:"Getting the Menu Program ...":901,255:D$"RUN MENU"PòDATA STUFFZÃ"PPM","0 - 10","11 - 30+","25","30","35","50","90" v@0A @<A @ A @Ax @ @A` @A` @A` @Cx` @Cx` @Cx` @Cx` @Cx` @Cx` @Cx` @Cx` @Cx` @A` @A` @A` @A` @A` C~B` H  ` H  ` H (4):CC$(3):CL$(12):CN$(14):CO$(15):VSP,4:QN1g$'R%(4,3,3),T$(4,2),U$(4),E$(4),LB%(4),UB%(4).'Q14:IX12:L112:R%(Q,IX,L1):L1:IX:Q:Q14:L112:T$(Q,L1):L1:Q:Q14:U$(Q):Q:Q14:E$(Q):Q:Q14:LB%(Q),UB%(Q):Q8'y SMOKING+PROGRAM: BIOMEASUREMENTHDEVELOPER: C SOLOMOMSONe(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/01 RJGd1000WINDOW 1WIND,0,20,279,90:BOX:CO:DB:,WINDOW 2 6WIND,LB,100,279,191:BOX:CO:DB:" RESULTS?/ 300:DB CO,0,110:"Do you have results to enter? ";:CEL:INP,(3,"YESNO",1),YN$:YN$(YN$,1):YN$"Y"YN$"N"420 YN$"Y"İ500 600: ENTER RESULTS QN4įCO,0,172:"(Round to nearest degree)"CC$:DB! CO,0,170:E$(QN)CC$ Q12:CO,0,130(Q10):T$(QN,Q);:CEL:DB:GCP,CX,CY:" "U$(QN):L((UB%(QN))):CO,CX,CY:INP,(L,"-09",1),I$:XX(I$):R%(QN,3,Q)XX:XXLB%(QN)XXUB%(QN)520 Q: XPRINT RESULTS/ ]IX13:700:IX:R1$"none":R2$R1$:R%(QN,3,1)0R1$(R%(QN,3,1))T ^R%(QN,3,2)0R2$(R%(QN,3,2)) bBOX:200:CO,0,30:"Before: "R1$:CO,0,44:" After: "R2$ d(R2$)(R1$)įCO,120,37:"Decrease of "(R1$)(R2$) f(R2$)(R1$)įCO,120,37:"Increase of "(R2$)(R1$) l300:DB:CO,0,65:DB:"Compare your results to the group study results below (ages 16-17)":CO,0,117:VSP,7::" Before" q" After":" %change":2:Y12817315:0,Y272,Y:Y:X027268:X,128X,173:X vLB1:CO,60,112:DB:"nonsmokers smokers you":IX13:LBLB68:UB132:L112:UBUB((L11)15):WIND,LB,UB,LB66,UB12:CO:DB:R%(QN,IX,L1)0ĺ"none"CC$:635 xR%(QN,IX,L1);CC$ {L1 UBUB15:WIND,LB,UB,LB66,UB12:CO:DB:R%(QN,IX,3)0ĺ"none"CC$:645>L13R%(QN,IX,3)9999įAFT,1:HSP,0,1:CN$(34)(35)CO$CC$:HSP:AFT,3:645VR%(QN,IX,L1)"%"CC$^IXQNQN1:VSP,4:SPACE:LB0:300:PERCENTR%(QN,IX,1)R%(QN,IX,2)XX0:730R%(QN,IX,1)0XX9999:7305XXR%(QN,IX,2)R%(QN,IX,1):XX(XXR%(QN,IX,1))100:X1XX(XX):XX(XX):X1.499XXXX1JR%(QN,IX,3)XX:WPROGRAM$10000:CL$"BIOMEASUREMENT"CC$:1:0,12279,12:CO,0,60:VSP,5:"Biomeasurement is a process which shows some immediate effects of smoking. These effects can be shown by taking measurements before ";"and after smoking a cigarette.":SPACE:BOX,0,20,279,191::CO,0,20:"The following machines can be used with biomeasurement:":WIND,25,60,279,191:CO:DBVSP:"ECOLYZER -":"measures carbon monoxide level in the lungs."::"CARDIOTACH -":"measures pulse rate."::"TREMOR TESTER -":"measures hand steadiness."::"DIGITAL THERMOMETER -""measures skin temperature.":BOX,8,61,14,65,6:Z13:BOX,8,70Z27,14,74Z27,6:Z:SPACE:BOX,0,18,279,191:DB:VSP,5:10,95279,95:300:CO,0,0:CEL:"ECOLYZER"CC$:200:"The ecolyzer measures the level of carbon monoxide in the lungs. High levels of carbon monoxide can cause dizziness, fatigue, confusion, and headaches.":SPACE$300:400:DB:CO,0,0:CEL:"CARDIOTACH"CC$:200:"The cardiotach measures the pulse rate. Smoking can increase one's pulse rate as much as 25 beats per minute. This adds up to ";."extra work for the heart!":SPACE:300:400:DB:CO,0,0:CEL:"TREMOR TESTER"CC$:200q/"The tremor tester measures hand steadiness. This device can be used to test the claim that "(34)"smoking calms me ";A8"... it helps me to relax my nerves."(34):SPACE:300:400:DB:CO,0,0:CEL:"DIGITAL THERMOMETER"CC$:200:"The digital thermometer can measure skin temperature. Smoking one cigarette can decrease ";B"hand temperature by 2 or 3 degrees. This results from the nicotine, which constricts blood vessels.":SPACE:300:400L31000'INITIALIZE6'230,64:24576:AFT,0,2:D$(13)      e than 100,000 new cases of lung cancer are reported each year. More than 100,000 people will die from lung cancer this year."::" Smoking is the cause of 85% of lung cancer cases.":SPACEvBOX:200::"FACT: Smoking causes other types of cancer." SMOKING%PROGRAM: FACTS P2BDEVELOPER: C SOLOMOMSON_(PROGRAMMER: R J GRANVIN|2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/01 RJGd1000UPPER SCREENVSP:WIND,20,5,260,40:BOX:CO:DB:,LOWER SCREEN3 6VSP,4:WIND,10,60,270,176:BOX,10,50,270,61:BOX:CO:DB:C ADD ZEROESW YY2įPAUSE,10 XX(0):IN$(IN):LL1(IN$):(IN$,LL,1)"."ĂLL (IN$)LL2IN$(IN$,1,LL2):460 LL(IN$)IN$IN$"00":460 LL(IN$)IN$IN$".00":460/   p555555?=UUUUUUUUUUUUUUUUUUUUUUUU?=cccccc0 0?=?=c####cLZ(IN$)LL:LZ2āZ1LZ:IN$IN$"0":Z:460: 600:T LOWER SCREEN (RIGHT) VSP,4:WIND,120,60,270,176:BOX:CO:DB: XADD COMMAS bLL4ı lTM$(IN$,LL,(IN$)) vLLLL3:LL1LZLL:TM$","(IN$,LL,3)TM$:630 LZ0TM$(IN$,1,LZ1)TM$ IN$TM$:) PROGRAM4 10000@ HEALTH 200:"Warning: The Surgeon General Has Determined That Cigarette Smoking Is Dangerous to Your Health.":300:"NOTICE: The U.S. Surgeon General issued the above warning, which now appears on all cigarette packages "; "and advertisements. The warning was not meant to be a scare tactic. It results from facts gathered during 30 years of research.":SPACE:BOX:200::"FACT: Smoking is the major cause of lung cancer." 300:" Mor@ 6 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @Ax@Ax@A0@B0x@Bp@@B`@Bx?@Bp@`@AH@p8@`A0@p@`An;A`@`E p\@`C0\@`B 8@@`B8@A`B0@A0`Bp8@Ap`E00A0`E8pA0`C `A`9AA@AANAA|Al{@xD~`@ |@ Bpo A0x A8 Ax!-o! PROGRAM:HELLO FOR MENU 1.0<AUTHOR:SHANE MCCARRONVCOPYRIGHT:MECC, 1983t(LAST UPDATE:84/04/17 RJGdINITIALIZATIONnD$(4):975,0:D$"MAXFILES1"xLD300:LOGO DELAYMAIN PROGRAM :230,32:D$"BRUNLOGO":230,64:D$"BRUN LOGO 2":16297,0:16300,0:16304,0:16302,0:D$"BRUN SMOKUTIL.OBJ":D$"BLOAD NUMERAL BOLD.FNT,A$84D0":D$"BLOAD ASCII BOLD.PFT,A$8558" 16368,0:L1300:LL((16384)128)LD::16299,0 16368,0:L1300:LL((16384)128)LD: 975,0: SOUND SWITCHm RNH,"HPRINT.OBJ":DFT,1,34000:DFT,2,34136:AFT,1:901,255:902,255:903,255:RNH,"MENU" -:901,255:902,255:RNH,"MENU" $       ND,20,40,279,191:CO:"give cigarettes their flavor"::"damage delicate lung tissue":'"remain in the lungs and form a brown sticky substance"::"contain cancer-causing chemicals":YY%(1)42:Z23:YY%(Z)YY%(Z1)18:Z:YY%(4)YY%(3)27:Z14:BOX,5 SMOKING*PROGRAM: ANALYSIS INFOGDEVELOPER: C SOLOMOMSONd(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/05/01 RJGP(4)"MAXFILES1":12544ZSV0d10000CALCULATE PERCENT P(ANV2)100:PC(P):(PPC.499)PCPC1 - ,READ RECORD_ 6C$"":S$"":SIZ$"":37972,CN:CMCO:SIZ$S$:k ZEROES V$(1)(V1):V$(2)(V2):V$(3)(AN):L213:((V$(L2)))(V$(L2))V$(L2)V$(L2)".0" (V$(L2),1,1)"."V$(L2)"0"V$(L2)1 L2:700:V1$"":V2$"":AN$"":V1$V$(1):V2$V$(2):AN$V$(3):= FIX IT L213:V$"":LL1(V$(L2)):(V$(L2),LL,1)"."V$V$(46):730 V$V$(((V$(L2),LL,1))12) LL:V$(L2)V$:L2: 'INITIALIZE 'SV110035 'MAX193:VSP:MG(6),YY%(10),V$(3),T$(3),N(6),MAX(3),BEG(3) 'AFT,0,2:AFT,1:D$(13)(4):CC$(3):CL$(12):CN$(14):CO$(15):T$(1)"TAR":T$(2)"NICOTINE":T$(3)"CARBON MONOXIDE":MAX(1)29:MAX(2)2.4:MAX(3)24:BEG(1)44:BEG(2)110:BEG(3)176:WIDTH41:BOT134Y .'D$"BLOAD CIGDATA.BIN,A$3100":0,0:1,49:D$"BLOAD QUOTES.IMA,A$88C0":DFT,7,35008:D$"BLOAD CIGDATA.OBJ" 8':VSP,4:CL$:"Tobacco smoke contains more than 3,000 chemicals. Many of these chemicals are known to be cancer- producing agents." ='CO,0,80:"For example, @[FMBTBAABaBB^BaB_BTBAABMBAcigarette smoke contains:" B'PARSE:EDGE,5,108,273,175,3,1:WIND,12,114,270,172:CO:DB:"acetone... carbolic acid... arsenic... benzpyrene... hydrogen cyanide... acrolein... "; L'"formaldehyde... ammonia... to name just a few!":SPACE:WINDV'CL$:"When cigarette smoke is inhaled, the lungs retain from 85 to 95 percent of the chemicals found in the smoke. Three of the most damaging are nicotine, tars, and carbon monoxide."['SPACE:EDGE,3,85,275,175,3,5:WIND,15,97,270,170:CO:S`'L13:CH$(L):L:VSP,1:L13:Q$,CA:BOX::CO,15,125:L113:" "L1") "CH$(L1):L1j':CO:Q$;:CEL:INP,(1,"-13",1),A$:A(A$):(ACA)įCO,20,163:"No. Try again.":10090t'VSP,4:CO,20,163:CEW:DB:"CORRECT!":SPACE:L:VSP:WIND:CL$:PARSE:CO,0,5:"Nicotine is a poisonous alkaloid which:":WIND,20,40,279,191:CO:"causes physical addiction"::"increases the pulse rate"<~':"constricts the blood vessels"::"cuts down the flow of blood and oxygen"::"slows or paralyzes the cilia (tiny hairlike structures which sweep dirt and germs from the lungs.)"'YY%(1)42:Z24:YY%(Z)YY%(Z1)18:Z:YY%(5)YY%(4)27:Z15:BOX,4,YY%(Z),8,YY%(Z)4,1:Z:5:0,34279,34:0,153279,153:SPACEW'WIND:CL$:CO,0,5:"Tars are tiny particles which:":WI           SMOKING+PROGRAM: SMOKE ANALYSISHDEVELOPER: C SOLOMOMSONe(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1983<LAST UPDATE: 83/11/01 RJGd10000:NOCNV:1000CALCULATE PERCENTP(ANV2)100:PC(P):(PPC.499)PCPC1t  u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BBC3ACFJUNA^D?A/A/++++**BB3?>CFJ*NGAGOC_B WUUUBUABUCUBB>0CFJUNGTvGLB?C*B*B***B*AB*C*BBB3CFJ*NGAGJp`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGcAEA]GOCC@D`DpD8DBBBGlo`OCFJ*NGcA|BA|]GO~x`FDQB oBlOCFJUNGdA|ApB|@a]GP?D@D`DpD8DBBBLBlOCFJ*NGcOgdGOaHDQBBOB`OCFJUNGV OOOE]GQ|0TAA >~~B@@oBLOCFJ*NGV p`gp`gg`pEp`pc`p]GOE@`ppG`@GBBYCFJUNGYD$jGOGCGA~HBBOBYOCFJ*NGYBfBGg]GO~x`FGA>B~BBBYCFJUNGVB?80B308BBsD308??[GQF@``DpA`@HB@@_BY_CFJ*NGVB~F`@ EBBB~~[GOG|L|HBFACFJUNGVABAjGOD@CBGB <";:HSP:" 1.0 mg to 24.0 mg"::"(mg = milligram)"CC$:SPACE'CL$:PARSE:CO,0,90:"For example, one brand contains...":SPACE:N(1)81:CN81:300:VSP:12000:CL$:VSP,4:CO,0,70:"When compared to another U.S. brand,";i'" you can see that brands differ considerably.":SPACE:CN22:N(2)22:300:VSP:12000'PARSE:VSP:11000:VSP,5:XX(0):31000*COMPARE*C1$"":C2$"":NOCNV:CNN(1):300:C1$C$:MG(1)TAR:MG(2)NIC:MG(3)CM:CNN(2):300:C2$C$:MG(4)TAR:MG(5)NIC:MG(6)CM*L13:N1$C1$:N2$C2$:T1$"":ZL1(T$(L)):TZ$(T$(L),ZL,1):TZ$"A"TZ$"Z"TZ$(((T$(L),ZL,1))32)*T1$T1$TZ$:ZL+V1MG(L):V2MG(L3):V1V2TX$"Both brands contain the same amount of "T1$".") +V1V2X$N1$:N1$N2$:N2$X$:XV1:V1V2:V2X+CL$T$(L)CC$:ANV1V2:200:500:CO,0,36:N1$:CO,255(V1$)9,36:CN$V1$CO$" mg":V2$"! "V2$:CO,0,45:N2$:CO,255(V2$)9,45:CN$V2$CO$" mg"+6:0,25279,25:0,84279,84(+V1V2TX$N1$" has "(PC)"%"" more "T1$" than "N2$" does." +27:HSP,0:"-------------":HSP::CO,255(AN$)9,66:CN$AN$CO$" mg"::::TX$:SPACE*+L:.SMOKE.:3:CL$::230,64:DUN,"SMOKE.PCK":(2):CO,70,0:NOCNV:C$:CO,85,10:SIZ$M.CNV:ZZ13:W       SMOKING)PROGRAM: SMOKING I.Q.FDEVELOPER: C SOLOMONSONc(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/04/16 KLMd1000ADD 10 POINTS TM0:5:SCSC10:NYLY15:L1LY2NY1:(L13)(L13)LNLN1:TM0:2202 (975)0TMTM125:PLAY,LN,10,TMZ 243,L1251,L1:PAUSE,1:L1:LYNY:e ,INPUT 6CO,10,75:"True (T) or False (F)? ";:INP,(1,"TF",1),TF$:TF$TF$(ZR%(L))įCO,10,100:CEL:"Correct. In fact ... ":400:200:4 @CO,10,100:CEL:IND,BEG(ZZ)9,BOT5,BEG(ZZ)WIDTH11,BOT40::CO:T$(ZZ)CC$:ZZ:NOCNV:WIND.HI53:Y4875:64,Y69,Y:Y:X69199:X,71X,74:X:Y7580:64,Y69,Y:128,Y133,Y:194,Y199,Y:Y:YBOTHI1BOT:X13:BEG(X),YBEG(X)WIDTH,Y:X:Y.0:I(1)TAR:I(  ,READ RECORD 6XX(0):D$"OPEN CIGDATA,L45":IX2:L21N:IXIX3:FIL(L2)0:MEN(L2)0:D$"READ CIGDATA,R"N(L2):A$:CIG$(L2)(A$,1,25):TAR((A$,38,2)):NIC((A$,40,3)):CM((A$,43,2)) ;SIZ$(L2)(A$,26,10):MG(IX)TAR:MG(IX1)NIC:MG(IX2)CM:(A$,36,1)"F"FIL(L2)1= @(A$,37,1)"M"MEN(L2)1_ J600:L2:D$"CLOSE":XX(0):j DELAY DB:PAUSE,1::PAUSE,15 ZEROES V$(1)(V1):V$(2)(V2):V$(3)(AN):L213:((V$(L2)))(V$(L2))V$(L2)V$(L2)".0" (V$(L2),1,1)"."V$(L2)"0"V$(L2)? L2:V1$V$(1):V2$V$(2):AN$V$(3):^ XSTRIP OFF TRAILING SPACES bL4(CIG$(L2))11:(CIG$(L2),L4,1)" "CIG$(L2)(CIG$(L2),L4):L41 lL4: PROGRAM NOCNV:VSP,2:CL$::"Would you like to:"::"1. Find the tar, nicotine and carbon":" monoxide content of a particular":" brand of cigarette."::"2. Compare the contents of two" " different brands."::"3. Return to the main menu.":CO,0,155:"Enter 1, 2 or 3: ";:INP,(1,"-13",1),A$ A(A$):A2000,3000,31000 ONE BRAND CO,0,180:"Press 'L' to see a list of code numbers"::CO,0,155:CEL:"Cigarette code number (1-173): ";:INP,(3,"L-09",1),N$:N$"L"İ4000:1000 N(1)(N$):N(1)1N(1)1732010 N1:300:12000:1000  COMPArent ranges per cigarette are shown below."::" low high"'2:146,84186,84:216,84264,84:VSP,4::"nicotine ";:HSP,0:"------------->";:HSP:" 0.1 mg to 2.1 mg"k'"tars";:HSP,0:" ------------------->";:HSP:" 1.0 mghours after smoking"':" - increases the pulse rate"::" - raises a person's blood pressure"::" - causes headaches and dizziness":SPACEk'CL$::"The amount of nicotine, tars and carbon monoxide found in different brands of cigarettes var@A@O3fL3fL3fL3fLOO3fL3fL3fL3O3fL3fLy3fL3fLOO3fL3~O3fL3O3fL3fLy3fL3fLOO3fL3~O3fL3F3fL3f|FgL3fLEO3fLF3fL3F3fL3f|FgL3fLOO3fL3~O3fL3O3fL3fLy3fL3fLOO3fL3~O3fL3O3fL32)NIC:I(3)CM:I13:I1BOTBOT(HI(I(I)MAX(I)))1:BEG(I),I1BEG(I)WIDTH,I1:Z150:Z:I1:WIND,BEG(I)9,BOT5,BEG(I)WIDTH11,BOT40::CO/CNV:T$(I)CC$:"("I(I)" mg)"CC$:PAUSE,10:I:WIND:NOCNV::SPACE:yENDING:"yWIND:DB:VSP:CL300:11000:1000!LISTOPTIONCL$::"There are 173 different brands of cigarettes on the list.":::"Would you like to:"::" 1. See the entire list":" 2. Search for a specific brand":" 3. Return to previous menu"+:"Enter 1, 2 or 3: ";:INP,(1,"-13",1),A$:OPT(A$):OPT3ıKOPT1UB173:LB1:13000::"Enter the first letter of the brand name: ";:INP,(1,"-AZ",1),L$:N1:LB1::CN$"One moment please ... "CO$LO1:HI173:N19(LOHI)(HILO1)ĺCL$:CO,0,85:"There are no cigarettes which begin with that name.":SPACE:RN(N)LO((HILO)2)300:X$(CIG$(1),1,1):X$L$HIN(N):4060X$L$LON(N):4060LBN(N):HBLB:DVLBDVDV1:N(N)DV:300:(CIG$(1),1,1)L$4100LBDV1:DVHB'DVDV1:N(N)DV:300:(CIG$(1),1,1)L$4120<"UBDV1:13000:L'INITIALIZE '24576:AFT,0,2:D$(13)(4):CC$(3):CL$(12):CN$(14):CO$(15):T$(1)"TAR":T$(2)"NICOTINE":T$(3)"CARBON MONOXIDE":MAX(1)28:MAX(2)2.4:MAX(3)24:BEG(1)44:BEG(2)110:BEG(3)176:WIDTH41:BOT134:HI51+$'MG(6)o.'CL$"SMOKE ANALYSIS"CC$:CO,0,95:"Graphic goes here"CC$:SPACE$8'VSP,4:CL$:"Tobacco smoke contains more than 3,000 chemicals which combine to form more than 250 compounds. Many of these compounds are known to be cancer producing agents."o='PAUSE,50:CO,0,80:"For example, cigarette smoke contains:":PAUSE,15*B'EDGE,5,108,273,175,3,1:WIND,12,114,270,172:CO:"acetone...";:400:"carbolic acid...";:400:"benzpyrene...";:400:"arsenic...";:400:"formaldehyde...";:400:"ammonia...";:400L'"hydrogen cyanide...";:400:"acrolein...";:400::"and more than 250 other compounds!":SPACE:WINDRV'CL$:"When cigarette smoke is inhaled, the lungs retain from 85 to 95 percent of the chemicals found in the smoke. Three of the most damaging are nicotine, tars and carbon monoxide."['SPACE:EDGE,3,85,275,175,3,5:WIND,15,97,270,170:CO:`'L13:CH$(L):L:VSP,1:L13:Q$,CA:BOX::CO,15,125:L113:" "L1") "CH$(L1):L1fj':CO:Q$;:CEL:INP,(1,"-13",1),A$:A(A$):(ACA)įCO,20,163:"No. Try again.":PAUSE,35:CO,0,158:CEW:10090t'VSP,4:CO,20,163:"CORRECT!":SPACE:L:VSP:WIND:CL$::"Nicotine is a poisonous alkaloid which:"::" - causes physical addiction"::" - increases the pulse rate":~'" - constricts the blood vessels"::" - cuts down the flow of blood and":" oxygen"::" - slows or paralyzes the cilia":" (tiny hairlike structures which"'" sweep dirt and germs from the ":" lungs.)":SPACE:CL$::"Tars are tiny particles which:"::" - give cigarettes their flavor"::" - damage delicate lung tissue":4'" - remain in the lungs and form a":" brown sticky substance"::" - contain cancer-causing chemicals":SPACE:CL$::"Carbon monoxide is a toxic gas which:":'" - results from incomplete combustion"::" - makes up about 5% of cigarette":" smoke"::" - drives the oxygen out of the blood"::" - remains in the bloodstream up to"'" 6 !!! ! 16368,0H%:XX(16384)128:XX13XX32XX83įBOX,0,182,279,191,0:S%:15020_%yENDING%"yWIND:CL$:CO:CO,0,90:"Do you want to try again? ";:CEL:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010%,yZN$"Y"Ĭ6&6yVSP:WIND:CL$:3fsO3~|?pLsgALOOsO3~O?x@sg3O3f3N~O?r|'fLAOK?~`?fAG3A3f@BgLAO B3D3fLsD3fLOO3f|`";:HSP:" 0.1 mg to 2.4 mg"j'"tars ";:HSP,0:"------------------> ";:HSP:"0.5 mg to 28.0 mg":"carbon monoxide";:HSP,0:" ->";:HSP:" 0.9 mg to 24.0 mg"::SPACE'CL$:CO,0,70:"When compared to another popular U.S. brand, you can see brands differ considerably.":SPACE@'N2:N(1)84:N(2)22:300:CIG$(1)"CIGARETTE BRAND #1":CIG$(2)"CIGARETTE BRAND #2":11000:VSP,5'N1:L2N:N(1)84:300:CIG$(1)"CIGARETTE BRAND #1":VSP:12000:*COMPARE+N1$"^"CIG$(1):N2$"^"CIG$(2):L13:V1MG(L):V2MG(L3):MG(L)MG(L3)TX$"^BOTH BRANDS CONTAIN THE SAME AMOUNT OF "T$(L)"."R +MG(L)MG(L3)X$N1$:N1$N2$:N2$X$:XV1:V1V2:V2X+NOCNV:CL$CN$T$(L)CC$CO$:ANV1V2:200:500:4:CNV:(26(N1$)):N1$;(" "V1$" MG",10):(26(N2$)):N2$;(" - "V2$" MG",10)+ +V1V2TX$N1$" HAS "CN$(PC)"%"CO$" MORE "T$(L)" THAN "N2$"."z +38:HSP,0:"-----------":HSP:32(AN$):AN$" MG"::::TX$:SPACE:L: .SMOKE!.3:CL$:RFL,"PIC.SMOKE":CO,90,10:CN$CIG$(1)CO$:CNV:CO,90,20:"(";:CIG$(2)SIZ$(1):L22:600:CIG$(2);:FIL(1)ĺ"/filter";!!.MEN(1)ĺ"/menthol";!.")":Y4875:64,Y69,Y:Y:X69199:X,71X,74:X:Y7583:64,Y69,Y:128,Y133,Y:194,Y199,Y:Y:YBOTHIBOT:X13:BEG(X),YBEG(X)WIDTH,Y:X:Yd".0:I(1)TAR:I(2)NIC:I(3)CM:I13:I1BOTBOT(HI(I(I)MAX(I)))1:BEG(I),I1BEG(I)WIDTH,I1:Z150:Z:I1:WIND,BEG(I)5,BOT5,BEG(I)WIDTH10,BOT40::CO"/CNV:T$(I)CC$:"("I(I)" mg)"CC$:PAUSE,10:I:WIND:NOCNV::SPACE:"2LIST(#2CO0:VSP:CL$:CN$"Code# Brand name"CO$::" (size/filter?/menthol?)":WIND,0,30,279,170:N1:CO#2YY20:LILBUB:COCO1:NOCNV:N(N)LI:300:CIG$(2)SIZ$(1):600:L22:YYYY25:CO,0,YY:(" "(LI)" ",8);CIG$(N):CNV:" ("CIG$(2);:FIL(N)ĺ"/filter";#2MEN(N)ĺ"/menthol";/$2")"::(CO5)CO5İ15000:BOX::CO:YY20:XX83įWIND:1000M$2LI:(CO5)CO5įSPACEY$2WIND:e$6SEARCH$6CL$:CO,0,90:"Search goes here"CC$:SPACE:$6LI:SPACE:$:SPECIAL SPACE-BAR %:NOCNV:CO,0,182:"Press SPACE BAR to continue - S to stop":fLy3fL3fLOO3fL3~O3fL3O3fL3fLy3fL3fLOO3fL3~O3fL3O3fL3fLy3fL3fLOO3fL3~O3fL3O3fL3fLy3fL3fLOO3fL3fL3fL3O3fL3fL3fL3fLOO3fL3fL3fL3A3f BgLCOOI`?psg3C3f3~EO?fsgALOOsG~O?faA3K200::CN$"HOW MANY TEENAGERS"CC$:"SMOKE?"CO$CC$:WIND,30,50,270,170:BOX:CO:DB::"About 12% of American teenagers (ages 12-18) currently smoke.":_"Since 1974, the percentage of BOYS smoking has dropped from 16% to 11%.":5:165,113219,113ir flavor? ",2 D   " " " """""""""         <' SMOKING*PROGRAM: SMOKING FACTSGDEVELOPER: C SOLOMOMSONd(PROGRAMMER: R J GRANVIN2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/04/17 RJGd1000UPPER SCREENVSP:WIND,20,5,260,40:BOX:CO:DB:,LOWER SCREEN8 6VSP,4:WIND,10,60,270,176:BOX,10,50,270,61:BOX:CO:DB:H ADD ZEROESy IN$(IN):LL1(IN$):(IN$,LL,1)"."ĂLL (IN$)LL2IN$(IN$,1,LL2):460 LL(IN$)IN$IN$"00":460 LL(IN$)IN$IN$".00":460 LZ(IN$)LL:LZ2āZ1LZ:IN$IN$"0":Z:460# 600:= LOWER SCREEN (RIGHT)l VSP,4:WIND,120,60,270,176:BOX:CO:DB:| XADD COMMAS bLL4ı lTM$(IN$,LL,(IN$)) vLLLL3:LL1LZLL:TM$","(IN$,LL,3)TM$:630 LZ0TM$(IN$,1,LZ1)TM$ IN$TM$: ICKY WINDOWD WIND,30,50,270,178:BOX:CO:DB:VSP,4:Q PROGRAM\ 10000h HEALTH 903,1:CO,0,95:"One moment please ..."CC$:D$"RUN FACTS P2" COST 903,2:CO,0,95:"One moment please ..."CC$:D$"RUN FACTS P2" UNBORN BABIESv 200:CO,0,10::CN$"SMOKING FOR TWO"CO$CC$:300:RFL,"FETUS.IMA"36168:DFT,7,36168:IMAGE,1,20,65:500? "If a woman smokes while pregnant, it can have adverse effects on her unborn baby.":SPACE:500:"Smoking increases the possibility of:"::" miscarriage":" premature birth":" stillbirth" " birth defects":Y9713312:BOX,131,Y,135,Y4,5:Y:SPACE:300:3:20,70260,70:20,87260,87:CO,20,73:CN$"Oxygen":CO,217,73:"Food"CO$:PAUSE,15|0:100,70180,70:100,87180,87:3:100,70140,77180,70:100,87140,80180,87:CO,170,55:DB:"Nicotine":6:142,74142,58166,58:139,72142,74144,72T142,84142,96:139,86142,84144,86:CO,10,120:DB:"Nicotine from cigarette smoke tightens up the mother's blood vessels.":SPACE:BOX,10,110,270,170:CO,10,120:DB:"Carbon monoxide in cigarette smoke also ";"reduces the amount of oxygen carried by the blood.":SPACE:CO,10,120:CEW:DB:"Therefore, the baby gets less oxygen and food.":SPACE300:IMAGE,1,20,65:500l"Unborn babies practice breathing motions. These movements are slowed down by cigarette smoke.":SPACE500:"Babies born to smoking mothers are, on the average, about half a pound lighter than babies born to women who do not smoke.":SPACE300:" Even after birth, maternal smoking may cause the child to:":WIND,60,90,260,170:CO:DB:"have more colds and respiratory problems"::"be shorter and smaller":3"score lower on math and verbal tests":BOX,45,92,50,96,5:BOX,45,128,50,132,5:BOX,45,152,50,156,5:SPACE:300:IMAGE,1,20,65:500"REMEMBER:":"Babies need just as much oxygen as you do. When a woman is pregnant, she is not just eating for two . . . she is breathing for two!":SPACE:DB:RFL,"FISH.IMA"36168:ODDS-N-ENDSCO,0,90:"Getting the Menu program ...":D$"RUN MENU"F&PòDATA STUFF'ZÃnicotine,tars,carbon monoxide,"Which of these causes physical addiction to smoking? ",1,"Which of these drives the oxygen out of the blood? ",3,"Which of these gives cigarettes the