File MONDL1.BA (BASIC source file)

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

*1B03R7E****2 7U7GOE7CKH3IKE+ECN3V;O2 KE3ER3ASR6 WH3B
I* B * B * B * >2"766.JB22 	D7MJ .$J(692)+RB$2=Z"7AOL3CWH2 	E3NGG+B3E7NWE2 	E3NWG3B;E""*M*3B03P	R7N3T3P	R7N3T3P	RN7T.JB46 KP7ISN2"?M3N3D3ASN3E	S3M3U3A	T+OKN7\KP7ISN.MVJ60B 3R;I7T^"3O3L+ECN3SWI6 KE3LWA3UWT3R;U3G;E2(GJ2 SO+ECR3N	E+NJ)2;	\7NWP3TF "$*M*6B0+IC
+AB$*=J 3N	E+NB"3TWH/NN 6220+ICF+AB$*=J +JKA2 T+ECN67203P	R+NCT7R2$7GSO/OV "0*M*7B03P	R7N3T3P	R+NKT3SWI2 GL3NWD3NF +UCF3D7E2 ?M+NCD3USN2 GH3B;E2 	D3E. 7OSN3R3O+LCE7DKE""6;.JB86 KP7ISN2". 7AOP+ECL+ICN3E;I+EKR2,""3OE+EJ ";*M*9B03P	R+NKT3V;O. B520. 3I?L7MSE3
;R2 WU7BKE2 WD3R2 3ASN7ESS3E3L7EV 3EWB3R?N3MWM7NN.+ICE3HKA/E.".MFJ60B03R;I3T:"*"J,3E;I3ER 7E+R7ESI3IWG2 GF3L
L3EOS3H	W3N	D3GWK+ICT3V;O. B5* ?M3S/E6.WA3SWS3RWD""6;.JF160B 3R;I3T6"2 GH3B;E2 	S+E2"2"?N+CCH.1B22 	E3NWH3IWT7NR 3R	E7BSS3O[F2 WU3B	R+GJ.7\KP7ISN.MFJ*2B03P	R+NKT3HWI7RN 3ISN2 	D7EJ 3EWG+L3N3DWI2 I3N;E2 I+RCE7KCA3S3E2 	G+B;T""*M.1B36 KP7ISN."F(*)B 3NOA3H* 
EWD7RN 7EWK3NWD2 	W+RCD3I;H+ECN3DWI2 WD3RWZ3I	T+GCE3HWO+H3E""6;.JR160B 3R;I3TR"+IKE*,B"* B 2 ?M3M;E3T;A3EZ 3A3L7GOE7C
H3ISN3I/G7ESI2 ;U3DR +ICE3M;E+GCE7DOE. .".MFJ*5B03P	R+NKT3UKE3R
I3GKE3LWI3B;E+EKN*,B"* B 6 KT3EKI3S?T3FWF3S6 3I
T3EWT7ISL".6".JZ160B 3R;I+T""*2B)2 GN+CCH3DWI3S7E2 WB3ROI+HCT7WKI3DV +ICN*	^?2 WG7DWR7CSK2 WW3RWD3N^.3EWB+NJ ";*M.1B76 KP7ISN2"	S3ER +IKE*,B"* B 2 ;A3ZA3LR +ECR3E;I3H	E3T;E6 KT3EKI3S?T+FCF+A3N3DWI2 ;I2 WD/R.".MFJ*8B03P	R+NKT2 GN3EC3SWT7NN 7EWK3NWD*"J,* B 
 Z 3EKR7RWA7CSH2 WW3RWD7NN 3O3L+E;N2(WJ+DCE""6;.J&160B 3R;I3TV"3IN7ESI6 KT3EKI3S?T+FCF7WKI3D& +HKR.MJJ*0B03P	R+NKT* B 2 F 7BSS3E
I+ECN+UCM216 2/WS7KZ 3E3R3A
N3S7A+E;N")6".JF260B 3R;I+T""*3B)2 WD3R6 3A	X3M3A7EN 7CWH3B& 3HWR3R. 7AOP+ECL7ISS. B32 	E3NWH3IWT7NR 3R	E/B.".MJJ*2B03P	R+NKT3S?T+F?F3S/E*.2"."R(*)B 3W;E7NN +ICE3DWI2 ?M3N?D7BKE3FGL3EC3EJ 7EWR7EKH+TJ ";*M.2B36 KP7ISN2"GH3B;E2,OS3H3A7TSE2 	S+CCH7DOA*"J,* B
2 J 3R7E7SKT3IKE7WKE3KF 3U?T7MSA3IOS3HF /B.".MJJ*4B03P	R+NKT2 ;U7DN +ICE3B/E3O7M+ECN3E;I+ECN7BKE3IC+T2"*"B * B 3UKE+ECR7IKH3E2 3ASN3U
N/S.".MJJ*5B03P	R+NKT7GOE7C
H3ISN3I/G7ESI2 ;U3DR +ECN7ROE3T	L3CWH7NR 3R	E7BSS3O[F*.2"."V(*)B 3W;E+NJ ";*M.2B66 KP7ISN2"I3N;E2 WD7RR 3R	E7BSS3O[F6 WA3SWG3H;E2 ?S7LSL7E^,3ISR2 GD+S^ *?B	3NOI+HKT.MJJ*7B03P	R+NKT* B 2 2 3A;E7GKE6 KE3SC3E;I+E3N7DKE2 WS3KWU3N3D3IC3EJ 3E	R7CSH2 	W+RCD3SOI+
J ";*M.2B86 KP7ISN2"KA+EKR*,B"* B 2 ?F7ROT7E+T+E3N7BOI2 	S3ER +ICE3OWB3R3F3AOE+HCE7EKR3EOI+HKT";*M.2B96 KP7ISN2"" 3AWB+N2"."Z(*)B 3W;E7NN +ICE3K	E+NCE3W	E3CWH2 GL7NWD+NCG3H;I3B/E3O7M+E3N3S
A/E.".MNJ*0B03P	R+NKT2 OI3H& 3HWN3NR +IKE.MNJ*1B03P	R+NKT* B 6 R 3I[E3ER +ECS3V;O2 I3N;E2 WV7RKU3SOA3HWT3N. 7RSA7EOR".6".JJ360B 3R;I3T:"+UCN3B
E3I;N3TR +ACS3L;A7DWE3NWT3RWN3HWM+N:.*.:.6"C\3R;IT*M.3B36 KP7ISN*"B * B 6 Z * CI3E2 * B 3G2 * CU3EN * CK* F *!F!6!2"3P	R7N3T3P	RN7T.JR360B 3R;I+TB"* B 3S/E2 6 3EWT+RB 7MN/+ECK6 CS7RSI* B 6 KG3AP2 WD3S6 3OSN7AOB3T;A7DOE""*M.3B52 ?F3R& * B=60R /O^ 60C\3R;I7
R +AB/I.)*"J-2;;\7ESX" 7I.JZ360B 3R;I+TB"""*M.3B7* CT.=B +\CH.=V 6020+VB=6520/F6 . J1"0*M.3B82 ?G3SKU. B7"0*M.3B96 KP7ISN2 ;P/TF(.3.)3\;I7PSU" 7B.JB420& 3FJ * B<60R 3H;E. N820	\3FJ * B>*3B03TWH/N" 6320+ICF/B: * CF3TWH/N" "360.JF460Z .16 * CV2-J * B+25[\* 
=+F6 6 3B/H6 * CH.-B *.B56*Z(* B++V&13\[I* CH*<B=60R 3H;E. "4"0*M.4B2* CT6=R * B+61[\* B=V61.JN420& 3FZ * B>60R 3H;E. "320	\3FJ * B=60R 3H;E. V4"0*M.4B46 KP7ISN*"**6*R 3R	E7BSS3O[F3T;A3K2 7EKE* **.*."3TKA.(&2*)J;.!."3TKA*(	R*;*"""*M.4B52 ?G3SKU. B7"0*M.4B
6 KP7ISN*"J .MRJ*7B0/B6 * B03\?G+TCO.4B1.MRJ*8B03P	R+NCT7PSN*(&7*;*"****2*J 3OWD3N?K3NGT+KCT******B** B "*6".J&420" * B=+H. * :0*5* *(CV6+Z 612)+ICF/B6 * B53TWH/NV "160.JB520R * B=6(Z-* B+7SKQ*(+V3V"+.*F(*06 * B22*J *)&)./V(* B-7B2)7GSO/OV "260.JF520R * B
7HZ/.MVJ*2B0+VB16=Z * "+*56 * 	B6*3D3P	R+NKT7BKE3UE3R;U3G: 3AC6"R;.+/D2"WS3K;U3D;E".6".JN560B 3R;I3TF"7UOF7E+T7GOE7C
H3ISN3I/G7ESI* B=6"Z;*1J;7MN/+E;K""*M.5B42 [I. ;F60R 3H;E. V560C\3R;I3T."3E;I6 KT3EKI3S?T+FCF3UKE3R
I2"
\3O?T. Z5"0*M.5B56 KP7ISN. /F2"	E3NWH3IWT7NR 3R	E7BSS3O[F2 WU3B	R+GJ..MVJ*6B0+ICF+VB1*<B>60R 3H;E. &5"0*M.5B76 KP7ISN2"WH3R3Z3IC+ECN7GWL3E/C3W;U3SC*!B!* B 3E;I7EB 3E[R7ESK3E2 3ASN3U
N"!6".J"560B 3R;I3T&"3HWR2 	L3Z;E7Z^ 3ISR6 KE7NWE7ESR*.:.6.N.* CP3AV * CT7EJ *.J.3\?G+TCO.6B7.MVJ*9B0+ICF7AOB.(GV.)2 .=R 2 T+ECN.6B6.MZJ*0B03P	R+NKT******B*7TSU2 	M3R2 3ESI2,KA+ECR3SWI2 	S+NCD7ZKE3SC3E3L+TF!*!F!******J*.MZJ*1B03P	R+NKT3SWI2 GH3B;E2 	E3N;E
 KK3AWT7RZ +OKN*;:0.6N7.9J5* B*/V.12"WM7TKE7NR 3I[E+EJ ";*M.6B26 KP7ISN2"WV7RKU3SOA+HGT""*M.6B36 KP7ISN2"GP3SWS3NWD2 WB3IWL7IOD3SC3R	E3B;E2 WW3RWD3NF 3N& 3HWR2 GN3EC3SWT+NB ""6;.JR660B 3R;I7TZ"7E
R3ASN3T;E*"J,3A
B3EOS3HOI+KCT7WKE3D;E"!6".JV620^ 3O?T. ^6"0*M.6B66 KP7ISN2"	S7EN 3ISN2 O+NE3G?R3SWS+R	E3SC3ASE+ECN3G3E3ASN+EGT""*M.6B76 KP7ISN2"	E+NCE7NWE3E6 7IOS3I;O*(CJ3OWD3R: .)."3\;I7PSU* SA.MZJ*8B03P	R7N3T3P	R7N3T3P	RN7T.J&620& 3FF *$B 2=*"6"R 3H;E. N 6220+ICF+AB$*=
 +NB"3TWH/N" 64203P	R+NCT7R2$7GSO/OZ "760.JB760J * B=7ISN*(?H*1B2.+J .9V.")*M.7B12 [I* CT*>B=*1B03TWH/N^ 62203P	R+NCT3TKA*(&6.;/T3\?G+TCO.7B3.M^J*2B03P	R+NCT3TKA*(&5.;/T.M^J*3B0+ICF/H6>. B12 T+ECN.7B47\KP7ISN2 GT/BF(.2.)7H2;7GSO/O^ "660.JR720& 3F" . 6>. B
60R 3H;E. V760C\3R;I7TR +AB*1&1.;/H3\?G+TCO.7B6.M^J*5B03P	R+NCT3TKA.(B12)";";*M.7B62 [I2 KA7SZ(.): .=B12 T+ECN.7B77\KP7ISN2 GT/BF(.9.)7V2;7GSO/O^ "860.J^760B 3R;I7TR +AB*1&8.;/V.M^J*8B0+ICF/F: .=F 60R 3H;E. &760C\3R;I7TR +AB*2&6.;/F3\?G+TCO.8B1.M^J*9B0+IC
/F: .=F *0B03TWH/N" 60203P	R+NCT3TKA.(V22)Z;2;
\3O?T. F8"0*M.8B06 KP7ISN2 GT/BJ(.4.)F6;.JF860B 3R;I7TR +AB*2&9*;F"6"2;+ICF/R: . J72 T+ECN.8B27\KP7ISN2 GT7BJ(*)J;.*.".M"J*2B07RSE3U;R.M"J*3B03P	R+NCT/R.$*"J!3\?G+TCO.3B9.M"J*4B03ESN&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