File KNIFF3.BA (BASIC source file)

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

*1B03D7I* A.1B02)J,.$^(*02)/HF(*0&0*,SC.(B76)N,.(B1*02)+D"$*7&0.MJJ60B 3R;I+TJ 7WKI6 CS3I3E+ECN3K	N3FWF+LJ:.MNJ60B 3R;I7TR +AB*2&26;Z"3I3E6 CS7AOS""*M*4B03P	RN7T.JB52 ?F3R& *=B1+TCO6123/XV=/\7Y65[\6=21/L62213\.1B=/\7L"0*M*5B53R;A3D7O3IWZ/\7Z/ZF+.MZJ20Z +O
R/I617VR 7O" +\A+I&12=;I/TF(*+*63RSN.(GI6)2)7NE3T& "1*M*6B5+ICF/XB=2 T+ECN.2B0.M^J60B 3R;I+TJ 7IKH7E* 3A3H/E+N. ."3\?F3R& 61Z=2 ?T" 7X.JB86 KP7ISN* A+I&12;;\7ESX. GI7\KP7ISN3\[I. 7Z63R 3H;E. B2"0*M*9B03P	R+NCT2"WW3LC7E* 3A3H+ECN3MWO7CSH+ECN3SWI*:J ";*M.1B
2 ;I7PSU* SB3\[I2 WL+N" +B&$*>65+LB13TWH/NF 68203L2=+EN+B&$.MFJ*1B07FKO. GI.=KL2 ?T* /L7L213K&(.16)3V3A2(WS+G"$+B2$+I21+I&1")*M.1B22 WN+XCTI61.JN120Z +OCR/I6161R 3O2 3\?F3R& .2F=2 ?T6 26+ICF3K&(.16)+IB23TWH/NF "560.JR120: 7ESX. KI3\?G+TCO.1B8.MFJ*5B07NE3T
 21[\+OCR/I6161R 3O2 3\?F3R& 62Z=2 ?T" 7X.JZ120& 3FF .(KI2).=.(GI6)R 3H;E. ^120;\7ESX. KI3\?G+TCO.1B8.MFJ*7B07NE3T& 21
\3O?T. &1"0*M.1B86 KP7ISN2 Z"7AOL3CWH2 	E3NGG3B;E6 2"7GSO/O^ "0*M.1B9. KL.=KL6+3L7X"=6-3L/L61+L.13L
\3O?T. V5.MJJ*0B03P	R+NCT2"I+RCE3ESN3ZA3L;E.:.".MJJ*1B07FKO. GI*=B1+TCO65C\3R;I3T. .(GI6)2;7NE3T& 61C\3R;IT*M.2B22 ?F3R& .1F=2 ?T6 257FKO. KI*=B1+TCO"6*M.2B32 [I* K+I&12<&>62R 3H;E. R220\.(KI2)"=.(KI.)F+3\?G+TCO.2B5.MJJ*4B07NE3T& 22
\3O?T. "1"0*M.2B52 WN+XCTI61.JZ220Z +OCR/I6161R /OZ 7\KP7ISN* H+I&1.;GI*;B"3M3A6"C\3R;IT*M.2B72 WN+XCTI61.J"260B 3R;I+TJ 3WWI2 ?S3LWL3NR +ICE3ZA3L;E2 WG7WKE7TSE2 WW3RWD+NB:""6;.J&220& 7NWP3TN 2$	\3FN *$J=+GKO2 T+ECN.6B9.MNJ*0B07FKO. GI*=B1+TCO26	\7FZ +AL+
&$.=GI2 T+ECN.3B13\WN+XCT7I217GSO/ON "360.JF360B 3R;I+TJ 3SWI2 ?W3LWL+NJ .;GI*;B"+EKR.MNJ*2B03S&(.16)3H&(*1*)7I217UN=.(GI2)
\3O?T. Z6"0*M.3B32 [I* SC*<J>63B-3AOS+HB"3TWH/NN 67207FKO. GI*=B1+TCO"6*M.3B42 [I* H+I&1.>N=2 T+ECN.3B53\WN+XCT7I217GSO/O^ "060.JV320Z +OCR/I6161R /OV /\GA.=GA*+K+I&13\WN+XCT7I21/S^(2)F="1*M.3B6. 7U7A213P	R+NCT6"KD3EWI3RGP3SC2"
\3O?T. Z6"0*M.3B72 [I* SC*<J>64B-3AOS+HB"3TWH/NR 61207FKO. GI*=B1+TCO"6*M.3B82 [I* H+I&1.>R=2 T+ECN.3B93\WN+XCT7I217GSO/O^ "060.J&320Z +OCR/I6161R /OV /\GA.=GA*+K+I&13\WN+XCT7I21/S"(2)F="1*M.4B0. 7U7A213P	R+NCT2"	V3EWR3RGP3SC2"
\3O?T. Z6"0*M.4B12 [I* SC*<J>3F3U3L"-7OOU+EB"3TWH/NR 67207FKO. GI*=B1+TCO"6*M.4B22 [I* H+I&1.>N=2 T+ECN.4B33\WN+XCT7I217GSO/O^ "060.JN420R .=GI3\?F3R& .1F=2 ?T6 26+ICF/I617DR 3H;E. V4"0*M.4B42 [I* H+I&1.>J=2 T+ECN.4B6.MRJ*5B07NE3T& 21
\3O?T. B7"0*M.4B6* S.96)6225/UJ=65C\3R;I+TJ 3F3U3L"-7OOU7E2"7GSO/OZ "660.J^420& 3FN .$:<*"7K7SKT7AOS+EB"3TWH/NV 63207FKO. GI*=B1+TCO"6*M.4B82 [I* H+I&1.<F>2 T+ECN.4B93\WN+XCTI61.J&460* 61*=.1F+/\7D7I217FKO. GI*=B1+TCO26	\3F& 21R=2 T+ECN.5B4.MVJ*0B0+ICF3H&
.12)*>B13TWH/NV "065.JB565* 61*=.1F+3\[I. GZ*>B23TWH/N^ "060.JF520: 7ESX. GI+\S*1&0.=B3/\7U6320/DB=/\GZ"=60.JJ560B 3R;I+TJ 3KWL3IWN6 SS7ROA+SKE3\?G+TCO.6B6.MVJ*3B0+ICF/C2$2>^"6-SS7ROA+SKE2 T+ECN.5B63\?F3R& .1F=2 ?T" 66.JR520& 3F" .(GI.):<61R 3H;E. R525
\3O?T. R5"7*M.5V4. GZ.=GZ6+21+ICF/Z:161R 3H;E. B7"0*M.5^42 WN+XCTI61.JV560N .(F1.)R=60W\.=B47\KP7ISN2 ^"7ROO+SCE7SKT7AOS7E2"7GSO/OZ "660.JZ520& 3FN .$:<2";K3I[F+EKL2 T+ECN.5B9/\7D/HF(2)[\+OCR/I6161R /OZ .MVJ*7B0+ICF3H&(.16)65R 3H;E. "520;\7ESX. GI3\?G+TCO
7B0.MVJ*8B03P	R+NCT2";K3I[F+EKL+\S*1&2.=B5/\7U6520/DB=3\?G+TCO.6B6.MVJ*9B0+ICF/C2$2>N"3H;A+CKE2 T+ECN.6B33\?F3R& .1F=2 ?T" 65.JB620F 21F=21.+.(GI2);\7ESX. GI7\KP7ISN.MZJ*1B0/SF(.36)7A213UF=21G\.1B=7\KP7ISN2 N"3H;A+CKE.MZJ*2B07GSO/OZ "660.JN660B 3R;I+TJ 3U
N3EGK7NSN3EV 3I
N3AWB""*M.6B46 KP7ISN6 N"+ICE3HKA+ECN* J *;SC*;B"2 V 3I
N3EWG3B;E""*M.6B56 KP7ISN2 :"3EWU2 	E3NGG+BKE3\?G+TCO.2B0.MZJ*6B03P	R+NCT2"	S3EV 3RGH3LWT+NB:6"V;*;B"2 3P7UCS3U/N+TKE.MZJ*7B03U>=/\GA6=20/DB=/\GI6=20/Z61"0*M.6B86 KP7ISN7\KP7ISN7\KP7ISN7\KP7ISN7\KP7ISN.MZJ*9B07NE3T& 3\?G+TCO.7B2.M^J*0B03P	R+NCT2"GD3S^ 7ES
2 	N7CSH*!F!*!J!.M^J*1B07GSO/OJ "060.JJ760B 3R;I+TJ 3W3O3L;E2 	S3ER +ACS3ESN3E
R3E;B+ICS7AOU7DWR3CWK3N2 7AOS/E+N* B . .".M^J*3B07ICN+UCT7D2$+ICF/D2$2>:"3E;I6"R 3H;E. R720
\3O?T. B2"060.JR720Z +OCR/JF=2 ?T6 263P	R+NCT+JJ;+ECR6"N;*(	J*;B"3P;U3KWT""*M.7B5. 7E7EN+*(	J3\WN+XCT7JC\3R;IT*M.7V52 [I. 3E*6B33TWH/N^ 66203EV=.+V37\KP7ISN.M^J*5B73P	R+NCT2"?B7NOU* B *"J,*3B56 B 3U/N+TKE.M^J*6B03P	R+NCT*"637POA+CKH*,S.7.)*"B 6 WP7NSKE6".
^760B 3R;I+TJ 64B-3AOS+H2"/S"(*)J;* B 3P;U3KWT""*M.7B86 KP7ISN2 Z"3U3L2-?H3UWS6"N,*(&9*;B"6 B 3U/N+TKE.M^J*9B03P	R+NCT*"7K7SKT7AOS+E2"/SF(.0.)*"B 6 WP7NSKE6".JB860B 3R;I+TJ 7GN-3TGR3SWS6"N,.(F1*)J;* B 3P;U3KWT""*M.8B16 KP7ISN2 ."3N[I3F3E6"N,.(J1*)J;* B 3P
U3KWT""*M.8B26 KP7ISN2 N"3H;A+CKE*,S*1&3*;B"6 B 3U/N+TKE.M"J*2B57FKO. 7J67R /OF 23W\*=/E3S*(2);\7ESX" 7J.JN860B 3R;I7TC\3R;I+TJ 7GOE7ASM*:B * J=.;/E6"B 3U/N+TKE.M"J*3B57GOO+UCB.1B5"0*M.8B42 ?F3R6 *=B1+TCO62203P	R7N3T7NE3T6 .M"J*5B0/EB=3\?G+TCO.2B0"0*M.8B8
 KP7ISN* A+I&12;;\7ESX. GI7\KP7ISN3\[I. 7Z63R 3H;E. B2"0*M.1B060B 3R;I+TJ 7TOE3T;IG6".JV1*0B0+ICF/EN<*0B03TWH/NF .5B2.MFJ.5B16 KP7ISN6 N"7PSI3Z;E3L	E7SWT+NKG3\WR7TKUN*M.1J520& 3FV .<V260R 3H;E. V163203P	R+NCT6"WG7TKE6 WD3RC3SC7NSI7T2"7RSE3U;R.MFJ.5B32 [I.
3E.2B02 T+ECN.1R560C\3R;I+TJ 7MSI3T3E3MWA3S	S7G2"7RSE3U;R.MFJ.5B42 [I. 3E.1B52 T+ECN.1V560C\3R;I+TJ 3G;A3Z^ +UKT3\WR7TKUN*M.1V520& 3FV .<B160R 3H;E. V166203P	R+NCT2"	E3N
I3E7R7AOS+EKN3\WR7TKUN*M.1Z560B 3R;I+TJ 3SWI2 ?S7LSL+ECN3E;I2 ;A7DKE+ECS3S	P+ECL3WWA3HWLN6".JV1*7B03P	R+NCT2"SO+ECR7LOE+ECN3SWI2 	S+CCH3DWI6 CS3I3E3R
E3E;L2 ?N3CWH3I7N+ACL7DKU+CKH.MFJ.5B86 KP7ISN.MFJ.5B92 WR7TKUN*M.2B060B 3R;I+TJ 3W3O3L;E2 	S3E: 3OC2 	E7NN 3PWI+LB ""6;.JB2*1B07ICN+UCT7C2$+ICF/C2$2>*"+AB"3TWH/NJ .0B23\?G+TCO.2B4"0*M.2J020& 3FN .$:<2"WN+IKN2 T+ECN.2N020
\3O?T. V2"060.JB2*3B0+ICF/C2$6>&"+EKS2 T+ECN.2V060C\3R;IT*M.2R060B 3R;I+TJ 3IC2 WV7RSS3EWH2 ;E3G	L3SC2 WY3S*=7A2"7GSO/OJ .4B0.MJJ.0B52 [I* SC*<J>+NKO2 T+ECN.2^060C\3R;IT*M.2Z060B 3R;I+TJ 3IC2 WV7RSS3EWH2 ;E3G	L3SC2 ?N2=WN+IKN3\?G+TCO.2B5"0*M.2^060B 3R;I+T
 3UKN3EGK7NSN3EV 3I
N3AWB2"
\3O?T. B2"060.JR2*0B0/X61+X.121	\7F" .1R=2 T+ECN.2V4"0*M.2F460B 3R;I+TJ 3S	P+EKL.;GX3\?G+TCO"260.JR2*5B03CGH+ICN6"	S3S.:3N[I+F:2+BKA.MJJ.5B06 KP7ISN2 GT/BJ(.2.)2"GC+LCL3E	X7T2"3ESN&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