Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!masscomp!know!daemon From: aa384@cleveland.Freenet.Edu (Doug Wokoun) Newsgroups: comp.sys.atari.8bit Subject: CKEY program Version 1.5 Message-ID: <29101@know.pws.bull.com> Date: 10 Jun 91 18:31:26 GMT Sender: daemon@pws.bulL.com Lines: 225 This is an updated version of a program I released about a year ago that adds some control key commands to the 8-bit Atari. This version fixes some bugs, like the lockups that occured when the user did a 'KEY' in SpartaDOS and then pressed RESET, and will not load multiply copies of itself into memory. Program functions: Control-S: pauses the display (like ^1) Control-Q: unpauses the display Control-C: aborts (break key) Shift-Control-S: toggles the screen to increase speed Shift-Control-R: Reboots Shift-Control-P: Prints screen Source code included in .ARC file. begin 666 CKEY15.ARC M&@A#2T59+D%330 .4P@,9A4 ,H6UV;.*_4I ,,&+ @ %BAPI('S8%%%A0y M80P9!'> &-)B29$L#F=$! &)0!@08]ZXH2/G#1L0:\KD 5&'3AHV:>CD<4ACy M8T2D 8&CA9B88!KPQE:)4$J>D1.FS4XW9$#,"2MG3!F0;\C\39.Ty MK8R"$]_ R2/T#!HZ(&+DT-KU:]BQ9<_62=MV!N(I9?Y**1*$B(LF14"8>?D7y MIQRU-!"'Q!LSC$01\2#"0/F8 MQ8Y$X=<+0*5-8!D,B3Z8D<9($y M1 \0)& ,X4A HASF92"G7&FGS!B%,B""$")EB<4LUK''V-I1HICO8=:@5*F:y M39@SZ&D$@A14#,'$$TO$1\)#W'E7!D\MN-3&7V.P\<88:Z!7$PA!4"%%$$-0y MH2 -1#2X$QTDA3$&9!*6\1H,,BP%@A7O"5'B==E!A -7$HTGQAM!Y57>BCFAy MYQ0(4Q#11(A,* BC#$;P"(*200 V4DELH+<6"*@U<:"3,A1Q T<#V/<&BF_8y M]889($S81DXSP>C;1%)(YP028!I!D&QUR+&73FFX@48:1]&!WG!(3F$$$T$4B&VQ61<68@A"6'3 T9)"&A&4Q!!()'$C=C#,L"$D98(@F!UI^ 6"J)PRy M].D03S3AI*F'H2I12&VT$09>E2W'J7J?"A%$DSB62D-LNJK&FAMU_14&&61\y M-T=A,PA8;!!X)FMJ#9QN6"P3R))JZH[-INC&'&:X" (;9;AQ!AUH<"KCIT%@y ML96W-%39;!AUX/%2&D&MY-5RD7%Z)*U.3/%$N200$1"DN]YFTE]BM$3';9QNy M&4051!BQ+W9$%$>F1&9\AUR\8ZP4 Z=S?DS$$"-'#!%]J(0FF$ T,3;%$T%5#y M%&6S<[A(\$EPY 39BDS3H-X023QA17S8%4%##3:.>M\PIFPFY34'4') -N37&_+6M(R0%*#"==C-X!L,7Q^I.0U;PB742"#0y M^Q<<$D4=A-""J^5($=8XX%B",y MT+P!NZ+QJQMEG$0Z##4PY#P158YP-234@Z IBV7@\7::ON*E4 WJ=3X%%57.y M6NO[ GX?/@@\-#&%HX@!WAR$MQ-J6:LP-3A5 >97OR$8BPGOXUP!$+<_'_COy M".\[DOSH]RH'KUO3AMLH!#(Y3<0H. -y MY9'#&E["AA2\#U&=4\(4I/ WNYD(=H&"3$P4XA2VV( A$G'"&^[0NC> ! WFy MT<_&]!(:$-RN=5ADHGHD KLWS*4N7IS#3MB 'S*L)%"3XPF\R,!$ 4ED+R"Xy MPU_(()(30,9ZY=E)5S8S!C1H" $WE="GO!6F55y M4A?+KNG2!KYC(A G"+X9U:A$B%$A9*95+10>4B%K:=X".0@1SW1.(B#ITW=8y M-QYH>H^85:+116RT@K=PI20M"90N;Q"_:58)(C2 9OZ("9\1E+!\AXK$Z9ZB#,_4(DE_MY%IUF) 7Z7""PMS =VMLXTHL-*TRy MD*&2 TA?3/0"%!5"4WD@:,QC@*J0T7&D 2: @B:"L5'ME240R6,&_SX+B )y MYJ>H:JIZ0"K2AC75CB" AO$$CB>J%2-2;1B&<_8!J8238$&VDY3)1C0+AVHy MJ1ME('8Jy M5>!DH[>]'$APMY=E+ Y4&U@.FO983&BL:@T;T,]21[6112YH8SL9UA;3NDE(y MK4!0]53M]E:Z H'B)@0R1@Y!,@UM*&-Y)L0Z'+H+=F5@55B2(A"TYG .NYL#y M"S*I1I'\Y0X\!($;SK3>IFUD#'29@R&_F(>PJ,J*'WD/8'KU*SH*A)-WR8OKy M(+F%T4RA"%3H@E6G (>@ ,6R+FAP*Z^ 14A^!XY Z4F@SC#@H?*D>,=K,"^5y MJ4;7*;@,5!1G%FQ4P&9>*\8"P:F&$0S*R248:0,4 [QFRA+;94D@2#4R]M0'y M@A(7X<0I=@%7J# H-?*4#/P5R$:^ME"(5MZ@B.B2G)RMY4R"-?##F[)J7@1JE^6*'1@"[P54L!>0J'X)3GNBTy M38&Y72/S,E37[!JIWZG4G]T 5&^[BEZ$"9R+ "R2]78*,?GVCQQ4J!-ZN92$y MN13PJTY0'G]7-45?;=-*D-.J'5)(,8W4B;MC,(/VNC109*C#Y(3"$Z)NOYZ!IXLY OY1VM^&K>T0B.#OR :TYS[Xy M.<<[RT';%F&]3GOJIY\ ]6\*70A0QW4Q_0I;2Q>.UE6R+6X;O2%:00$CC;9Yy ME5!@6R(0%.TT:.[:;2N$MT/=L-/9#MV?:I^8PD';=.9O[Z39T=30#.K#S/M@y MQ\Z\B6SE54[0^]#7VSW">W0BQ8:?-!7O=,H;[C @"*C3^7Y%?7Z1C]BC/%X7y M&CT0^* (%15O#218^(D\X>R4WWG8)Q^#&AA6H0SM.0]@3P391[;V9D=[#92Wy MWB8BALU_(<$8Q-"",>RYSI-S%\A;I4K^/G$C=\#B=[2-/2IR72]H" L;\B*&y M<=N@O7AD:4@6 T;E5)%+KCV0S&U@Q^8#M)ATUWR85B5>( O&%W%YCC2Y&L>:&KUTS"GY8,>y MB"@]N%Y.%41#A!U&T!%^PX%?A@/J%0,XT%[*-F">%$AG<";+ 4E&AF_RPH1Hy M184^!53P,H'O$A[:)G(NPH2*M 8+MFS6 QE>06 @D#X4!V#"@H4@5DAI( =_y MMQ>; 58#P(2FPX34Q7._A@-$R"$@PR1,N&H\5X.2,1#EQ4%B0XF2\4U'QVO y M)1FTQ4% 8VDYT(+ATVGKE0/!9HH@(S*MJ'8#4B 'L@3HE0,;-6J8F -;,C6,y MD@6H&%G 5XL&@B"Y.$RU!XQ!((R; !'D)4(C\!#/&!!@)XDA\S(0H7550B#'y MB(NI5DU!^&@C4(/P1!#,F 7AR#T)Q7K>>(O2!1$;M8Q%$(SKV(CA0SHZ524,XS!-(AM89"E;<&),(&DI%I:[6%$C%):&y M)01%$ 4S(FEA:73%!#52\W3I,4S%.(U U!T@X 5299-I0P8_\(S_UCFUYU%8y M0 7:. .@R',DY)BE6"53H"B, D!WM#&%"&&AD1:\-D]"T 354018L%B.N2&2y M29F.*4&#F1LE9)A>@)>*Z5.-R6OS>'FQ&8XS@(_$Y9B1V)F+TBA2LAF3HQAZy M09KQXIC*>)<@P)JNZ5B:&)S/"#;M&'R-UC^RDTV2@[^HID62?3@00[>H,=\B$ALJ,;!06,$I"^)TT$4AV0D 2$2]Y449^y M8:!E&"-S$IOFN'S=.4()9")3$"I&("*(V9O.!YG F9[Q) /?EY7OMQ%48$58y M-I5;9F1S )V0!&#QQ09YP +/R'\;41UJ('*0808P\7=&)@)QA!=!\JB*1$O&y MLQK90P8BT!59!4E)LB14P 1J!@)LIDE\"F(2EJ(4JD/.@DO9]B:30._^5'I:9) ^%1*P'J'DSAW@QB3&E_W]QT_y MPF#DFJ8+NZZ"";#;.+!),*>'"06]V80<19U04"=#0$3-@D2L6!9NS'P\HPXT$I&IF1,5J,:5Q)Uy ME90XP),W.R>1MAT/RU D$(4$H+9(=05_P;,.ZD5L$K8JH9AY% 87.EJ(4;77y MXE.5H6T26A>M"I_?MDJ_554LA7I<53RL8V1?@!]L\ 7[,1._U5X+BDM;Q+.(y MFP>*R86:FXH;(51+.Q@CX2)R4 =P\$<^RU2_M2'6J:^_)4%86B7/J(M<*E(!y MZ8LVFP,X]:IP)8)_L;H:*%>KT[7=!8)8Q*RE:55OLJRDHQ'DQ1L:P1 K.P4My MNPD:@9(:@59&,(B3,V#Y9"E;Y"LIH1=]8K;LZV!&,WZY&AA_ 0,#=B;BAV"By MI$?]&XB_PE68%((QIA&+J!'$6;<.)1%$,!U3@P7]>WR7-[S]"ZZ1P6ND-P57y M 6+@D&6.906R6N5$&4AU-;%A4@ 7^ J8-y M&CG71\5^TL21!05(@+R6.4Q4D 5L_&H%H,9Q+,-"B1CQZR?+]"XQ00=;EC;.y M!@=6S&M,T7'_%SZ.17JU='&;82@==X/5Q+Y\.I9$L5P=IX#OU#22S)=5@@/ y MU7%,E\G@DBV::+XKC!B">V22^Q&%=#W9OD2WMA2F7TA+G<[56Y$E5y MECMI,0-8B3)Z9F #UF$[\2.5PV7RU\".;"H;48%Y86!6/ -8K'/>!3TC0 )Ky MP;[#21#J2U'2XYJ\,,-[A@y M&"\]^QT0VKV'^BOP#&\YB4LX<8BA)$BM[ ;8PP;%[#[47,KFTQ)0\VAW$'Y$@-R?:<%($1$1#=VP[Y]VCE#<';\?,%[y M:*PYT9@Z=YZ7!P7#ZSV=6; ,1[8"(H6P]y M7;T/XD9J&!Y5O=N.#($;L2$R^[W55F16%*'9ZR(AP+X?:+[LNK),H-##J74Xy MY]B S+O.HL?@[=332!\%0$8PS2OMT]HR>(WV$]?GC%!I)06@ MX'2&K#Z=;Cy MP@1R?5/Z[4 PF. BC +P]';)Y(;5QKXH>Z[I2@*^8>%6QT$0WC02+A&L(AA6y MU"X^)08JDB&BHX53I,-'G,16DD.W:^%H]2E/,#5MM5;7RR'TH[Y)D 06+EQRy MF:]6SKZK!>9<,07[/ );KN;JD>8S0+O)W>+AAL0:V+T=$@0^y MG@0KW=JN"'Y_(=W:1H8 4N=8K+R;"!_RJ.:&1=A%9 5J3HR,K:YU;HF.7A6;y M@)0#('7%].$T$.)[ML2K5!/?A.%/O>$U(:2B;G55+@70X5&=?E!,41,XY03I@X=YL!R\+EN;YP3PT>ER]E2+74\Uy M0>W?5'LK&^!@@Y)@@U;*G>N]=^R=1LG3y M.'O4'NE/:-B4#C;!!#9(->X48NOWES:#,=JJ3$=RX]*79$62M$+J- >\/FL-y M(3?M-#7;$*6y M$A1H(94+-M48."$3SY-R0XSS^O(B#$^=_IB218[97C@=GLGQ5#C<" (0 2Z%y MTVOD2#J%L]5//_2TA^924-Y#?R0>_P3$7CB\A 0^Z^)!(2VWNX=X 513\ 9#y M?Z)_(6[W5R%O($I&]MM94CA(9F"?714G]B'!5ZI%7=-[[9$%W<"HFEMWG1^R_Z';$SC5'PO$W$,20( y M S__@' L0^'* "I$C02,B!5O49$&N)H5*3AOT9(!H"P0JX5 @&%EK5* )(9y MJ *QEB43 "T & RMSH%y MD%(-&MT# E-F&B>-" 3Y*2!-T0);M:8)T$C!5K!>&RT( @HA@$+-4@$IY"SFy M3*Z%F,5J%FF9N670!)AC9JY98'/.2CE+%@2:NE+-DF& 1JX439FEF#4""K-Gy MF@$\?29-FQ1$P%1%$4A+!?K!ZG>- JR&T B M%(4/A>C (U?*J:V<>OF[;NHy M;#"9AK5:5BR;+GXX,N3(8">&BQH@8-AX$0/&BQPQ0(C) X+(FSIG0%QYL^:\y MFTT @.P#HJ[5!V@I!, K,E):,E_0')#*1?\( (,.R;P2(&J-% C/"\E( HT#y MJ!4208,"- (/2$V@ 40R_D"S0"LO")!$AB5B D #B2##C0#,'$'.P;5B*[_AB2D:J*"ABH>F_5,A _P 84$0y M%3;@488!C<2LL*D)P"!)8( C0#@"# 0:"$-+15DN1$]# 1"0 RA8'y M:2%?/0\ P2((6@L$G"D"5%LK@8\J2)!#LQ7-200.3-F#IMRKBA$X9.FC=Ny M AH@&' $P4T@(!TXF!!$FCD@PH"8DZ8-'#9E0,"1\^:,G#!M0-!!TW%3&#)Dy M8-H ,08D'9YL0*PIDP?$&SAE?GH$"9/.FYAN\FP*PE%.&A X6HA)0X?I&YMUy MZ&1U 0)$E3E98;XQ T*(D"ES-KV1 Z+)E!9$GDQQ"U>N')AMPE0UD\8-&:%Hy M7F[:V?-G4#1EV, Q4X>-BTTH(2$ ED@=Q,:9SA1AA1#=61y M2VUI5MQQR1'H74Q,928''-N]9R%RF[CQ1H1N&,=@5&SAQ09?;0R6DX-N6.7&y M&&6@%P9Q\X4Q%4QUP('A')$="-0;=6QDE1F;9-2B'%5YY5*)%&XG1%4WA3$&y M==9MPD9E.;D77'R5@9 'D8292%Z/((C1T1AH;$(93B 42496X(E'7ACFL2 Fy MD4R%$2-1=I21'H#8>1:3'6$8&(88<#YXHE UE3'':9 ,D-("H!A3CSOCT)/.y M.Z[QYELFPX!*CSSOL-/*-!GH (48=2!5U< SC&&'&5HA!((9+Q4954WR@A"y MB\;U]=<)>A%F&&**[6H?'''E11<*4]2D*&%.#N$45"W$L&L9>- (1X1MD?&&y MI""(.%]/9^"4PJBENG-JJJU$TZI=;H@G*[KTS71KKF[LVNL56\48[$Z2TN1&=?UN(804102Q1!=2424Q")E,@TXZYM#32KSSJLJJy MJU2PBY/'N]J*JT:\^LJ&9-M1 ;(;6/:K-< DF\$7KG.4UO&3&,H 0PLSP%#"y MD__>F%-ENW)&XQPZ5T=PKF2$G1E,!1ZH[JYW#+9&@%C)T9R%0Z4['D]W6$58y M@7-F_:]&,&TY%69OX!4G7I>%V>\41&"QJQ:'8X5I5,?122_=]-,5TRO-y MO5*4L?&(6-IK#5_KU/8X\y M:5=C AEX6@<"*02A"0.[WTS00"0V*, #B9"$*2S!y M!5/(PF+(8)9 R6%7$Y)#'<90,^+$:'4,Q$\=& 0",PQF5Z0A#V@(4QD?RD%Vy M*'O7Q)3&-*=!S6*M@,:]H&"6C;Q,+GB@@^>VEC+M@29&. /<_/0TE)> @"ALy MZ-@& 50RK:#L2"&\2,@THL6Z%&I ?KH,D>@ K;?=@2AR<2&OP =#O=P00%ALy MR]FXYB3Z]*V*CME.$ Y4&1>:S@YIF--7]*?!NC3%#2Z4RV6FN7E0U$Y \NT(K,XY0M7O:+AHN#$-K?!9$Y8L0R6y M0+(K"F8N@839265HY[><\0LT;6 E"/YC1OM@#Y%G8 D%y MR:R@IR[V#%* LA.4-IX,)+C<53$S@KMI%(,9Q1@&->[5G0/AB@YC X&'O)G'y M74T%>4+Y2D1Y:-$:$HA[.0&-!07VACMT<9L#7$].9**MC7#K/&=T&!EXZE,0y M;&$*16!"$89 !:+]T4#\RQF6BOH4AQ$T/R>8P@D\F!F!MH"K4&',6A940\89y M*"K&>6NZ1@0"7;JA94,-"PB"0(4@3&$(24B"LXCR$QIF18DI,4 F@D$.R>ZG"ZY@DJ.(SY9IC",Y[R* :U_%/M)N;9M3D,LB"B/1L&*R8B?B\PUy M"EJP; !Z:E2G6E4-OY17/8V1N23EAA.T90RQ,EV_LJQA/'N9)Q1=,ZZ:HJ#9y MRJQ29@M#F_F;O6U&.#)5*68:HVPS$+2O+6_*"1GJ\**O^.E)BS(06\1R8B&584(%^%'Qy M#0^MU&! /=>V1.\;.ZAED5(;Q!#/4^HIY8>^*!/3?@y M+;DJG.@#+%QI6(9N(!MUT;U=%T$H3G!@YHG!!=N='0T2!-#6?>A8XORT[0Q]y MMNEX!!5@-MBG#"ZHE&]@_L'\-&6.! /)G&;4;!T,G0!)V$A6G!!BIR!@'3 2!TV;$"D<3.'CIPZ8^BD><,21)LP>4"(*0/"S)LZy M;LAL6@F"#AJ>9M*P*:,#Q,&$+H@\&;))),E,KH))&P;*7#IVY4"->^>.7KFRy M\W1EJ#J2P-,L;1\(5,&<,6+<36"0&PTS9R>y M2EM;/4 %C6T0>??V;0,B3% 0I9JWR]I W;/FIYM-QIW?S+FS9W+E.