File CUBE.BA (BASIC source file)

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

*5B 2 WR+M* **B*3C;O7VKE3TSE2 ?T6 OR+T?S3EJ 3YR 3A	V3DF +H3L2 	D7GSIA7L.JB160B 3R;I3TR"7O& +OCU3W;A7TR +OB 3SWE2 T3E& 7NSS3ROU3T?I/N?S6 &(+E7S*-21+N7O*-&0""*M.1B12 ;I7PSU. 
B.MFJ*2B0+ICF/B6760R 3H;E. ^3"0*M.1B36 KP7ISN2"T+ICS+ICS3A^ 3AWM2 ;I2 W3IC2 ?Y7U^ 3I3L2 WB2 3P3A	Y+NCG3AGG7ION7TR +HKE.MFJ*4B03P	R+NKT3R;A3D7U2 WD7COI3I;O2 [O2 T3EN 7OCM3UWT+RB.3TWH2 	F3ESL2 [O2 3P+ACY+ICSA6".JV160B 3R;I3TN"3UWB2 [O2 	S+DCE*3B.7A	N2 [O2 T
EJ 272 3OGC3T?I+NCS3C;A2 WB2 WD3S
I7NSA+EKD.MFJ*6B03P	R+NKT+BCY7ICN3U	T+NCG7TKH+ECE3N7U7BKE7SN 3UC6 OA* 22.3F,*.B +ACT3TWH6 SS7ASR",6".J^160B 3R;I7T&"+OCU3AWR6 WA3T7O3A	T3C3A+LCY+ACT3LOO3A	T+OCN.1F,*,:16 R +HCE3O+B7ESC2 [O""*M.1B86 KP7ISN2"T3E^ 3AWM6 OI2 ?T2 WG7TR 3O2 3OGC3T?I/NN *,23*3B.
 ;O3E6 3I?N3RR 3EGT+I3L""*M.1B96 KP7ISN2"T3EN 7OCM3UWT7R^ 3I3L2 	P+C3K+ACT3R;A3D7U*,B53LOO3A	T7OON6 SA6 ^ 3HOIH6".JB260B 3R;I3T&"7T^ 3I3L2 3P7ASN2 GL+NCD3M;I+E;S2 & 7F& +OCU7HSI2 ;O3E> +FB 3TWH+SCE3LOO3A	T7OON",6".JF260B 3R;I7T&"+OCU7LOO+EB.2 ;O3E> 3TWH3R
 3EGT+I3L2 ?Y3U6 +ACY7M[O3E> 7N	L2 ;O7EN 3POA+EJ .MJJ*2B03P	R+NKT+ICN3OWN2 	D3ROE3T?I3NV 3AC2 ?M+V;E2 Z +OCR6 E7ACM/L+E6 KF+OCM.1F,*,B27YWO""*M.2B36 KP7ISN2"GM+YB 7M[O7ER /OJ *,2122> /RF *,21*3B.2 ?Y3U6 +ACY7NSO2 C3A
NE6".JR260B 3R;I7TR"+WCO+OCF3TWH6 WN3MWB+RCS+OCN3TWH2 GS+MCE7M[O+EB.2 [I2 ?Y3U6 3AWK2 F 3N& 3LWL3G3A""*M.2B56 KP7ISN2"?M+V3E2 ?Y3U2 3OWS2 ;A7DR +HCE3C7O7PSU+ECR3T/A+ECS3TWH2 ?M7N	E2 ?Y3U6 +AKY.MJJ*6B03P	R+NKT7H[A3EJ +ECT+OCN3TGH7TJ 3O;U+DJ..MJJ*7B03P	RN7T
J"260B 3R;IT*M.2B96 KP7ISN2"3A7L& +ECS+OCR+NCO3QWU3S	T7OON2 	W+LCL+BCE7AON7WKE+ECD+BCY/AF 2 ?F7R& +EKS.MNJ*0B03P	R+NKT+OCR/AB 6 *(3E?R2)Z +OCR+N;O""*M.3B16 KP7ISN.MNJ*2B03P	R+NKT3WWH7NN 7TSA3I
N2 T3EF 7MWO+NCT+OCF7A^ 3AWG+RB,3P	R+NCT3O3N7YR +HCE3N7U7BKE""*M.3B36 KP7ISN2"[O2 ?D3LGL+RCS6(E7ACM/L+E. V2*0B)2 ?Y3UF +RCE7ASU3OGM3TOI3A3L7YN 7TKA3TSE2 	W+TCHA6".JR360B 3R;I/TV"*0B02 ?D3LGL3RF 3C?C7USN".6".JV360B 3R;IT*M.3B66 KP7ISN2"?G+OCD3LOUK6".J^3202
+ECT/A61.5B0.MNJ*8B07LSE. 7A7ISN*(*32(;R7D"(*)&).MNJ*9B0+ICF/A:<60R 3H;E. F4"0*M.4B02 WL3TF "=63.JF4202 3EKT2=;I/TN(6*J(+ND+X&)")*M.4B22 [I/B:<20T/ESN"460.JN4202 +ECT/BJ=.MRJ*4B07LSE3C&=+NT*3"*3RSN*(	X")6).JV420& /F3C6>R03H;E.4B7.MRJ*6B02 WL/T7C"3*M.4B72 
L/T7D7ISN*(*32(;R7D"(*)&).MRJ*8B03ISF.<B>3TWH/NB5"0*M.4B92 WL/T7D"1*M.5B02 WL/T7E7ISN*(*32(;R7D"(*)&).MVJ*1B03IWF.<B>3TWH/NN5"0*M.5B22 WL/T7E"3*M.5B32 WL/T7F7ISN*(*32(;R7D"(*)&).MVJ*4B03I[F.<B>3TWH/NZ5"0*M.5B52 WL/T7F"3*M.5B62 WL/T7G7ISN*(*32(;R7D"(*)&).M
J*7B03I
F.<B>3TWH/N&5"0*M.5B82 WL/T7G"3*M.5B92 WL/T7H7ISN*(*32(;R7D"(*)&).MZJ*0B03IF.<B>3TWH/NJ6"0*M.6B12 WL/T7H"3*M.6B22 WL/T7I7ISN*(*32(;R7D"(*)&).MZJ*3B03I	F.<B>3TWH/NV6"0*M.6B42 WL/T7I"2*M.6B52 WL/T7J7ISN*(*32(;R7D"(*)&).MZJ*6B03I+F.<B>3TWH/N"6"0*M.6B72 WL/T7
"3*M.6B82 WL/T7K7ISN*(*32(;R7D"(*)&).MZJ*9B03I/F.<B>3TWH/NF7"0*M.7B02 WL/T7K"2*M.7B12 WL/T7L7ISN*(*32(;R7D"(*)&).M^J*2B03I3F.<B>3TWH/NR7"0*M.7B32 WL/T7L"3*M.7B42 WL/T7M7ISN*(*32(;R7D"(*)&).M^J*5B03I7F.<B>3TWH/N^7"0*M.7B62 WL/T7M"3*M.7B72 WL/T7N7ISN*(*32(;
7D"(*)&).M^J*8B03I;F.<B>3TWH/NB8"0*M.7B92 WL3T: "=61.JB8202 +ECT3O&=+NCT*(*32(;R7D"(*)&).M"J*1B0+ICF/O2 *>B03TWH/N" "360.JJ8202 +ECT/ON=.M"J*3B03P	R+NCT2"GW+NCT+TCO3M/A3EF 2 GW7GKE"?6".JR820& 7NWP7T* .M"J*5B0+ICF/ZB=2 T+ECN.9B2.M"J*6B03P	R+NCT2"?H3W6 3UC"
6".J^820& 7NWP7T* "1*M.8Z72 [I. GA.<GZ2 T+ECN.1J5"2*M.8B82 WL7T^ "=61.J&8202 +ECT/XF=.M&J*0B07LSE. 7Y"1*M.9B16 KP7ISN.M&J*2B03P	R+NCT6"SI7S& 7OKU2 ?M+VKE.M&J*3B07ICN+UCT7PF,",7R.JR920& /F;P/WF+2 T/EGN.0B3.M&J*5B07ICF*=/W21T/EGN.0B0.M&J*6B07IGF*>/X61R 3H;E
1N0"0*M.9B72 [I. 7Q*(/X*1B)3TWH/NF .0B1.M&J*8B0+ICF/R: *(/Y*1B)2 T+ECN.1N0"0*M.9B92 ?G2 ?T. B1"560.JB1*0B0+ICF/Q6>* /X61R 3H;E. B1"360.JB1*1B0+ICF/R6>/YF+2 T+ECN.1N0"0*M.1J020^ 7OR /OF .0B5.MFJ.0B36 KP7ISN2 &"3LWL3G3A2 ?M+VKE*,J 7YWO2 ?L+SKE.MFJ.0B42 ?G2 
T. R1"460.JB1*5B07LSE. 7WP*M.1Z0202 +ECT7XF=.MFJ.0B72 WL7T& "=7R.JB1*8B0+ICF/PN=2 T+ECN.1B1"0*M.1&020^ 7OR /OF .1B3.MFJ.1B02 [I6 F *=B33TWH/NF .1B2.MFJ.1B12 ?G2 ?T. F1"360.JF1*2B0+ICF/RN=2 T+ECN.1N5"0*M.1N120& 7FB *=CA3TWH/NF .1B5.MFJ.1B42 ^ 7OR /OF .1B8.
FJ.1B52 [I. 7Q7BR 3H;E. F1"760.JF1*6B0+GCO+TCO.1"1"0*M.1^120& 7FJ *=CC3TWH/NR1"060.JF1*8B0+ICF3PR=2 T+ECN.1B2"0*M.1&120^ 7OR /OF .2B3.MFJ.2B02 [I. 7Q7ER 3H;E. J1"260.JJ1*1B02 ?G2 ?T. J1"360.JJ1*2B0+ICF. 7R7FR 3H;E. R1"060.JJ1*3B0+ICF3P^=2 T/EGN.2B5.MFJ.2B
2 ?G2 ?T. J1"860.JJ1*5B0+ICF3Q"=2 T/EGN.2B7.MFJ.2B62 ?G2 ?T. J1"860.JJ1*7B0+ICF3R&=3TWH/NF .4B0.MFJ.2B82 [I. 7P7JR 3H;E. N1"060.JJ1*9B0+GCO+TCO.1N3"0*M.1B320& 7FF *=CK3TWH/NN1"260.JN1*1B0+GCO+TCO.1N3"0*M.1J320& 7FJ *=CL3TWH/NF .4B4.MFJ.3B32 [I. 7P7MR 3H;E
 N1"560.JN1*4B0+GCO+TCO.1"3"0*M.1V320& 7FF *=CN3TWH/NF .3B7.MFJ.3B62 ?G2 ?T. N1"860.JN1*7B0+ICF3R>=2 T/EGN.4B0.MFJ.3B86 KP7ISN2 :"7ESX2 ?M+VKE.MFJ.3B92 ?G2 ?T. N9"06 .JR1*0B03P	R+NKT********3B;A+G******"*6".JR1*1B03P	R+NCT2"?Y3U2 3OWS""*M.1J460B 3R;IT*M.1
460B 3R;IT*M.1R420& +FB . 7Z60R 3H;E. V1"860.JR1*5B03P	R+NCT.MFJ.4B62 WL7T* 22F=61*-"1*M.1^420& 7F* .2B>2 T+ECN.1B5"0*M.1"460B 3R;I+TJ 7YWO6 WB+SKT.MFJ.4B92 ?G2 ?T. Z1"160.JV1*0B03P	R+NCT6"& +OCU7N
O2 GH+VKE6;* *2B;2"?D3LGL+RKS.MFJ.5B12 WL3TF 61*="2*M.1J520^ 7OR /OF .5B8.MFJ.5J26 KP7ISN6"KT3ISE2 ?T2 ?F+OCL/M/E2 WB3TF 3G	A/N.".MFJ.5V22 ?G2 ?T. ^8"0*M.1N560B 3R;I3TN"3O
N7RSA3UGL3T?I+NKS.MFJ.5B42 [I. 7Z60R 3H;E. F .5B8.MFJ.5B52 2 +ECT/Z62+A.1Z61.JV1*6B06 KP7ISN6 &"+OCU7N
O2 " 3AWV*"B;/Z.22"?D3LGL+RKS.MFJ.5B72 WL3TF 61*="2*M.1"560B 3R;I3TR"7O& +OCU3W;A7TR 7OR +RCY3AGG/I?N""*M.1&520& 7NWP7TN .MFJ.6B02 [I. 7S61R 3H;E. N "860.JZ1*1B03P	R+NCT2"?T3UG6 WL+CKK.MFJ.6B26 KP7ISN.MFJ.6B36 KP7ISN* B"3G?O7D	BE6".JZ1*4B03ESN&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