File CIVILW.BA (BASIC source file)

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

CE. WHAT KIND OF?XPLEASE LEAVE THE MONEY ON THE TERMINAL. ?ZIS YOUR PROBLEM TOO MUCH OR TOO LITTLE?ZIF IT BOTHERS YOU, TAKE A COLD SHOWER ?[, I DON	T UNDERSTAND YOUR ANSWER OF 	 ?\JUST A SIMPLE 	YES	 OR 	NO	 PLEASE, ?]. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* ?
, I CAN SOLVE ALL KINDS OF PROBLEMS ?]WHAT KIND (SEX, MONEY, HEALTH, JOB) ?]THAT WILL BE $5.00 FOR THE ADVICE,  ?]BEAT MY KEYBOARD. MY ADVICE TO YOU  ?]ANY MORE PROBLEMS YOU WANT SOLVED,  ?
.  ARE YOU ENJOYING YOURSELF HERE ?
HELLO, MY NAME IS PETEY P. EIGHT. ? SO YOU WON	T NEED SO MUCH MONEY?? NOW LET ME TALK TO SOMEONE ELSE.?!, I	M BROKE TOO. WHY DON	T YOU  ???? YOU LEFT NO MONEY AT ALL! ?RESPOND WITH A 	YES	 OR 	NO	. ?%BRIGHTEN UP YOUR STAY A BIT ?&OH, I	M GLAD TO HEAR THAT
?&I CAN SYMPATHIZE WITH YOU ?&IN BEAUTIFUL MAYNARD, MASS?	     3. GO TO BED (ALONE) ?), BUT HOW DO YOU EXPECT ?)     1. TAKE TWO ASPRIN ?)OH, SORRY TO HEAR THAT  ?)DON	T GET ALL SHOOK UP  ?)DID YOU LEAVE THE MONEY ?-. HAVE A NICE DAY!! ?., YOUR ANSWER OF 
?/	 IS GREEK TO ME. ?/WHY ARE YOU HERE  ?/NICE MEETING YOU  ?/MY ADVICE TO YOU  ?0. I HAVE TO WORK?0YOUR ANSWER OF 	?0WHAT	S YOUR NAME?0PAY THEIR BILLS??1? YOU SHOULD BE ?1	 CONFUSES ME,  ?1THAT	S HONEST,  ?2, MAYBE WE CAN?3, JUST ANSWER ?4REAL ACTION.?6 
I THERE ?6TOO LITTLE?7RIP OFF,  ?8. PLEASE?8TOO MUCH?9SORRY,  ?9OR JOB) ?:HEALTH?;, IS: ?;SAY,  ?;MONEY ?;HEY,  ?<, IS?<OH, ?=YES ?=SEX ?=JOB ?>	.?>NO??. ??  (]2)>8)\2)?&)L2)?6)W2)?89)2)?>2^2)?
7Z2)?08^2)?62L2)?
4.2)?&9^2)?=9-2)??/32)?[9	2)?>.E2)?P4R2)?&5$2)?)8G2)?24C2)?%9L2)?;0-2)?].^2)?R-,2)?P8?2)?9)R2)?89!2)?=9D2)?:9P2)?;9$2)?=9[2)?<6V2)?.6 2)?/4 2)?&7H2)?0*I2)?F1&2)?]9X2)?<-S2)?P8:2)?93R2)?!+"2)?H202)? 6>2)?/9H2)?;5W2)?)+E2)?H4<2)?	/K2)?Z852)?88$2)?6512)?)8O2
?3*	2)?G,\2)?I/
2)?Z9+2)??6*2)?/7,2)?1+?2)?H8W2)?4192)?])G2)?80G2)?\12)?]1S2)?].62)?X5>2)?))B2)?87Q2)?0752)?1802)?8332)?9T2)?;32)?,92)?O8*2)?70Z2)?]7>2)?15J2)?))*2)?E72)?03A2)? 642)?/6K2)?-APC\DZD/IUE!DD+D	MUZ%$QB^<HELLOBA??N
^ R
R R!*W2C.VHN%>6>G3T6(*2"*.1B0.-KI.)J/.0B0*+:0*5B).MFJ*0B57LSE. GF*=*5+M>1"6*M.1Z02 WL3TF 61*=" *M.1^02 ?F7RV *=B1+TCO"46 .JB168B 3R;IT*M.1&02 WN+XCTU6 .JF160B 3R;I+TJ 3T	H3S& 7SR +HCE7BSA3TWL2 [O. .".MFJ*1B57GOO+UCB.8B0.MFJ*2B03P	R+NCT*"J 2,N"3O[N3EWD3ROA
Y2"*"B 3U	N+OKN.MFJ*3B03P	R+NCT2"WM+N2"*"J 2;;I3T6(*1"**1"++P61+T&12/6(.3F+*)&)*,B"""6;.JN161B 3R;I3T& +NT+M*2*(.1.(KP.-KT*)"/+M.4*1&)")6 .JR160B 3R;I+TJ 3M;O+EKY*,R"2"R;*1J,.$."D62.JV160B 3R;I+TJ 3I[N7LSA3I;O*"J,. ."+I.1.1.5*"J%*,B"2"&;*2J;*%B".MFJ*6B03P
RN7T.J^160B 3R;I+TJ 7H
O6 WM+CCH+DCO7YWO2 	W+SCH+TCO3SWP+NCD7FKO2 ?F+OKD";*M.1B82 ;I7PSU" 7F.J"125& 3FZ *<B03TWH/N^ "560.J&160B 3R;I+TJ 7H
O6 WM+CCH+DCO7YWO2 	W+SCH+TCO3SWP+NCD7FKO2 GS7LKA7IOE""6;.JB220& 7NWP7TN .MJJ*0B5+ICF/SB<2 T+ECN.7B5.MJJ*1B03P	R+NCT2"?H3W6 3UC2 ?D2 ?Y7U^ 3IS2 ?T6 CS3ESN2 ?F3RF 7MWM7NSI3I;O""6;.JJ220& 7NWP3TJ .MJJ*2B1+ICF/BB<2 T+ECN.7B5.MJJ*2B23P	RN7T.JJ224& 3FZ *+/S/B6
+DB13TWH/NJ "360.JJ266B 3R;I+TJ 3T	H+NCK3AGG+IGN6 & +OCU7H[A3E> 7N	L* J$.;GD.MJJ*2B87GSO/OF *6B0.MJJ*3B07LSE. 7O.(J(6*;F62N++^&2./GF+^.2*1B).MJJ*3B5+ICF/OF<60R 3H;E. Z2"06 .JR260B 3R;I+TJ 7MKO3AWL6 OI2 	H+GKH" *M.2B52 ?G+TCO.3B0" *M.2B62 [I. 3O65R 3H;E. &
"0*M.2B76 KP7ISN2 6"3OGR+LCE+ICS3F	A+RB".MJJ*8B07GSO/ON *0B0.MJJ*9B03P	R+NCT2"?M3R3A3E& 7SB 7OKO""6 .JB320& 3F6 .<N>2 T+ECN.3B3" *M.3B16 KP7ISN6 &"+OCU3AWR2 ;O2 T3E> 3FWF3N	S+VKE" *M.3B22 ?G+TCO.3B7" *M.3B32 [I. 3M*>B13TWH/NN *6B0.MNJ*4B03P	R+NCT2"?Y3UF +
CE+OCN3TWH2 WD3F;E7S[I+EB".MNJ*5B07GSO/ON *7B0.MNJ*6B03P	R+NCT2"?B+TCH3SSI+ECS3AWR2 ;O2 T3E> 3FWF3N	S+VKE.MNJ*7B03P	RN7T.J"360B 3R;I+TJ 7YWO7RN 3TGR3T
E/Y.".MNJ*9B07ICN+UCTY*M.3F92 [I. 7Y65R 3H;E. R1*8B7.MNJ*9B2+ICF7AOB*(7Y.32)63R 3H;E. &3"56 .J&363B 3R;I+TJ 7YWO2 WJ+RGK6 V +SCE3TWH6 SO7HKE2 WS3T> 7FN 3TGR3T
E7IOE*!J!" *M.3R92 ?G+TCO.3B7" *M.3V96 KP7ISN.MRJ*0B03P	R+NCT*"J 2,N"3O[N3EWD3ROA+Y2"2";U3I;O""*M.4B12 WL3TN *5"=22N*.1V/*)"*.1F+./J(2*F(+BS7ISN*(*43RSN*(&1*+&1*-	Y*+&1*)B).MRJ*1B27LSE. WC2=;I3TN(*5"*.1F+*/	O.*F(.."2.+GF2/J(*+&1.)B+*.&5" *M.4R12 [I. WC.+B
20>/.<GM.*F(6+B(61R-*1>).(OM*+&16)R 3H;E. J4"46 .JF4262 +ECT/C657ISN.(N1.*GM./B2.*F(6+B(61R-*1>).(OM*+&1")6).JF4282 +ECT/E^=.*WC./N1.MRJ*2B07LSE. 7U"1*M.4J22 ?G+TCO.4Z2" *M.4R22 WL3TV .=B120>/.MRJ*2B63P	R+NCT2"GC3SGU3L	T+EKS.,WC2,;I/TF(27N*22N**1"/+C*5*2&
*+:0"56).JN460B 3R;I+TJ 7DOE7ESR3I;O+S2"7ISN*(	E2,;I/TV(**	O" *M.4J36 KP7ISN.MRJ*3B3+ICF+C65/C:1*=B03TWH/NR *3B9.MRJ*3B53P	R+NCT2"?Y+UCR7COA3U3A3TWI7S^ 3EWR2"&;+NT.1B02*N(21N-*5>)+C.1.0V.*)J;2%2 7EOS2 T+AKN.MRJ*3B77GSO/OR *4B1.MRJ*3B93P	R+NCT2"?Y+UCR7COA3
3A3TWI7S^ 3EWR2"&;+NT.1B02*N(25N-*1>)+C.1.0V.*)J;2%6 3OWR2 T+AKN.MRJ*4B13P	R+NCT2"T3EF 7CWT+ACL7COA3U3A3I	T+ECS+ACT""6;.JR4232 +ECT/A61"16 .JR425^ 7ON /UB"060.JV420& 7FV *=B13TWH/NR "760.JZ420& 3FN 25V+.<^1.*KC.*GC2/N(.5J**0.)25>*2 T+ECN.4B9.MRJ*7B03P	R+N
T2"?Y3U2 3OWS. ."" *M.4F72 WL3T2 *=/L"1*M.4B82 ?G+TCO.5V5" *M.4B96 KP7ISN6 &"+OCU3W;I. .".MRJ*9B17LSE. 7W/WF+.MVJ*5B57GOO+UCB.8B0.MVJ*5B6+ICF/W"=2 T+ECN.1&4"06 .J"5202 +ECT/T61+T.1+C.5E6 .J&5202 +ECT/T62+T.2*1*7+C*2+C>1.(WC.*B2.)V+**CO.MZJ*0B07LSE. GP.=GP
+GC" *M.6B12 WL7TB 62B=22N+"26 .JJ6202 +ECT/Q61+Q.1*(/F3SJ+")*M.6B32 WL7TJ 61J=216+*1"*.1B0.-GI.)J/"06 .JN6252 3E7T236=236+"1*M.6^32 WL3T6 246=246+"26 .JV620& 3FF .=R12 T+ECN.1B5"0*M.6B62 ?G+TCO.1B0" *M.6B72 GD+TCA.1B8*020.1V8*020.1Z9.7J,.7"0*,21.1B," *M.
J72 GD+TCA.4B0*020.4"4*924.1Z0*929.1B3*427.3J,*,B0.MZJ*7B47DSA/A& .5B0.0F,.1B5*020.2Z0*124.1"5*429.3N,",60.J^626R 3AGT. R5.0B0.,N6.0B0.,B1.0B0.,R1.0B0*,22.4B," *M.6"72 GD+TCA.4B0*020.5B0*020.1B0*020.1B2*020.3V,*,B0.MZJ*8B07DSA/A^ .5B0.0F,.2B0*020.5^3.7F,.
V6.3F,*,26"06 .J"622R 3AGT. "3.0B0.,V4.0B0.,F1.0B0.,J1.0B0*,21.7B," *M.6R82 GD+TCA.3B2*020.9B0*020.1B3*020.1F7*927.2",*,B0.MZJ*8B67DSA/AV .0B0.0^,.0B0.0F,.2B0.0F,.9B0.0F,*,29"06 .J"628R 3AGT. J7.5B0.,V8.0B0.,B2.0B0.,N2.0B0*,23*120"0*M.6B92 GD+TCA.6B6*020.
B0*020.1B8*020.1B6*020.2F,.1B,.MZJ*9B27DSA/AN .7B0.0Z,.0B0.0Z,.7B0.,"5*020.2F,.2B,.MZJ*9B47DSA/AZ .2B0.0F,.1B0*020.1^7*223.1B8*020.2F,.3B," *M.6Z92 GD+TCA.6B5*020.1B0.0B0.,V8*020.3B7.0F,.,R1*,B0.M^J*5B03P	R+NCT2"?G2 ?T2 GJ+I;L""*M.7J56 KP7ISN2 ^"3OR 3IWR3
3T7YR 3O* 3A3I*.B".M^J*5B43P	R+NCT2"?D2 ?N7TB 7AOS2 ?G".6".JV766B 3R;I+TJ +DCO7NSO2 ?C3LWL+CCT.$B2"06".JV728^ 3O?T. B1"76 .JB820& 3FF .<F>2 T+ECN.8B5" *M.8B16 KP7ISN2 J"3U3L6 WR+NB".M"J*2B0+ICF/A6161R 3H;E. R1"860.JN860KP7ISN6"WJ+LCY*221.1Z8*1B 2 ^ +E;N2 
B7AKU3EGG+RCD3C7O3M;A3D;I7GR +HCE7SWO+TCH7MSE2 T+EB".M"J63B23R;I7TV"3N?I3NZ 3OOR+ECS7WSI3H^ +ECN3MSC3OWW+LCL+ICN7AB 3R7E7AWT+RCE7BSA3TWL6 SA6 WB+LKL" *M.8R33P	R+NKT3R;U*.B 3G;E2.* 3A/C3S;O2 WH3LWP7DB 3US2 GB+CCK3TWH2 ;U3I;O6 SA3TOA+KJ..M"J*4B0+GCO+TCO.1"4
06 .JV820& 3FF .<J>2 T+ECN.9B0" *M.8B66 KP7ISN6 N"3H3I+OKH" *M.8B72 [I. GA*=B13TWH/NF .4B8.M"J68B03R;I3TF"3P	R/LZ *-27.1Z8*2B 6 R +HCE3C;O3FSE3EGR+TCE7SKU3P	R+SCE7AST3A/C6 SA2 S3I?LH6".J"862KP7ISN2"GF3IWL3DR +UCE+TCO3P?O3R> 3RGG7N+I3A	T+O;N""6 .J&820^ 7OR
/OF .4B8" *M.9B02 [I. 3A*>B33TWH/N& *5B0.M&J*1B03P	R+NCT2"WS3V;E2 GD+YKS" *M.9B22 [I. GA*=B13TWH/NF .4B8.M&J63B03R;I3T*"3UWN. V26-WJ+LCY.1F,.8J6* B 2 WG7NKE+ACL3LWE2 N(+S	A6 CU3H3E7DR +HCE3O[F7EON3IWV""*M.9J33P	R+NKT7TKH3O
U7HWO7TR +HCE7BSA3TWL2 ;A3DZ 3OOR+ECD3G;E2.6 3C3C3E3L+ACN3ASN2 T7EV 3N?IN6".JN964KP7ISN2"?F3RWC3SF 7W	A6 KF+OCM3ROI3H?M+N;D""6 .JR920^ 7OR /OF .4B8" *M.9B52 [I. 3A*>B43TWH/NF .0B0.M&J*6B03P	R+NCT2"T7EN 3E?C+NCD3B3U7LJ +UKN.M&J*7B0+ICF/A6161R 3H;E. R1"860.
"960KP7ISN6"WA/GJ .9N-.0F,.8J6* B 2 T3EN 3OKM3IWN3DN 3O[N3EWD7RSA3EZ 3OOR+ECS3USN+ECR3LWE2 ;AD6".J"962KP7ISN2"GJ7COK+OCN3D?R+VCE3TWH2 ;U3I;O2 ?F3RWC3SJ 3A/C2 ;I+TCO7WOA3H;I3G?T+NJ." *M.9B92 ?G2 ?T. R1*8B0.MFJ.0B02 [I. 3A*>B53TWH/NF .0B5.MFJ.0B16 KP7ISN2 F
3N	T3EGT+MB".MFJ.0B22 [I. GA*=B13TWH/NF .4B8.MFJ.0B33P	R+NKT7SCE/TF .7F,.8J6* B 2 T7EN 7OSU3HZ 3A3I+ECD+TCO3ION7OCR3OGR+TCE7MKA3YGL+NCD7ISNO6".JB163B23R;I7TR"+HCE3C;O3FSE3EGR+C;Y""6 .JB1*4B0+GCO+TCO.1"4"06 .JB1*5B0+ICF/A:<66R 3H;E. F1"060.JB1*6B03P	R+NCT6
KF3EWD3ROI3KKS3U
R""6 .JB1*7B0+ICF/A6161R 3H;E. R1"860.JB168B03R;I3TR"+ECC*123.1Z862R +HCE3C;O3FSE3EGR+CCY3USN+ECR3LWE6 WS7COE7SWF7L	L2 WR3P3U3SSE""6 .JB168B23R;I3TF"3NF 3TGT+CCK+BCY3TWH2 ;U3I;O2 ;U7DKE2 WG+NB.7BKU3N	S+D;E""*M.1&020^ 3O?T. R1"860.JF1*0B0+ICF/A2 *>B73TWH/N
 .1B5" *M.1F160B 3R;I+TJ 7MKU3FWR3EKS3O?R""6 .JF1*2B0+ICF/A6161R 3H;E. R1"860.JF163B03R;I3TR"+ECC*321.1Z8*2B 6 R +HCE7SWO+TCH3USN+ECR3G;E2.J 3R
A7G^ +OCN3AN 7LOO3EJ 7AST+LKE" *M.1R120^ 3O?T. R1"860.JF1*5B0+ICF/A:<68R 3H;E. J1"060.JF1*6B03P	R+NCT2"C3AON3E3L7OOR3V3I+LKE" *M.1^120& 3FF .1F=2 T+ECN.1"4"0*M.1"160KP7ISN2"GM/YF *-26.1Z8*3B 6 R +HCE7SWO+TCH3HSA* CA7COO7T	L2 	V3C?T+RCY3ASN2 ?L+SCT3OWN""*M
1"162KP7ISN2"[O2 T7EKI6 WO7TSS3ASN3I
N2 WG7NKE7AOL*,^ 3S?T7N
E3A3L2	* 3A/C3S;O".6".JF1*9B07GSO/OF .4B8.MFJ.2B02 [I. 3A*>B93TWH/NF .2B5.MFJ.2B16 KP7ISN6 Z"3I/C7SWB+RKG.MFJ.2B22 [I. GA*=B13TWH/NF .4B8.MFJ.2B33P	R+NKT3J3U/YR .,"1*6B3* B 3VOI3KKS3U
R2 GW3SF 2 ?C3S3T3YR 3EWF+ACT7FKO2 T7EN 7OSU+HB".MFJ.2J33P	R+NKT3BOE7AOU3E& 3T^ 3AWV2 T7EV 3N?I3NF 3CWC+SCS+TCO3TWH2 	M3S	S3S	S3P	P*.B".MFJ.2B42 ?G+TCO.1"4"0*M.1V220& 3FF .<F>60R 3H;E. N1*0B0.MFJ.2B66 KP7ISN2 ^"7EST3YKS3U
R""6 .JJ1*7B0+ICF/A6161R 3H;E. R1"860.JJ168B03R;I3T*"3UWN. B3.,"1*6B3* B 7AN 7OSU7HKE3N6 7ISS3AWK6 	B2 WG+NB.3LWE6 SA2 WG7T	T7SWB+RKG" *M.1"262KP7ISN2"?C+SCT3TWH3M> +NCE+OCF3TWH2 ?M+SCT7CWR3CGI3LJ 7AST7LOE2 [O2 T7R^ +A;R""*M.1&220^ 3O?T. R1"860.JN1*0B0+IC
/A:<*1B13TWH/NF .3B5" *M.1F360B 3R;I+TJ 3C	H3CGK7MWA+GKA.MFJ.3B22 [I. GA*=B13TWH/NF .4B8.MFJ.3B33P	R+NKT7N[O. V2.,"1*6B3* B 7ASF+ECR3TWH2 ?S3UT2 GH7DN 3I
E+ECD3G;E6.J 3OWS7NKC7AON*	B".MFJ.3J33P	R+NKT3A7R3YZ +OCR7TKH+ECE3M;O7TOH2,^ +E;N6 KG7ASN6 KB3OWK2 T7EN 3I
E+EJ." *M.1R320^ 3O?T. R1"860.JN1*5B0+ICF/A:<*1B23TWH/NF .4B0" *M.1Z360B 3R;I+TJ 3CGH3TGT3N?O+GKA.MFJ.3B72 [I. GA*=B13TWH/NF .4B8.MFJ.3B83P	R+NKT7SCE/TF .5F,.8N6* B 2 ?C7NWF3S?I3N& 3NF 2 ?F7ROE3T: 7EKA2 C3I/C3AGM3UGG2 WL+DB".MFJ.3J83P	R+NKT+TCO3AN 7OSS+LC
7SWO3TWH+RCN3VOI7TKO+YJ..MFJ.3B92 ?G+TCO.1"4"0*M.1B420& 3FF .<F>63R 3H;E. R1*5B0.MFJ.4B16 KP7ISN6 N"7PSO3S3Y3V;A+IKA" *M.1J420& 3FF .1F=2 T+ECN.1"4"0*M.1N460KP7ISN2"GM/YV .,"1*6B4* B 3GGR+N
T7SB 3L;A2 ?T2 WK+ECP3LWE6 OI3OGL3TSE2 WB3G;A2 ?T2 GF+IKL.MFJ.4J33P	R+NKT7HKE+EB,3ASN2 ?C3N	T3NWU3DF 3TN 3OSL2 GH3R?B3RF +NCD7PSE7EOR7BKU+GJ." *M.1R420^ 3O?T. R1"860.JR1*5B03P	R+NCT6"SA3L;A+TKA.MFJ.4B62 [I. GA*=B13TWH/NF .4B8.MFJ.4B73P	R+NKT3A
U7USS.,F .8R6* B 3SWH3RGM3NF +NCD7TKH+ECE7VSE3EGR3NF 3R	M+ECS3C;O7VKE3GSE2 ;O""6 .JR167B23R;I3TF"3TGL3NGT2 ;A3DR 3E3A7TR +HCE3DGE+TCH3B?L7WR 7OR +HCE3C;O3FSE3EGR+C;Y""6 .JR1*8B03P	RN7T.JR1*8B57RSE3U;R" *M.1"467B 3R;I+TJ 3TWH2 ?C3NWF7DKE7A	C2 GH7SN 7UKR3ES
3EWRD6".JR1*8B87GSO/OF .5B0.MFJ.4B96 KP7ISN6 R"+HCE3U	N+OCN7HOA6 WS3RWR3NWD3RSE""*M.1B560B 3R;IT*M.1F560B 3R;I+TJ 7YWO2 GH+VCE3W;O6"^;2;J"7AST7LOE2 ;A3D2 7OSS2"2;2;J"7AST7LOE".6".JV1*1B5+ICF/YV=2 T+ECN.1V5"06 .JV1*2B0+ICF/W6<7LR 3H;E. V1"560.JV1*3B03P	R+N
T2"T3EN 3O[N3IWD3ROA3Y" +ACS3W;O2 T7E^ +AKR.MFJ.5B46 SSO7P.JV1*5B03P	R+NCT2"T7EV 3N?I3N" +ACS3W;O2 T7E^ +AKR.MFJ.5B62 ;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