File UGLY.BA (BASIC source file)

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

+TCO.1^2"0*M.4Z660B 3R;I+TJ 3C7O7PSU+ECR7ASC3IWV2 ;A3DF 3W	A3T;I3GN 3O7M3ASN.:."3\;I7PSU" 7A.JZ428&03FF *=B07GSO/OR .7B4.MRJ.6F8+ICF/AF=2 ?G+TCO.4N8"0*M.4"622[I. 7A22^ 3O?T. "4"860.JZ469B03R;I+TJ 3F;U3C	T7OON6 [A3A3I3A3B3EZ 3R7O2 ?C7MWP7TKE""*M.4B760KP7IS
* B". B * B=3C7U3UGL7T[I3E^ 3AGL3C	T7CJ 3E?C+RKD.MRJ.7B13P	R+NCT*"B * B16=N 7TSA+UCS7RCE7OSR""*M.4J760KP7ISN* B". J * B=3P?H3T;O2 ?T3RWP+DCO7DSAA6".J^423^03O?T. Z4"660.J^463J1+ECM****6 WC3M3U3A	T+VCE3G3A7ASC+ICC3ROE3OSR2 ?C+DCE3B
E7ION2 WHR7E.J^4*4B03P	R+NCT2"?C7MWP7TKE2 WR7CKO3D> 3F^ 3AGL+XCY7FKO2 3A3L2 3O
N2 GR3NWG2 WS3N?S7RN 3C;AS6".J^466B03R;I+TB"* B * B1* B * B2* B * B3* B * B4* B * B5* B * B6* B * B7* B * J8.MRJ.7B73P	R+NKT* B *-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-J-.MRJ.7B87FKO. 7I21?T"8*M.4&765B 3R;I3T& 2;GT/BV(6)*;*(3I.1.)3TK
.(F16)*;*(3I.2.)3TKA.(^16)*;*(3I.3.)3TKA.(N26)*;*(3I.4.).MRJ.7Z96 KP7ISN2 GT/BJ(.9.)3Z&(*,&52;GT/BN(.5.)3Z&(*,&62;GT/BR(.1.)3Z&(*,&72;GT/BR(.7.)3Z&(*,&8.MRJ.8B03P	R+NKT* B *-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-B-*-6-*-J-.MRJ.8B17NE3T& .MRJ
8B27GSO/OF .2B7.MRJ.8F23R7E* **6*N 7TSA+UCS7RCE7OSR2 ?C+DCE3B
E7ION2 WHR7E.J"463B03R;I+TJ * B 3SGT7TOU2 WR7PKOT6".J"4*4B03P	R+NCT6"WN3MWB3R> 3F. 3L;I3G;O3S2 7ESF* J=.;	K.MRJ.8B5. WV2=&(+NT6(R(60R+*96)+T*)*1&0.)F/"0*M.4V861KP7ISN2 :"3UKM+ECR+OCF3SGT3RGD7TOE2 WL+FCT.=."V65.J"4*6B03P	R+NCT6"WN3MWB3R> 7FN 7TKA7BOA+ECS3L
E/T6 2"J;"9*M.4^820?G+TCO.3Z5"0*M.4"860KP7ISN/\H"=60.J"468J1+ECM****2 P3O?T7NR 7OCR3E?D2 GD+TCA3CSO3EJ 3E	G+NCS7HKEE*M.4B920?F3R& 6=R1O63.J&421&03F. *(3I.32)*=B03TWH/NV .2B6.MRJ.9B2/C617S217AN=62
\21.=*(3I612)3X.=*(3I"26).J&426^03O?T. B5"160.J&4*7B03P	R+NCT2"?Y3UF +RCE+ACT3QGU3DGR+NCT*(J .;GQ*;2"6"F;*2J;* B)3SOE7TKO* B(6"N;*1J;.,."/S.2*"& ""*M.4&960B 3R;I+TJ 3S	H3PF +NCD7TKA7GSE2 ?C3OSR3IGN7TOE6 KA+EJ:2;	\7NWP3TN 21F,.,GW",7X.JB561"0*=7X3AG\.=GC.-
W.MVJ.0B3+ICF/XB<2 T+ECN.5N1"0*M.5N021[I. 3A60R 3H;E. F5"960.JB525&07F" *>B03TWH/NV .0B7.MVJ.0F5+ICF/AB=2 T+ECN.5V1"0*M.5^0.0GC"=61.JB528&03FF +BS+AB)*<B=7AOB*(	X2 T+ECN.5F1"0*M.5"0.5WV.=GC*+"(2(KA3SF(2)F-+BS+X&)2+KA3SF(*)>)7AOB*(	A")*M.5&060B 3R;I+TJ 7DK
7ESC3I;O* J=.;WV.MVJ.1B07GSO/OV .2B4.MVJ.1B16 KP7ISN2 R"3IWR3C	T+OCN.=."+C.12(KA3SF(2)F/+BS+X&).MVJ.1B27GSO/OV .2B4.MVJ.1B3+ICF/AB>2 T+ECN.5^1"0*M.5R120[I. 7X60R 3H;E. F5"960.JF525N0.1V=3\?G+TCO.5"0"0*M.5^1.0GC6=237GSO/OJ5"060.JF529N0.1^=.MVJ.2B0+ICF7AOB*
	A2>F=+BS+XB)3TWH/NV .2B3.MVJ.2B16 KP7ISN2 R"3IWR3C	T+OCN.=."+C.1*("(7AOB*(	X2-KA3SF(*).)7AOB*(	X2)F/+BS+X&).MVJ.2B27GSO/OV .2B4.MVJ.2B36 KP7ISN2 R"3IWR3C	T+OCN.=."+C.12(KA7S"(2)F/+BS+A&).MVJ.2B46 KP7ISN2 R"7ISS3AON/E6 6"N;+QR+X**22F+.*J*")*M.5V220[I. H*=
13TWH/NV .3B2.MVJ.2B67NE3T& .MVJ.2B7/H68"0*M.5"260B 3R;I+TJ +DCO7YWO2 GW+NCT+TCO3UWS2 T3EN 3AOL3UGL7TKO6"2;7ICN+UCTA6$.JN520&03FF *$J=7YOE6"R 3H;E. &4"760.JN521&03FF .$:<2"?N6"R 3H;E. J5"860.JN522^03O?T. J1"760.JN562J1+ECM****2 ;E3D> 3F2 7IKB7A	R2 ?C7MWP7
KE2 ?CD7E.JN568J021&=+NT3RSN*(&1**.8612)/R627ISN2(;R/DF(.)"**+&1+\SA*=B"* J /\GZ.=GR/\KZ.=KR.MVJ.4B37GOO+UCB.5"6"0*M.5R420[I. OZ*=B03TWH/NV .3B8.MVJ.4B57RSE3U;R.MVJ.5B13R7E

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