:59468,12= BOX COPYRIGHT(C)1979 HOWARD ARRINGTON\ CURSOR #6, JANUARY, 1979} BOX 550, GOLETA, CA. 93017 AS OF 9 MAR 80Z62000dL(32):I132:L(I):Ii0,40,80,120,160,200,240,280,485n487,489,491,493,495,497,499Js305,265,225,185,145,105,65,25,-181,-183,-185,-187,-189,-191,-193,-195a}R(Z)(8(1)1)CR$(13):A33015: WAS 33135PR$"HOW MANY ATOMS? ":4000:IN$""NIN:150"I'LL ASSUME FIVE ATOMS.":N5 K0:HAN:S0:W$" "(H$"";RS224032768IN13500WN16140xJ09:I09:B(I,J)0:I:JI1NXR(1):YR(1)B(X,Y)0180B(X,Y)1:I10002000:KZRK:KZ:ZR:2000H$"PR$"WHICH RAY POSITION? ":4000:IN$""IN1=W$:RIN:KR:R13000IW$;""WR32201v(R1)81250,260,270,280"ERROR ":200X0:YR:U1:V0:300XR8:Y9:U0:V1:300X9:Y25R:U1:V0:300X33R:Y0:U0:V1,X1XU:Y1YV=6U0X2X11:X3X11:Y2Y1:Y3Y1:330]@Y2Y11:Y3Y11:X2X1:X3X1J8(B(X1,Y1))(B(X2,Y2))2(B(X3,Y3))1400,410,420,410TSS1:"HIT ":ZK:200XX1:YY1:500Z1:450Z1U0UZ:V0:500 U0:VZ" (X15)8550,520,560( B (Y15)8570,300,580H U &ZY:600e 0Z25Y:600u :Z33X:600 DZ8X XZR"REFLECTION":SS1:200 bSS2:"TO";Z;" ":200 AA36:D187 J18:I18 B(I,J)1740 TAI2J40:T,D1 I:J$ H$;W$; W$:W$;"":135c " 3 3 3 2 2 2 2 2" 13);"2 1 0 9 8 7 6 5" 12);"" I18 " ";((I),2);" . . . . . . . . "; ((25I),2) $I .12);""- 813);" 1 1 1 1 1 1 1"I B13);"9 0 1 2 3 4 5 6"O Lh "SCORE:";S;" "s K0 X(RS):ZZL(K)A X20X$((Z),2):2100 ZZ1,X: 4D1((X$,1,1)):D2((X$,2,1)) 9K82140 >ZZ,D1:ZZ1,D2: \K162200" dD132D1D2:D232; fZZ1,D1:ZZ41,D2:J K242300a D132D1D2:D232y ZZ1,D1:ZZ2,D2: ZZ39,D1:ZZ1,D2: R0700 H$;W$ W$:W$:W$;"" PR$"WHICH ROW? ":4000:IN$"":3060 IIN:I16I25I25I I1I83010 M PR$"WHICH COLUMN? ":4000:IN$""3060g JIN:J8J17J41J{ J25J323020 J33J J1J83010 B(J,I)1A36J2I40,81:B(J,I)2:HAHA1:3060 B(J,I)0"THAT ONE AGAIN???":3055 "WRONG!!!":SS5" I01500:I7 "";W$:W$:W$E HA0700V K0:Z0:200x "THANKS FOR PLAYING.":PR$;:60000:IN$""Z1(IN$):T$(IN$,Z,1)T$"0"T$"9""NO ";T$;"'S PLEASE.":4000Z:IN(IN$): `IN$" ":ZTTI:ZC2:ZD$(20):" ";6jZ$:Z$""60070ftZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15q~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:IZ20ZL1IN$(IN$,ZL1):"";:60010|Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250-605002"PRESS RETURN TO ";