File LOTEVL.BA (BASIC source file)

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

21R +ICM/ZF(*0&0.MJJ2 	D7M& .(B1"06)*JB33D7I* X.1B0")*M24R +ICM/TF("26)*JB53D7I* D.5F,*0&0.MZJ2 ?G+TCO"567.JB12 	F+LCE.*12"?L3TGD3TJ.A6".JV12 	F7L[E. J2:R"7CKW":6".J^16 KP7ISN. J":*M*1B87FKO. 7I61R /OF "060.JB22 ;I7PSU. F2:R *(20I6).JJ22 [I2 ;E+DN 61R 3H;
. B5.MJJ25& 3FR *(20/I6)60R 3H;E. B2.MNJ25Z +OCR/KF=2 ?T" 63.J^32 ;I7PSU. F2:R *(3KI6).J"32 [I2 ;E+DN 61R 3H;E. B5.MRJ20: 7ESX" 7K.JJ42 ;I7PSU. F2:F *,3BC*M*4B3+ICF3ESN. F2 T+ECN"560.JV42 ?G3SKU. B1"0*M*4B77LSE* D24&,2)F=.MRJ29: 7ESX" 7I.JB52 ?G+TCO.1B5"0
M*5B13R7E.MVJ62J E7M.JN52 WRM*M*5B43R7E.MVJ67J E7M.J"52 WRM*M*5B93R7E.MZJ202 +ECT/TF(.)B=.MZJ222 +ECT/TJ(.)N="1*M*6B47LSE* T.36)"569.JZ62 WL7TR *(&4.=B9.MZJ282 +ECT/TV(.)F="260.JB72 WL7TR *(&6.=V1"1*M*7B27LSE* T.76).1F8.M^J242 +ECT/T"(.)J="162.JZ72 WL7TR 
(&9.=R2"3*M*7B87LSE* T*1&0.=^2"3*M*8B07LSE* T*1&1.=B3"4*M*8B27LSE* T*1&2.=N3"4*M*8B47LSE. GY*=:0"1*M*8B57LSE. GX.=B7"0*M*9B97GSO/OF "0*M.1B02 WR7MN 3RN 3AOL3UGL+TCE7DSAE*M.1F02 WRM*M.1N02 WL3TN *=7C"760.JB1252 +ECT7BR=*(	B.MFJ*1B07LSE. 7A3AJ+*++C.3V6.MFJ*
B07RSE3U;R.MJJ*0B03R7E6 KS6 KP7ISN.MJJ*0B13R7E.MJJ*2B07FKO. 7K60R /OF "060.JJ2222 +ECT3Z.(.)B=.MJJ*2B47NE3T. .MJJ*2B57LSE. GZ"=60.JN220Z +OCR/JV=60R /OB 6 SS+ECP"-61.JN265J +ECM+C7RL7F.JN266J E7M.JR262J +ECM3P	R+NCT3YF-7XOI2 CA7R.JR225& 3F* *=B03TWH/NJ "9
0.JV220& 3F* */657ISN*(?J.52).0B.*0B13TWH/NJ "860.JZ260B 3R;I+TN *2B:*"J!";*M.2B72 ?G+TCO.2"8.MJJ*8B03P	R+NCT.*2* ."""6;.J"265J +ECM3I	N3T2 3IWN2 WV3K?TR*M.2"82 [I. ;H.0B.61R 3H;E. F3"0*M.2B92 ?F3R. *=B0+TCO.1B0.MJJ*9B57LSE* Z/K6)"0*M.3B02 WN+XCTK*M.3N02 
L7T* .1B=.MNJ*0B43R7E2 ?W+RCK7OSU2 	L+NCE3V/E7TKO.MNJ*1B07FKO. 7K60R /OF "060.JJ320& 7F& *(	K2<*>2 T+ECN.3^4.MNJ*4B07LSE* Z3X.(.)6)7Z"(*(	K.)F+.MNJ*4B2+ICF7Z"(*(	K.)F-*>:0*0B13TWH/NN "467.JR3252 +ECT/Z61+Z.1"1*M.3^42 WN+XCTK*M.3"42 WRM*M.3&42 WR7MB 3R;I3T
 *.;V.MNJ*5B0+ICF/Z6160R 3H;E. "4"5*M.3J56 KP7ISN. J6:B +NT*1&3";*M.3B62 ?F3R. *=B0+TCO"669.J^320& 7F* *(	K*=B03TWH/NR "060.J"360B 3R;I+TN *2J:..".MNJ*9B07GSO/OR "860.JB420& 3F* *=B03TWH/NR "460.JF460B 3R;I+TN *2B:*"J ";*M.4B22 ?G+TCO.4B8.MRJ*4B0+ICF/K^/2
;I3T.(*/&7*<:0.0F02 T+ECN.4B6.MRJ*5B03P	R+NCT.*2* 6"""6;.JV425^ 3O?T. "4"0*M.4B66 KP7ISN. J*:J .+.".MRJ*8B07NE3T. .MRJ*8B53P	R+NCT.*2.MRJ*9B07NE3T* .MRJ*9B97RSE3U;R.MVJ*0B03R7E.MVJ*0B13R7E2 3P+OCT7RSA7EZ 7EOR2 GDT7E.JB5222 +ECT/HB=.MVJ*0B57FKO. 7K61R /OF 
060.JF5202 +ECT3Y.(2)R=*(23+K>)/DJ(*,	K.MVJ*2B07LSE* X/K6)/DB(*,	K.MVJ*2B57NE3T. .MVJ*3B47FKO. 7K61R /OF "060.JN5262 +ECT3Y.(2)&=+NT3Y.(.)V*60&/.1B+*.&5.MVJ*3B87LSE* X/K6)7ISN*(X+K*)*7>0+X.1.0V.")*M.5B42 WN+XCTK*M.5J46 KP7ISN. J*:J 3F	A7LKU7EJ 3AWT""*M.5N
6 KP7ISN. J.:F"*0V ""*M.5B52 ?G3SKU. B2"0*M.5V56 KP7ISN. J6:R +ACB.(J6*)J;7SKE3I3A2 ?N".6".JV566B 3R;I+TN "26:.JV567B 3R;I+TN *2B:3TKA.(N1*)J;3F	A7LKU7EJ 3AWT6 OA* CA3F;U3C	T+OCN+OCF3T7I+E" 7SKE3I3A. CN*.J).MVJ*5B87GOO+UCB.9B9.MVJ*5B97GOO+UCB.9B9.MVJ*6B03
	R+NCT.*2.MVJ*6B13P	R+NCT.*2.MVJ*6B47RSE3U;R.MVJ*6B73P	RN7T.JB660J +ECM+SCR7HOI3T
O3R7AM*M.6V02 WL3T" "=61.JF620Z +OCR/KB=2 ?T. B1"0*M.6J12 WL7T& *(	K"=60.JF663" *(	K"=60.JF625: 7ESX" 7K.JF629Z +OCR/KF=2 ?T. B1"0*M.6B22 WL3TF 2=;I/TF(20R**(23+K>)/DJ(*,	K./GY")*M.6V22 ?F3R& *=B0+TCO"6*M.6B32 WL7T& *(*73A&+6)&=*(*73A&+.)F+.MZJ*3B5+IF27F*
+	I*<:0.0F02 T+ECN.6V7.MZJ*4B07LSE* X27F**+	I*=*73A&+.MZJ*4B57NE3T& .MZJ*5B07NE3T. .MZJ*5B17FKO. 7K61R /OF "060.JV6222 +ECT3Y.(2)&=+NT.0V.**Y+K.).0V.")*M.6N52 WN+XCTK*M.6R56 KP7ISN. J*:J +N;R2 [O2 ?L+TKS.MZJ*5B53P	R+NCT.*2. F"*0J0.MZJ*6B07GOO+UCB.2B0.MZJ*
B57GOO+UCB.8B0.MZJ*7B07RSE3U;R.MZJ*7B57LSE* X.06)"1*M.6B82 ?G+TCO.6V4.MZJ*9B97RSE3U;R.M^J*0B03R7E* B * B 6 N 7RN 7OSR7IKE2-?R3U	TN7E.JB7212 +ECT/FB=.M^J*0B47FKO. 7I61R /O& "9*M.7V02 [I* D20&,.)B=2 T+ECN.7Z1.M^J*0B6+ICF/DB(*,	I*-D20&,*+&1*>B03TWH/N^ "260.J
762J E7M.JF724: 7ESX" 7I.JF726& 3FZ *=B03TWH/N^ "368.JF728^ 7OR /O^ "061.JJ720Z +OCR/JB=2 ?T" 64.JJ7222 +ECT3VR=*(3J/IF+")*M.7R22 WL3TR *(3J/IF+2)R=*(3JI6).JJ7262 +ECT3D*(*,	I"=7V.JJ728: 7ESX" 7J.JN7202 +ECT/FF=.M^J*3B13R7E.M^J*3B2+GCO+TCO.7R1.M^J*3B87RSE
U;R.M^J*4B03R7E* B * B 6 N 7RV 3EWB3ROS3H	R+FCT3FWU3RR +ICE7DSA+ECN7LOIT7E.JR761B 3R;I+TN *2J:7SKE2.: +OJ.2;GT/BF(.4.)6"	T+PCE+N;O6"R;+AB*2&86;F"+T;Y+IKN2;GT/BR(.2.).M^J*4B23P	R+NCT.*22"?T3T3A2 ?L3SWS/S."3TKA.(B6*)J;7DSAE6".JR763J 7EWTR7N.JR764J +ECM* B *
B 6 KS2 WR3C3A7UWC7LSA3ER 3AWT.M^J*4B57LSE. 7A/DR(*,	I.M^J*4B67LSE. 7C"0*M.7"42 [I* 7A/CN*.625*=B03TWH/N^ "564.JV7202 +ECT3CN="+61.JV722^ 7OR /O^ "468.JV7242 +ECT3AF=2-N(*-&1.*Z3"5*M.7Z52 WL3TN *=7C.1^+"0*M.7"52 WL3TJ "=61.JZ720& 3FF *-T/B2)*=B03TWH/N^ "6
8.JZ762J E7M.JZ724& 3FJ .=J12 T+ECN.7R7.M^J*6B57LSE. 7B/BF+.M^J*6B6+GCO+TCO.7B6.M^J*6B83R7E.M^J*7B07LSE. 7B/BF-.M^J*7B23R7E.M^J*7B47LSE. 7A7AR-*(	B.M^J*7B57RSE3U;R.M"J*0B03R7E* B * B 6 N +RB 7USN7EOR7CKH7ISF6 WF+ECR7HOI3T
O3R7AM*M.8J02 WL7TZ "=60.JB8232 +ECT/WB=.M"J*0B4+ICF/VB=2 T+ECN.8"0.M"J*0B5+ICF/VF=60R 3H;E. F8"5*M.8Z06 KP7ISN. J6:R +ACB*(	W.;/V.M"J*0B7+GCO+TCO.8B1.M"J*0B83P	R+NCT.*22 GT7B^(*)J;.0.".M"J*1B07LSE. 7W/W^+.M"J*1B17LSE. 7V/VF+.M"J*1B4+GCO+TCO.8R0.M"J*1B53P
R+NCT.*22 GT7B^(*-&1";7V.JF867B 3R;I+TN "26:.JF868B 3R;I+TN *2B:3TKA.(V5*)B;2"GF7IWL+RCE7RSA3E& +NV ""*M.8&16 KP7ISN. J":*M.8B26 KP7ISN. J6:R +AB*2&22;""7ISS7OKG3A7M3E> 7FR +HCE3N7U7BKE2 [O2 ?L+TKS.M"J*2B23P	R+NCT.*22 GT/BJ(.2.)6"OA* CA3F;U3C	T+OCN+OCF3TW
2 GF7IWL+RCE7RSAE6".JJ823^ 7OWS/B& "960.JJ864B 3R;I+TN "26:.JJ865B 3R;I/TJ":*M.8Z26 KP7ISN. J":*M.8^26 KP7ISN. J":*M.8B32 WR7TKUN*M.9B02 WR+MB * B 6 N 7RR 7ESX2 WD3RV 7RSS+ECN3S	ET7E.JB922^ 7OWS/B& "960.JB963J E7M.JB964J E7M.JB966B 3R;I+TN *2B:3TKA.(J2*)J
3S3E6 SS7UST7GKA7TJ 3EWS3AOR3HN 7ESN+RKE.M&J*0B73P	R+NCT.*22 GT/BJ(.2.)*"**************************************""*M.9"02 ?G3SKU. &9"0*M.9&06 KP7ISN. J6:R +AB*2&5*;J 7BKU+N6 2 ;I2 V 3V3A7USA3I;O""*M.9B17GOO+UCB.9B9.M&J*1B17GOO+UCB.9B9.M&J*1B23P	R+NCT.*26 N
3POE3I	F7CSA3I;O.:."3TKA.(F4*)J;.0V06 SI/TZ .2N *0J1.M&J*1B33P	R+NCT.*2.M&J*1B43P	R+NCT.*26 B"3RSO7USC6 OA7SKU3AON3E2 3EWV/L."3TKA.(F4*)J;A6".JF965B 3R;I+TN "26:.JF966B 3R;I+TN *2B:2"GF3M3I+YJ:2;GT/BR(.1.)."R7* KH.M&J*1B73P	R+NCT.*2.M&J*1B83R7E.M&J*2B03P	
+NCT.*22 6"7AWN3FOA7TKU/E+R6"R;+AB*4&12;&"+TCT3S7E3I?C7NWD3C?T+RCS3F?O3TOS7R	A""*M.9F26 KP7ISN. J":*M.9J22 WRM*M.9N22 WRM*M.9R26 KP7ISN. J*:J 7ION3POE3T?I7NR 3IWM.:."3TKA.(F4*)J;3J;A..^/*3B +TCO2 GJ+N>.*7J4.M&J*2B63R7E.M&J*2B83P	R+NCT.*2.M&J*3B03P	R+NCT.*
2 :"3UKM+ECR+OCF7LSO/S."3TKA.(F4*)J;.1B0""*M.9F36 KP7ISN. J":*M.9J32 WRM*M.9N32 WL3TF .1B=.M&J*3B47FKO. 7I61R /OF "060.JN9262 +ECT/A61+A.1/DJ(*,	I.M&J*3B87NE3T& .M&J*4B03P	R+NCT.*26 R"3OGT7LF 3U;A7TSI3Y& /N."3TKA.(B42)F;"1*M.9J46 KP7ISN. J":*M.9N42 WRM*M.
R42 WL3TF "=60.JR925Z +OCR/IF=2 ?T. B1"0*M.9Z42 WL3TF *=/A/DN(*,	I.M&J*4B77NE3T& .M&J*4B83P	R+NCT.*26 R"3OGT3L: 3UKM+ECR+OCF3F	A7LKU+EKS2;GT/BR(.0.)A*M.9&46 KP7ISN. J":*M.9B56 KP7ISN. J*:J 7TSO+ACL+ICC3F	A7LKU7EJ 3AWT6"R;+AB*4&0.;F.2*;I3TF(./GA.*B1*0.0*.&
*;V"""*M.9F56 KP7ISN. J":*M.9J52 WL3TF .2B=.M&J*5B47FKO. 7I61R /OF "060.JV926& 3FR *(23+I>)/DJ(*,	I.*B1.0F>60R 3H;E. Z9"2*M.9"52 WN+XCTI*M.9B62 ?G2 ?T. Z9"6*M.9J62 WL3TF 22F=.2F+.M&J*6B4+GCO+TCO.9"5.M&J*6B63P	R+NCT.*22 :"3UKM+ECR+OCF7LSO7S^ 3IT* B>*1V02 G
7IWL7ROE6"R;+AB*4&0.;KA.M&J*6B77GOO+UCB.9B9.M&J*6B87GOO+UCB.9B9.M&J*6B97GOO+UCB.9B9.M&J*7B07GOO+UCB.9B9.M&J*7B17GOO+UCB.9B9.M&J*9B03R7E* B * B 6 KS6 CS3AWC.M&J*9B13P	R+NCT.*2.M&J*9B23P	R+NCT.*2.M&J*9B33P	R+NCT.*2.M&J*9B43P	R+NCT.*2.M&J*9B67RSE3U;R.M&J*9B9
R7E.MFJ.0B02 WR+MB * B 6 KS6 WA7SKD3U/C2 WD3RR 3AWT3N2-7ISSE*M.1B022Z +OCR/SF=2 ?T" 62.JB1*0B47GOO+UCB.9B9.MFJ.0V06 KP7ISN. J":*M.1B027^ 7OWS/B^ "460.JB1*0B83P	R+NCT.*2.MFJ.0B12 ?F3R& *=B1+TCO"560.JB1*1B27GOO+UCB.7R4.MFJ.0R12 ?G3SKU. F1"060.JB1*1B67NE3T& 
MFJ.0^12 ?G3SKU. &9"0*M.1F068B 3R;I+TN "26:.JB1*1B93P	R+NCT.*2.MFJ.0F26 KP7ISN. J":*M.1J023: 7ESX" 7S.JB1*2B57RSE3U;R.MFJ.1B02 WR+MB * B 6 KS6 WA7SKD3U/C2 	E7NKE2 WZ3IWL2 WD3RR 3AWT3N2-7ISSE*M.1B1222 +ECT/EB=.MFJ.1R02 ?F3R. *=B0+TCO"3*M.1B125& 3F. *=B13TW
/NF .1Z1.MFJ.1Z06 KP7ISN. J6:R +AB/E.)3D.(*,	I";*M.1B1282 +ECT3EV=.+R1.MFJ.1J12 WN+XCTK*M.1F125^ 7OR /OF .1R2.MFJ.1Z12 [I* D3K&,.)F<60R 3H;E. F1"260.JF1*1B83P	R+NCT.*23TKA*(	E.;^"24" 2"R;*(3K/I.).MFJ.1&12 ?G2 ?T. F1"068.JF1*2B03P	R+NCT.*22 GT3BV(*)J;*7B4/
B 6"B;+NT*4.83D.(*,	I")6;.JF1*2B1+GCO+TCO.1B1"8*M.1J164B 3R;I+TN *2B:3TKA.(Z52)F;2;GT/BZ(.0.)*"J/2;GT/BZ(.2.)7BR;+AB*6&6*;>"6"R;+AB*6&7";7C.JF1*3B07RSE3U;R.MFJ.5B02 WR+MB * B * * ****************7HWA7PCT3R
O3R7A+M******"*6*.JV1*0B27GOO+UCB.7B0.MFJ.5R02 ?G3SKU. B9"0*M.1B526^ 7OWS/BV "060.JV1*0B87GOO+UCB.6B0.MFJ.5B12 ?G3SKU. B1"060.JB2*0B03C?L+SCE"62.JB2*0B13ESN&M*J

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