File MNOPLY.BA (BASIC source file)

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

+OCR/XB=2 ?T* *77LN 7TCE. ^(**	L2/N(**&3.M&J*2B13P	R+NOT*1B:3TKA*(	S*;SG*;SG";*M.9J22 [I. ;X222*2 ?G+TCO.9Z27\KP7ISN.*1* SG";*M.9N22 ?F3R& *=B1+TCO7XC\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.9R22 ?G+TCO.9B3.M&J*2B63P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$.M&J*2
7+ICF/XN+.*3L282*2 ?G+TCO.9B3.M&J*2B87FKO. 7I/XN+**CL+TCO*1*07LC\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.9&22 ?G+TCO.9J3.M&J*3B03P	R+NOT*1B:3TKA*(*87LN+2)^;2$^;"$6;.JN962B 3R;I/TF":*M.9N32 WN+XCTX*M.9R32 WR7TKUN*M.9B42 ?F7R" *=B1+TCO/AN*.M&J*4B13P	R+NOT"16
.JR922: 7ESX" 7X.JR963J 7EWTR7N.JV920Z +OCR/WF=2 ?T* 7X63C\3R;I/TF*:J * J 2;;\7ESX" 7W.JV922J 6=237GSO/O" "360.JZ920Z +OCR/XR=**CL+TCO272*6 SS+ECP/LR*6/3C3P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$7G2$7NE7T" .M&J*6B27RSE3U;R.M&J*7B07FKO. 7X272*2 ?T* *47LN 7TCE. R-**
L7CC\3R;I/TF6:R +AB7XN+2)^;2$^;2$^;2$;\7ESX" 7X.J^962J 7EWTR7N.J&920Z +OCR+XB=61R 3ON "*63.J&961B 3R;I/TF":*M.9J92 WN+XCTX*M.9N92 3C3OWS. F.MFJ.0B02 ;ED*MBZ21R +ICM/AV(*02)/BF("56)2JR23E[F+NA/X6)7ISN.(B12*;R7D"(")6)2JR33E[F+NB/X6)/XF-*0*07ISN*(?X.1B0")*M6
KP7ISN2"WW3L?C+MCE+TCO3TWH2 GH3LSL+ECN7COA3I?N*.B +WCE3EOA3H" 3AWV. J$*0J0.MVJ3P	R+NKT7I^ 3I3L6 CO+ECN3TWH2 WB3T	T+NCG3B[E3OWR2 T3ER 7R
A6;& +OCU3OWP3NF 3FWTR6"6JB63R;I7T^"3H;E2 ?Y3UZ 3OSL2,J +ECT*0B;2 ?T2 C3E/C2,J +ECT*.J5.M^J3P	R+NKT3E?N3UG2 GT+LCK*-B-7LSE*	CS7GSE2 ?D+WCN+TCO7BOU3IWN+SKS.M"J3P	RN7T2J293E?T"=61.JB17LSE/CJ="060.JF17LSE/SJ="060.JJ17LSE/PB=.MFJ23GR3N?D7M+IE*M61B43R;IT*M21&5
F3C6=R53H;E.3^6.MFJ66KP7ISN2"T3EF 3NWT6 OI. V$*.B 7I^ 3I3L2 WD+AKL.MFJ67KP7ISN.MFJ28[I/SV>3TWH/NB2.MFJ29?G3SKU.3N8.MJJ20WL/T7P/PF+"0*M22217EOT*=7S"5*M22223EOT*=7C"5*M22Z37O+R6=R1/OB1.MJJ24?G3SKU.1R7.MJJ25WN7X+T.MJJ66KP7ISN2"?Y+UCR3H;A+DJ:.MJJ27WL/T7N"1*M2
^87OWS/B"1"5*M22293E;T"=66.JB37LSE/IJ=.MNJ21?G3SKU.2^1.MNJ62KP7ISN.MNJ23[I/I:<26T/ESN"7*M23&43F;F/AB(.)6<27T/EON"7*M23257ET.=F1.1B0.MNJ26?G/TSO"2*M23&73F;F/AB(.)6<27T/ESN"0*M23287ET.=F1.1B1.MNJ29?G/TSO"2*M24&03F;F/AB(.)6>21T/ESN"5*M24217ET.=F1.1F1.MRJ22WL
T7I"7*M24237E+T.=N2.MRJ24?G/TWO"8*M24257E+T"=61.JZ47GSO/OF5.MRJ27[I/U6>61R33H;E"564.J"43I[F+NA.0:)6=R23H;E"560.J&47GSO/OJ4.MVJ20WL/T7Z"0*M25213E/T"=60.JJ53P	R+NKT3IN 3HOEK6".JN57GSO/OJ6.MVJ24[I/U6<61R63H;E"567.JV57LSE/ZJ=.MVJ26[I3FGN*(&0.>F=3TWH/N"5.MVJ27
L/T7Z"365.J"57LSE7V*=2+;F/AB(")*M25^97OWS/BR3"8*M*6B03P	R+NCT*"
I+LCL3OWP7N^ 3IT. ."V*M26213E/T"=7V.JJ67GOO/UOB"065.JN67GOO/U[B"5*M26^43O?T"862.JV63I	F.<N>3TWH/NZ7.MZJ66KP7ISN.MZJ67KP7ISN*"CI3W;I""*M26283EOT*=/CP*M66B93R;I3T:"+OCW3I" 3AWV* J$.;/C2";A7D& +OCU7H[A+ER 6"N;.M^J60KP7ISN2"?D2 ?Y7U^ 3IS2 ?T2 ?C3N	T3NWU""6;.J
77ICN3UT"$*M27&2+FSH6=&"+EKS3TWH/NJ1.M^J23[I/H6$2"?N2"T/ESN"160.JR73P	R+NKT7AON7WKE2 WY3S> 3R: +OB,3I	D+OKT.M^J25?G/T
O"0*M27&6/F3I6>R43H;E"861.J^73P	RN7T.J"73P	R+NKT7YWO2 	WN6".J&77LSE7SN="+7P.JB87GSO/O&6.M"J21WR7TKUN*M68B23R;IT*M*8B33P	R+NKT7N
O2 WW6 KD+ACW*-B-7H
O2 GM+NCY7CKA+DCS+DCO7YWO2 GW+NKT";*M28&47NWPT7T.JV87ISF6=R03H;E"968.JZ87LSE/ZF="0*M28&7/F3T24T/E	N"0*M68B83R;I7T&"+OCU3C;A*	CT3DGR3W6 3OWR2 T+ACN7TKH+ECE7CKA+DKS.M"J29?G/TO"4*M69B03R;I7T^"7HSA6 KA7ER 3H	E3R: 3UKM7EOR""*M29Z1+OCR/QF=7TSO.M&J22;I7PSUU*M29^
7OWS/B^1"3*M29:47ESXQ*M69B53R;I7T&"7OKU2 WN3W" 3ASN":6".JZ97LSE/NF=.M&J27?G3SKU.1V8.M&J28WL/T7Z*1.0T*M29Z97OWR6=R6/OB1.MFJ20&03F;I7T"(./B17^V(*-&6.):<*1*07ISN*(?X61:0*(7U*5&)3TWH/NB1"2*M.1F07GOO/UGB"763.JB122WN7XWT.MFJ60B33R;IT*M.1R03P	R+NKT3IF 7MR 3A	K+N
G*;7Z*160+TJ;7CKA/D.".MFJ20&5/F7Z*1.13TT/EGN"069.JB166KP7ISN*"KS.MFJ60B73R;IT*M.1"07GSO/OF1"0*M.1&03P	RN7T.JF120WL/T7N"6*M.1F17LSE3V&=.MFJ21223E	T"=61.JF123?G3SKU.2^1.MFJ21243EKT"=7U.JF125WL/T7MD*M.1Z17I[F.<^>3TWH/NF1"9*M.1^17LSE/ZJ="8*M.1"17GSO/ON1"3*M.1
13I	F.<Z>3TWH/NJ1"2*M.1B27LSE/ZF=.MFJ22^13O?T.1N3.MFJ22&2/F;U.=N13TWH/NJ1"7*M.1N27LSE/ZJ=.MFJ22&43F;F/AB(.):<26T/EGN"266.JJ125WL/T7Z"169.JJ126?G/TGO"363.JJ127[I/U6>61R63H;E.1J3.MFJ22287E+T.=&1.MFJ22&93F;F/AB(.):<28T/EGN"361.JN120WL/T7Z"161.JN121?G/TGO"363
JN122WL/T7Z"2*M.1N37LSE/KB=.MFJ23^47OWS/BB3"5*M.1V37ISF*<:>25T/EGN"465.JN126[I/V^=3TWH/NR1"0*M.1^33I	F.<Z>3TWH/NR1"0*M.1"33P	R+NKT3I2	3LN 3HOEK6".JN129?G/TGO"466.JR120WL/T7V3ZZ++NA"06).JR121?G3SKU.3"4.MFJ*4B23P	R+NCT*"
I+LCL7BSE6"Z;.MFJ24233E/T"=7V.JR124?G3SKU.3Z0.MFJ24^57OWS/BV6.MFJ64B63R;IT*M.1^43P	R+NKT7N
O2 WW2 ?C3MGP+RCE3H;A+DKS.MFJ24283E+T2$"="$*M.1&47LSE/K6$I6$.JV160KP7ISN6"	M2 GH/N+D""*M.1F57LSE/NZ=.MFJ25^27OWS/B"1"5*M.1N57LSE/NF=.MFJ25^47OWS/BF2"7*M.1V53P	RN7T.JV166KP7ISN2"?Y3U" 3AWV. .".MFJ25273E/T"=7D.JV128?G3SKU.3&6.MFJ25293ET2$*="$*M.1B67LSE/I6$K
$.JZ121WL/T7KM*M.1J63P	R+NKT3ASN* CI7H[A+EJ ";*M.1N67GOO/UOB"669.JZ124[I7BV>3TWH/N^6.MFJ26&5/F;U3BT/E
N"8*M.1Z63IF*$J=3AZ 7LOU2"T/EGN"760.JZ167KP7ISN2"T3E" 3ASN6 OI6 KD3A;W""*M.1"63P	R+NKT3A3L* J$.;/P6"J 3EGM+ICN+ICN3TWH2 ?PT6".JZ129?G/TGO"4*M.1B73I[F+NB/M:)3FKN*(	D3TWH/N^6.MFJ27&13F;F3BR(2)Z>+NB7MR)3H;E"768.J^122?G/TGO"667.J^123WL/T7Z/ZF+.MFJ27243EGT*(	Z
=;I/TF(.0B02*;R/DB(")6).J^125[I7ISN*(A+Z>).1B0.)N>3TWH/N^1"4*M.1Z73IGF*(	Z.-B120&*+NT7A*(.)F/*0&0.>J13TWH/N^1"4*M.1^77FKO/KF=7T+O"-61.J^128[I7A*(2)F=*(	K3TWH/N^1"4*M.1&77NET7K.J"120[I/Z6<61R03H;E.1R8.MFJ28213E;T*=AU6).J"122WL+TA/U6)7A*(")*M.1N87LSE7A*(2):
.MFJ68J47EWTR7N.J"125?F/R7Z3N?T/NR+.MFJ68B63R;I/T/Z*"6-* J ";*M.1^87GOO/UGB"965.J"168KP7ISN2"> /F.".MFJ28^97OWS/BB2"7*M.1B97I+F./222>;I7T*(*/&23TWH/N&1"2*M.1F93P	RN7T.J&122WN7X+T.MFJ69B33R;IT*M.1R97RSE3U;R.MFJ29253E/T2=;F3BF(*(	Z")*M.1Z93I/F.<&>3TWH/N&1"8
M.1^93P	R+NKT3JOA/K.".MFJ29&8/F3K.>B13TWH/NB2"0*M.1&93P	R+NKT3QWU+EKN";*M.2B03I/F.<F>21T/EKN"062.JB261KP7ISN2"	K+NKG";*M.2J03I/F.<F>22T/EKN"064.JB263KP7ISN2"OA/E.".MJJ20&4/F;K6=R93H;E.2Z0.MJJ60B53R;I+T/K"26;.JB226WR7TKUN*M.2^07LSE3K&=+NT7A*(.)F/*0&0.MJJ20
8/F3K6>R03H;E.2B1.MJJ60B93R;I+TB"7CWL+BKS",*M.2B13I/F.<F>3TWH/NF2"2*M.2F13P	R+NKT2 	D3A?M7NOD""6,.JF222[I/K:<22T/EKN"164.JF263KP7ISN2"" 7EKA+TKS",*M.2R13I/F.<N>3TWH/NF2"6*M.2V13P	R+NKT6 CS3AWD+S2".MJJ61J67EWTR7N.JF227WL/T7U"0*M.2"17FKO3Z:=3T;O"+64.JF229WL
TB/Z6)3FKN*(A+Z&).MJJ22&0/F7Z/NR+3TWH/NJ2"3*M.2F23I	F+NT7A*(.)F/*0&02<&>+NT7A*(*+&1./B160R)3H;E.2N2.MJJ22227EWT*=/U"1*M.2N27NET7Z.JJ224[I/U:<24T/EKN"361.JJ225WL/T7X.1F1"161.JJ226WL/T7D3A:(")*M.2^27LSE/H6$*"CA7FWLS6".JJ228WL+TSI2=""2 ;I""*M.2&27LSE/UF="5*M
2B37RSE3U;R.MJJ23Z17O+R6=SN+O/N"3*M.2J37FKO7K*=6+R1+O/N"4*M.2N33IKF*(	Z2<J=*(	K3TWH/NN2"9*M.2R37LSE3XF=*(	Z.MJJ23253EGT*(	Z*=AK6).JN226WL+TB/Z6)3B.(")*M.2^37LSE3A.(6)"=.MJJ23283EKT*(	K*=A+K6).1B02*;I3TF(*(	K./B1"06).JN229WN3X/T.MJJ24:07ESXZ*M.2F47LSE/XB=.
JJ24Z27O+R6=SN+O/N"3*M.2N43IKF*(	Z2<J>*(/Z61R)3H;E.2^4.MJJ24247ET*=/X*1*161:0*(7ZN6).JR225WL/T7D7A*(")*M.2Z47GOO/UKB"766.JR227WN7X+T.MJJ24&8/F3X6>R03H;E.2J6.MJJ24&9+FB+N.).3:<3B:(*+&33TWH/NV2"2*M.2B57LSE/XF=.1F1.MJJ25217EWT.=B1.MJJ25&2+FB/NF+.)N+2<J>*(/N6
R)3H;E.2J6.MJJ25&3/F3U.>B13TWH/NZ2"0*M.2R57LSE/UF="4*M.2V57LSE/H6$6"SS3R	AG6".JV226WL+TSI2=""T6".JV227WL/T7X.1F1"161.JV228WL/T7D3A:(*+&4.MJJ65J97EWTR7N.JZ220WL/T7U"160.JZ221WL/T7X.1F1"160.JZ222[I/U6>61R03H;E.2&6.MJJ26233EST*=A/NR+")*M.2R67LSE/H6$2"OS3HGML
".JZ225WL+TSI6=R"+ZB,""*M.2Z67LSE/U&=.MJJ26277ET.=F1.0B0.MJJ26^83O?T.2R7.MJJ26&9/F3U.>B13TWH/N^2"2*M.2B73I	F6=R13H;E.2R7.MJJ27^13O?T.2V7.MJJ27&2/F;U61R23H;E.2V7.MJJ27&33F;F3BR(.)Z>3TWH/N^2"5*M.2R77LSE/IZ=.MJJ67J57EWTR7N.J^226[I/U6>61R13H;E.2F8.MJJ27277EWT
=F1.MJJ27283ET*$J=7AB 7AKI""*M.2&77LSE/I6$2"> +FJ .MJJ68J07EWTR7N.J"221[I/U:<61R13H;E.2F9.MJJ28&2+FB/Z2)*>B/ZF-2)T/EKN"867.J"223WL+TSH6=R"3HWRE6".J"224WL+TSI*=B"""*M.2V87LSE/UF="3*M.2Z87RSE3U;R.MJJ28273ET*$J=3T?W* KP.MJJ28283E	T*$J=7AKI*,J .MJJ28297EWT.=J
.MJJ69J07EWTR7N.J&221[I/U:<61R23H;E.2Z9.MJJ29227EWT.=Z1.MJJ29233ET*$J=3F3U3L" ""*M.2R97LSE/I6$6"WO+S3E" 6".J&225WR7TKUN*M.2Z93IKF*(	Z2<J>*(7Z61R)3H;E.3F0.MJJ29277EWT.=^1.MJJ29283ET*$J=7FWOR6".J&229WL+TSI*=B"""*M.3B07RSE3U;R.MNJ20217EWT.=Z1.MNJ20223ET*$J=3
3U3L" ""*M.3N07LSE/I6$6"WO+S3E" 6".JB324WR7TKUN*M.3V07LSE/GB=.MNJ60B63R;I7T^"7HSA6 OI2 ?Y+UCR7BSE""6;.JB327;I7PSUT*M.3"07ISF2-;I7TR(.)B=3TWH/NF3"4*M.3&03I/F.<B>3TWH/NF3"2*M.3B13I
F.<B>3TWH/NF3"2*M.3F17ISF.=V.3TWH/NR3"1*M.3J13P	R+NKT+NCO3SGM+LCL3CGH3NWG6,B 3LGE+SKE.MNJ21^33O?T.3Z0.MNJ21&4+F7S7GR-.>B=3TWH/NF3"7*M.3V17GOO/UOB"863.JF326?G/TOO"066.JF327[I/T:<20T/EON"260.JF328WL/T7I"3*M.3&17GSO/ON3"8*M.3B23I
F.+;T6=SK3H;E.3N2.MNJ62B13R;I3T&"7F& +OCU3C;A*	CT3SWE6 	M2 WB+TB,3TWH3NZ 3OSL""*M.3J27GSO/OB3"6*M.3N27LSE3G^="+7T.JJ324[I3G.=3TWH/NN3"8*M.3V27I+F.<F>3TWH/NR3"2*M.3Z23I
F6>R53H;E.3B3.MNJ22&7/F;Z6=R23H;E.3V3.MNJ22287E[T"=65.JJ329?G/TOO"462.JN320[I/ZF=3TWH/NN3"2*M.3F37ISF.<J=25T/EON"365.JN322WL/T7I"4*M.3N33P	R+NKT3IZ 3OSL""*M.3R37RSE3U;R.MNJ23&5/F7Z22T/EON"463.JN366KP7ISN*"
I+LCL3SWE2 ?YU6".JN327WL/T7KG*M.3"37LSE7SN="-7G.JN329WL/T7C3C.-.MNJ24207ECT*=/P3G.+.MNJ64J17EWTR7N.JR322[I/GN>6*SZ3H;E.3V3.MNJ24237E[T*=7G3KZ++NA"06).JR324?G3SKU.3"4.MNJ*4B53P	R+NCT*"
I+LCL3SWE2 ?Y+UB,3ASN2 GR3IWS2 ?Y/U."V*M.3Z47LSE3K^="+7V.JR327?G/TOO"066.JR328[I3C^-.-;V6=R03H;E.3Z6.MNJ24&9/F3G6>R03H;E.3J5.MNJ25207E[T"=7C.JV321WR7TKUN*M.3J53IOF.-;G6=R03H;E.3Z3.MNJ25&3+F?O.2:<7ISN*(?O62R)3H;E.3B6.MNJ65B43R;I7T^"3O3U7D& +OCU3L/I7ER 3OJ 
UCY3BOA7K& 7OKU2 GW3TC2 ?F+RR *5J0";*M.3V57ICN3U+T"$*M.3Z53I+F*$J=+NKO3TWH/NZ3"0*M.3^57LSE3CN=.+B5.MNJ25283E?T*=?O"2*M.3&57RSE3U;R.MNJ26&0+F?O.3:<7ISN*(?O63R)3H;E.3^6.MNJ66B13R;I7T^"3O3U7D& +OCU3L/I7ER 3OJ +UCY3BOA7K& 7OKU2 	T7ER 3A/C2 ?F+RR *5J0";*M.3J67
CN3U+T"$*M.3N63I+F*$J=+NKO3TWH/NZ3"7*M.3R67LSE3CN=.+B5.MNJ26253E?T*=?O"3*M.3Z67RSE3U;R.MNJ66B73R;I3T&"*	CM7BOU3TSE*.B 3C;O3GGR3T3U3A	T7OON""*M.3"63S?TP*M.3&63P	R3NT2$&;"$6;.J^320[I/H2$2>F"2 3F+UKS3TWH/N^3"5*M.3F77LSE3K&=+NT/KF/*0&0.MNJ27^27OWS/BB2"8*M.3N7
P	RN7T.J^324WR7TKUN*M.3V77LSE3KZ=+NBK6).J^326?G3SKU.1Z9.MNJ27&7+FSH6=N"3C7H+AKL3TWH/N^3"9*M.3"73IF.$:<6"SS3R	A7GR"3H;E.3F8.MNJ67B93R;I+TB"3H
IH6".J"320WR7TKUN*M.3F83P	R+NKTS6".J"322WR7TKUN*M.3N83P	RN7T.J"364KP7ISN2"?Y3UN +A
N3TJ +ECT3WGH7T& +OCU7H[A+E
N3T^ +OKT.MNJ28&5+F?O22&=+NT/OJ/2)T/EON"967.J"366KP7ISN2"?W3USL2 ?Y3U2 3IWK2 ?T2 WS+LCL7YWO7R^ 3AOT/H.".MNJ28&77NWP+TSJ.MNJ28&8+FSJ2=:"7OR"3H;E.3^9.MNJ28&93F;F/AB(.)6>27T/EON"963.J&360KP7ISN*"
I+LCL7G[I7E& +OCU.$V72 ?F3R& T6".J&321WL/T7S/S^+"5*M.3J97GSO/O&3"5*M.3N93P	R+NKT3TGH7TN	* CA3PWR7T	T6 KC3U7M7Y^ 3AOT+H6 * 
I+LCL7G[I7E& +OCU.$V2""*M.3R97LSE7SN=.+V2.MNJ29253E?T*=+O"2*M.3Z97RSE3U;R.MNJ29&7+F?O23&=+NT/ON/2)T/ESN"069.J&368B 3R;I+TJ 3W3I7L& +OCU7PKA7T^ 3IT2 T+ACT3DGI3M;O7DR +ICE3TOA/K.".MNJ*9B97ICN+UCTJ6$.JB420& 3F* *$J=+NKO2 T+ECN.4"0.MRJ*0B1+ICF3FGN*(&0.>Z=2 T+
CN.4V0.MRJ*0B23P	R+NCT2"?Y3UF +RCE7N
O. F$*0B03ROI7HKE""*M.4N0. 7S/SF+"060.JB424^ 3O?T. B4"7*M.4V06 KP7ISN2 &"7TN	2 GP3SWT*.B .$V2""*M.4Z0. 7S/SJ+"5*M.4^0. 7O/ON*.MRJ*0B87RSE3U;R.MRJ*0B93P	R+NCT2"?Y+UCR3WSA6 OI2 S+O;T6 N 3O2 3O
N6,N 3U/C+EKR.MRJ*1B03ESN&M*J *J"J*J"J*J"J*J"J*J"J*J"J*J"J*J"J*J"J*J"J6J*MBM* B * B * B * B " 6M"M*M"J*J"J*J"J*J"J*J"J6M"M6J*MBM* B * B * B * B * B * B * B . " .8"8.8"8.8"8.8"8.8"8.8"8.8"8.8"8"M6M* B * B * B * B * B * B * B * B *4B4* B *4B4. R *4B * B4. R
"464*MBM* B * B * B * B * B * B * B . V *5B . V *5B . V * B *5B . V5"56M* B * B * B * B * B * B * B * B +KCK* B +KCK* B +KB * CK2 . K7K"M6M*JB * B * B * B * B * B . " .8"8.8"8.8"8.8"8.8"8.8"8.8"8.8"8

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