40 I$""' 820:(0)13= I$I$((0)):20_ (36866,150:36869,240:648,30 2J217228:J,158::J229250:J,159: <:M200:S%(9),N%(26),S$(26),L$(M),C$(17),G$(7),B$(10),J%(7):J.7:J%(J)2J:!F" **** PILOT V2.1 ****":X820825:Z:X,Z::X.17Y!PC$(X)::X.7:G$(X)::X.10:B$(X)::32,207,255,133!Z0,96,LIST,RUN,SAVE,LOAD,NEW,BASIC,PLIST,T,J,E,U,M,C,A,I,H,R,G,CLEAR,QUIT,TURN"dDRAW,GO,PEN,SCREEN,BORDER,BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW,ERASE,UPB"iAA4096:AB38400:AC180:AD90:AE106.65:AF36879:AG16:AH8["nD.:"PILOT.":DOWN{"x10::(I$)32(I$)1120"(I$,1)" "I$(I$,2):130"L(I$):L.230"L1:HM:R$"":X1(I$):(I$,X,1)" ":210#R$(I$,X1):I$(I$,X1)6#L(R$):HL:X1(R$):(R$,X,1)"-":190X#L((R$,X1)):H((R$,X1))e#L.L1r#H.HM#X.6:I$(C$(X),(I$)):"UNKNOWN COMMAND.":110#X1320,510,410,450,490,500,310#LM"LINE # OUT OF RANGE.":110%$X((L)):X$(I$,X):X$""L$(L)"":120F$(X$,1)" "X$(X$,2):250$X3:(X$,2,1)":"X4:(X$,3,1)":"L$(L)X$:120$Z717:(X$,1)C$(Z):"ILLEGAL COMMAND.":110$(X$,2,1)"Y"ZZ13$"(X$,2,1)"N"ZZ26 %,L$(L)(Z6)(X$,X):120&%1:"BREAK IN"L1"":1104%61,4:325=%@1,3J%EHMHMv%JJ40:D26:Y6:U13:XLH:L$(X)""390%TX$":":Z(L$(X)):ZJX$(L$(X),1):380%^ZDZZD:X$"N"X$%hZUZZU:X$"Y"X$%rX$C$(ZY)X$%|1,X;X$;(L$(X),2)&X$:X$"@"1:110%&:1:110I&1,1,1,R$:"SAVING "R$:I$(13)b&X1M:L$(X)""440&1,X;I$(34)L$(X)(34)I$;&:1:110&1,1,.,R$:"LOADING "R$&1,X:ST480&1,L$(X):ST.460&1:110&60'"EXITING TO BASIC...":0'L.:X126:N%(X).:S$(X)""::P.:F%.Z'LL1:LML$(L)"END"L$(L)"E"110t'X$:X$"@"CQ%.305'X$"@"1270:305'!X$""1420'&L$(L)""520'0X(L$(L)):X40520':X26XX26:F%1520'DX13XX13:F%.520(NC$(L$(L),2)F(XX620,730,760,710,780,850,1010,1060,1150,520,1160k(b"ERROR #"E"IN LINE"L:CQ%1270t(d110(lZ.:(C$,1)";"Z1:C$(C$,(C$)1)(vX1(C$):X$(C$,X,1):X$"#"670(X$"$"680(X$;::Z.(520 )690:X$(N%(Y)):650")690:X$S$(Y):650Q)XX1:Y((C$,X,1))64:Y1Y26E1:610W)h)P8E3:61z)PP1:S%(P)L)(C$).L(C$)1:520)X1M:C$L$(X):E2:610)LX:520)P.E4:610)LS%(P):PP1:520* X1:C$C$",":X$AC$:(C$,1)"$"830:*ZX(C$):(C$,Z,1)","t* Z$(C$,X,ZX):Y1(Z$):(X$,Y,(Z$))Z$F%1:520**:Z(C$)XZ1:790*4F%.:520*>Y((C$,2))64:Y1Y26E1:610*HX$S$(Y):X4:+RA3:Z.:X$"":(C$,1)"#"(C$,3,1)"="E5:610C+\Y1:X$(C$,A,1):AA1:(C$,A,1)"-"AA1:Y1y+f(C$,A,1)"#"YY((C$,A)):AA((Y))1:910+pX((C$,A1))64:X1X26E1:610+zX18YY(.):910+YYN%(X):AA2+X$"="ZY:970+X$"-"ZZY:970,X$"+"ZZY:970*,X$"/"Y.E6:610A,X$"*"ZZY:970S,X$"/"ZZYe,A(C$)860,X((C$,2))64:X1X26E1:610,Z32767Z32767E7:610,N%(X)Z:520,C$""10:AC$I$::520-X((C$,2))64:X1X26E1:610'-10:Z(I$)::(C$,1)"#"N%(X)ZA-(C$,1)"$"S$(X)I$J-520e-$(C$,1)"#"E5:610-.X((C$,2))64:X1X26E1:61-8AN%(X):X$(C$,3,1):(C$,4,1)"#"X((C$,4)):1110-BX((C$,5))64:X1X26E1:610-LXN%(X).VF%0:X$"<"AXF%1).`X$">"AXF%1>.jX$"="AXF%1G.t520V.~"";:520.Y.:Z1(C$):(C$,Z,1)" ":1210.R$(C$,Z1):C$(C$,Z1):(C$,2)"TO"Y1:C$(C$,(C$)2).Z1(R$):X$(R$,Z,1):X$","X$";":1210/X$";"1300&/X$(R$,Z1):R$(R$,Z1)M/Z.7:C$(G$(Z),(C$)):1260g/CQ%.Z.EAH:610y/Z2Y11670/Z4Y11680/Z11390,1420,1450,1470,1570,1580,1630,1650/1270:"UNKNOWN GRAPHICS":"COMMAND IN LINE ";L:110/0CQ%.:36864,5:36866,150:36867,46:36869,240:AF,27Z0"";:OS%1"*PLOT WENT OFF SCREEN"`0 0D(C$):Y((D)):C$(C$,Y1):D.12600C$(G$(3),(C$))12600(Z1(R$):(R$,Z,1)";":126002C$(R$,Z1):X$(R$,Z1)1<Z1(X$):(X$,Z,1)" ":1260N1FR$(X$,Z1):X$(X$,Z1):X$(G$(2),(X$))1260X1PX$R$h1ZR$C$:1470x1dR$X$:14501nCQ%1:UD%.:OS%.:ER%.1xCO.:SC2:BC6:AN.:X0.:Y0.:76201520 2V36878:V2,200:V,15:J.200::V,.:J.100::X$:X$"Q"14202*21270:I$""52032110U21690:ANANZ:DD1:D.1370b2D.:520v21690:Z.12602TH(ADAN)AC2Y.Z:XGX0Y(TH):YGY0Y(TH):UD%.15202I$:I$""14202:X0XG:Y0YG:D.13802D.:520#3U((XGAE)1.35.5):V88(YG.5)R3CH(VAG)20(UAH):RO(VAG(VAG))AGy3CH.CH220XGAEXG108OS%1:3BYAAAGCHRO:BI7(U(UAH)AH)3ER%.ABCH,CO:BY,(BY)(J%(BI)):3ABCH,CO:BY,(BY)(255J%(BI)):,4"1690:TH(ADAN)AC:X0X0Z(TH):Y0Y0Z(TH):520K4,Z.10:R$B$(Z):1260d46Z8COZ:ER%.:520x4@Z8ER%1:5204JZ9UD%1:ER%.:5204TZ10UD%.:ER%.:5204^Z.7:R$B$(Z):12604hSCZ1:AF,SCAGBC8:5205rZ.7:R$B$(Z):1260%5|BCZ:AF,SCAGBC8:520951690:ANZ:520^51690:Y0Z:R$X$:1690:X0Z:520y5Z(R$):Z.R$"0"5(R$)2(R$,1)"#"E1:1270:6105Y((R$,1))64:Y.Y26E1:1270:6105ZN%(Y)5