File PRPLAN.BA (BASIC source file)

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

*1B03D7I* K.2B0*,&3*,M*428*1&2.,GM.("4.,J12)Z,.("4*,&3*,L*4&8*,S*428*1&4.MJJ20Z 3IWL.*16"SD/A*13P/R+O;M+BKA3\;I7PSU.*13Z",",7H.JB32 ?F3R& *=B1+TCO3Z[\+OCR/I6161R /OJ 3\;I7PSU.*13K&(.,GI2);\7ESX. GI.MRJ20& 7NWP/TF*:3A3BN,+\K/IN,.)F=.0B020F*.+B120J*6+3C7ICN
UOT21":",7H.JB52 [I2 ;E/DF2 T+ECN"660.JB62 WN+XCT3IO\7LOO/EF.M^J20Z 3IWL.*26"	S7SB:3RSL+T;F+BKA3\?F3R& *=B1+TCO64257FKO. GI*=B1+TCO"3*M*8B07ICN+UOT22Z:*(3I+I&13\WN+XCT7I217ICN+UOT22":6,3H+ICF3ESN*B23TWH/N& "0*M*9B07NE3T& 3\3C3OWS"62.JB120Z 3IWL.*36"SD/A*1
P3R7DOT2.GB2"[\+OCR/IF=2 ?T. V43\?F3R& .1F=2 ?T6 287FKO/I6221?T"5*M.1B12 ;I7PSU.*3+L"(+I61*1*)25&+622)7NE3T& 22	\7NWP/TN*:3H3H	\3FV +NOD63R 3H;E. J1"0*M.1B22 WN+XCT7I217FKO. GI*=B3+TCO*3B93SWT/PN .MFJ*2B53S&(.,GI*/&3.=B1.0B0**L+I61*2.).1B0**L+I61*1.)3L&(6
2)7NE3T& "1*M.1B3* S/IF,.46).1B0*0*0/LR(602)7NE3T& 3\3C3OWS"63.JR120Z +OCR/IF=2 ?T6 3Z+ICF3K&(*,&12<^=2 T+ECN.1B5/\7G3K&(*,&1.MFJ*5B07NE3T& .MJJ*2B07FKO. 7I*4B5+TCO61N 7TCE6-21+ICF3F&(*,&1.<B>2 T+ECN.2B33\WN+XCTI*M.2B3. GZ6=3I3P	R+NCT2"WT+ICL"16".JR220Z +
CR/IF=2 ?T6 3Z+ICF3K&(*,&1.>B1*0B03TWH/NR "860.JR225Z +OCR/I6161R /OR 20	\3F& 61N=61R 3H;E. ^460+\.6B=.MJJ*5B0+ICF3L&(.16)7ISN.(GZ*/&52 T+ECN.4B7.MJJ*6B07FKO. KI*=B1+TCO3L&(612)+ICF3K6(.(GI.,KI.)F,.)F-.0B0*=K/IF,2)T+ECN.4B7.MJJ*7B07NE3T& "2*M.2B82 ?F3R& .
F=2 ?T" 63.J&220F 2=;I3T.(*(3I*3>).1B0/^N(.-KI*)6).1B02*;I3T.(*(3I*3>).1B0/^R(.-KI")6).JB320Z +OCR/I6361R /OF "4*M.3B12 ?F3R& .4F=2 ?T" 63.JJ320N *=S3A&,632)3B&=+NT/CF/60:0*(63+I&4.)F-*0*07ISN*(?C.1B0/^R(.-SI")6).JJ325& 3FJ .=GI2 T+ECN.4B73\WN+XCTI64.JN32
: 7ESX. OI3\WN+XCTI62.JR320Z +OCR/I6261R /OR 25[\+OCR/I6361R /ON 3\[I* F+I22+I&32<.>*(3I*2B)3TWH/NN "860.JV320Z +OCR/I6461R /OF 24[\+OCR/I6561R /ON .MNJ*6B07CN=.(KI.,SI2)K\2=;I3TN(./B1*0^23&-*5&).-B120&*+NT/CF/60:0*(64+I&5")*M.3V62 [I. 7B+IB13TWH/NN "960.
^320: 7ESX. WI3\WN+XCT7I24/Z65+Z.521
\3O?T. &3"0*M.3B82 WN+XCTI63.J&320: 7ESX. KI.MRJ*0B07FKO. KI*=B1+TCO3L&(612)+ICF3K6(.(GI.,KI.)J,.):<3K&(*,&22 T+ECN.4B1/\[Z.=[Z"+61.JF420: 7ESX. KI3\[I. [Z**.563*>65R 3H;E. ^4"0*M.4B2* L+I&1*=L+I&16+213M&(212,.(GI.)6)3I/\*(3I.16)3K&(*,&1.+B1"060.JN420Z +O
R/I6261R /ON /\7A7ISN*(K/IN,.)F/60:0*(63+I&2.)F-*0*07ISN*(K/IN,.)F/60:0*(64+I&2")*M.4B42 ?F3R& .3F=2 ?T. R13\?F3R& .4F=2 ?T" 63.JR422J 2=;I7TN(*(3A+I&3./B1*0^23&-*4&).-B120&*+NT3SF(.,OI.)F/60:0*(64+I&4")*M.4R42 [I. 7B60R 3H;E. R426;\7ESX. SI3\WN+XCTI63.JR
26N .=OI/\7B23&-"4*M.4B5* S3AN,2)&=.1F*60:07BN+*(3A7C2)+ICF/S6361R 3H;E. B621;\7ESX. KI.MRJ*6B07GSO/OR "765.J^420: 7ESX. GI.MRJ*7B5+ICF/S6261R 3H;E. F8"0*M.4B86 KP7ISN* 3I7I217NE3T& /\KZ"=60.J&420Z +OCR/IF=2 ?T6 3Z+ICF3K&(*,&1.<B1*0B03TWH/NV 6020/Z62+Z.2"
*M.5B02 WN+XCT7IC\3R;I7T* *2J;2 ?V/N."Z*M.5V06 KP7ISN7\KP7ISN7\KP7ISN6 R"3E3I* J2.MVJ*0B9/IB=.MVJ*1B03I&=6+21+ICF/IR>60R 3H;E. B626	\.1B=.MVJ*1B1/I61+I.121	\3F& 212>*(	I2 T+ECN.5B1.MVJ*1B2/I66"0*M.5V1. [I.=[I6+21+ICF/I:662R 3H;E. B6"5*M.5&1. KI"=60.JJ520&
22&=.2F+3\[I. KI.>V42 T+ECN.6B0.MVJ*2B5/I63"0*M.5Z2. OI.=OI6+21+ICF/I:363R 3H;E. J5"0*M.5"22 [I* F+I22+I&32<.>*(M3I&,*12)*2B)3TWH/NV "860.JN520& .4B=.MVJ*3B3/I64+I.421	\3F& .4F>64R 3H;E. Z5"0*M.5Z3. WI"=60.JN528& 25&=.5F+3\[I. WI*>B33TWH/NV "363.JR520F 2=
I7TN(.(KI.,SI.)F/60:0*(63+I&5.)F-*0*07ISN*(S+I22+I&4./B1*0^24&-*5&).MVJ*5B0+ICF3A&=2 T+ECN.5B93\?G+TCO.5"3.MVJ*6B0+ICF+M"13I&,.12)*>B03TWH/NV 6720+M"13I&,.16).1B0.*KI3\?G+TCO.6B0.MVJ*7B0+M"13I&,.16)+M"13I&,*1.)7I227GSO/OZ "060.J"520^ 3O?T. J5"6*M.5B92 ?G+
CO.5B2.MZJ*0B0/S6321G\.=KI/\7Q7I21/I613I
\3O?T. R4"0*M.6F0. OS6=20/I613Q
\3O?T. F5"5*M.6V02 [I. KS*=B13TWH/N" 63207GSO/OV "161.JB666B 3R;I3T
\7OWS/BJ .0B0.MZJ*0B73P	R+NCT2"WT+ICL632"/JB=.MZJ*1B03J*=6+21+ICF3J^>2 T+ECN.8B5/\[Z6=207FKO. OI*=B1+TCO64207FKO. SI*=B1+TCO"160.JJ620& 3F. *(M+I23+I&4*,&1.-B1.020*>CJ3TWH/NZ "460.JN660* 66*=.6F+3\[I. [Z*=B13TWH/NZ 6520+ICF+I63/X22*=B23TWH/NZ 69207GSO/OZ 
560.JR620: 7ESX. SI3\?G+TCO.6B6.MZJ*5B0/X62I63.JZ620: 7ESX. OI3\?G+TCO.8B3.MZJ*9B0/S617I233N&=64O\.2F=+\K3M&(23&,*42).16)3K6(.(OI.,SI.)F,.)F-.0B0/\SS.=GS.M^J*0B0+ICF+M"1+S21/N6)60R 3H;E. R7"0*M.7B12 ?F/RSI6=R17O223L&=+NT+M"1+S21+N>).1B0/^J(.-SI*)6).1B02*;
3T6(61N(21:,.)F/60:0*(63+I&4")*M.7B22 [I. 7L60R 3H;E. N7"5*M.7B32 ?G3SKU. V2"060.JN725: 7ESX. SI.M^J*4B07FKO. SI*=B1+TCO"3*M.7B5. 7L7ISN*(K7MN(21:,.)N,.)F/60:0*(63+I&4.)F-*0*07ISN*(K7MN(21:,.)N,.)F/60:0*(64+I&4")*M.7B62 ?G3SKU. V2"060.JZ725: 7ESX. SI/\7I7
N(24:,")*M.7B72 ?F3R& 24:=*+B1+TCO61207MN(21&,.4F-2)6=.(GS.,SI")*M.7B8. GM.(GS.,SI*-&1.=GM.(GS.,SI2);\7ESX. SI+\L+S&1*=L+S&1"-61.J&7206 61N(.1F,.06)207\.(GS.,B1.)B=.M"J*0B07GSO/OJ "465.JF860N 24&=21;\*=L+I&13\[I* K7MN(24:,.)F,.)F>.0B02 T+ECN.8B2/\GS6=207G
O/O" "060.JJ820& .=SS/\GI6=3N7GSO/OV "162.JN860B 3R;I3T* 3\?G+TCO.6B1.M"J*5B03P	RN7T.JB2*0B03P	R+NCT2"WT/ISL2"[\3IWL/VF6:N"/Y+S3P7R+A;T+BKA.MJJ.0B12 ?F3R& *=B1+TCO64207FKO. GI*=B1+TCO69C\3R;I/TF*:M3I&,.1.)3\WN+XCTI61.JB2*2B03P	R+NOT216:*(3I*1&03\?F3R& .1F
2 ?T6 293P	R+NOT216:21&(.,GI6)2;7NE3T& "1*M.2N060B 3R;I/TF.:GM*(3I*1&03\WN+XCT3IO\7LOO/EF.MJJ.0B42 WR7TKUN*M.2B520& .5B=.MJJ.5F0. WI.=WI6+21+ICF/I:5*1B43TWH/NJ .5B53\?F3R& .6F=2 ?T" 63.JV2*1B03A&=+NT3S2(.,WI.)F/60:0*(63+I&6.)F-*0*07ISN*(S3L&,*5>).1B0/^R(.
[I")6).JV2*2B0+ICF/A:<+SB13TWH/NJ .5B4.MJJ.5B3* S3L&,.56)3S2(.,WI.)F-60:0*(63+I&66*3A7GSO/OJ .5B5.MJJ.5B42 WN+XCT7I267GSO/OJ .5F0.MJJ.5B5. 
I.=V1.MJJ.5F5. 
I2 &=.7F-3\[I. 
I*<B13TWH/NJ .5B83\?F3R& .8F=2 ?T" 63.JV2*6B03A&=+NT3S2(.,
I.)F/60:0*(63+I&8.)F-*0*07ISN*(S3L&,*7>).1B0/^R(.-I")6).JV2*7B0+ICF/A:<60R 3H;E.2"520;\7ESX. I3\?G+TCO.2V5"1*M.2"560N *(3L+I&7*=S3L&,*76).1B0/^N(.-I2)F*.MJJ.5B9* S3L&,.56)3S2(.,WI.)F+60:0*(63+I&6"*7A.JZ2*0B07RSE3U;R.MNJ.0B02 ;ED*MBLBZ

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