. "THE BUS BARNS"U BY ALICE LAWRENCE JULY,1983a2(142)o<HH(TI)d A(12),B(12),C(12),D(12)C$(10),CO$(10),RA$(6),FI$(10) OV(12),CH(12),GG$(11)D1:OV1635006000062000 61000 TT1630" TT23000 TT3400O ,J112:A(J)((1)80)20d TB(J)((0)9)1w ^C(J)A(J)B(J) hD(J)D:(J4)J4 DD8 rOVOV8:OV(J)OV:OV31 OV1 |CH(J)J:OP$"-" J:750 J112:A(J)((1)6)4 B(J)((1)6)3:OP$"X"' C(J)A(J)B(J)F D(J)D:(J4)J4 DD8j OVOV8:OV(J)OV:OV31 OV1v CH(J)J L$(I)(C):L$(I)(L$,2)  J 750 v J112:A(J)((1)80)10 {B(J)((1)9)1 C(J)A(J)B(J):OP$"+" D(J)D:(J4)J4 DD87 OVOV8:OV(J)OV:OV31 OV1C CH(J)J` L$(I)(C):L$(I)(L$,2)h  Js 30000  START OF PROGRAM HE0:J112 CH(J)0 HEHE1 J:HE1241000 I((1)12)1  CH(I)0 1520 DD(I):OVOV(I)+ AA(I):BB(I):CC(I)7 CH(I)0@ WB0e  FLASHERS IN BUSm |K1~ J16:K1K RV$(1)"":RV$(0)"" (CC$,D)RV$(K)OV)A""B""OP$"="(7) J 33300: PRINTS BUS (CC$,22)"¬";:50000# (CC$,22)"¼";:50000> (CC$,22)"¾";:50000Y (CC$,22)"»";:50000m Z$:Z$""1800 Z$(13)1810 &Z$(63)1810 0J1(EX$):(EX$,J,1)Z$J100 :J:J1011870 D1800 N(CC$,22)""Z$ SZ1(Z$)10 XT2:WA1TT1)l(CC$,22)"";:50000E(CC$,22)"";:50000c(CC$,22)"";:50000(CC$,22)"";:50000(CC$,22)" ";:50000Z$:Z$""1900Z$(13)1900Z$(63)1900J1(EX$):(EX$,J,1)Z$J100J:J101199619000(CC$,22)""Z$=Z2(Z$)hZ3Z2Z1:Z3$(Z3):Z3$(Z3$,2):40000/u BUS BARNS0uTP$" "?uROAD$"     " DuWALL$" ")Gu""5Iu J13FNu""TP$eXuJJ13:""WALL$:JJ{lu""ROAD$vuJu""ROAD$uS5:50000:S1ub}:} COMMENTS}X(1)101}LO$(1)""!}LO$(1)FI$(X)5}S1:50000:S.1N}LO$(1)" "T}rJ13:(CC$,20J)BL$:Jx PRINTS BUS IN CORNERB1$" "(CC$,21)B1$(S.1:500002:Ƅ DRIVER WALKING TO CHECK BUS6@BD$"   " : DR LEFT@ES.05YJJO$"   "iT J3852^(CC$,21)J)BD$"":50000h(CC$,21)J1)JO$"":50000rJsX((1)10)1t RIGHT BUS COMMENTuZ3CLO$C$(X):40079*v WRONG BUSHwWBWB1:WB2WB0:40600WyLO$CO$(X)zS1:50000:LO$" "{ REMOVES BUS|S.5:50000} J033~(CC$,21)(R$,J)W1$;Z3$;W2$J(CC$,21)BL$(CC$,22)BL$ (CC$,23)BL$,GTGT1=33290:1560C:g BUS & LIFT UP{S5:50000:S.1(CC$,21)5)"   "D1740150J20D41(CC$,J)W4$;Z3$;W5$;LI$S.05:50000œJ$̜ BUS RIGHT0֜J0OVN(CC$,D4)J)W1$;Z3$;W2$^S.1:50000eJk: BUS AND LIFT UPJD3D11(CC$,J)OV1)W4$;Z3$;W5$;LI$&500000J:ED$"  "D JD1D3 1,N(CC$,J)OV6)ED$7X50000?bJ:VlBD$"   "ovJO$"   "{ OV17 40360}:~ DRIVER WALKING LEFTD1740800 JOV542(CC$,D4)J)BD$"":50000(CC$,D4)J1)JO$"":50000$J : OK?(CC$,21)5)"   "yED$" ё " JD724 1Ɲ(CC$,J)ED$Н50000ڝJBD$"   "JO$"   " J3372:S.1:50000(CC$,21)J)BD$"":500007 (CC$,21)J1)JO$"":HJ1932200QS.1uJ35LO$" "| J*(CC$,21)39)"   "315109LO$"">LO$GG$(X):S.5:50000:S.1 H(CC$,21)JI)JO$" ":5000$RJ3732200:S5:50000\S.1:JBf(CC$,21)BL$Tp(CC$,22)BL$fz(CC$,23)BL$p151040610: X=INT(RND(1)*6)+1RA$(1)"BUS "L$"WHERE ARE YOU?"(7)(7)(7)(7) RA$(2)"I'M LOOKING FOR BUS "L$(I)"."(7)(7)(7)(7)ERA$(3)"WHERE IS BUS "L$(I)"."(7)(7)(7)(7)RA$(4)"BUS "L$(I)"IS MISSING."(7)(7)(7)(7)(7)RA$(5)"QUIT GUESSING. IT'S BUS "L$(I)"."(7)(7)(7)RA$(6)"GET A MATRIX. IT'S "L$(I)"."(7)(7)(7)(7)/(CC$,22)(R$,10)"BUS";(7);:S3:50000`C;(7);(7);:50000:50000:" WHERE ";(7);50000:"ARE";(7);:50000:" YOU?";(7)S10:50000:S.1(CC$,22)(R$,10)" " REMOVES BUS 50000ʞ J0337Ԟ(CC$,21)(R$,J)W1$;Z3$;W2$>ޞJP螙(CC$,21)BL$b힙(CC$,22)BL$t(CC$,23)BL$~1510`JOV6362:50000j(CC$,21)J)"   "BD$:50000l(CC$,21)J1)"   "JO$:50000mJoJ3532200:S5:50000:S.1 (CC$,21)BL$2(CC$,22)BL$D(CC$,23)BL$N1510r( FINALE2S5:50000:S17BD$"   " : DR LEFT8JO$"   "%nFI$(3)"FINISHED"(7)(7):FI$(4)"BRAVO"(7)(7){%xFI$(5)"I'M TIRED"(7)(7):FI$(6)"NICE JOB"(7)(7)%FI$(7)"KEEP IT UP"(7)(7)(7)%FI$(8)"WHEW!"(7):FI$(9)"HOW'S THAT"(7)(7)%FI$(10)"IT'S HOT"(7)(7)&W1$ "  "4&W2$"  "K&W4$""c&W5$""&LI$" "&rGG$(1)"YEP"(7)&|GG$(2)"O.K."(7)(7)&GG$(3)"THAT'S MINE"(7)(7)&GG$(4)"RIGHT ON"(7)(7)'GG$(5)"WHY NOT"(7)(7):'GG$(6)"SURE IS"(7)(7)Y'GG$(7)"KEERECT"(7)(7)'GG$(8)"OKEE DOKEE"(7)(7)(7)(7)'GG$(9)"YUPP"(7)'GG$(10)"CERTAINLY"(7)(7)(7)'GG$(11)"BRAVO"(7)(7)(S1:50000:LO$" "9(WH$"  ¾WHEN  "N(&AR$"A  "(0QU$" QUESTION  "(:TH$"ȾTHE "(DBS$"ȾBUS ";)NBA$"BARNS "h)XBY$"ȾBY ")bAL$"ALICE "))H MENU)MGT0)RWO$"WOULD YOU LIKE "*\AD$"ADDITION "*fSU$"SUBTRACTION "8*pMU$"MULTIPLICATION "N*M$WO$AD$:61500a*Z$"Y"TT1:w*M$WO$SU$:61500*Z$"Y"TT2:*M$WO$MU$:61500*Z$"Y"TT3:*61000*< CHECK FOR Y OR N*FR$(0)"":R$(1)""+PCH$"YN":D$(63)+ZM(M$)9+d""(CC$,10)20M2)M$;Y+n(CC$,10)20M2M)R$(K)D$g+xZ$:K1Kx+}Z$""61550+ Z$(13)61550+Z$(63)61550+J1(CH$):(CH$,J,1)Z$J100+J:+0 TITLE+l"" ,vS1:50000, J34812,""J)TH$:JC,(7):50000T, J34161k,""J)BS$:J|,(7):50000, J32241,""J)BA$:J,(7):50000, J35161,""J)BY$:J,(7):50000- J32151-(CC$,16)J)AL$:J*- (7)(7)?-S20:50000:S.1E- - FL$" FLASHES  "-TY$" ¾TYPE  ".AN$" ANSWER  "'.(IN$"ϣ IN ѣ"K. PASSWORD ROUTINEZ."S1:50000c.,"".6(CC$,10)9)"WHAT IS THE PASSWORD".@Z$:Z$""63040.JZ$(78) 63200:63020.TZ$:Z$""63060.^Z$(72)63200:63020/hZ$:Z$""63080"/rZ$(79)63200:630207/|Z$:Z$""63100T/Z$(74)63200:63020Z/~/ MUSIC ROUTINE////59467,16: 16/59466,127:127/59467,16: 16/&59464,0/0 P,T,L$:L$;/:59464,P0DT00NX1T:"0X59464,0:6328050b 78,500,"OH "B0l59464,Pf0v 93,250,"NO ",118,250,"JOHN, "0 105,250,"NO ",125,250,"JOHN, "0 118,100,"N-",125,150,"O "0 160,250,"JOHN, ",118,500,"NO",0,0,"."0 D1T::M0M159467,0:59464,0 101 "PLEASE TYPE YOUR NAME.";91KD$?1 63200:63020Z/~/ MUSIC ROUTINE////59467,16: 16/59466,1