File POETRY.BA (BASIC source file)

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

.1B02 ?G2 ?T. F1"0*M.1B12 WL3TR "=60.JJ1202 +ECT3DR="+61.JN120^ 7OR /OF .3B0.MFJ*4B03P	R+NCT2"T3E" 7OKU7SJ 3IWS6 CU6 WP3T	T+NCG3O[F6 SS7AOR""*M.1B52 WL3TF .1F=.MFJ*6B07LSE. 7D/DF+.MFJ*7B03P	R+NCT*"B 2 F +NCD+ICT+ICS7D
AN6".J"120^ 7OR /OF .3B5.MFJ*9B03P	R+NCT2";I+TCO3TWH6 SS3RWE3T> 7FR +HCE7S	K2 	L7GSH""*M.2B02 WL3TF .2F=.MJJ*1B07LSE. 7D/DF+.MJJ*2B03P	R+NCT*"B 6 ^ 3A/L7SN 7CSA7TKE3I
N2 ?P7EOM""*M.2B32 ?G2 ?T. N1"560.JR260B 3R;I+TJ +OCN7EKA+TCH3AN 3ASN+LCE+ICS7ESX3I
N7UOI+EKD.MJJ*5B07LSE. OA"=61.JZ2202 +ECT3DR="+61.J^260B 3R;I+TJ * B 2 T3EN 7I	T2 GW7KOE""*M.2B82 ?G2 ?T. N1"560.J&260B 3R;I+TJ 7WSI3HF 2 ?S+NCG3U?P3N" +ECR7MWO+TKH.MNJ*0B07LSE. SA"=61.JF3202 +ECT3DR="+61.JJ360B 3R;I+TJ * B 2 GH3V;I3GR 7ESA3H& 3N" +ECR3EW
S6".JN320^ 7OR /OF .3B5.MNJ*4B03P	R+NCT2";A3D& 3T& 3SR 3A;W""*M.3B56 KP7ISN* B"* B * B * B * B 2 T7E^ 3O3RD6".JZ3202 +ECT/A65"1*M.3B72 WL3TR *=/D"1*M.3B86 KP7ISN* B"* B 3GWO3SZ 7OSR7HR 3O6 3USR+ECR3DWR7AOM""*M.3B92 ?G2 ?T. N1"560.JB460B 3R;I+TJ 2 F +NCD+I
T+ICS7D	A""*M.4B12 WL3TN .5F=.MRJ*2B07LSE. 7D/DF+.MRJ*3B0+GCO+TCO.1V3"0*M.4B46 KP7ISN2 &"7NR +HCE7MKI7RKO* CI3SWE* CA3M;A2,F +NCD+HKE.MRJ*5B03P	R+NCT*"B * B 7SKC3E7AS6".JZ4202 +ECT+DB=/DF+" *M.4B72 WL3TN .5F=.MRJ*8B03P	R+NCT2"?F3R" 3E& 3S6 E6".J&4202 +ECT
DR="+61.JB560B 3R;I+TJ * B * B * B * B 3ASN* CI+HKE.MVJ*1B0+GCO+TCO.1V3"0*M.5B26 KP7ISN2 F"+NCD+ICT+ICS7DOUK6".JN5202 +ECT/A67"1*M.5B42 WL3TR *=/D"1*M.5B56 KP7ISN* B"* B * B * B * B 2 ;O2 GE3RT""*M.5B62 ?G2 ?T. N1"560.J^560B 3R;I+TJ 3AN 3ASN+LCE+ICS3L
I3HWTD6".J"5202 +ECT/A68"1*M.5B92 WL3TR *=/D"1*M.6B06 KP7ISN* B"* B 3ASN6 SI6 OI2 GD+RKK.MZJ*1B0+GCO+TCO.1V3"0*M.6B26 KP7ISN* B"3TWH2 WP3O3P3EF +RCE+ICN3TWH+ICR7HWO7SOE""*M.6B32 WL3TF .9F=.MZJ*4B07LSE. 7D/DF+.MZJ*5B0+GCO+TCO.1V3"0*M.6B66 KP7ISN6 N"+HCE3SW
7EOP2 	W+TCH3DGE+TCH3U?P3N" +ECR7MWO+TKH.MZJ*7B07LSE. GB"=61.J"6202 +ECT3DR="+61.J&660B 3R;I+TJ * B 2 ;A3DF 2 ?S+NCG+ICN7HKE6 	E+EKS.M^J*0B0+GCO+TCO.1V3"0*M.7B16 KP7ISN* B"3TWH2 ?H7UOR2 WD3S;E3DSE""*M.7B22 WL3TJ .2F=.M^J*3B07LSE. 7D/DF+.M^J*4B03P	R+NCT*"B
* B * B * B * B * B 6 B 7UST3I
N2 ;O6 SS7AOR""*M.7B52 ?G2 ?T. N1"560.JZ760B 3R;I+TJ 3NKO7O	D2 ?L7SOE2 3A7LR +HCE3T7I+EJ .M^J*7B07LSE. OB"=61.J"7202 +ECT3DR="+61.J&720^ 7OR /OF .3B5.M"J*0B03P	R+NCT2"	H3S6 7OSS2 	W+SCE7MOU+ICC3S?T+LKE.M"J*1B07LSE. SB"=61.JJ8202 +ECT3DR="+61.JN860B 3R;I+T
 * B 2 ?N3T	H+NCG3F?R3MR 7ESAH6".JR820^ 7OR /OF .3B5.M"J*5B03P	R+NCT2"?L+VCE+ICS3TWH6 [E+ECR3O3N3Y^ +OKD.M"J*6B07LSE. WB"=61.J^8202 +ECT3DR="+61.J"820^ 7OR /OF .3B5.M"J*9B03P	R+NCT2"W7ON 3P/O7ER 7HOI2 GE3RT2 ?S2 3G+ACD3ASN2 	BG6".JB9202 +ECT/B66"1*M.9B12 
L3TR *=/D"1*M.9B26 KP7ISN* B"* B 3EWV3NF 2 T3I
N2 3A7LN 3M3A3LF +NCD3SSA""*M.9B32 ?G2 ?T. N1"560.JR960B 3R;I+TJ 3W?H6 OI2 [A3R	A3D> 3FR 7ESA7HR?7HWO""*M.9B52 WL3TJ .7F=.M&J*6B07LSE. 7D/DF+.M&J*7B03P	R+NCT*"B 2 F +RCT+OCF3H7I""*M.9B82 ?G2 ?T. N1"560.J&960B 3R;I+TJ +OCR7WSI7HR +HCY3M;I3DF 3G	A7NSS6 	M2 
M+N3D""*M.1B0202 +ECT/B68"1*M.1F0202 +ECT3DR="+61.JB1*2B06 KP7ISN* B"* B 7YWO2 S3O3U3D: +OCT3HGE3R6 7EN 3PGEK6".JB1*3B0+GCO+TCO.1V3"0*M.1R060B 3R;I+TJ 7FKO2 [I2 WH6 OI2 ?G+NCE3ASN* CI+ACM7HKEE6".JB1*5B07LSE. 	B"=61.JB1*6B07LSE. 7D/DF+.MFJ.0B76 KP7ISN* B"*
B 3TWH+RCE+ICS+NCO3MWE3T;IG6".JB1*8B0+GCO+TCO.1V3"0*M.1&060B 3R;I+TJ 2 	T+MCE+ICS3T	W3SWT7DR 3O2 +ACP3U?PN6".JF1*0B07LSE. GC"=61.JF1*1B07LSE. 7D/DF+.MFJ.1B26 KP7ISN* B"* B 6 SI3S3E3FZ 3OWR7VKE""*M.1N120^ 7OR /OF .3B5.MFJ.1B46 KP7ISN2 F"+NCD3SGP+CCE+ICS7MO
3I
N2 ?F3R& 7T^ +ACS""*M.1V1202 +ECT/C62"1*M.1Z1202 +ECT3DR="+61.JF1*7B03P	R+NCT6"SS3OWL3NZ +OCR3A3L2 	T+MCE+TCO3C7O+EJ .MFJ.1B82 ?G2 ?T. N1"560.JF1*9B03P	R+NCT2"T3EWR6 OI2 WN7VKE2 ;A2 ;E+DJ,.MFJ.2B02 WL3TN .3F=.MFJ.2B12 WL3TR *=/D"1*M.1J260B 3R;I+TJ 2 WM3R3
3YF 2 WB7LSA+ECD3B
E3I	N+N;G*.J..MFJ.2B32 ?G2 ?T. N1"560.JJ1*4B03P	R+NCT2";A7DR 3WOI7EJ 3EWP3AWT7DR 7HKEE6".JJ1*5B07LSE. SC"=61.JJ1*6B03P	R+NCT*"B 6 ^ +ACS+NCO7MKOE6".JJ1*7B0+GCO+TCO.1V3"0*M.1"260B 3R;IT*M.1"221R *=/D"1*M.1&220^ 7OR /OF .3B5.MFJ.3B06 KP7ISN* B"3R;A3D7O2 ?P7
KT3Y& 3NZ 7OKU2 GP+RCT7HKA3M;O+YJ..MFJ.3B16 KP7ISN" *M.1J360B 3R;IT*M.1N320& 7FF 2=;I7TF(6)R 3H;E. J1"860.JN1*4B0+ICF/DF=62R 3H;E. N2"360.JN1*5B07LSE. 7X3RSN.(F-.)J*"4*M.1Z3202 +ECT/X617ISN*(	X"+61.JN1*6B1+ICF/DR=2 T/EGN.2B8.MFJ.3J62 [I. 7D68R 3H;E.1"2"0*
.1Z323& 3FR .>Z12 T+ECN.2N3"0*M.1^320& 7F" .1F=2 T+ECN.1&3"0*M.1"320^ 7OR /OF .4B1.MFJ.3B92 [I. GA*=B13TWH/NF .4B1.MFJ.4B02 [I. GX*=B13TWH/NF "460.JR1*1B0+ICF/X6162R 3H;E. R1"360.JR1*2B0+GCO+TCO.1V4"0*M.1N420& 3FF .2F=2 T+ECN.1V4"0*M.1R420& 7F" .1J=2 T+EC
.2B9.MFJ.4B52 [I. GX*=B33TWH/NF .4B7.MFJ.4B62 ?G2 ?T. R1"960.JR1*7B0+ICF/A6361R 3H;E. R1"960.JR1*8B0+ICF/X6163R 3H;E. &1"0*M.1&420& 7F" .1R=2 T/EGN.5B1.MFJ.5B02 ?G2 ?T. V1"360.JV1*1B0+ICF/A6461R 3H;E. V1"360.JV1*2B0+ICF/X6164R 3H;E. R2"0*M.1N520& 7F" .1V=
 T+ECN.1V5"0*M.1R520^ 7OR /OF .5B7.MFJ.5B52 [I. WA*=B13TWH/NF .5B7.MFJ.5B62 [I. GX*=B53TWH/NN "460.JV1*7B0+ICF/X6166R 3H;E. V1"960.JV1*8B0+GCO+TCO.1F6"0*M.1&520& 3FF *6B=61R 3H;E. Z1"160.JZ1*0B0+ICF/X6166R 3H;E. B4"0*M.1F620[I. GX*=B73TWH/NF .6B3.MFJ.6B22
?G2 ?T. Z1*5B0.MFJ.6B32 [I. 
A*=B13TWH/NF .6B5.MFJ.6B42 ?G2 ?T. J5"0*M.1V620& 7F" .1"=2 T+ECN.1^6"0*M.1Z620^ 7OR /OF .6B9.MFJ.6B72 [I. A*=B13TWH/NF .6B9.MFJ.6B82 ?G2 ?T. ^5"0*M.1&620& 7F" .1&=2 T+ECN.1F7"0*M.1B720^ 7OR /OF .7B3.MFJ.7B12 [I. 	A*=B13TWH/NF .7B3.MFJ.7B22 ?G2 ?T. J6"0*M.
N720& 7F" .1F=60R 3H;E. ^1"560.J^1*4B0+GCO+TCO.1"7"0*M.1V720^ 7OR /OF .7B6.MFJ.7B62 [I. GB*=B13TWH/NF .7B8.MFJ.7B72 ?G2 ?T. Z6"0*M.1"720& 7F" .1F=61R 3H;E. "1"060.J^1*9B0+GCO+TCO.1J8"0*M.1B820& 3FJ .2F=2 T+ECN.1J8"0*M.1F820^ 7OR /O^ "160.J"1*2B0+ICF/X61*1
23TWH/NF .8B4.MFJ.8B32 ?G2 ?T. "1"660.J"1*4B0+ICF/B6361R 3H;E. "1"660.J"1*5B0+GCO+TCO.7B6.MFJ.8B62 [I. GX.=N12 T+ECN.1"8"0*M.1^820^ 7OR /OF .9B0.MFJ.8B82 [I. SB*=B13TWH/NF .9B0.MFJ.8B92 ?G2 ?T. B8"0*M.1B920& 7F" .1F=64R 3H;E. &1"260.J&1*1B0+GCO+TCO.1R9"0*
.1J920& 3FJ .5F=2 T+ECN.1R8"0*M.1N920^ 7OR /O" "560.J&1*4B0+ICF/X61*1B53TWH/NF .9B6.MFJ.9B52 ?G2 ?T. &1"860.J&1*6B0+ICF/B6661R 3H;E. &1"860.J&1*7B0+GCO+TCO.8B9.MFJ.9B82 [I. GX.=Z12 T+ECN.2B0"06 .J&1*9B0+GCO+TCO.2J0"0*M.2B020& 3FJ .7F=2 T+ECN.2J0"0*M.2F020
 7OR /O& "460.JB2*2B0+ICF/X61*1B73TWH/NJ .0B4.MJJ.0B32 ?G2 ?T. B2"660.JB2*4B0+ICF/B6861R 3H;E. B2"660.JB2*5B0+GCO+TCO.9B9.MJJ.0B62 [I. GX.="12 T+ECN.2"0"0*M.2^020^ 7OR /OJ .1B0.MJJ.0B82 [I. 	B*=B13TWH/NJ .1B0.MJJ.0B92 ?G2 ?T. B1"460.JF2*0B0+ICF/X61*1B93TW
/NJ .1B2.MJJ.1B12 ?G2 ?T. F2"460.JF2*2B0+ICF/C6161R 3H;E. F2"460.JF2*3B0+GCO+TCO.1&0"0*M.2R120& 7F" .1J=60R 3H;E. F2"660.JF2*5B0+GCO+TCO.2"1"0*M.2Z120& 3FN .2F=2 T+ECN.2"1"0*M.2^120^ 7OR /OF .1B4.MJJ.1B82 [I. GX.=F22 T+ECN.2B2"0*M.2&120^ 7OR /OJ .2B2.MJJ.
B02 [I. OC*=B13TWH/NJ .2B2.MJJ.2B12 ?G2 ?T. F1"960.JJ2*2B0+ICF/X61*2B23TWH/NJ .2B4.MJJ.2B32 ?G2 ?T. J2"660.JJ2*4B0+ICF/C6461R 3H;E. J2"660.JJ2*5B0+GCO+TCO.1R2"0*M.2Z220& 7F" .1J=63R 3H;E. J2"860.JJ2*7B0+GCO+TCO.2B3"0*M.2"220& 3FN .5F=2 T+ECN.2B3"0*M.2&220
 7OR /OR "460.JN2*0B0+GCO+TCO.2J3"0*M.2F320& 7F" .1J=64R 3H;E. J1"860.JN2*2B0+GCO+TCO.1V3"0*M.2N360B 3R;IT*M.2R360B 3R;IT*M.2V360B 3R;IT*M.2Z320V N7DBJBZ

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