File LAUCKI.BA (BASIC source file)

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

.1B060J +ECM* B * * 2*J*7UCR2 GL7NWG3AWG6 KP7OKG+ACM3AGD3PWT3DZ 3R7O2 Z"3R7AE6".JB1*1B03R7E* B * B *****(;H2 GY7K
O7I+T*,;R3L6.3Y3K7EWB+S3T3KZ.*.;J3H	E3N	R+C	H.MFJ.0B22 WR+MB * B * ****;U3S:.3A	T3OGN3LJ 3UWR+ACU+OCF3SGT3NGD7ROD.MFJ.0B32 WR+MB * B * **2*7O+ICT3A3L2 WR7MN 7TSA3EWM7NOT2 ?T2 GS+VCE3SGPC7E.JB1*4B03D7I* A.3N,2)J,*(23*92)/C"(2)V,*(&8*,F*82)/GN(2)",*(22*22)/
"(2)2,*(&8.MFJ.0B52 	D3M6 *(&8*,P.2N,6)J,*(&8*,S*82)/UR(6)Z,*(22*1&0*,W*1&2*,X*9&2*,Z"86).JB1*6B03R7E* B * B ****3D[E3IWN2 GV3RGI3BWL2 ;A7DJ 3ESA2 ;I2 ?C7NSS7ASNS*M.1^060J +ECM* B * * 2*F**(23*3B)3AWR2 GD+TCA7FKO2 GK2,GL2,GM2 ;E3E
R3YN 3AOL.MFJ.0B82 ?F3R& *=B1+TCO"3*M.1&020Z +OCR/JF=2 ?T" 63.JF1*0B03RGE3DF *(3JI6).JF1*1B07NE3T* .MFJ.1B22 WN+XCTI*M.1N120R 3AGT. F-.."8.6"0/EJ-*,:2.2"1*529*-:5.1B7"863.JF1*4B07DSA+A6 ..J1.3R9.1N,..&2.5N3.,&-..V7.8Z3.MFJ.1B52 GD+TCA.-R..7V5.5Z,..R8.6J6.
J-.0B..8N3.MFJ.1B62 WR+MB * B * ****B.3&,2)F +RCE7DSA3AZ +OCR7AOB2.V 3DWG2 GCL7C.JF1*7B07FKO. 7I61R /O& .MFJ.1B82 ?F3R* *=B1+TCO"3*M.1&160J 3ESA* B3J&,")*M.1B220: 7ESX" 7J.JJ1*1B07NE3T& .MFJ.2B22 GD+TCA*-:3.9&723V1*-22.2R.*223.5V..0F9.MFJ.2B32 GD+TCA.-B..
&3*126.2"..2J5.6&,..N0.5Z2.MFJ.2B42 GD+TCA*-:8.6N529V7*-22.3N..2F3.5F,.0J..5V0.MFJ.2B52 GD+TCA.-J..2N8*423.4N..1^1.2F,.2B..0V2.MFJ.2B62 GD+TCA.1J..5^1*96,.7".*328.-F1.."5"063.JJ1*7B07DSA+A: .8R3.9N0.,R-..R1.9V2.,N-..N3.8J0.MFJ.2B82 GD+TCA..R4.2F2*76,..^9.
R2.1N,..V1.3"4.MFJ.2B92 GD+TCA..V2.1F4.,&..3&1*123.8B..3Z5"1*M.1B320R 3AGT. J..7&2*521.."6.8B9.6^,..J4"463.JN1*1B03R7E* B * B ****/C"(2)F +RCE3C;O3C;E3TGR3T?I+NCS+OCF3EWL3M;ET7S.JN1*2B03R7E* B * B ****3D& 3S^ 3E7O7EKT3YZ 7ASCO7R.JN1*3B03R7E* B * B ****/E"
2)F +RCE3E	M3S	S+OCN3L;I3EV 7NKE3GWI3S> 3FV 3L7E7ESNS*M.1R360J +ECM* B * * 2*Z**(&86 KA3EF 3B?S7RSP3I;O2 SE+GCE3EWN3R	G+ECS+OCF3EWL3M;ET7S.JN1*5B03R7E* B * B ****/GN(2)F +RCE7AOB2 SE+GCE3J7U7PJ 3A	TO7S.JN1*6B07FKO. 7I61R /ON .MFJ.3B72 WR+ACD3G&(")*M.1"320
 7ESX" 7I.JN1*9B07DSA+A: *828..V7.,V..MFJ.4B02 WR+MB * B * ****H.2J,6)V 3SSE2 ;I2 3F7UKO2 	Y3ESL2 GC+L;C.MFJ.4B12 ?F3R& *=B1+TCO"2*M.1J420Z +OCR/JF=2 ?T" 62.JR1*3B03RGE3D" *(3JI6).JR1*4B07NE3T* .MFJ.4B52 WN+XCTI*M.1Z420R 3AGT* :2.3N7.,"-..B9"2*M.1^420R 3A
T* :2.9Z4.,F-.3&."4*M.1"460J +ECM* B * * **B*3I& 3S& 3NWD3X> 3FV 3L7E7ESN2 WB3I
N2 GC7LWC7LSAE7D.JR1*9B03R7E* B * B ***** CJ+ICS3ISN+ECX+OCF7MSA7RI2 3E3EWMN7T.JV1*0B03R7E* B * B ***** K*8B)3AWR2 ?N3RGM7L+I+ECD7ISN7EON3I	TE7S.JV1*1B03R7E* B * B ****/L"(2)F +RCE3L;I+ECS3AGN7L+Y+ECD21.=.,62/LJ,*=3M20J=3YR 3I[F.MFJ.5B22 WR+MB * B * ****M
8B)3AWR6 OU+ECD7FKO2 KA3SN 3O[EF*M.1N560J +ECM* B * * 2*:*61R=3OGT3L: +OB.3EWL3M:,22:=*0B.3AGN7L+Y+E3D/N632& 7TKE3A	TO7N.JV1*4B03R7E* B * B ****/PJ(*,&32=GF3C?T+RCS7FKO2 ;I7TKE3L;I3EZ 3L?U7ROE3C;EC7E.JV1*5B07FKO. 7I61R /OJ .MFJ.5B62 ?F3R* *=B1+TCO"3*M.1^5
0J 3ESA* P3I*,")*M.1"520: 7ESX" 7J.JV1*9B07NE3T& .MFJ.6B02 GD+TCA*1:,*224..J0.MFJ.6B12 GD+TCA.4J.*,21..J0.MFJ.6B22 WR+MB * B * **.*GQ6 OI2 GP3R	T+ACL3C;O3C;E3TGR3T?I7NN U7M.JZ1*3B03R7E* B * B ****/R"(2)F +RCE3UWS3DZ +OCR3BOA7KN 7CSA7TKE2 GF3C?TR7S.JZ1*4B0
R7E* B * B ****/S"(2)F +RCE3UWS3DZ +OCR3S?T3P	P+NCG7P
O7EOR.MFJ.6B52 WR+MB * B * **.*CT.,GT*,:.6.R,29F +RCE3T7E7PKO7A	R2 OS7RSA7CCHA7D.JZ1*6B03R7E* B * B ****/UR(2)F +RCE7ECX3OWN7NOT2 ;I2 GM+SCS7AOB2 ?C3E[F2 GC+L;C.MFJ.6B72 WR+MB * B * ****V.2F,*0B)3AWR2 GD+TCA7FKO2 GM+SCS7AOB2 ?C3E[F2 GCL7C.JZ1*8B07FKO. 7I6
R /OJ .MFJ.6B92 ?F3R* *=B1+TCO"160.J^1*0B03RGE7DZ *(3IJ6).J^1*1B07NE3T* .MFJ.7B22 WN+XCTI*M.1N720R 3AGT* 21.1F,..^1*,:1*623.1F,..Z1*,:1.4F,..J6.1F,.."7.3F,.MFJ.7B42 GD+TCA.1J,*,22.2N,*,23.3N,*,23"4*M.1V760J +ECM* B * * **B*/WF(*26)7DSA3AZ +OCR7MOA3SF +BCS
CWO+FCF3C3AC*M.1Z720Z +OCR/IF=2 ?T. J1.MFJ.7B72 WR+ACD3W&(")*M.1"720: 7ESX" 7I.J^1*9B07DSA+A6 ..N2.2J2*96,..V2.4^4*1:,.2Z5.2Z1*,:1.3&5"167.J"1*0B07DSA/AR ..^0.0V0*,:4.7&6*225.1F..5F1*96,.9R..9F2"2*M.1F820R 3AGT. Z-..J2.0V7.,F-.0N..7"8.,V-.."6.4V8.,"1..R6"
68.J"1*2B03R7E* B * B ****/X&(*2B)3AWR6 SA3O	M7C^ 3E
I7HOT.MFJ.8B32 ?F3R& *=B1+TCO"962.J"1*4B03RGE7D" *(	I.MFJ.8B52 WN+XCTI*M.1Z820R 3AGT* :1.0"0*,:4.0R0*,:6*924.9B.*123*1:0*822*1:2.0F1.MFJ.8B72 GD+TCA*1:4.0^0.,Z1.,&1.,B2.."1.,J2..&9.,R2..F3.MFJ.8B82 GD+TCA*2:6*928*2:8*029*3:0*927*3:2*026*3:5*425*3:9"965.J"
*9B07DSA/AN .9F..,B4.."0.,R4..Z9.,^4*.29*5:0*924"562.J&1*0B07DSA/AV .4&..4V,.5"..5V,.8&..3V,.8^..1Z,.3V..4Z,.5N."7*M.1F920R 3AGT. &6..J7.,J7..&5.,R7..J9.,"7..Z9.,&7..F9.,N8".68.J&1*2B07DSA/A" .5R..7",.7Z..2",.8&..1&,.1J..2&,.2&..1&,.5&."4*M.1N920R 3AGT. &
.,B1.1F..,B1.2&..,B1.6R..,B1.7&..,F1.2R..MFJ.9B42 GD+TCA.1R1*.28.1"1*.27.1F2*.28.1^2*.26.1Z2*.29.1F3".63.J&1*5B07DSA/AF *3:2.9F,*3:7.3F,*3:8.9F,*4:0.1F,*4:0.9F,*4:4"2*M.1Z920R 3AGT. R1.5F,*5:0.4F,*522.1^5*.22.1"5*.29.1J6".65.J&1*7B07DSA/AF *6:4.9F,*6:7.3F
*6:8.9F,*723.1V7.,^1.8V..MFJ.9B82 GD+TCA.1B8..V9.,"1.3"..5F,*8:6.2F,*9:0.2F,*9:2.2F,*9:5"1*M.1&920R 3AGT. &1.6&..7J,*0:0.6J,*0:4.4J,*0:7.2J,*029.2B1.MJJ.0B02 GD+TCA.2B1.,J2.2J,*223.2Z2.,J2.7J,*322.2F3.,N2"8*M.2F060J +ECM* B * * 6*&*6 OI2 3F7UKO3EOS3EON3EN
7OKR".*M.2J060J +ECM* B * * 6****(&86 KA3EF +TB.+N;O*	CS+OCF3EWL3M;ET7S.JB2*3B03D[E2 ;F7E&(6)&=+^:1.6Z6"667.JB2*4B03D[E2 ;F7F&(.)F=*+/Y..V0**+YY*M.2V060J +ECM* B * * **B*7ICN+UCT+K3V6 WS3RGF+CCE3T3I+TB,3T/A3E[O3FF 3N3GE*M.2Z060B 3R;I+TJ /K7V""6;.JB2*7B07I
N+UCTV*M.2"060B 3R;I+TJ * B +SJ=";*M.2&020& 7NWP7TR "1*M.2B160B 3R;I+TJ * B +TJ=";*M.2F120& 7NWP3TR .MJJ.1B26 KP7ISN.MJJ.1V22 WL3TR 22R=.MJJ.1B32 WL3TR 2=?C/SF(..R7.5N3/EJ-.*GT6)N/+IN.1^..4N5*37E22R*")*M.2R160J +ECM* B * * 2*&*7NWP3T. +LCM3L;I3ER 3E	S+GB.
&: 3O7R3A	L3ZSE2 ;I3T;E7SSIE7S.JF2*5B03P	R+NCT2"3E+EM+ZJ)2,2"3IWN*"J,7KJ-3A	TO6".JF2*6B07FKO. GN*=B1+TCO"8*M.2^120& 7NWP7T* .(GN")*M.2"160J +ECM* B * * 6****=B03ISN3IGC7TOE2 3A3LR 3OWN.MJJ.1B92 [I* Z+N&1*=B03TWH/NJ .2B9.MJJ.2B06 KP7ISN. .,.MJJ.2B12 ;I7PSU
 L+N&1.MJJ.2B22 WR+MB * B * **.*7L20& 3N	D7CSA+ECS+BCY3D[I7FKE3EONE*M.2N220& 3F2 .(GN.)B=2 T+ECN.2J3"0*M.2R260B 3R;I+T2 ";*M.2V220& 7NWP3T. .(GN")*M.2Z260B 3R;IT*M.2^220: 7ESX. GN.MJJ.2B82 ?G+TCO.2B3"0*M.2&2202 +ECT/N61+N61"1*M.2B3202 +ECT/N62N61.JN2*1B07
SO/OJ .3B3.MJJ.3B22 WL3T: 22:=.1F-.MJJ.3B32 WL3T: .3F=.MJJ.3B42 WL7TF "=60.JN2*4B13P	R+NCT6"[K*=2"."7S*"J,+TJ=.MJJ.3J46 KP7ISN* 3V+T21D62.JN2*4B33P	RN7T.JN2*4B43P	RN7T.JN2*5B03R7E* B * B ****3C3A3CV 7NKE3GWIS*M.2Z320Z +OCR/IF=2 ?T. KN.MJJ.3B72 WL7T* 2=?L7
*(*(	I")*M.2"3202 +ECT/T623L&(2)2**(	I.MJJ.3B92 WL3TV *(	I6=E3PF(*(213L&(*)*)7Z***+A222,*(	I6)***+A232,*(	I")6).JR2*0B07LSE* F/I6)7ECX*(B61R,*2*)7Z***+B62R,*2*)3ZJ-*(23+T&2")*M.2F4202 +ECT3C&(2).=*(	I.MJJ.4B22 WL7TF *=/Q3C&(")*M.2N420: 7ESX" 7I.JR2*4B0+IC
/N61+NB23TWH/NJ .4B9.MJJ.4B52 [I. 7Q*<B13TWH/NJ .4B7.MJJ.4B62 WL7TF .=&."9*M.2^4202 +ECT3K:(.16)61F-.MJJ.4B82 WL3TN .(GN2).=.(GN")*M.2&4202 +ECT/QB=.MJJ.5B02 WR+MB * B * **2*GC+LCC3ZN 7OKR.MJJ.5B12 ?F3R& *=B1+TCON62.JV2*2B07FKO. 7J61R 3O: "1*M.2N5202 +ECT
T663VZ/*(	I.MJJ.5B42 WL7TR *7:=.0"0*7*37T:6*3:-.1Z669R*.6K^.+&..6J6.*[T.+R..5N2.MJJ.5B52 WL7TR *8:=.0J0.7N0.*[T+^63..V0.1J8.*[T+^.2..B362R**6:-.1N8"6*M.2Z5202 +ECT/T69.."8.7N-..R4./[T*+:9*3>37T:6.2Z-..N4./[T^63.JV2*7B07LSE* R/J6)+T67+T*83L
O.(	T**Z+J.)*2&5.MJJ.5B82 WL7TR .2&=..Z7**Z+J.)*5:865***(	J+^6(..&1")*M.2&5202 +ECT3S*(.)J=**Z+J>)7X*(*(	J*)"/3VZ+*(	I2)2*+OG.5N86*Z(*+F+I&)./KT")*M.2B6202 +ECT3EV=*(	I.MJJ.6B12 WL7T* *=ZJ6).JZ2*2B07GOO+UCB.3F3"0*M.2N6202 +ECT3M*(6)R="3*M.2R620: 7ESX" 7J.
Z2*5B03R7E* B * B ****3C3A+CB.3AN 7OKR.MJJ.6B62 WL7TR *2:=.0B0.0N02*Z(+NE+V6)3FWN*(F+I&)")*M.2^6202 +ECT/T63+T*23M&(2)R*.MJJ.6B82 WL7TR 23Z=+NF+T&3.MJJ.6B92 WL7TR 64R="3*M.2B7202 +ECT/T67"0*M.2F7202 +ECT/T68"0*M.2J7202 +ECT/T69"0*M.2N720Z +OCR/JF=2 ?T. GN
MJJ.7B42 WL7TR 67R=27N+*(	J**SJ6).J^2*5B07LSE. T.=T*+C+J*)3R*(")*M.2Z7202 +ECT/T69+T.93C*(2)6**(	J.MJJ.7B72 WN+XCTJ*M.2"7202 +ECT/T63+T*2+T*9D*M.2&7202 +ECT/T633F[N.(OT")*M.2B860J +ECM* B * * 2*N*3OKM3IWN* CZ*&CA7CKOR*M.2F8202 +ECT/T623R&(6)R*63R*67N/*(	I
/T./ST.MJJ.8B22 WR+MB * B * **2*GC+LCC3FN 7OKR.MJJ.8B32 WL7T& "=60.J"2*4B07FKO. 7J61R 3O: "1*M.2V8202 +ECT3Z2=+OG3Z*(")6).J"2*6B07LSE. ST"=61.J"2*7B07LSE. 7E7ECX*(A61R,*4*)7Z***+A62R,*4*)3ZF+*(23+T&4")*M.2"820& 3FV *<F+IB)3TWH/NN .4B8.MJJ.8B92 [I. ;E3F&(.
V+2 T+ECN.3"4"0*M.2B9202 +ECT/T67*.*57ECX*(H61R,*4*)3L
O*(Z+J&)*+H62R,*4&).MJJ.9B12 WL7TR .8B=.MJJ.9B22 ?F7RR .6F=2 ?T. GN.MJJ.9B32 WL7T* *=Z+T&6.MJJ.9B42 ?G3SKU. N3"160.J&2*5B07LSE. T.=T.+OT**C+T&6.MJJ.9B62 WN+XCTT66.J&2*7B07LSE. [T.=	T**?DT68.J&2*8B07LSE. WT.=N3.3B0*0"/3FWN*(	V2-;F3EZ(*(	I*)>)T68.J&2*9B07LS
. [T2=?L/GF(.+[T6)R/262++OG61R+*5>)T65.JB3*0B07LSE. 7Z3Z&(")*M.3F020^ 7OWS/BN .3B1.MNJ.0B22 WL7T* 2=?L+G" 3Z*(")6).JB3*3B07LSE. 7E7ECX*(B61R,64R**4*)7Z***+B62R,64R**4*)3ZJ-*(23+T*4+T&4")*M.3R0202 +ECT/T653FWN6(Z(*/7E*1>)*(?V3F&(.)F-*)*)7PR(242,*(	I2)^**(L
I&).MNJ.0B52 WL7T& *=/Y3C*(6)R*67R*65R*63R*66"**(Z+I&)*/X3Z*(*)>)T68.JB3*6B07NE3T* .MNJ.0B72 WR+MB * B * **2*GC+LCC3C;O+CZ 2 WN+XCT7ACP7RO.MNJ.0B82 WL7TR 22N=*(	I./KT.*F(*+	Y.MNJ.0B92 WL3TN *(	I2=.(*(	I**C+I*)*(61+T&2*)"/3K&(*)"*3C&(6)R-*2.)+T*2*(613C&(*)
).MNJ.1B02 WL7TF *=/Q3C&(")*M.3F120: 7ESX" 7I.JF3*2B0+ICF/N61+NB23TWH/NN .1B8.MNJ.1B32 [I. 7Q*<B13TWH/NN .1B6.MNJ.1B42 WL3TN .(GN.)B=.MNJ.1B52 ?G+TCO.3"1"0*M.3Z1202 +ECT3C:(.16)*(61Q6).JF3*7B07LSE. 7Q"1*M.3"120& 3F: .3N=2 T+ECN.3R2"0*M.3&1202 +ECT/N63+N.3
1*M.3B220Z +OCR/IF=2 ?T. GN.MNJ.2B12 WL3TN *(	I*=C+I>)Q*M.3J220: 7ESX" 7I.JJ3*3B07GSO/OJ .4B9.MNJ.2^36 KP7ISN.MNJ.2B46 KP7ISN.MNJ.2F46 KP7ISN2 V"3L7E*(	Z*"J,3L;I+E2"*"7K7RSA+IKO.MNJ.2J42 ?F3R& *=B1+TCON61.JJ3*4B33P	R+NCT3Z&(2)2,*(	I*,KI6).JJ3*4B47NE3T& .M
J.2V46 KP7ISN.MNJ.2Z46 KP7ISN.MNJ.2B56 KP7ISN2 V"3L7E*(	Z*"J,"%6".JJ3*6B07FKO. 7I61R 3O: "1*M.3^260B 3R;I7T* *(	I.,B120N**(	I.MNJ.2B82 WN+XCTI*M.3&260N 7TCO.MNJ.3B02 WR+MB * B * **6*WS+B;R2 ?F3RF +B;S2 ?C3E[F2.V 7NKE+GCY3E& 3NV 3L7E6.* .MNJ.3B12 WL7TR 232
+OGZ6).JN3*2B07LSE* U.16)7ECX.(R-..V522V2*-*3+T*3+T63.6"..5V3/EN-.*OT*+:1.0B7*1&8.MNJ.3B32 WL7TV *(&2*=:2"763.JN3*4B07LSE* U.36).2Z..MNJ.3B52 WL7TV *(&4*=:2"262.JN3*6B0+ICF/ZR<62R 3H;E. N3"860.JN3*7B07LSE* U.26)7ECX*(:-.1N1.1&5.*OT.*OT.+"..3"6*8*3+T63..R5
5Z9"96).JN3*8B07LSE. GT"=61.JN3*9B0+ICF/T61*1B03TWH/NN .4B2.MNJ.4B02 WL7TR 20V=+XP/BF(.,GT6)R*63R*23J+*(22+T&1.*OT*-B63R,*1&).MNJ.4B12 [I. 3E+TB03TWH/NN .4B6.MNJ.4B22 WL7TR .06 7WZ(*(22+T&16)R*63R*63^+*(V62R,*1.)*4*)+T.37WZ(*(22+T&1*+&8.MNJ.4B32 WL7TR .06
7ECX.(CT6)Z/*(21+T&1.MNJ.4B42 WL7TR 63R=*0"**1:2.3"9*/	E+^U/VJ(.,GT")6).JR3*5B07RSE3U;R.MNJ.4B62 WL7TR 61R=.1F+.MNJ.4B72 ?G+TCO.3&3"0*M.3"420& 7FR .4J=2 T+ECN.3Z0"0*M.3&4202 +ECT/T64"2*M.3B520^ 7OR /OJ .8B7.MNJ.5B12 ;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