:59468,12> PLUS COPYRIGHT (C) 1980 BY EARL FURMANP 1621 EUREKAi MODESTO, CA. 95351o: CURSOR #21, JUNE/JULY 1980 FROM THE CODE WORKS BOX 550, GOLETA, CA. 93017: AS OF 2AUG80ZPG$"DRAG":NM$"21":62000!dMX5:N$(4),LM(12),TM(MX)/xCR$(13)jB$" "(20)" " LM(0),LM(1),LM(6),LM(7) LM(2),LM(3),LM(8),LM(9) LM(4),LM(5),LM(10),LM(11) T$:PC(T$)100"HOW MANY DRIVERS ARE THERE? ";:60000:N(IN$)@N1"I NEED AT LEAST ONE DRIVER!":210qN4"BUT THERE ARE ONLY FOUR LANES!":210z,""6I1N@"WHO'S DRIVING CAR #";((I),2);;"? ";J60000:N$(I)IN$TI ^PD0:N1"I'LL DRIVE CAR #2":N2:N$(2)"PET ":PD1hPDZ1500:ZG" MAY THE BEST DRIVER WIN!"WZ1500:ZjNT0:PT0:SM0t"";~1310EN0I1N930MV01800P(I)29EN1&I0EN0510vWN0:T1J1NP(J)TWNWN1P(J)TWN1:TP(J)J(15409WN1"";X "************THE WINNER";lWN1"S ARE";~ WN1" IS";*"************"4Q1N:P(Q)T860>VWN4::VH" ";:IQ:1480R"";11);" DRIVEN BY ";N$(Q)\Q fZ14000:Z3 p"WANT TO PLAY AGAIN? ";:60000J z(IN$,1)"N"400W "":a 1540k 2000| Z11000:Z "OK, ";N$(I);"," "WHAT'S ";A1;OP$;A2;"? ";:P(0)  PD0 I2 1040 1670:TTI60T9:Z0:XTI10#  XTI ("",Z1,1);"";:Z1Z:XX105  TIT 1020O A$AN$:"";AN$:1140Y A$""n I$:I$""1050x .T9TI 8I$:I$""1080 =I$CR$:1130 BI$"0"I$"9"1080 LI$; VA$A$I$ `1080 jT9((TIT9)60.5) tMV(A$AN$)((5T9)(T95)(T94)), ~A$AN$1180a A$AN$"YOU TOOK";T9;" SECOND";:T91"S";m :1200 "";P);"NO";:(A$)2(B$,(A$)2); :"";A1;OP$;A2;"= ";AN$:Z11000:Z Z1500:Z  I1N (P(I)1 2""; <J0(7N)I3 F"";% PJ/ d14809 n" ";E J135R (163);Y Jd ""k Iq  " ";((I),1);"ߒɝ"; " ׸׾"  ""; H19 B$ "H ,B$;"" 6 PTPT1:PTMXPT1- NTMXSMSMTM(PT)S TM(PT)T9:SMSMT9:NTMXNTNT1o LTM(1):HTM(1):Z1NT TM(Z)LLTM(Z) TM(Z)HHTM(Z) Z ZHL2:T9L1((1)(Z1)) T91T91 T930T930: MAX TIME FOR PET "";J0(7N)I3!&"";(0J4:L1MVDDP(I)P(I)1SNP(I)1);]X1480h"";wJ115:J~L (1)PC 25004A1LM(0)((1)(LM(1)LM(0)))>A2LM(2)((1)(LM(3)LM(2)))HANA1A2:AN$((AN),2)RANLM(4)LM(5)AN 2100'\OP$"+":J A1LM(6)((1)(LM(7)LM(6)))m A2LM(8)((1)(LM(9)LM(8))) ANA1A2:AN$((AN),2) ANLM(10)LM(11)AN 2500 OP$"-": : THE DATA TABLE CONTROLS DIFFICULTY LEVEL : + - " $ 1,9, 2,185 "  E 1,9, 1,9W " d "t 2,18, 1,9 WHAT PCT. OF PROBLEMS ADDITION& 50%`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010EZ(Z$):ZL(IN$):(Z127)32" ";:60110uFL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010 Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000+60010E""::CR$(13):100_TI110:"";:I:0"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1980 BY EARL FURMAND60500N"MAKE ARITHMETIC A REAL DRAG!X"PRESS RETURN TO BEGINbT$:T$""62050!l60300