TELESO & 8 P(H,@,),D(,),M(H)  (J:K:L@:D(8,2"INPUT":D<:::"INPUT/DRAW/ROT/LOOK/SCREN/// / ? ";F"INCHAR"PA$"I""INPUT": <ZA$"D""DRAW": <dA$"R""ANG":"ROT": <nA$"L""LOOK": <xA$""A$"S""SCREN": <A$""A$"""SAVE": <A$"""LOAD": < F "ROTU "SETIN:XP(I,A,D):YP(I,B,D):F:P(I,C,)P(I,C,D)YF(Y)(XF(YX):XFFFFC:R(XXYY)P(I,A,)R(F)P(I,B,)R(F)"I, 6"INCHAR@A$:A$"" @JQ$:Q$A$ JT ^"DRAW"hM1-x:M2M1:M3M1:M4M1 r"SET|INP(I,A,D)M1M1P(I,A,D)P(I,A,D)M2M2P(I,A,D)P(I,B,D)M3M3P(I,B,D)P(I,B,D)M4M4P(I,B,D) I:M2(M2M1)M4/(M4M3)IMr(P(D(I,),A,D)M1)M2,(P(D(I,),B,D)M3)M4,(P(D(I,),A,D)M1)M2,(P(D(I,),B,D)M3)M4 I: "SET9S , , , , &, 0:SSS@: AJ:BK:CL:AJ:BL:CK:AK:BL:CJ:AK:BJ:CL:&AL:BJ:CK:0AL:BK:CJ: :"INPUTD:MM2N, :M;". LINE FROM-TO ";:N1NX"INCHAR":B$A$bA$""MM:lA$"A" X vA$;"-";)P(A$):PPPP@"INCHAR"A$"A" A$)R(A$):RPRR@%PR , :" ": NF1:F2F1M(P)  F1J-NN:,`:"POINT ";B$;,:"= ? ";P(N,,):,:"= ? ";P(N,,):,(:"= ? ";P(N,@,) M(P)NM(R) * F2J- NN:,`:"POINT ";A$;,:"= ? ";P(N,,):,:"= ? ";P(N,,):,(:"= ? ";P(N,@,) M(R)N*D(M,J)M(P)4D(M,K)M(R)>:"O.K. ?"H"INCHAR":A$"N" DRF1M(P)\F2M(R),fNN1:" ": , :" " p N z"LOOK""LOOK [1-6] ?"!"INCHAR":A$"1"A$"6" S(A$)@ "ANG"'"ANGLE [D] ? ";U:UU4: "SCREN"1"SCREN [1/2] ":"INCHAR":A$"1"A$"2" D(A$)@: "SAVE:::"NAME:";N$#,""N$"_"#,N,M!IN:O@ #,P(I,O,):O,I<IM:#,D(I,):#,D(I,):,$I:#,M(I): .#8 B"LOAD!L:::"L":#,""V#,N,M!`IN:O@ j#,P(I,O,):O,I<tIM:#,D(I,):#,D(I,):,~I:#,M(I): # :$:;" SYNTAX ERROR( )(^)  <CC ? BA(X,Y):[ ] "";CO$(BA);:FL& CC ^ "CLS - ? ";