File ANIMAL.BA (BASIC source file)

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

*5B03R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE*.:.3DOE.MZJ20Z 3IWL/VF6:R"+VJ:.MFJ*0B03P	R+NOT*1B:6"CS3I3E6 Z	3E7R3UWT2 GD3S2 3EWB7WOE+E
N""*M.1B56 KP7ISN. F2:R"3E/N3EF 3NV +ICN3LKE3EWW7SOE+ECN3USN2 WD3RN 7OCM3UWT7R^ 3ISR2 WV7RWS3CWH+NJ,.MFJ*5B23P	R+NCT.*16"OE6 WZ6 KE7RSA+EKN6 C\3R;IT*M.5B02 	D3MF .$J(*020*5&0.MVJ*1B03D7I* SF.(V1")*M.5B2* SF2=R"/SKK2:;A3IGM3L^.M6".JJ525R +ICM+ZR8.(B5")*M.5
32 	D7M* *9"$*2&6.MVJ*3B53P	R+NCT.*12"GH+SCT+DCU7Z[U+OCR3SC+OCN3E;I2 ;A3IGM3LZ 3IWL2 7I6 	S3SWT3M^ 7ECS3EOI7HKE/T> ""*M.5Z32 3C3OWS. F+\B 3F3I/EJ6:R"+VJ:.MVJ*4B07ICN+UOT*2B:+SB$2 O\7LOO+EN 622 3F3I+EOV*1J:/T+V6"2 3P	R+NOT61B:+NT.1J0")*M.5F42 [I2 WS+G"$+S2
.1F,*)J=+JB"3TWH/NV "560.JR522^ 3O?T. B1"560.JV520Z 3IWL. N*:SF.MVJ*6B07ICN+UCT.*3N*M.5B72 [I2 ;E+DN 63R 3H;E. B1"060.J^565J 7ESS3OWR. N.MVJ*8B07FKO* CI.=B 2 ?T* CN.-F .MVJ*9B07ICN+UCT.*3+A"$I6).JB620& 3FV +NCD*B33TWH/NF .0B0.MZJ*1B07NE3T& .MZJ*2B03C?L+SC
"63.JN620^ 3O?T. N1"060.JB1*0B03C?L+SCE"63.JB1*5B07FKO. 7I60R /ON .MFJ.0B62 WR+ACD+A"$I6).JB1*7B07NE3T& .MFJ.1B02 GD+TCA*"J4*,*"3QOS3H	W7MSM6 OE2 **22:**3J**,*"2 	F3SC*"J,6*Z 3OWGL6".JN1*0B03P	R+NOT*1B:2"WD3NWK2 ;A2 	E3N2 3EWB7WOE+EKN6;2 3C?L+SCE6213F3I/E
6:R"+VJ:.MFJ.3F02 ;I7PSU.*2+ZR92 O\7LOO+EN 622 3F3I+EOV*1J:/T+V6"C\3R;I/TF2:;P/TF(*0&2.MFJ.3V02 [I. 	Z*$J=+JB"3TWH/NF .3B5.MFJ.3Z02 [I. 	Z*$J=+NB"3TWH/NF .4B6.MFJ.3^02 [I. 	Z*$J=7LOI+TB"3TWH/NF .3B2.MFJ.3"02 [I. 	Z*$J=7S[A+EB"3TWH/NF .3B1.MFJ.3&02 ?G+TCO.
N3"0*M.1F320N 7LOO+EN 612 2 	F7L[E.*1F6$.JN1*1B13R7E2 WR3S?T+RCE"63.JN1*1B27FKO. 7I60R 7OZ +AL+A"$*0&).MFJ.3R16 KP7ISN. F*:SA*(	I.MFJ.3Z12 WN+XCTI*M.1F327N 7LOO+EN 612 3F3I+EOV*1J:/T+V""*M.1F328^ 3O?T. N1"060.JN1*2B03P	R+NCT.*12"	T3EWR2 WW3LC3E& +CCH7ZKU2
WZ+ICT3K;E/N+E""*M.1J322Z +OCR/IF=2 ?T. B2"0*M.1J324& 7FN +ESG*(SA*(	I*,21.22)*>*"+AB"3TWH/NF .3^2.MFJ.3Z26 KP7ISN.*12 WS+G"$+A"$+I2).3^,"26).JN1*2B77NE3T& .MFJ.3"26 KP7ISN.*1.MFJ.3&22 ?G+TCO.1B3"0*M.1N360B 3R;I+TN *1J:7BSI+TCE7ASN7WKO+TCE*	
J2,:	*	^,7S[A+E2	2	SO+ECR2		L+S
T""*M.1R320^ 3O?T. N1"060.JN1*5B0/KF=.MFJ.3V7. 7D"1*M.1B420& 7FN +ESG*(SA*(	K*,3D/D2)*>*"6"R 3H;E. R1"067.JR1*0B53DR="+62.JR1*0B73P	R+NOT*1B:3S
E2$F(2$.(2)R,*,	D";*M.1B428R *=/D"1*M.1F420& 7FN +ESG*(SA*(	K*,3D/D2)*>*"6"R 3H;E. R1"067.JR1*1B13C?L+SCE*B13\Z 3IWL.*26"[T":6".JR1*1B57ICN+UOT*2B:+ZR96 2 3C?L+SCE*B23\	F7L[E.*16"[T*:B"7\KP7ISN.*1.MFJ.4^1. 	Z6$N=+ESG.(	Z.$F,*,&1.MFJ.4B22 [I. 	Z*$J=+JB"3TW
/NF .4R2.MFJ.4J2. 	Z*$J=N6".JR1*2B43DR="+61.JR1*2B6+ICF3S
E2$F(2$.(2)R,*,	D6<*>*9B$3TWH/NF .4R26 2 . 7D/DF+.MFJ.4^2. 7X3V3A2(WS+G"$+A"$+K2)3DR,*)B)3\^ 3O?T. R1"269.JR1*2B8+X"=/XF**0.)3V3A2(WS+G"$+A"$+K2)3DR,")6).JR1*2B93DR=*+B13\& 7FN +ESG*(SA*(	K*,3D/D2)*>J **B"3TWH/NF .4"22 /\"=7X.JR1*3B03R7E* B 3P	R+NCT+A"$K6
.JR1*3B1+ICF3L;E2 F(2$.(.)2)*>B03TWH/NF .4B4.MFJ.4J32 ?G3SKU. R1"060.JR1*3B37GSO/OF .4B6.MFJ.4B42 [I2 WS+G"$+A"$+K2).1J,*)J=**KQ2 T+ECN.1^3"5*M.1R462B 3R;I+TN *1B:6"OI3TV 3SV +ICN""6;.JR1*4B43P	R+NOT*1B:3S
E2$F(2$.(.)N,.,J7*)B;6 2 . 7D/DF+.MFJ.4V42 3C3OWS. F* C\3F3I/EJ6:R"+VJ:.MFJ.4Z42 ;I7PSU. J6:* *7B$3\3C3OWS. J2 [\3IWL/VF6:R"+VJ:6 C\3R;I/TF":*M.1R468* .76$3S
E6$*(*72$.1F,")*M.1V420& 7F* .72$2>*"6"R 3H;E. B2"060.JR1*6B03P	R+NOT*1B:2"GW3R7U6 KP3O	B7EOR3TR 3U. 3E;I2 ;A7DKE+ECS3TWI/R> ""*M.1^420^ 3O?T. N1"060.JB2*0B03P	R+NCT.*12"GW3S& +SCT7DOA6 WF3RV +ICN3S3E3TGS7MOE2 	T+ECR""6;.JB2*1B03C?L+SCE*B1+\B 3F3I/EJ6:R"+
J:.MJJ.0B22 ;I7PSU.*2+ZR92 O\7LOO+EN 622 2 	F7L[E.*16"[T*:B"7\KP7ISN.*1.MJJ.0B56 KP7ISN.*12"	B3TWT2 OS3HWR3IWB2 ;I2 	E7NKE6 KF3AWG2 GW7SV 3NWT3ROS3H	E7DSE2 	E+NJ ";*M.2V062B 3R;I+TN 61*:.9.$6"Z +OCN3E;I+ECM6"N;+ESG*(SA*(	K*,23*7&2.MJJ.0N52 3C3OWS. F* C\2 
F+LOE*2J:/T+V""*M.2Z020& 7NWP/TJ6:* *8B$2 O\7LOO+EN 622 3F3I+EOV*1J:/T+V6"2 3P	R+NOT"16:.JF2*0B03P	R+NOT*1B:6"WF+ECR3E;I. ."+ZR9*;B"3DWI2 ;A3T?W+RCT3WWA+RCE""6;.JF2*0B53C?L+SCE*B1+\B 3F3I/EJ6:R"+VJ:.MJJ.1B12 ;I7PSU.*2. 
Z6$2 3C?L+SCE*B23\	F7L[E.*16"[T*:B"7\KP7ISN.*1.MJJ.1B2. 
Z6$N=+ESG.(
Z.$F,*,&1.MJJ.1B32 [I. 
Z*$J=+JB"3TWH/NJ .1B6.MJJ.1B42 [I. 
Z*$J=+NB"3TWH/NJ .1B8.MJJ.1B56 KP7ISN.*12 J"7IST3EF 7N
T7OSR+E^ +JB	3OWD+R^ +NJ	6 2 2 ?G+TCO.2B1"0*M.2Z160* .66$*"KN.MJJ.1B72 ?G+TCO.2B2"0*M.2"160* .66$*"KJ.MJJ.2B0. GZ2=GV+L" +A"$*0&).MJJ.2B2* SA*(&06=SS+R"$+Z.1"26).JJ2*4B0+A"$+Z&1*=SA*(	K.MJJ.2B6* SA.(GZ*+&1*=*"+AZ"+ZR9.MJJ.2B8* SA*(	K*=*"+QZ"+ZR8*&*"6"*&*7
$7SKT6$*(.1F+*)J&**Z"+ZR66&SS+R"$+Z&1*&*"""*M.2B320^ 3O?T. N1"060.JN2*0B53C?L+SCE"61.JN2*1B03ESN&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