File BASKET.BA (BASIC source file)

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

65J 3ASN3O	MZ7E*JB63R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE*.:.3DOE.MFJ60B 3R;I+TJ 3T	H3S& 3SR 7ASR7MWO+TCH3C3O3L
E3EJ 3A/S3EKT3A3L*.B 7YWO2 	W+LCL+BCE7DKA3T?M3UT""*M*1B43D7I* SO.(Z2")*M*2B03P	R+NCT*"B 7CCA3T	A3NF +NCD3PGL3YGM7KKE2,N 3A3L2 S7OOT6 OA2 ?F3L?L/W+S*1B.3L;OG6".JB36 KP7ISN* B". N(20Z +TB)3J7U7PN 7HSO.;J 6.N 7HKO+T" *1B5+F	T6 WJ+MCP3S?H+TB;*3B.2 GLY6".JB46 
P7ISN* B"6 CU.;R 6.N +ECT3S?H+TJ..MZJ60B 3R;I+TJ 7BSO7HR 3E7A7S^ 3I3L6 OU7ER +HCE3S7A3ER 3EWF3NWS*.B 3C3A3LR 3EWF3NWS6 OA""*M*7B03P	R+NCT2"?F3L?L/W+S* B63PWR/S/S* :6256 +A7N+T7O3M;A.;^ 2 ?Z/N/E* :725: 3OWN".6".JJ76 KP7ISN* B"2 ?T2 C3A
N3ER 3EWF3NWS2,* 7USS6 R 3YWP* B0+ACS7YWO3R: 7ESX2 S+O;T""*M*7B43P	R+NCT2"?Y+UCR3SGT3R	T+NCG3D[E7EON7E^ 3I3L2 WB""6,.JZ72 ;I7PSU" 7D.J^72 [I. 3D66R 3H;E. B2"160.J&76 KP7ISN.M"J60B 3R;I+TJ 3C?H3OWS2 ?Y+UCR7OCP3OWN+NKT",*M*8B27ICN+UCTO6$.J^360B 3R;I+TJ 3C;E
TKE6 WJ+MKP.MNJ*9B0+ICF3RSN*(&0.>N */B53TWH/NR "260.JB460B 3R;I3T> *$J;2 ?C7NKT7OOL2 T7ER +A;P""*M.4B12 ?G2 ?T. B3"060.JJ460B 3R;I+TJ 7DKA3T?M3UT2 ?C7NKT7OOL2 T7ER +A;P""*M.4V26 KP7ISN.MRJ*3B03P	R+NCT2"?Y+UCR3S?H/T.".MRJ*3B57LSE. 7P"0*M.4B42 ;I7PSU" 7Z.JR
25& 7F* 2<&>+NT+ZB)3TWH/NR "565.JR426& 3FF +BCS*(7Z.2:)22T+ECN.4V5.MRJ*4B77GSO/OR "660.JV465B 3R;I+TJ 2 ;I7CKO3ROE3TF 7N
S+E;R2 WR7TCY3E& +TJ.";*M.4Z52 ?G/TSO"460.JZ420^ 3O?T. ^4"0*M.4B72 [I2 ;R/DB(*):<65R 3H;E. B1"060.J"420& 7FR .<B160R 3H;E. B1"060.J&460B 3R;IT*M.4F92 [I* S.12)*>S*0B)3TWH/NV "160.J&463B 3R;I+TJ * * ****2*V +NCD+OCF3SOE3OSN2 GH+LCF******J*.MRJ*9B63P	R+NCT*
B * B 2 GD3R7T7OSU+H2"/SF(2)>;*$J;. ."/SB(")*M.4^96 KP7ISN.MRJ*9B83P	R+NKT3B
E+ICN3T?W2 	M7NSU3E> 7VKE3T7I7EB 3E	R+OKD.MRJ*9B97LSE. 7T"963.JB520^ 7OR /ON "760.JF560B 3R;I+TJ * * ****2*V +NCD+OCF3G7A+E* ****"*6".JF565B 3R;I+TJ 3F;I+ACL3S?C/R+E2 GD3R7T7OSU/H."/SF(2)>;*$J;. ."/SB(")*M.5B26 SSO7P.JB660B 3R;IT*M.6B16 KP7ISN* B"****3T?W
 	M7NSU+ECS3L[E3T& 7NR +HCE3G7A+E* **J*.MZJ*2B03P	RN7T.JN660J 7EWTR7N.JB1*0B0+ICF/ZF=2 T+ECN.1R0"0*M.1J020& 7F* *=B23TWH/NF .0B4.MFJ.0Z32 ?G2 ?T. N1"060.JB1*4B07LSE. 7T/TF+.MFJ.0F42 [I. 7T*5B03TWH/N" .0B0.MFJ.0J42 [I. 7T*9B23TWH/NF .0Z4.MFJ.0N42 ?G2 ?T. B
"560.JB1*4B67GOO+UCB.6B0.MFJ.0B56 KP7ISN2 *"7UCM2 S+OKT.MFJ.0B62 [I2 ;R/DB(*):<.3F4**?D68R 3H;E. B1"960.JB1*7B03P	R+NCT2"S+OCT+ICS3G?O+DJ..MFJ.0V72 ?G3SKU. B7"060.JB1*8B5+GCO+TCO.3B0"0*M.1&020& 7FJ +ND.0:).."622R**/B83TWH/NF .2B0.MFJ.1B06 KP7ISN6 N"7HSO6 
I2 [O7FR 3A
R+E;T""*M.1B125& 3FR */*63RSN*(&0.>R.65R 3H;E. F1"360.JF1*1B03P	R+NCT2"GD3R7T7OSU3HN 7OSN3R3O7SR +HCE3RKE3O;U+DJ..MFJ.1B22 ?G2 ?T. F1"465.JF1*3B03P	R+NCT2"WR7BWO+NCD+TCO2">;*$J;".6".JF1*3B7+GCO+TCO.3B0"0*M.1R125& 7FJ +ND.0:)..B42 T/EGN.1"5.MFJ.1B52 ?G2 ?T
 N1"060.JF1*5B8+ICF/DZ=2 T+ECN.5B1"0*M.1Z160B 3R;I+TJ 3B3A7LB 7AOS+ECD3BOA7KR 7O& +O;U""6;.JF1*7B0+GCO+TCO.4B3.MFJ.1B82 [I2 ;R/DB(*):>69R 3H;E. F1"960.JF1*8B53P	R+NCT2"3P3AWY3RZ 3O3U+E3D6 
T7ON 7HSO+SJ..MFJ.1^82 ?G3SKU. B4"060.JF1*8B8+GCO+TCO.3B0"0*M.1&160B 3R;I+TJ 3B3A7LN 3T3O+E;N. ."/O.$6"N	2 GB+L;L""*M.1&125^ 7OR /ON .0B0.MFJ.2B02 [I2 ;R/DB(*):>.7J8**?D68R 3H;E. J1"560.JJ1*1B03P	R+NCT2"S+OCT+ICS3B?L3CWK+DB,3B3A3LN 7OSN3R3O3LSE6 	B""6;.JJ
*3B0+ICF3RSN*(&0.>V.2 T+ECN.1R2"2*M.1N265B 3R;I+TJ 7DKA3T?M3UT".6".JJ1*4B0+GCO+TCO.4B3.MFJ.2J46 KP7ISN* B"2">;*$J;".6".JJ1*4B5+GCO+TCO.3B0"0*M.1V220& 7FJ +ND.0:)..R823R**/B83TWH/NF .2B7.MFJ.2V56 KP7ISN6 N"3H?O7TKE6 OI2 ?F3UWL+DB.3T?W2 S7OOT".6".JJ1*6B07GO
+UCB.4B0"0*M.1^260B 3R;I+TJ 3CGH3R	G+NCG7FWO+LB,7DKA3T?M3UT2 ?L7SOE2 T3EJ 3A3L".6".JJ1*8B0+GCO+TCO.3B0"0*M.1B3202 +ECT7TR="+61.JN1*0B1+ICF/TV=60R 3H;E. B8"060.JN1*0B2+ICF/T&=62R 3H;E. N1"064.JN1*0B3+GCO+TCO.1B3"5*M.1B324^ 7OWS/BZ "060.JN1*0B5+ICF/ZB=2 T+E
N.2F0"0*M.1F320& 7F* *>B33TWH/NF .7B0.MFJ.3B26 KP7ISN2 2"+ACY+U;P""*M.1N320& /F^ */+D3RSN*(&0.>R.2 T+ECN.1Z3"0*M.1R360B 3R;I+TJ 3S?H3T& 3S^ 3OSO6,R +WCO3P	O7NOT".6".JN1*4B57GOO+UCB.7B0"0*M.1V325^ 7OR /ON .0B0.MFJ.3B62 [I* >77DJ*+ND.0:)*.B73TWH/NF .5B0.MFJ
3B76 KP7ISN6 N"7HSO6 OI2 [O7FR +HCE3R7I".6".JN1*8B0+ICF3RSN*(&0*>>263R 3H;E. R1"165.JN1*9B03P	R+NCT/O.$2"N 7OSN3R3O7SR +HCE3RKE3O;U+DJ..MFJ.4B02 ?G2 ?T. B3"060.JR1*1B53P	R+NCT2"GD3R7T7OSU3HN 7OSN3R3O7SR +HCE3RKE3O;U+DJ..MFJ.4B22 [I2 ;R/DB(*):>64R 3H;E. R1
460.JR1*3B0+GCO+TCO.1B3"0*M.1R460B 3R;I+TJ 3B3A7LB 7AOS+ECD3BOA7KR 7O& +O;U""6;.JR1*5B0+GCO+TCO.4B3.MFJ.5B02 [I* >77DJ*+ND.0:)..^865R 3H;E. Z1"060.JV1*1B03P	R+NKT3S?H3OWT3RZ 3O3U+E;D6 
T7ON 7HSO+SJ..MFJ.5B22 ?G3SKU. B4"060.JV1*3B0+GCO+TCO.3B0"0*M.1B620& /F^ */+D3RSN*(&0.>&.*2B53TWH/NF .6B3.MFJ.6B16 KP7ISN6 N"7HSO2 3B3O/C+E3D* 2"/O.$6"N	2 GB+L;L""*M.1J620^ 7OR /ON .0B0.MFJ.6B36 KP7ISN2 N"7HKA3G;I3GZ 3O3U2,R 7ASR7MWO+TCH7LOO+ECS3TWH2 GB+L
L""*M.1R620^ 7OR /ON .0B0.MFJ.7B06 KP7ISN6 N"+ECT3S?HT6".J^1*1B0+GCO+TCO.1N3"0*M.2F060B 3R;I+TJ 7YWO3R: +ECW3D[E7EON3IWV2 3A3L
I3NWM+NCT+IKS";*M.2J020& 7NWP3TR .MJJ.0B32 [I. 3D66R 3H;E. B2"160.JB2*4B0+GCO+TCO.4V2.MNJ.0B02 WL7TB "=61.JB3*0B57LSE. 7T/TF+.MNJ.0"02 [I. 7T*5B43TWH/N" .0B0.MNJ.0B12 [I. 7T*9B23TWH/NN .0V1.MNJ.0J12 ?G2 ?T. B3"168.JB3*1B57GOO+UCB.6B0.MNJ.0"16 KP7ISN.MNJ.0
2. GZ.=B1*/*43RSN*(&0"+61.JB3*3B0+ICF/Z:162R 3H;E. V3"060.JB3*4B03P	R+NCT6"WJ+MCP3S?HT6".JB3*5B0+ICF28R/2*;R/DB(*):>*3B53TWH/NN .1B0.MNJ.0B66 KP7ISN6 N"7HSO6 OI2 ?G+O;D""*M.3"020^ 7OWS/BZ .0B0.MNJ.0B92 ?G2 ?T. J4"5*M.3B120& /F" */+D3RSN*(&0.>^.65R 3H;E. J
"060.JF3*0B53P	R+NCT2"S+OCT+ICS3O[F2 T7EJ +I;M""*M.3F120& 3FR */*63RSN*(&0.>V.2 T+ECN.3V1"0*M.3J160B 3R;I+TJ 7DKA3T?M3UT2 ?C7NKT7OOL2 T7EJ 3E?B3USN".6".JF3*3B0+GCO+TCO.4V2.MNJ.1B56 KP7ISN* SO*;B"3C;O3T?R+LCS3TWH2 WR7BWO+N;D""*M.3Z120& +FB /DZ=2 T+ECN.5B0"
*M.3Z125& 7FJ +ND.0:)*.B53TWH/NF3"765.JF3*6B83P	R+NCT2"GP+SCS3BOA7KR +OJ *;SO*;B"3GGU+RKD.MNJ.1B72 ?G2 ?T. B3"060.JF3*7B5+GCO+TCO.3B5"0*M.3B220& /F" */+D3RSN*(&0.>&.2 T+ECN.3F3"0*M.3F260B 3R;I+TJ 3PGL7YKE2 ?F3UWL+DB,3T?W2 S7OOT".6".JJ3*2B07GOO+UCB.4B0"0*M
3N220^ 7OR /OR "265.JN3*1B03P	R+NCT2"[O3F;E7S[I3EZ 3O3U2,R 7ASR7MWO+T
H3SJ 3A3L".6".JN3*2B0+GCO2 ?T. J4"5*M.3B520& 7F* .1N>2 T+ECN.3B8"0*M.3F560B 3R;I+TJ 7L	A6 CU""*M.3J520& /F^ */+D3RSN*(&0.>R.*1B33TWH/NN .6B0.MNJ.5B36 KP7ISN6 N"7HSO6 OI2 ?G+O;D""*M.3R520^ 7OWS/BZ .0B0.MNJ.5B52 ?G2 ?T. J4"5*M.3B660B 3R;I+TJ 3S?H3T& 3S6 7IO
+EKD.MNJ.6B12 ?G2 ?T. F3"160.J"3*0B03P	R+NCT2"WS7TN 7HSO""*M.3F820^ 7OR /ON .5B2.MRJ.0B02 WR+MB 2*?F+UCL3S?H3O	T+N+G.MRJ.0B12 [I2 ;R/DB(*):>*4B93TWH/NR .0B5.MRJ.0B26 KP7ISN6 N"3H?O7TKE2 GM7KOE2 ?B+TCH3S?H+T;S""*M.4N0202 +ECT/SF(*-	P*=S61B-.)J+.MRJ.0B42 ?G
SKU. B6"160.JB4*4B17RSE3U;R.MRJ.0B52 [I2 ;R/DB(*):>*7B53TWH/NR .1B0.MRJ.0B66 KP7ISN6 N"3H?O7TKE2 GM7KOE2 ;O7EN 7HSO2 ;A3D6 7IOS+ECS3OWN".6".JB4*7B07LSE* S61B-6)N=*(61+P.)"1*M.4"020^ 3O?T. B4"460.JF4*0B03P	R+NCT2"?B+TCH3S?H+TCS7MOI3SSE".6".JF4*1B07GSO/OR .
B4.MVJ.0B02 [I2 ;R/DB(*):>*7B53TWH/NV .0B1.MVJ.0V02 ?G+TCO.3Z1"5*M.5F060B 3R;I+TJ 3B3A7LN 3T3O+E;N2 V 7A	S2 GL7YV-3PZ +OCR7DKA3T?M3UT".6".JB5*1B57GOO+UCB.7B0"0*M.5N020^ 3O?T. B3"060.JF5*0B0+ICF3RSN*(&0.>Z.2 T+ECN.5J1"0*M.5F120^ 3O?T. F1"660.JF5*2B03P	R+NC
2"GP+SCS3S?T3L;E6 	B. ."/O.$2"V 7A	S2 GL7YV-+PJ..MVJ.1B32 ?G3SKU. B6"060.JF5*4B07GSO/OR "265.JB6*0B0/SB(6)N=*(&0"+62.JB6*1B03P	R+NCT2"OS3OWR*:J *;S.1.)2"?T. ."/SB(")*M.6J060J 7EWTR7N.JB7*0B0/SF(6)N=*(&1"+62.JB7*1B07GOO+UCB.6F0"0*M.7J060J 7EWTR7N.JB8*0B03P
R+NCT*"B * ******2 ;E3D> 3FZ 7IOR3T" 3A[L* ******""*M.8F060B 3R;I+TJ 3S?C/R+E2 GD3R7T7OSU+HJ *;S.1.)/O.$*"J *;S"06).JB8*1B53P	R+NCT.M"J.0Z16 KP7ISN" *M.8J020^ 3O?T. ^3"0*M.9&929V N7DBJBZ

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