File AMAZIN.BA (BASIC source file)

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

*1B03R7E3A/R3A3B7EB 3R
O3R7A6 	B2 GJ+CCK7HWA7BKE2,2 3O7O+ICS3SC3O3O6,^ 3ISN7SKO2,N T*M*2B03R7E3OWD3LSE2 ?F3RJ 3A	S7CB-7LOU6 	B2 GD+VCE3A3H2,R 3I	G3T3A.MJJ65J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+E;R2.R.E7C.JB36 KP7ISN6 R"7HOI6 KP7OKG+ACM3P	R7NOT6 WO3TF
2 GM+ZCE+OCF3D7I7EON3I;O7SV 7PR /OJ 63" . N2".6".JB46 KP7ISN6 J"+UCN3T	H7SB 3R
O3R7A2 ;A7DR 3H;E6 KT7YR 3O: 3E?G3TGI+TCE3TWH2 GM+ZGE6"C\3R;IT*M.1B02 GR3N?D7M+IE*M.1B12 	D7M^ .(V2.,V26)Z,.(V2.,V2")*M.1F12 ?F3R& *=B0+TCO"265.JF122Z +OCR/JB=2 ?T. V2.MFJ*1B33W&(*,	J6=203V&(*,	J"=60.JF124: 7ESX" 7J.JF125: 7ESX" 7I.JJ160B 3R;I+TJ 7YWO7R^ 
ISD/H."3\;I7PSU6 3H3P	R+NCT2";A3D2 3E
N+TKH2;	\7NWP7TZ .MFJ*2B23P	RN7T.JN120& 3F" *<B27GSO/OF 6322+ICF/HJ>23^ 3O?T. N122	\7FZ *<B27GSO/OF 6322+ICF/VJ>23^ 3O?T. N1"2*M.1F32 ?G+TCO.1B5.MFJ*3B23P	R+NCT2"WM3A	N3N3G7EOS2 	D3M;E3S?I+N3S6 KT3YF 3G	AN6".JR160B 3R;IT*M.1F42 ?G2 ?T. J1"0*M.1B56 KP7ISN.
FJ*5B13P	RN7T.JZ1202 +ECT/QB=.MFJ*6B17LSE. 7Z"0*M.1J62 WL7T" 2=;I7TJ(+ND*0*)/HF+")*M.1N62 ?F3R& *=B1+TCOH*M.1B72 [I. 7I7XR 3H;E. ^1"3*M.1F76 KP7ISN. *"*-J-";*M.1J72 ?G2 ?T. "1"0*M.1N76 KP7ISN. *"* J ";*M.1B82 WN+XCTI*M.1B96 KP7ISN*"J:.MFJ*9B17LSE. 7C"1*M.
J92 WL7T^ *(3X.16)C*M.1N92 WL3TN *=/C"1*M.2B02 WL7TJ "=7X.JB2212 +ECT/SF=.MJJ*0B2+GCO+TCO.2B6.MJJ*1B0+ICF/R:<7HR 3H;E. R2"0*M.2F12 [I. 3S*>CV3TWH/NJ "360.JJ2202 +ECT/RF=.MJJ*2B17LSE. 7S"1*M.2J22 ?G2 ?T. V2"0*M.2B32 WL7TJ "=61.JN2212 +ECT7SN="+61.JN222^ 7O
 /OJ "560.JR2202 +ECT7RJ="+61.JV220& 7F^ *(3R/S6)60R 3H;E. F2"0*M.2B62 [I* 7R.1B=2 T+ECN.5B3.MJJ*6B1+ICF7WJ(*-21/S2)*>B03TWH/NV "360.J^220& 7FN .-6160R 3H;E. &3"0*M.2B82 [I* W7RN,*-&1.<B>2 T+ECN.3B9.MJJ*9B0+ICF3R"=2 T+ECN.3B3.MNJ*0B0+ICF7WJ(*+21/S2)*>B03T
H/NN "360.JF3202 +ECT3X&=+NT3RSN*(&0**.3"16).JJ320& 7F" *=B13TWH/N^ "960.JJ321& 7F" *=B23TWH/N" "260.JJ323& 7F" *=B33TWH/N" "660.JN320& 7FN 6<Z>2 T+ECN.3B4.MNJ*3B1+ICF/ZF=2 T+ECN.3B7.MNJ*3B27LSE. 7Q"1*M.3N32 ?G2 ?T. V3"0*M.3B42 [I* W7RN,*+&1.<B>2 T+ECN.3B
.MNJ*5B07LSE. 7X7ISN2(;R/DB(.)N**+&1.MNJ*6B0+ICF/XF=2 T+ECN.7B9.MNJ*6B1+ICF/XJ=2 T+ECN.8B2.MNJ*6B2+ICF/XN=2 T+ECN.9B1.MNJ*7B07LSE. 7X7ISN2(;R/DB(.)J**+&1.MNJ*8B0+ICF/XF=2 T+ECN.7B9.MNJ*8B1+ICF/XJ=2 T+ECN.8B2.MNJ*9B0+ICF3R"=2 T+ECN.4B7.MRJ*0B0+ICF7WJ(*+21/
2)*>B03TWH/NR "760.JB421& 7FN 6<Z>2 T+ECN.4B2.MRJ*1B0+ICF/ZF=2 T+ECN.4B5.MRJ*1B17LSE. 7Q"1*M.4J12 ?G2 ?T. N4"0*M.4B22 [I* W7RN,*+&1.<B>2 T+ECN.4B5.MRJ*3B07LSE. 7X7ISN2(;R/DB(.)N**+&1.MRJ*4B0+ICF/XF=2 T+ECN.7B9.MRJ*4B1+ICF/XJ=2 T+ECN.8B6.MRJ*4B2+ICF/XN=2 T
ECN.9B1.MRJ*5B07LSE. 7X7ISN2(;R/DB(.)J**+&1.MRJ*6B0+ICF/XF=2 T+ECN.7B9.MRJ*6B1+ICF/XJ=2 T+ECN.8B6.MRJ*7B0+ICF/S:<7VR 3H;E. &4"0*M.4B82 [I. 7Z61R 3H;E. J5"0*M.4F82 WL7TF "=61.J"422^ 7OR /OV "060.J&420& 7F^ *(3R/SF+.):<60R 3H;E. J5"0*M.5B02 WL7T" 2=;I7TJ(+N
*0*).2F+")*M.5B12 [I. 7X61R 3H;E. &7"0*M.5F12 [I. 7X62R 3H;E. F9"0*M.5B22 ?G2 ?T. &7"0*M.5B32 [I* 7S.1B=2 T+ECN.6B7.MVJ*4B0+ICF7WJ(*,7S.12)*>B03TWH/NZ "760.JR521& 7FJ *=CH3TWH/NZ "160.JR522& 7F^ *(/R61N,.):<60R 3H;E. F6"0*M.5B52 [I. 3S*>CV3TWH/NV "660.JV5
1& 7F* *=B13TWH/NV "960.JV5222 +ECT/QF=.MVJ*5B3+GCO+TCO.5B7.MVJ*6B0+ICF7WJ(*,/S.12)*>B03TWH/NV "960.J^5202 +ECT3X&=+NT3RSN*(&0**.3"16).J"520& 7F" *=B13TWH/N" "260.J"521& 7F" *=B23TWH/N" "660.J"522& 7F" *=B33TWH/N& "160.J&5202 +ECT3X&=+NT3RSN*(&0**.2"16).J
620& 7F" *=B13TWH/N" "260.JB621& 7F" *=B23TWH/N" "660.JF620& 7FN 6<Z>2 T+ECN.6B3.MZJ*2B0+ICF/ZF=2 T+ECN.6B6.MZJ*2B17LSE. 7Q"1*M.6J22 ?G2 ?T. R6"0*M.6B32 [I* W7RN,*+&1.<B>2 T+ECN.6B6.MZJ*4B07LSE. 7X7ISN2(;R/DB(.)J**+&1.MZJ*5B0+ICF/XF=2 T+ECN.8B2.MZJ*5B1+IC
/XJ=2 T+ECN.9B1.MZJ*6B0+GCO+TCO.8B2.MZJ*7B0+ICF3R"=2 T+ECN.7B4.MZJ*8B0+ICF7WJ(*+21/S2)*>B03TWH/N^ "460.J"621& 7FN 6<Z>2 T+ECN.7B0.MZJ*9B0+ICF/ZF=2 T+ECN.7B3.MZJ*9B17LSE. 7Q"1*M.6J92 ?G2 ?T. N8"0*M.7B02 [I* W7RN,*+&1.<B>2 T+ECN.7B3.M^J*1B07LSE. 7X7ISN2(;R/
B(.)J**+&1.M^J*2B0+ICF/XF=2 T+ECN.8B6.M^J*2B1+ICF/XJ=2 T+ECN.9B1.M^J*3B0+GCO+TCO.8B6.M^J*4B0+ICF/S:<7VR 3H;E. Z7"0*M.7B52 [I. 7Z61R 3H;E. "7"0*M.7F52 WL7TF "=61.JV722^ 7OR /O^ "760.JZ720& 7F^ *(3R/SF+.):<60R 3H;E. "7"0*M.7B72 ?G2 ?T. F9"0*M.7B82 ?G2 ?T. B
"060.J&7202 +ECT7WJ(*-21/S6)C*M.8B02 WL3TN *=/C"1*M.8F02 WL7TZ *(7R61N,.)J=.M"J*0B27LSE. 7R/RF-.M"J*1B0+ICF3C"=**/V61R 3H;E. B1"160.JF8212 +ECT/QB=.M"J*1B2+GCO+TCO.2B6.M"J*2B07LSE* W7RN,*-&1"=7C.JN8202 +ECT3CN="+61.JR8202 +ECT7VJ(*,7S.16)"1*M.8F42 WL7TN *
7S"1*M.8J42 [I. 7C7HZ**+B13TWH/NF .0B1.M"J*5B07LSE. 7Q"0*M.8F52 ?G2 ?T. Z2"0*M.8B62 WL7T^ *(/R61N,2)N=.M"J*7B07LSE. 7C/CF+.M"J*7B1+ICF7VJ(*,	S*=B03TWH/N" "860.J^8222 +ECT7VJ(*,	S"=63.J^823^ 7OR /O" "960.J"8202 +ECT7VJ(*,	S"=62.J&8202 +ECT7RJ="+61.JB920& 3
N *=+H/VF+2 T+ECN.1F0"0*M.9J02 ?G2 ?T. N5"0*M.9B12 [I. 7Q61R 3H;E. Z9"0*M.9B22 WL7T^ *(3R/SF+2)N=.M&J*2B17LSE. 7C/CF+.M&J*2B2+ICF7VJ(*,	S*=B03TWH/N& "460.JN9202 +ECT7VJ(*,	S"=63.JN921^ 7OR /O& "560.JR9202 +ECT7VJ(*,	S"=61.JV9202 +ECT7SN="+61.JV921& 3FN *=
H/VF+2 T+ECN.1F0"0*M.9J52 ?G2 ?T. Z2"0*M.9B62 WL7T* "=61.J^920& 7FZ *(3R/S6)60R 3H;E. "9"0*M.9F72 WL7TZ *(3R/S6)"3*M.9J72 WL7TF "=60.J^923^ 7OR /OF .0B0.M&J*8B07LSE* V7RN,.)F=.M&J*8B17LSE. 7Q"0*M.9J82 WL7TJ "=61.J&9202 +ECT/SF=.M&J*9B1+GCO+TCO.2B5.MFJ.0B0
 ?G2 ?T. F2"0*M.1F020Z +OCR/JF=2 ?T" 7V.JB1*1B13P	R+NKT/I.".MFJ.0J12 ?F3R& *=B1+TCOH*M.1F023& 7FZ *(3I/J2)62R 3H;E. B1"360.JB1*2B03P	R+NKT* B ""6;.JB1*2B1+GCO+TCO.1R0"0*M.1N060B 3R;I+TB"* KI";*M.1R020: 7ESX" 7I.JB1*4B13P	RN7T.JB1*4B37FKO. 7I61R 3O" .MFJ.0
42 [I* V3I*,.)B=2 T+ECN.1Z0"0*M.1V020& 7FZ *(3I/J6)62R 3H;E. B1"660.JB1*5B13P	R+NKT*:B ""6;.JB1*5B2+GCO+TCO.1^0"0*M.1Z060B 3R;I+TJ *:6-""6;.JB1*7B07NE3T& .MFJ.0F76 KP7ISN*"J:.MFJ.0J72 WN+XCTJ*M.1^023V 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