File SALVO.BA (BASIC source file)

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

.1B060J +ECM****2 GS3L?V6 	B2 GL7R	R2 	S3EWGL*M.1F060J +ECM****2 GL+SCT7R[E3I	S+OCN.6&/./N7.MFJ.0B22 WR+M* **B*3CWH3CWK3D> +UCT+OCN7RSS3SV/6 	B2 GD+VCE3A3H2,R 3I	G3T3A.MFJ.0B32 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C.
B124R03IGM.(B1.,B12)J,.(B1.,B12)N,*(&7*,D*72)/EF(*22)/FF(*22)/GF(*22)/HF(*22)/KF(.0F,"06).JB125207E+T.8B=.MFJ.0B67FKO/WF=/TGO"2*M.1^020WL+TE/W6)"-61.JB128203ET*(	W.=F-.MFJ.0B97NET7W.JF120Z07OR6=R1/OB1.MFJ.1B17FKO/YF=/TGO"0*M.1J120WL+TB7X&,.)B=.MFJ.1B37NET
Y.JF124:07ESXX*M.1V120?F/R7X21?T"162.JF126203E[T*(	X"=60.JF127203E
T*(	X"=60.JF128:07ESXX*M.1&120?F/R7X21?T"160.JJ120Z07O	R6=R1/OB1.MFJ.2B17LSE7A"(*,	Y"=60.JJ122:07ESXY*M.1N220WN7XT.MFJ.2B47FKO/KR=/TGO3SWT/PF-.MFJ.2B57LSE/U66"0*M.1Z220?G3SKU.2F9"0*M.1^220WD3F;F3A.(*)"=25.-.)N**-*27ISN*(?K*4.)3S;G*(7K*16)"1*M.1"220WD3F;F3
.(2).=2+;I3T.(*/&42-
S3N.(*-&1.MFJ.2B97I[F.+KV*++V/V6220T/EGN.2B6.MFJ.3B07I	F*++V3FKN*(	K.>B13TWH/NJ1"660.JN121&0+F/Y3VZ*+NB/K2)21T/EGN.2B6.MFJ.3B27IF.+KV2*;F3B.(.)F>20T/EGN.2B6.MFJ.3B37IF.+KV2*;F3B.(.)F<3TWH/NJ1"660.JN124207EWT66V=.6F+.MFJ.3B57IWF.6J>25T/EGN.1B9.MFJ.3B67FKO/
B=3T[O+NBK6).JN127203E[T*(/Z3FGN*(	K6)"=.+KV"*7Z.JN128203E
T*(/Z3FGN*(	K6)&=*++VZ*M.1&320WN7X+T.MFJ.4B07LSE/U683FGN*(	K.MFJ.4B17FKO/Z627UR8/OU2+;F3B.(")*M.1J420?F/ROZ6=R1/OU"-61.JR123&07FGS+R"(7F*(*36)7F*(*2&)+^.2*(G+Z&3*-G+Z&2.)K^.)N<..&53TWH/NJ1"660.JR124:07ESXZ63.JR125:07ESXZ62.JR126Z07O+R6=R03O;F3B.(")*M.1^42
WL+TA7F*(.+U2)^,*(/Z+U&8*):=65N++GN/KF-*)"*/KF-*.&5.MFJ.4B87NET7Z.JR129:07ESXK*M.1B560KP7ISN2";E7TKE2 ?C3OSR3IGN7TOE2 ?F+R:.".6".JV161B03R;I3TJ"7AST7LOE7HCI""*M.1J520?F/R7X21?T"5*M.1N520;I7PSU7Y*,.MFJ.5B47LSE7B&(*,	Z"=63.JV125:07ESXX*M.1Z560KP7ISN6"KC7UOI
EKR.MFJ.5B77FKO/XF=/TOO.MFJ.5B87ICN7U	T",7Z.JV129203EKT*(3Y/Z6)"2*M.1B620WN7XT.MFJ.6B13P	R+NKT7DOE3T?R7YKE.<;A""*M.1J620?F/R7X21?T"2*M.1N620;I7PSU7Y*,.MFJ.6B47LSE7B&(*,	Z"=61.JZ125:07ESXX*M.1Z660KP7ISN2"WD7SKT3OWY3RJ<">6".JZ127Z07OR6=R1O62.JZ128&07NWP+T3Y
*M.1&620WL+TB7Y*,*):="5*M.1B720WN7XT.MFJ.7B13P	R+NKT+DCO7YWO2 GW+NCT+TCO3SGT+RKT";*M.1J720;I7PSUJ6$.J^1*3B0+ICF/J2$6>^"7HKE+EB"3TWH/NF .8B9.MFJ.7B43P	R+NKT7BSA3TWL3S	HP6".J^125Z07O+R6=R1O65.J^166B03R;I+TF/Z.)7G*(")*M.1^720WN7X+T.MFJ.7B83P	R+NKT7CWR3IWSR6"
J^169B03R;I+TF.6.)/GZ(")*M.1B860KP7ISN/F^(2)^;*(&7.MFJ.8B13P	R3N[T*(&8*;G"86).J"162B03R;I3TR"7ESS7R	O/E3R+AJ>.MFJ.8B33P	R3N[T*(&9*;G"96).J"164B03R;I+TF*1&0*;G*1&0.MFJ.8B53P	R+NKT7DOE3T?R7YKE.<;B""*M.1Z860KP7ISN/FF(.1.)/GF("16).J"167B03R;I+TF*1&2*;G*1&2.MF
.8B87GSO/O^1"160.J"129203EOT"=60.J&160B03R;I3TR"7O& +OCU3W;A7TR 7ON +ECE+MCY3S?H+TKS";*M.1F920;I7PSUK6$.J&162B03R;IT*M.1N920[I/J2$6>&"+EKS3TWH/NZ2"260.J&164J0+E+M****************6*SS7ASR.MFJ.9B53I+F.$:<2"WY7SR"3H;E.1&9"0*M.1Z920WL/T7C/CF+.MFJ.9B73P	RN7T.J
1*8B03P	R+NCT6"WT+RKN";7C.J&129203EGT"=60.JB220Z07O
R.=V./TOO3SWT/PV..MJJ.0B17FKO/XF=/TGO"0*M.2J020?F/R7Y21?T"160.JB223&0+FB7X&,6)^=3TWH/NB2"760.JB224:07ESXY*M.2V020WN7XT.MJJ.0B67GSO/OB2"860.JB227203EGT*=/A7ISN*(/W*.&5.MJJ.0B87NET7W.JB229Z07O
R6=R1O67.JF220203EOT*(	W"=60.JF221203EST*(	W"=60.JF222203E[T*(	W"=60.JF223203E
T*(	W"=60.JF224:07ESXW*M.2V120WL/TOP"=60.JF226Z07OR6=R1/OB1.MJJ.1B77FKO/YF=/TGO"0*M.2"120[I7A"(*,	Y.>B13TWH/NJ2"060.JF229207ECT63B=.3F+.MJJ.2B07NET7Y.JJ221:07ESXX*M.2J260KP7ISN2"?Y3U" 3AWV2"F;6;N"7HSOS6".JJ223&0/FOP2>F=3TWH/NJ2"660.JJ264B03R;I7TR"+HCE3N7U
BKE2 [O2 ?Y+UCR3S?H+TCS3EOX3ESE7SR +HCE3N7U7BKE2 [O2 3B3A/N6 GS7UKA+EKS.MJJ.2B57GSO/O"2"960.JJ226&0/F3A6>R03H;E.2&2"0*M.2^260KP7ISN*"CI7H[A7E^ +OKN.MJJ.2B83S?TP*M.2&220?F/R7W21?TA*M.2B320;I7PSU7X&,.MJJ.3B17IF2<&>+NT7XR)3H;E.2^3"0*M.2J320[I/XF>20T/EKN.3B7.
JJ.3B37IF6<R13H;E.2^3"0*M.2R320[I/Y:<7ISN*(	Y3TWH/NN2"760.JN225&0/F;Y61R03H;E.2^3"0*M.2Z320[I/Y6>21T/EKN.3B9.MJJ.3B73P	R+NKT3I3L3EGG+LB,7ESN+ECR3AGG+IKN.MJJ.3B87GSO/ON2"060.JN229&0+FA7X&,.)F>20T/EKN.4B4.MJJ.4B07LSE7C^(6)"=.MJJ.4B17LSE7D^(6)&=.MJJ.4B27NET7
.JR223^03O?T.2Z4"0*M.2R460KP7ISN2"?Y7UN 7HSO2 T3EWR2 WB7FKO3E> 7NR 3U;R2"F;*(3X+Y6)"160.JR225^03O?T.2B3"0*M.2Z420?F/R7W21?TA*M.2^420[I3AN(*(	W*,D+W&)6=R33H;E.2R5"0*M.2"420[I3AN(*(	W*,D+W&)6=R23H;E.2Z5"0*M.2&420[I3AN(*(	W*,D+W&)6=R13H;E.2"5"0*M.2B520[I3AN(
(	W*,D+W&).=V.3TWH/NZ2"060.JV221203EGT*(C+W2)7D^(.)6)*1.0C*M.2J520WN7X
T.MJJ.5B37GSO/OZ2"260.JV264B03R;I7T&"+OCU7HSI6 	M2 GB3T3T3ES+IKP.MJJ.5B57GSO/OV2"160.JV266B03R;I7T&"+OCU7HSI6 	M6 KC7UOI+EKR.MJJ.5B77GSO/OV2"160.JV268B03R;I7T&"+OCU7HSI6 	M2 WD7SKT3OWY3RF<">6".JV229^03O?T.2F5"0*M.2B660KP7ISN2"?Y3U" +ICT+MCY7DOE3T?R7YKE.<;
""*M.2F620?G/TKO.5B1.MJJ.6B27LSE/AB=.MJJ.6B33I+F*$J=7YOE2"T/EKN.6B7.MJJ.6B47LSE3CN="+61.JZ265B03R;IT*M.2Z660KP7ISN6"WT+RKN";7C.JZ227203EGT"=60.JZ228Z07O
R.=V./TOO6.N17TCE".65.JZ229Z07OR6=R1/OB1.MJJ.7B07FKO/YF=/TGO"0*M.2F720[I7A"(*,	Y6=SW3H;E.2V7"0*M.2J720WN7X	T.MJJ.7B37NET7X.J^224^03O?T.2Z7"0*M.2V720WL/T7A3A&++NT+W:+"56).J^226:07ESXW*M.2^720WL/TOP"=60.J^228Z07OR6=R1/OB1.MJJ.7B97FKO/YF=/TGO"0*M.2B820[I7B"(
,	Y.>B13TWH/N"2"260.J"221207ECT63B=.3F+.MJJ.8B27NET7Y.J"223:07ESXX*M.2R860KP7ISN*"CI7H[A/E."+AJ;3S?H+TKS.MJJ.8B57ICF23F>3TWH/N"2"860.J"266B03R;I7TR"+HCE3N7U7BKE2 [O6 	M2 S7OOT6 E3CWE+DCS3TWH6 WN3MWB3R> 3FJ 3L;A7KN 3QGU7ROE""*M.2^820?G/TKO.2B7.MJJ.8B83IGF.
B>3TWH/N&2"660.J"269B03R;I7T&"+OCU7H[A7E^ +OKN.MJJ.9B03S?TP*M.2F920WL/T7X7ISN6(J(+ND*-&1.*B1.)F+")*M.2J920WL/T7Y7ISN6(J(+ND*-&1.*B1.)F+")*M.2N920WL/T7V7ISN*(*33RSN.(F-.)F-")*M.2R920WL/TKV2=;I/TN(2*;R+D6(*16)"16).J&265J07EWTR7N.J&226Z07O
R6=R1/OJ1.MJJ.9B73IF*(	W6>R03H;E.3B8"0*M.2"920WN7X
T.MJJ.9B93R7E****************6*J*3ASNO7M.JB320207E
T"=60.JB321207EKT.3B=.MNJ.0B27GOO/UKB.9B1.MNJ.0B37ROE7TKOE*M.3R020WL/TKR"=60.JB325207EKT63J=.3F+.MNJ.0B67IKF.3F>60R03H;E.3F0"0*M.3^020[I/XF>20T/EON.1B1.MNJ.0B87IF6>R03H;E.3J1"0*M.3&020WL/T7X21&++NT3RSN.(F-.)J**.&5.MNJ.1B07GSO/OF3"260.JF321207ET.=B12-;I7TJ
+ND*-&1**:2"56).JF322&0/F;Y61R03H;E.3Z1"0*M.3N120[I/YB>3TWH/NJ3"760.JF324207E	T*=.17ISN2(;R+D6(*1*).2V.")*M.3V120?G/TOO.2B7.MNJ.1B67LSE/YF=20&-+NT3RSN.(F-.)J**.&5.MNJ.1B77GSO/OJ3"760.JF328203E[T*(	W"=7X.JF329203E
T*(	W"=7Y.JJ320&0/F7W3AT/EON.3B8.MNJ.2B17IKF.2Z=3TWH/NB3"360.JJ362J03ESA+X21Y61.JJ323207EKT62J=.2F+.MNJ.2B47DSA+A21*16,.1F,*,21*-23.1F,*,20*26,.1F,.MNJ.2B57LSE7X"=.+GX.MNJ.2B67LSE7Y&=.+GY.MNJ.2B77IF.>B13TWH/NJ3"160.JJ328&0/F3X21T/EON.2B1.MNJ.2B97I	F.>B13T
H/NJ3"160.JN320&0/F3Y21T/EON.2B1.MNJ.3B13IKF*(3X/Y:)61R03H;E.3F2"0*M.3J320?F/R	Q6=R1O7W.JN323&0+FF+Q&96<">3TWH/NN3"560.JN324&0+FG+Q&96=SY3H;E.3F2"0*M.3V320WN7XGT"9*M.3Z320WL/T7W/WF+.MNJ.3B77GSO/OF3"860.JN328&0+FSK*<J>7YOE2"T/EON.4B2.MNJ.3B97FKO/Z6521?TA*M
3B460KP7ISN7F*(.5.)7G*("56).JR321:07ESXZ65.JR322Z07O
R6=R1O7A.JR323&0+FB7F^(2)^,*(	W.)N=3TWH/NV3"060.JR324&0+FB7F^(2)^,*(	W.)J=3TWH/NV3"260.JR325&0+FB7F^(2)^,*(	W.)F=3TWH/NV3"660.JR326&0+FB7F^(2)^,*(	W*):=25T/EON.5B4.MNJ.4B77LSE3BZ(*(	W*,G+W&).=B1"+7C.JR328:07ESXW*M.3&420?G/TGO.9B5.MNJ.5B03P	R+NKT3I" +ICT7Y
O3RJ 7AST7LOE7HCI""*M.3F520?G/TOO.5B7.MNJ.5B23P	R+NKT3I" +ICT7YWO3RN 3R	U7SKE""*M.3N520?G/TOO.5B7.MNJ.5B43P	R+NKT3I" +ICT7YWO3RR 7ESS7R	O/E3R+BJ>.MNJ.5B57GSO/OV3"760.JV366B03R;I3T&"2 	H7T& 7OKU2 WD7SKT3OWY3RF<">6".JV327Z07OGR6=R1/OJ1.MNJ.5B83IWF*(	Q*<6>21
/EON.7B3.MNJ.5B97LSE7EF(.)F=20N+.MNJ.6B07LSE7HF(2)J=*(F+W2)7G^(")6).JZ321203E7T.3B=.MNJ.6B27FKO/M6221?T"162.JZ323&0+FH+M&22<">*(	Q3TWH/NZ3"560.JZ32460236=.3F+.MNJ.6B57NE/TKM.MNJ.6B63I7F.3:<7ISN*(H+Q.)*.&5*+.17ISN2(;I3T"(*(	Q.+V..)N/2)T/EON.4B7.MNJ.6B77FKO
M6221?T"162.JZ328&0+FH+M&22<">*(	Q3TWH/N^3"160.JZ329203EWT.(KM*)6="1*M.3B720WL+TH+M&2.=F-.MNJ.7B17NE/TKM.MNJ.7B27GSO/OR3"760.J^323:07ESXQ*M.3R760KP7ISN6"KP7OKG+ACM3A?B/R+T""*M.3V720?F/R7Q21?T"162.J^366B03R;I3TV".(."+QJ;*)J=*;EQ6).J^367B03R;I3T"".(."+QJ;*)
=*;HQ6).J^328:07ESXQ*M.3&760SSO7P.J"360J0+E+M****************6*OU3I
N7EKA7R	A.MNJ.8B17FKO/RF=/TGO"0*M.3J820?F/R7S21?T"160.J"323203E/T*(3R/S6)"0*M.3R820WN7XOT.MNJ.8B57NET7R.J"326Z07OWR6=R1/OJ1.MNJ.8B73IWF*(	U.<B13TWH/NB4"260.J"328Z07OKR6=R1/OB1.MNJ.8B97FKO/SF=/TGO"0*M.3B920[I7BJ(*,	S.<B13TWH/N&3"360.J&321203E/T*(3R/S6).-B1
0B0"060.J&322^03O?T.4B0"0*M.3N920?F/R7M3S;G*(617RR)3O
S/NF(60J-")*M.3R920?F/R7N3S;G*(617SR)3O
S/NF(60N-")*M.3V920[I3N6+*++N/MB=3TWH/N&3"860.J&326&0+FB3R6+*,/S/N2)*>E7UR)3H;E.3"9"0*M.3^920WL+TK7RN,2).=*(3R+S.)7EV(.)J-2*;I3T"(*(	U.+V.")*M.3"920WN3X;T.MNJ.9B97NET7M.JB420:07ESXS*M.4F020WN7XKT.MRJ.0B27NET7U.JB423Z07OKR6=R1O7A.JB424203E[T*(	R"=7R.JB4252
3E
T*(	R"=7R.JB426:07ESXR*M.4^020?F/R7R21?T"160.JB428Z07OOR6=R1/OB1.MRJ.0B97LSE/Q69"1*M.4B120?F/R7M21?TA*M.4F120[I3KZ(*(	M*,G+M&)2>.=*(F+Q&9*,G+Q&92)T/ESN.1B3.MRJ.1B27LSE/Q69M*M.4N120WN3X7T.MRJ.1F32 [I. ;R3AT/ESN.1B4.MRJ.1J32 [I. 7R7SR 3H;E. J4"160.JF424&0+F
7RN,2).<*(F+Q&9*,G+Q&92)T/ESN.2B1.MRJ.1B57FKO/MF=3TGO.MRJ.1B63I[F*(	M6<J>3TWH/NF4"960.JF427&0+FG/M6)3ST/ESN.2B1.MRJ.1B87NET7M.JF4*9B07FF(.96)R*M.4B220^ .(	Q6)N=.MRJ.2B12 WN+XCTS*M.4J220: 7ESX" 7R.JJ4*3B07GSO/ON .3B8.MRJ.2B42 ;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