[comp.sources.atari.st] v04i057: nlight -- Show I/O to any disk by flashing floppy light

koreth@panarthea.ebay.sun.com (Steven Grimm) (01/09/91)

Submitted-by: kruysbergen@psych.kun.nl (Noud van Kruysbergen)
Posting-number: Volume 4, Issue 57
Archive-name: nlight

This file contains N_LIGHT.PRG, N_LIGHT.S and N_LIGHT.TXT. This
program show the non-floppy disk I/O by switching the floppy
drive A on. It is based on DCFLIGHT.PRG by Double Click Soft-
ware, but N_LIGHT uses the XBRA protocol and is even smaller.

Sincerely,

Noud van Kruysbergen
NICI
University of Nijmegen
kruysbergen@psych.kun.nl

-----------------------%< cut here >%-------------------------
table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 nlights.lzh
M'T@M;&@Q+;X$  #<#P  YEPG%B  "6Y?;&EG:'0N<ZMCVVV $P ,SEL7$,K#z
M-B-(WM>OL=7I]3P;KOZS>W%?;;SA;NTJV7%L5-IS]K7O_V _"4"]OZEZ_^J y
M7_^[XT7SFJ3]$;% %Q-NY^GUH)?Y$J9V12_F63@O0!U^%]D1D>$!L[T(M/QFx
MTT/WQ31-ZZ=.]*8@,$GJ'-;GY,D9(W0O3*&?O[R-7@D[10.N/"I6"RY-*.(4w
MW30F)RAM(Q,46ECS2;_)@T21]'34IUB4^@ H'0N]_*1ZDZPL'<A%6:P_02AKv
M.,X4O<O:/FP,-*8<M52#J_"6?R49T&A%A=&,O' "FJROWG?VK!TJ!P#85[M:u
MHXXR@^GO7R-*-51V@JS(V.J(2G^08B%%@X$[>+\9+SB2 _]<WO$)XW6VV/)Pt
M/!+MJN<Q966B^JUB$VW/Y_@^]WYK( AEAE1B>Q2HZK=20(S0/#Q:J6V=Q@M$s
M$O'#;&+/S<#FW9,GST+1R%'&Q0GX^X'W?I=6T1FYRZQ766M?4++'FR'20^FQr
MGA^9UFTG-"$=E]7!*=?HH[XM32H'JX/PG<",6^&FTHG#D>0#CD@YQE8<)?MXq
MQ,VEF!T.7SF@'S:@YN5V" D*_2PT$\F2CE=>U52<%6-NFRS.'\NU@;3N\@)Rp
M;=,SGST>5=QQ=LEK576D+/X!!<(!Y)*_A%0TW:"G5R0GD24R4,;]PZN.H&T\o
M",^B,MXX8AYTL'X=T:5;EQ+/]Z9  I,@^UTME%G\LE6LSZ=?.!D:JSZO9?,_n
M?S#M9+BQ\/N-5P^:(Q'MVZOX$ZB!U&_-\]%-B)=44=ED1%NC@:H11$FD/1H3m
MNSRV4M35$[M^R0.<@TU'3LKR1IU@KBE=>1D/A7B1;'V'J<NR@O::YJ2>'4>?l
M-5R^J?\;GR^7? 2R0T+,A_(E70_FIB/*F31]>D5$7J>D\;)AHP+Y(X=]1,(,k
M,;/7E6&*F*,^F)?O9K1!&1+SX+0=V3M(>,>?-UH8'$/ Z$W<QSY2SK'AT"['j
MBSA+RVK/KL!9@_%)]!B8EI6DQV0B.N^8/?O$!,(-5=:37ODN$(85FTIP<&WAi
MF&UC!0[PUKJCAG!Q^7>\Y0?'FF ^8[VG,^K^'/]CNNIUYQ<I3."*Q'7KIZ\Rh
M5B?B<<TCW'2X,5:4G+%393('7#%ZTS 86TB44A7)JP^]B0DQU/RHSF6[2[49g
MM/EW52K3[>SR(J[7=*:.X5C3*I0_Z!Z>N*G)K@E-WB&.'5).ERZ+D[^5-9JCf
MA$!XW,ORR:&%"#;FDZF7\!9<*IXMQ>,C9[)?N9WSD8FU.65TZ5R*-%PBL;O;e
MWBOC"ZCF #"1XV<8ER8M*(5UK_!$[E@>0@6W3T$;>OV+1A;Q-%C(Y!GY'[<Rd
M&H@\,R^/%4)KB.]0(1H*S(SV:]YS%X-P)X9F"-"8#ZYKYN\5&Z?1"KT.BK8.c
MB/T0QP)X])?W8$:F8;QP_SXG3*/^EO[/,%*_-#\G28:/H[#Q:-I$'%"MLA)?b
M$6:;0)=#75V.& Z^.3U8,H^Q?T/4?7*,1K?W0TY$G_WW@$24\ E$N?3'.6F3a
M!?,M3CN!QDL3X+X^V[W+I.!H7O>YHP@/FON5Y5W5,\$(&%EE%WMR^=P[=#DCz
M%"VL5+Q0^<+01=E%OQ@1A8!XQA:V0R<+8%? @UY8PX0A$"UL:#$M)@,  $8%y
M  !]72<6(  +;E]L:6=H="YT>'21]\SENUZ^QU>GU/!NNYWK_%Q+=J]^GU_^x
ML_G^_?SL/;^;*T_5F 5OXFZ4ZI5_$#DNI6G[I\DVO :J5+I./+"@]]K+#G5Dw
MFPAZ+-W/RB1K%>"L^#@$O'N,;H7+;C20^UO)/0BX&5LCV B%72'&8:GH-<9/v
M-HPQYK8B*YD.\;Y5)G9I1)1+21&F" BP*B_@M.%$_ID*M<,#=]L!$1I@B* Lu
ML,GA^?^*1KP:[^F5",6']''VE/^,72- J.:.33A]QL@6;&:A_C[B_P$()BE*t
M(0'6YX#T!UM3!FE"@O5. 4=1M?+7T5.FB@9[[?Q^@]^!R*1?]B0ZL?>/J1<@s
M?:C_]NY(DMYG0J5C]"16D((UV^!WZ>*U\$'7Z^K?7>&^G'@;G+H,8Z3'P>K r
MUTV[OE*#=.]@IG5;(+6V)2!M1(7FMS);M^FKS3G/JMIM,GINNE*K1.C6SZ4Yq
M4Y<Q"(+C[I!QT*&]+P:)KU\U3X6UILMQ23/T+Q]8>+1&]<]FS5TS1U?G6T&*p
MG6#;ZSUKJT#L6--ZZ1-POTWN0Z\=+AW"@[HWP[O#LM#>H5C!-HJ,1]$0Z;<\o
MIQY7TXR^<]5Y;CDKR6Y6M7BB9CM,F4:TNQLD.RX^G^+ICV\%*MN%F10'PI0Gn
MR2<:FO>) RN.#?09O?KB1-!LX;I88450Z**?CGS,&1A*HH>_SGP*JN%Q%C?Ym
M+>S#9#2W(.;)(]-E&8Q3U^5%N0.=D[&,8"\HZ-DA"%1()0,:55"RFO6+@JJ%l
M':55D5"2FRW)1\G[#IZCNRP9T6G>!=1!UB (4\1</-NVR3Z'#8J2\Q1 6EJKk
M&AXDV26I!-N#+EZ>0(BPG-(C8H(><0XB-LEP8:%($&YUKZ(!"R&Q+MZ[L.%Tj
M4D.1V2PV(%A.X8Z1@'-&F;2>H>"_;8T?MFDU_VASH](./D[P@,\I;E)O&[_3i
M6L[UP,<YC*+2V3XW^BGQ!>G_^:Y3?(N]-G3$B7>[\Z!0M]UZM;D\TD%DX4>'h
M#^N)".F?9)3SDAN[;/R[]51IU-_;QUC6"<AI@1%!S4RP@=Y!U*K=;2)QOHW[g
3Y&@J.YDR.' Y\V@^?//W#<>  -_;f
 e
end