File OTHELO.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

*1B03R7E* B * * * B*2*^ 3AWM2 [O6 SO3H3E+LCO*** * B** B 2 >(3TWH+L;O+B	A.MJJ60J +ECM3PGL+YCS3TWH2 GG+MCE+OCF6"SO3H3E+LCO7WSI7HR +WCO7SKT3AWT3GWIS6:.JB32 WR+MB . F 6.R 3AWK2 T3E6 3A	X3M7U6 WN3MWB3R> 7FB 3IOEE7S.JB42 WR+MB . J 2.F +DCD3AJ 7OWN3SZ +OCR7OSU3S
I7EB 3O	S3T?IN*M*5B03R7E2 ?B3ASR6 OI2 T3EF 3RGR+Y^ +A2	2 ?B3USN+ECD+BCY60N	2 J(3L;A+K	S.MZJ60J +ECM* B /AB=2 ?F3RV 7MSP7YN 3QGU7ROE.M^J60J +ECM* B 3AJ=2 ?F3RJ 3AOL7KN 3QGU+RCE2(;I7TKE3N3A+LCY*-&1.M"J60J +ECM* B 7A^=2 ?F7R^ 7HSI7EN 3QGU+RCE2(;I7TKE3N3A+LCY
+&1.M&J60J +ECM3IF +NCD3JF 3LGW+YCS3UWS3DZ +OCR7R
O2/?C3L7U3N& 3N	D7COE.MFJ*0B03R7E. SI2 ;A3D* 64N 7TKO3E& 7NKC3EWM7NOT2 ?T2 T/E" 2 WN3IG7BKOS*M.1B12 WR3MN 2$F +NCD+DB$3S?T+RCE3TWH2 GC3HGR3CWT+RCS3A"-*,3X2.>,2 ?F3R> 7UCTU7T.JJ120R +ICM/A&(*,&9.,SI*(&8.,SJ*(&8*,SC*(&8*,SD*(&2.MFJ*3B03R7E2 ;I3I	T+ACL3GWR3E
TN7G.JR160B 3R;I7TC\3R;I+TJ 3GWR3E	T7NOG6 KF+OCM3OT3E3LO6".JV160B 3R;I7TC\3R;I+TJ +DCO7YWO2 GW+NCT7ION7TWR3C	T7OON6 	[6 KO6 7N""6;.JZ120& 7NWP7T* "$*M.1B72 [I* SZ2=:"2"^ 3O?T. &3"0*M.1B82 [I* SZ*<J>+YB"7GSO/OF "660.J&160B 3R;IT*M.2B06 KP7ISN2 >"3TWH3L?L6 
I2 3P3AWY3D> 3NF /N" * CX28N 3HOE7KKE2 ?B3ASR",6".JF260B 3R;I+TJ 7R
O3S: 3UKM3EWR/DF 2 ?T* B83ASN2 ?C3L7U+NCS7AR 3O" ".6".JJ260B 3R;I+TJ 3TWH2 ;I3I	T+ACL3C;O3F
I3UGR3T?I3N& 3SF +LCL3BGL+NCK3EOX7ESP""*M.2B36 KP7ISN2 Z"+OCR3TWH2 WC3NWT3RZ 7OKU6 GS7UKA+ECS3W	H+CCH7FKO7MR +HKE.MJJ*4B03P	R+NCT2"GP3TWT/R+N""*M.2B56 KP7ISN2 GT/BJ(.0.)*"COX6".JZ260B 3R;I7TR +AB*2&06;""* KO.MJJ*7B03P	RN7T.J"260B 3R;I+TJ 7T	R2 ?T2 3P3AWC2
?Y+UCR3PWI+CCE+SCO3TGH3T& +T^ 7OSU3FGL7NOK"	6".J&260B 3R;I+TJ 3M;I+EB,3CWR3A	T+NCG3A" 3O	R3Z;O3T3A6,Z 7ESR3IGC3L> R6".JB360B 3R;I+TJ 3DGI3G;O+ACL3R;U2 [O6 	M2 	P3EWC3SJ 3O;U3DSE6 SA2 GE+CCH3ESN""*M.3B16 KP7ISN2 J"3YF 3T2 7EOA3T> +NCE+OCF7YWO+R;S2 T+ICS3W3
+L^ 3F	L+PB	+MKY.MNJ*2B03P	R+NCT2"	P3EWC+SB,7TKU3N;I7GR 3H7E2 ;I+TCO7YWO+R;S""*M.3B36 KP7ISN* *"7NSO/E**2 ?Y3U6 7USS2 GC7PWT+RCE+ACT3LGE+SCT3OWN2 [O6 	M""*M.3B46 KP7ISN6 B"3IOE+ECS+ICN3T	H7S^ +ACY+ICF+ICT+ICS+ACT3A3L2 ?P3S	S3BWL".6".JV360B 3R;I+TJ +ICF+IC
+ICS7NSO2 ?P3S	S3BWL6,& +OCU7FKO3F	E7T& 7OKU6 WT+RCN+BKY.MNJ*6B03P	R+NCT6"	T3P;I+G^ .0B,2	Z +OCR7YWO+R" 7R
O2,?C+LB)7M[O+EJ..MNJ*7B03P	RN7T.J"360J +ECM3I	N3TGI7L+IE*M.3B96 KP7ISN6 N"7HWO+LCD7I^ 7ASI2 WB7FKO3E6 3A	K+NCG+MCY7M[O+ECS+[CY+OCR+NK]";*M.4B0. KF"=60.JF420& 7NWP7T" "$*M.4B22 [I* SX2=:"2"^ 3O?T. Z4"0*M.4B32 [I* SX*<J>+YB"7GSO/OR "160.JR420Z .2F=.MRJ*5B0
P	R+NCT2"/O6,R 3Y	P+NCG7A	N2 C3AGR3CWT7R^ 3I3L2 WL3T6 3E^ +OJ..MRJ*6B03P	R+NCT2"S3O3U3D& 2 3P+ACY+MCY7BOE7TN 3TGR3T
E7Y. 3Y> 3R: /].".MRJ*7B0/S62"0*M.4B82 ;I7PSU* SX.MRJ*9B0+ICF/X6$*"KN2 ?G+TCO.5B2.MVJ*0B0+ICF/X2$6>&"2"^ 3O?T. Z4"0*M.5B1. KS"=62.JJ520J .=F-.MVJ*3B0/WF=.MVJ*4B0+D"$/BF+*)J=X6".JV520R .$B(*+&1*=:"""*M.5B6* SD*(/W.16)*"KO.MVJ*7B07FKO. 7K61R /O" .MVJ*8B03RG
3D& 24.(")*M.5B92 WN+XCTK*M.6B02 GD+TCA*06,*16,*16,.1B,*,21.1F,.MZJ*1B07FKO. 7K61R /O" .MZJ*2B03RGE3D* 24.(")*M.6B32 WN+XCTK*M.6B42 GD+TCA.1F,*,20*-21*-21*-21.0F,.MZJ*5B07FKO. 7K61R /O" .MZJ*6B03RGE3DN 2$.(")*M.6B72 WN+XCTK*M.6B82 GD+TCA*"KA2,J"*"J,+C2"*"
D2,V"*"J,+F2"*"KG2,""""*M.6B92 WR7MN +ECT+UCP3A: +ECW3G7AE*M.7B02 ?F3R& *=B0+TCO"9*M.7B12 ?F3R* *=B0+TCO"9*M.7B2* A3I*,.)B=.M^J*3B07NE3T* .M^J*4B07NE3T& .M^J*5B0/AR(*,&4"=7W.JZ720F *(25.56)W*M.7B7* A.4V,2)J=.M^J*8B0/AV(*,&4"=7B.J&720N .1J=.M"J*0B0/H61"2*M
8B1. GN"=64.JJ860* "=60.JN860J +ECM3H7U+A
N3SN 3H	O7COE.M"J*4B03P	R+NCT2"?D2 ?Y7U^ 7ASN2 ?T2 GH+VCE*	
X6 KO2 >	6	. 3X> 3R> /].".M"J*5B07C^=.M"J*6B03HJ=.M"J*7B07ICN+UCTX6$.J"820& 7F" *$J=+XB"7GSO/O& "260.J&820& 7F" .$:<*"KO2 ?G+TCO.8B4.M&J*0B03CJ=.M&J*1B07H^=.M&J*2B03P	R+NCT2"?D2 ?Y7U^ 7ASN2 ?T2 ?G2 	F7RSS6 	[6 KO6 7N""6;.JN920& 7NWP7T" "$*M.9B42 [I* SX2=:
2"^ 3O?T. B1"260.JV920& 7F" .$:<*"KY2 ?G+TCO.9B2.M&J*6B03R7E6 KP7ISN2 ;I3I	T+ACL3BGOR7D.J^920^ 7OWS/BN .0B8.M&J*8B07GSO/OF .6B7.M&J*9B03R7E2 ?C7MWP7TKE*	CS7M[OE*M.1B020& 3FZ .2B=2 ?G+TCO.1J0"0*M.1F020& 7NWP7T" "$*M.1J020J *16="1*M.1N020& .3B=/\OJ"=60.JB1*
B0/T61C*M.1V060R 22"=.MFJ.0B62 WR7MN 3C;A2 ?F3RJ 3L;A7KN 3QGUR7E.JB1*7B07FKO. 7I61R /O" .MFJ.0B82 ?F3R* *=B1+TCO"8*M.1&020& 3FF *(3I/J2)*>B07GSO/OF .3B6.MFJ.1B02 WR3MZ 3O;U3DF 2 3B3A/N6 GS7UKAE*M.1F160J +ECM3DWO3S& 3T" 3AWV2 ;A6 CO3P;O7ESN6 OA* CA3N	E3GKH
OCR"?*M.1J120^ 7OWS/BJ .6B0.MFJ.1B32 [I. GF*=B07GSO/OF .3B6.MFJ.1B42 WR3MZ 3O;U3DF 3N> 3P?P3N;E3TF 3SF 2 WN3IG7BKO.MFJ.1B52 WR3M" +OCW3M;A3Y> 3F" +ICS3PWI7COE2 GC7N^ 3EZ 7LCI" 6?.JF1*6B03R7E2 R(+O
N3TR 3O& 3T: +O	W.MFJ.1B7. 7U"-61.JF1*8B07GOO+UCB.2B8"0*M.1&160J +ECM7ESX+RCA3P	O7NOT2 ?F3RJ 3O;U7D	R2 ?P7SSI3I;O.MFJ.2B02 [I. GS*=B07GSO/OF .3B6.MFJ.2B12 [I2 &(*-&12*&(*-&8.<B>2 ?G+TCO.1N2"0*M.1J260N 61N=61N+"2*M.1N220& +F" /JF-*)"*/J"-.):<20^ 3O?T. J1"6
0.JJ1*4B0/S61+S.1S62.JJ1*5B03R7E6 OI2 T+ICS7BSE7TKE2 T+ACN3TWH2 WB+SCT7FWO+NCD+SCO7FKA" 6?.JJ1*6B0+ICF/S21+BB17GSO/OF .3B6.MFJ.2B72 [I. GS.>GB2 ?G+TCO.1J3"0*M.1"260J +ECM7AR /I/E2 GR3N?D3MR 3E	C3S?IN*M.1&260J 2=;R/DF(")*M.1B320& 7FJ .>V.2 ?G+TCO.1Z3"0*M.1
360J +ECM7YOE.MFJ.3B2. GB.=GS.MFJ.3B3. OI"=7I.JN1*4B0/J63J*M.1V360J +ECM3ESN2 [O2 OS+ACN3L?OP*M.1Z320: 7ESX" 7J.JN1*7B07NE3T& .MFJ.3B82 WR3MN 3O3U7D^ 3ER 3OF 7NSY3H;I/G> .MFJ.3B92 [I. GB*>B07GSO/OF .4B6.MFJ.4B02 WR3M: O*M.1F460B 3R;I+TJ 3I" 3AWV2 ?T2 ?F3R
F3T6 3Y6 3OWV""*M.1J420& 7F* *=B17GSO/OJ .1B7.MFJ.4B3. 7Z"1*M.1R420^ 3O?T. Z1"760.JR1*5B03R7E2 GM+KCE3TWH2 ?MV7E.JR1*6B0/ZB=.MFJ.4B76 KP7ISN2 &"2 	W+LCL7M[O7ER +OJ ";*M.1"460B 3R;I3T& "36;.JR1*9B03P	R+NCT*"J,";*M.1B560B 3R;I3TN 2$*("36).JV1*1B03I&="3*M.1J
20* .=OJ.MFJ.5B3. 7U"1*M.1R520^ 7OWS/BJ .8B0.MFJ.5B5. GC.=GC.+GS"+61.JV1*6B0/H61+H61S61.JV1*7B0/N61+N.1"1*M.1"560B 3R;I+TJ 3TGH3T^ 3IWV3S6 +EJ ";*M.1&560B 3R;I7TN "16;.JZ1*0B03P	R+NCT2"[O2 ?Y+UCR3PWI7COE""*M.1F660J +ECM3P	R+NCT7OSU2 ?B3ASR.MFJ.6B22 ?G3SKU
 B3"860.JZ1*3B03R7E2 WT+SCT7FKO2 ;E3D> 3F^ 3AWM.MFJ.6B42 [I. GH*=B07GSO/OJ .1B7.MFJ.6B52 [I. GN.=R62 ?G+TCO.2^1"0*M.1Z660J +ECM3H7U+A
N3S6 3OWV.MFJ.6B7. GT"=7H.JZ1*8B0/T62C*M.1&660B 3R;I+TJ 7YWO3R6 3OWV* 6-6 J(+O3W3C3O.).".MFJ.7B02 ;I7PSU* 3IX6$.J^1*1B0+ICF/IB<2 ?G+TCO.1B7"0*M.1J720& 3F& *>B87GSO/OF .7B0.MFJ.7B32 [I. 3I*>B07GSO/OF .8B0.MFJ.7B46 KP7ISN2 F"+RCE7YWO2 ?F3R	T3T;I7G& 7OKU6 WT
RCN+[CY+OCR+NK]";*M.1V720& 7NWP7T" "$*M.1Z720& 7F" *$J=+NB"7GSO/OF .6B93\[I* SX*<J>+YB"7GSO/OF .7B4.MFJ.7B72 [I. 7Z21^ 3O?T. F2"760.J^1*8B0/ZF=.MFJ.7B92 ?G+TCO.1B0"0*M.1B820Z +OCR/JF=2 ?T" 68.J"1*1B0+ICF+C"$/J6)+XB$7GSO/OF .8B5.MFJ.8B22 WN+XCTJ*M.1N820^ 3
?T. ^1"060.J"1*4B03R7E2 C3E/C2 [I2 3B3A/N.MFJ.8B52 [I* A3I*,.)B=2 ?G+TCO.1&8"0*M.1Z860B 3R;I+TJ 7SKO+R3Y2 T+ACT7SWQ3AWR6 OI2 OO7CCU3ISE6,R +RCY3AGG+IKN";*M.1^820^ 3O?T. ^1"060.J"1*8B03R7E2 C3E/C2 ?F3R2 3EGG3L: 3E
I3H?BR*M.1&820^ 7OWS/BJ .6B0.MFJ.9B02 [I. GF*=B17GSO/OF .9B5.MFJ.9B16 KP7ISN6 N"7OKR+YB,7YWO6 KA3E: +OCT7NE7TR 3O> +NCE+OCF+MCY3PWI7COE...".MFJ.9B26 KP7ISN* B"7T	R2 
A3A;I""*M.1N920^ 3O?T. ^1"060.J&1*4B03R7E2 C3E/C2 [I2 WL3G3A6 WRN*M.1V960V .=F-.MFJ.9B62 ?G3SKU. "2"060.J&1*7B0+ICF/S:120^ 3O?T. B2"160.J&1*8B03P	R+NCT2"?S7R	R6,R 7HSA2 ?D+ECS7NSO2 3F3A/N* CA7R
O6.R +RCY3AGG+IKN";*M.1&920^ 3O?T. ^1"060.JB2*0B03R7E6 [E7E	R3T	H+NCG3L
EA7L.JB2*1B0/ZB=.MJJ.0B26 KP7ISN6 R"7HSA2 	G7VOE2 ?Y+UJ ";*M.2N060B 3R;I7TN "16;.JB2*4B03P	R+NCT2"> 3F6 7YB 3IOE+EKS.MJJ.0B5. 7U"1*M.2Z020^ 7OWS/BJ .8B0.MJJ.0B7. GH.=GH.+GS"+61.JB2*8B0/C61+C61S61.JB2*9B0/N61+N.1"1*M.2B160J +ECM3P	R+NCT7OSU2 ?B3ASR.MJJ.1B1
 ?G3SKU. B3"860.JF2*2B03R7E2 WT+SCT7FKO2 ;E3D> 3F^ 3AWM.MJJ.1B32 [I. GC*=B07GSO/OJ .1B7.MJJ.1B42 [I. GN.=R62 ?G+TCO.2^1"0*M.2V120^ 3O?T. B1"060.JF2*6B03R7E2 ;E3D> 3F^ 3AWM6 KW+ACPU7P.JF2*7B03P	RN7T.JF2*8B03P	R+NCT2"?Y3U" 3AWV. .".MJJ.1B96 KP7ISN. GH";*M.2
260B 3R;I+TJ 2 	P3EWC3SF +NCD3I" 3AWV. .".MJJ.2B16 KP7ISN. GC";*M.2J260B 3R;I+TJ 2 	P3EWC+S6 *-J ";*M.2N220& 3F" 21N=21^ 3O?T. J2"760.JJ2*4B0+ICF/H:1+CB17GSO/OJ .2B9.MJJ.2B56 KP7ISN6 N"7OKR+YB,7I^ +OCN3TGH3T> +N;E""*M.2Z220^ 3O?T. N2"060.JJ2*7B03P	R+NCT2"
 2 	T+EF "!6".JJ2*8B07GSO/OJ .4B8.MJJ.2B96 KP7ISN6 &"+OCU3W;O* J!.MJJ.3B0. GC.=GC.-GH.MJJ.3B12 [I. GC*>B07GSO/OJ .3B3.MJJ.3B2. GC2=N-"1*M.2N320N *1"=*6*4+C&1./GN.MJJ.3B46 KP7ISN6 R"7HSA2 GW3SF . .".MJJ.3B52 [I. GC.<F12 ?G+TCO.2^4"0*M.2Z320& 3FN .1J<25^ 3O
T. R2"560.JN2*7B0+ICF/C21*3B97GSO/OJ .4B3.MJJ.3B82 [I. GC.<N52 ?G+TCO.2F4"0*M.2&360B 3R;I+TJ 7PKE3FOE3T^ 3AWM".6".JR2*0B07GSO/OJ .4B8.MJJ.4B16 KP7ISN6 ^"3A/L3AGW+YJ..MJJ.4B22 ?G+TCO.2"4"0*M.2N460B 3R;I+TJ 3F
I+H;T""*M.2R420^ 3O?T. R2"860.JR2*5B03P	R+NCT2"?H3T^ 3AWM".6".JR2*6B07GSO/OJ .4B8.MJJ.4B76 KP7ISN6 N"3QWU3AWK+RF "!6".JR2*8B03P	RN7T.JR2*9B03P	R+NCT2";A3OT+ECR3G7A+EB?+[CY+OCR+NK]";*M.2B520& 7NWP7T" "$*M.2F520& 7F" *$J=+YB"7GSO/O^ "060.JV2*2B0+ICF/X2$2>:"
"^ 3O?T. R2"960.JV2*3B03P	R+NCT2"T3A/N3SZ +OCR3PGL3Y;I+GJ..MJJ.5B46 SSO7P.JV2*5B03R7E.MJJ.5B62 WR7MN 7UKB7OSU3IWN2 WT+S7T7FKO6-KP3OWP3R: 3E
I3H?BR*M.2^560J +ECM7AOS3UWMS6:.JV2*8B03R7E2 & *,CJ3LOO3AWT3SF 2 3B3A/N6 GS7UKAE*M.2&560J +ECM2 ?Y3U" 3AWP2 ?T2 WS3EF 3NF 3DGJ3C;E7TR *2" 6=R-"16).JZ2*0B07FKO. GI.=F-2 ?T" 61.JZ2*1B07FKO. GJ.=F-2 ?T" 61.JZ2*2B0+ICF3A&(.+GI*,/J+J&1.=KT2 ?G+TCO.2&6"0*M.2N62
: 7ESX. GJ.MJJ.6B42 WN+XCTI61.JZ2*5B03R7E2 ?N. KT2 ?F3USN2;Z 3A3I3UWR.MJJ.6B6. GF"=60.JZ2*7B07RSE3U;R.MJJ.6B82 WR7MN 3UOC7EOS.MJJ.6B9. GF"=61.J^2*0B07RSE3U;R.MJJ.7B12 WR7MN 7UKB7OSU3IWN2 OS3OWR2-;A7DV-3PGDT7E.J^2*2B03R7E6 OA3S7U/E+S.MJJ.7B32 WR+MB *(3I+JB
+ICS7AR 7ESN3A	T+VCE3PGL+CCE7FKO* CA3PWI+CCE+T:1.MJJ.7B42 WR+MB 3W;A7TJ 7UON2 [O. KT6=R-*1B,7TKE3M;I3AWT3DJ 3YF . GT".*M.2V760J +ECM2 [I* CU+ICS7TWR+E" *12)2 GM+RCK3T?H+SCE3R;U3SF 7SR 61N	".*M.2Z760J +ECM2 WR7TKU7NN +UCM+OCF+ACL3R;U+S" +T^23S> 7N	L2)& 7NN
"16..J^2*7B03R7E2 6 3A;I6 KP7OKG+ACM3C;O3T	A+NCS3TWH2 ?F7L
O3I
N6 KA7R	AS6:.J^2*8B03R7E* B . SI*:B *0B *-B1. F-* 6 *1B *0B *1B *1B "1*M.2&760J +ECM* B /J*4. F . F . B * 6 *1B *-B1. F-. B . F .MJJ.8B0. GS"=60.J"2*1B07FKO. 7K61R /O" .MJJ.8B2. WI.=SI*(	K.MJJ.8B3. WJ.=SJ*(	K.MJJ.8B4. [I*=/II65.J"2*5B0/J663J*+"5*M.2Z860N 
3B=.MJJ.8B72 [I* A+I26+J&66<R>22^ 3O?T. B3"560.J"2*8B03R7E2 ?L+OCP7TKH3O
U7HR +HCE3R;U.MJJ.8B9. OS.=OS"+61.J&2*0B0/I66+I.6I65.J&2*1B0/J66+J.6J65.J&2*2B0+ICF3A&(26*,.66)+TB17GSO/OJ .9B5.MJJ.9B32 [I* A+I26+J&6*=B07GSO/ON .0B5.MJJ.9B42 ?G+TCO.2&8"0*M.2V960N 61N=61N+"3*M.2Z920& 7FV .<F>2 ?G+TCO.3V0"0*M.2^960J +ECM3USP3AWT2 ?B3ASR.
JJ.9B8. [I"=7I.J&2*9B0/J66J*M.3B020Z +OCR/K6160R 7ON "3*M.3F020F .([I.,[J6)R="1*M.3J020& 26&=26&+"5*M.3N020* 26*=26*+"5*M.3R020: 7ESX. GK.MNJ.0B52 WN+XCTK*M.3Z060J 7EWTR7N.JB3*7B03R7E6 WS3B?R3U	T+NCE3P	R+N7T3BGOR7D.JB3*8B03P	RN7T.JB3*9B03P	R+NCT*"B * B * 
A2 J * B +CB * CD2 V * B +FB * CG2 " ""*M.3B120Z +OCR/IF=2 ?T" 68.JF3*1B03P	R+NCTI6;.JF3*2B07FKO. 7J61R /O" .MNJ.1B36 KP7ISN* B"* J ";*M.3R160B 3R;I3TR 2$F(*(3I+J.).1.).MNJ.1B52 WN+XCTJ*M.3Z160B 3R;IT*M.3^120: 7ESX" 7I.JF3*8B03P	RN7T.JF3*9B07RSE3U;R.MNJ.2
02 ;ED*MBZ

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search