File BATTLE.BA (BASIC source file)

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

*1B03R7E* 6-2 GB3T3T7E^ 7RSI3T;E6 	B2 GR7Y^ 7ESS3E
R3ASR. F .0^/"0*M*2B03R7E2 ?C7PKY3IG/TF .9F76 	B2 T7EJ 3EWG7NOT2 [O2 T7EV 7N[I2.> 3FN 3A	LF6..JB32 WR7MB 3RSO3UWC3DF 7TR +HCE7L
A3R;E+CCE3H3A3L> 7FN 3CWI3NWC2,J 3E/R3EWLY*M*3B53R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M*4B03D7I* F.6Z,2)",*(26*62)/AR(2)J,*(&4*,C*62)/LN(")*M*5B07FKO. 7I61R /OZ .MVJ22Z +OCR/JF=2 ?T" 66.JR5* F3I*,.)B=.MVJ26: 7ESX" 7
.J"52 WN+XCTI*M*6B07FKO. 7I61R /ON .M^J20: *=64I*M*8B07FKO. 7J61R /OJ .M&J20F 2=;I/TZ(2*;R/DB(*).)"1*M.1B0. 7B7ISN*(*63RSN*(&0.)F+.MFJ*1B03D&=+NT64J*+ND*0&)"+61.JJ120& 3FZ *(3A/B:)60R 3H;E. B9.MFJ*3B0/MB=.MFJ*4B0+ICF/DJ=2 ?G+TCO.3B43\[I. 7D23^ 3O?T. V520	
3FR *=B47GSO/O^ "460.JV120J *(&1"=7B.JZ120J *(&26=27/BN(.)^=.MFJ*7B07FKO. 7K61R 3O: .MFJ*8B0+ICF/MF>2 T+ECN.2B4.MFJ*9B0+ICF3B.(.)Z=2 T+ECN.2B3.MJJ*0B0+ICF3FF(*,B+K.).1:)60R 3H;E. N2"0*M.2B1* B/KF+2)J=*(	K"+61.JJ220^ 3O?T. "2"0*M.2B3. 7M"2*M.2B42 [I* B.1:)
BJ(2)?G/TKO64223IKF*(&1*>B23^)3O?T. R262+\*=B612)7GSO/OJ "560.JR222& 3FJ *(&2*>B*3B)7GSO/OJ 64243ZJ=*(&23\?G+TCO.2B5.MJJ*4B43ZJ=*(&3.MJJ*5B0+ICF/ZF=2 T+ECN"960.JZ220& 3FZ *(3A/ZF-.)B>2 T+ECN"960.J^220J *(/K.16)/ZF-.MJJ*8B07NE3T. .MJJ*9B03FF(*,	B*=6922&*"-
J.JB320Z +OCR/KF=2 ?T" 7N.JF320Z *(3A3B.(*+&12)Z=*(3AB6).JJ320: 7ESX" 7K.JN320^ 3O?T. &9"0*M.3B4* A.16)A*M.3B5* B.16)B*M.3B6* A.26)20G\*(&36=20/BJ(.)B=+\B.36)"0*M.3B72 ?F3R. *=B1+TCON*M.3B82 [I. ;M21T+ECN.4B6.MNJ*9B0+ICF3A.(.)F=2 ?G+TCO.4B53\[I* B/K6)21^ 
O?T. V4"0*M.4B02 [I* F3A.(.)F-*,B+K6).1:)60R 3H;E. V4"0*M.4B13I[F*(A+K6)21J,*(	K.)2=20?G/TSO62203I[F*(A+K6)21J,*(	K2)Z=*(A+K2)3B.(.)F-2)T/ESN"560.JJ420F *(/K.16)3A.(.)F-.MRJ*3B03B.(*+&1*=B+K6)"1*M.4B42 ?G+TCO.5B3.MRJ*5B0/MJ=.MRJ*6B0+ICF/AF(2)F<*(&27GSO/OR
66223IGF*(&1*<A23^)3O?T. Z462+\21F=*(&13\?G+TCO.4B7.MRJ*6B2+ICF/AJ(2)F<*(&37GSO/OR 6624/Z61/AJ(2)
\3O?T. ^4"0*M.4R6. GZ*=A"36).J^420& +FB.12)/BJ(2)?G+TCO.4J73\[I* B.12)/BN(2)?G+TCO.4J7/\KZ*=B612)7GSO/OR "860.J^422& 3FJ *(&2*<B23^)3O?T. ^464+\22J=*(&23\?G+TCO.4B8.MRJ*7B4/Z62/BN(")*M.4B82 [I. GZ*=B67GSO/O& 20	\7F* .2Z=2 ?G+TCO"960.J&420& 3FZ .(GZ*+21+Z.
.1:)60R 3H;E. B9.MVJ*0B0+ICF7F*(61*,.2F+.)2=20^ 3O?T. F520	\3FZ .(GZ.,KZ*+&1*=F+Z.161*,62R)3H;E. B9.MVJ*1B03A.(*+&1.=GZ"+61.JJ520J *(/K.16)+Z.2"1*M.5B32 WN+XCTK*M.5B42 ?G+TCO.9B5.MVJ*5B0/AF(2)F=.MVJ*6B0/AJ(.)^=+\A.36)"7*M.5B72 ?F3R. *=B1+TCON*M.5B82 [I. ;
61R 3H;E. R6"0*M.5B92 [I* A/K6)66R 3H;E. N6"0*M.6B02 [I* F3A.(.)F+*,	B*>B03TWH/NZ "360.JF620F *(/K.16)3A.(.)F+.MZJ*2B07GSO/OZ "860.JN6206 "=62.JR620& 3FF *(&1*>A22^)3O?T. R622	\3FF *(&1*>A23^)3O?T. R662+\*=A612)7GSO/OZ "560.JR622& 3FF *(&2*>A23^)3O?T. R66
+\*=A622)7GSO/OZ "560.JR664* *=A"36).JV620& 7F* *=B13TWH/N& "0*M.6B62 [I* F/ZF-*,	B*>B03TWH/N& "0*M.6B7* A/KF+6)*="-61.J"620: 7ESX" 7K.J&620Z *(3A/B6).9J-**7IJ*M.7B02 ?F3R. *=B1+TCON*M.7B1* F3A.(*+&1*,	B*=F3AJ,")*M.7B22 WN+XCTK*M.7B32 ?G+TCO.9B9.M^J*4B0/A
(2)F=.M^J*5B0/BF(2)J=.M^J*6B0/AJ(.)^=+\A.36)"7*M.7B7* B.26)20K\*(&3"=60.J"720Z +OCR/KF=2 ?T" 7N.J&720& 3F6 *>B13TWH/N" "760.JB820& 3FF *(	K*=B67GSO/O" 6620+ICF3B.(.)F=2 ?G+TCO.8B6.M"J*1B0+ICF3FF(*(	K*+213B.(.)F-.)B>2 T+ECN.8B6.M"J*2B0+ICF3FF(*(	K*+213B.(.
6)2<^03O?T. N820	\+FF3A.(.)F+*,B+K&)*=F3A.(2)J,*(	K*-&13TWH/N" "660.JN820F *(/K.16)3A.(.)F+.M"J*4B03B.(*+&1*=B+K6)"1*M.8B52 ?G+TCO.9B4.M"J*6B0/MJ=.M"J*7B0+ICF/AF(2)F>*(&27GSO/O" 6722+ICF/AF(2)F>*(&37GSO/O" 6722/Z61/AF(2)
\3O?T. "8"0*M.8J72 [I* A.2:)/AN(2)?G+TCO.8R7/\GZ*=A622)7GSO/O" "860.J^864* 21F=*(&3.M"J*8B0+ICF/BF(2)J<*(&27GSO/O" 6822+ICF/BF(2)J<*(&37GSO/O" 6822/Z62/BF(2)
\3O?T. &8"0*M.8J82 [I* B.22)/BN(2)?G+TCO.8R8/\KZ*=B622)7GSO/O" "960.J"864* 22J=*(&3.M"J*9B0+ICF/Z6121^ 3O?T. B93\[I. KZ*=B63TWH/N& "0*M.9B02 [I* F+Z6161*,.2F+.)B>2 T+ECN"960.JF920& 3FZ .(GZ.,KZ*+&1.=B<2 ?G+TCO.9B23\[I* F+Z21+Z.2.16)7F*(.1F-.,KZ6)R 3H;E. B
.M&J*2B03A.(*+&1.=GZ"-61.JN920J *(/K.16)+Z.2"1*M.9B42 WN+XCTK*M.9B5* F3AJ,.)&=*-*23I*-.M&J*6B07FKO. 7K61R 3O: .M&J*7B03FF(*(/K*12)3B.(*+&12)Z=*(3AB6).J"920: 7ESX" 7K.J&920: 7ESX" 7J.JB1*0B07NE3T& .MFJ.0B16 KP7ISN.MFJ.0B26 KP7ISN6 R"+HCE3F3O7L
O3I
N2 ?C+DCE+OCF3TWH2 GB3D^ 7UOY2	Z 3LWE3TR 7ICS3O	S3T?IN6".JB1*3B03P	R+NCT2"GH3SJ 3E;E2 GC7PWT3RSE6 WB3T: +OCT+D7E3CSO/E+D""*M.1R060B 3R;IT*M.1V020Z +OCR/IF=2 ?T" 66.JB1*5B27FKO. 7J61R /OZ .MFJ.0R5* H3I*,2)Z=*(3IJ6).JB1*5B67NE3T* .MFJ.0"52 WN+XCTI*M.1Z020Z 
OCR/IF=2 ?T" 66.JB1*6B27FKO. 7J61R /OZ .MFJ.0R66 KP7ISN* H3I*,*)J;* B . .".MFJ.0Z62 WN+XCTJ*M.1Z068B 3R;I7TC\3R;I7TC\3R;I3T;\7ESX" 7I.JB1*7B03P	RN7T.JB1*8B03P	R+NCT2"WD2-?C+DCE+ICT3ASN6 OU3E& 3T& 7F& +OCU3C;A""*M.1&060B 3R;I+TJ 7BSU2 WK+ECP3TWH2 WD2-?C3D;
3G6 3ET+OCD7AN 7EKC+E;T""*M.1B160B 3R;IT*M.1F120Z +OCR/IF=2 ?T" 66.JF1*1B27FKO. 7J61R /OZ .MFJ.1R1* H3I*,.)B=.MFJ.1Z12 WN+XCTJ*M.1F128: 7ESX" 7I.JF1*2B07FKO. 7I60R /ON .MFJ.1J2* L/I6)"0*M.1J124: 7ESX" 7I.JF1*3B0/CF(.)J=+\C.26)"2*M.1R120N *(&36=21/CR(.)F=.
FJ.1B5* C.56)20O\*(&6"=60.JF1*6B0/SB=/\7H"0*M.1^160B 3R;I+TJ 3SGT+RCT3G7AE6".JF1*8B07ICN+UCT7X&,.MFJ.1B92 [I. 3X21?G+TCO.1F220	\7F" *>B67GSO/OF .2B13\[I2 ;I7T"(.):<7AOB*(	X2 T+ECN.1F2"0*M.1B220& 7F& 2<^13O?T.1F220	\7F& 2>^63O?T.1F220	\3F& +NT/Y6)7AOB*(	Y3
WH/NF .2B3.MFJ.2B16 KP7ISN2 &"3NGV3LSI2 ;I7PSU6,KT3YF 3G	A+NJ..MFJ.2B22 ?G+TCO.1"1"0*M.1N260J *=67Y*M.1R220N "=7X.JJ1*5B0+ICF7FJ(*,	C*>B03TWH/NF .2B9.MFJ.2B6. 7S/SF+.MFJ.2B76 KP7ISN6 N"3PGL+SGH6 KT3YF 3G	A+NJ..MFJ.2B82 ?G+TCO.1"1"0*M.1&220& 3FN *(F3RN,.)2
64R 3H;E. N1"460.JN1*0B03P	R+NCT2"T3EWR6 OU+ECD+TCO+BCE7AN 7HCI6 SA2 T+ACT3P	O+N3T6 WB7T& +OCU3S;U3K& +TJ..MFJ.3B16 KP7ISN6 N"3PGL+SGH6 KT3YF 3G	A+NJ..MFJ.3B2. 7S/SF+.MFJ.3B32 ?G+TCO.1"1"06 .JN1*4B0+ICF7HJ(*,	C*>B03TWH/NF .4B2.MFJ.3B5. 7H/HF+.MFJ.3B6* H3R
,2)Z=*(3RC6).JN1*7B03P	R+NCT*"CA7DKI7ESC2 	H3T> 7NN 7HCI6 WN3MWB/R."7FJ(*,	C.MFJ.3B8* C7FJ(*,	C2)N=*(F3RN,*).)"1*M.1&320& 3FN *(F3RN,.):)*=B43TWH/NF .4B7.MFJ.4B06 KP7ISN6 R"+RCY3AGG+I;N""*M.1F420^ 3O?T. F1"860.JR1*2B03P	R+NCT2"?Y3U" 3AWV2 3A3RGE+DCY7PSU* 
A3H3O3E& 7NN 7HCI6 WN3MWB/R."7FJ(*,	C.MFJ.4B36 KP7ISN2 F"7TR 7HSA2 ?P7ISN".6".JR1*4B03P	R+NCT6"CS7LOA+HB!7T	R2 
A3A;I".6".JR1*5B07SN="+61.JR1*6B07GSO/OF .1B8.MFJ.4B7* L7ISN2(Z(*(3R+C6)*1>)*2.).16)3L&(+NT*(F3RN,.)F-.)J/.)F+.)F+.MFJ.4B86 KP7ISN2 F"+NCD7YWO6 WS+NCK+I;T2 " 7UKR+ACH7FKO2 T3E^ 3OSO6 WG+Y;S""*M.1&460B 3R;I+TJ +SCO7FKA2 T3EJ +ACD7G	U3S" 3AWV2 ?L+SKT.MFJ.5B
6 KP7ISN* L.1.)2"WD7SKT3OWY7RN(*)B,* J *;L.2.)6"KC7UOI+ER+S2)2 F +NCD. .".MFJ.5B16 KP7ISN/LN(*)J;7AKI3CGR+FCT7CKA3RWI7RN(*)J..MFJ.5B26 KP7ISN6 &"7OKU6 WC3RWR+NCT3S3P3AS2/	H7TJ 3A	T3O& +SJ *;?SH*M.1N520& +F" /LF(2)2+*(&2*+L*3&)*<B63TWH/NF .1B8.MFJ.5B46 KP7
SN.MFJ.5B56 KP7ISN6 &"+OCU7H[A7ER 3OGT7L	L2 	W3PSE6 WO7TR +HCE3BSA6 WG+Y
S2 3F7ESE""*M.1Z560B 3R;I+TJ 7WSI3HF 2 	F3N3A6 CS7LOA3H"/+ICT7RSA+ICO+OKF*;?SH*M.1^520& 7FN ./;H60R 3H;E. V1"960.JV1*8B03P	R+NCT2"?C7NKG7AWT7LSA3I;O+S6 2-F 2 	D3ROE3T" +ICT3EWV+RCY3T7I+EJ..MFJ.5B96 KP7ISN.MFJ.6B06 KP7ISN* *"************************""*M.1F
60B 3R;IT*M.1J620^ 3O?T. B5.MFJ.6B32 ;ED*MBZ

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