[comp.binaries.atari.st] v13i046: 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 13, Issue 46
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 nlightb.lzh
M(;\M;&@Q+5$!  #7 0  VUPG%B  "VY?;&EG:'0N<')GI)?V:;&8>!PC &F7z
MX#\EX!QH YD>!L7S7?.[W-[72[&]N@=F/WAQU.:^^RZP)D.5\M9:0M$6*49Qy
M(HK,].5N-AA<[%A&U[7$(/J MX@;:SGY! UD2OF7RFQ+<!F2OS<MW2!OW]DEx
MX1#QD5O6,*1>_@08= KB.+^YKN0Z$QC>-:7A<WIN*82T;YY(B"#)2K;P4MZYw
M:DZIF+Z.W4]-(CW:8KLAA'*H2UA7#8UT'FBB&P2 0>BG^14"RS@ _[K4"]4Cv
M$9-PP=IA)RO]>0NQ@JM'= (ANC1@?A*);ISLOY@,XX(9X+OU7'6$X$J4M<N^u
M)>T;$U-A1OO&!\I5E %W,0&NY3R@NZ1W5R!BQYI 1IMDYC80?L +*.64_XXUt
M047XSB@%TD HP, ]W_Q1 G2KY! @O_!YLI]I5JIK4/>KFRO:=9#2TQ:)YR71s
MXAZ<TSO;[OEC, 7 (1 M;&@Q+28#  !&!0  ?5TG%B  "VY?;&EG:'0N='ATr
MD??,Y;M>OL=7I]3P;KN=Z_Q<2W:O?I]?_K/Y_OW\[#V_FRM/U9@%;^)NE.J5q
M?Q Y+J5I^Z?)-KP&JE2Z3CRPH/?:RPYU9)L(>BS=S\HD:Q7@K/@X!+Q[C&Z%p
MRVXTD/M;R3T(N!E;(]@(A5TAQF&IZ#7&3S:,,>:V(BN9#O&^529V:4242TD1o
MI@@(L"HOX+3A1/Z9"K7# W?; 1$:8(B@++#)X?G_BD:\&N_IE0C%A_1Q]I3_n
MC%TC0*CFCDTX?<;(%FQFH?X^XO\!""8I2B$!UN> ] =;4P9I0H+U3@%'4;7Rm
MU]%3IHH&>^W\?H/?@<BD7_8D.K'WCZD7('VH__;N2)+>9T*E8_0D5I""-=O@l
M=^GBM?!!U^OJWUWAOIQX&YRZ#&.DQ\'JP-=-N[Y2@W3O8*9U6R"UMB4@;42%k
MYK<R6[?IJ\TYSZK:;3)Z;KI2JT3HUL^E.5.7,0B"X^Z0<="AO2\&B:]?-4^%j
MM:;+<4DS]"\?6'BT1O7/9LU=,T=7YUM!BIU@V^L]:ZM [%C3>ND3<+]-[D.Oi
M'2X=PH.Z-\.[P[+0WJ%8P3:*C$?1$.FW/*<>5].,OG/5>6XY*\EN5K5XHF8[h
M3)E&M+L;)#LN/I_BZ8]O!2K;A9D4!\*4)\DG&IKWB0,KC@WT&;WZXD30;.&Zg
M6&%%4.BBGXY\S!D82J*'O\Y\"JKA<18W^2WLPV0TMR#FR2/391F,4]?E1;D#f
MG9.QC& O*.C9(0A42"4#&E50LIKUBX*JA1VE59%0DILMR4?)^PZ>H[LL&=%Ie
MW@740=8@"%/$7#S;MLD^APV*DO,40%I:JQH>)-DEJ03;@RY>GD"(L)S2(V*"d
M'G$.(C;)<&&A2!!N=:^B 0LAL2[>N[#A=%)#D=DL-B!83N&.D8!S1IFTGJ'@c
MOVV-'[9I-?]H<Z/2#CY.\(#/*6Y2;QN_TUK.]<#'.8RBTMD^-_HI\07I__FNb
M4WR+O39TQ(EWN_.@4+?=>K6Y/-)!9.%'AP_KB0CIGV24\Y(;NVS\N_54:=3?a
LV\=8U@G(:8$10<U,L('>0=2JW6TB<;Z-^^1H*CN9,CAP.?-H/GSS]PW'@ #?z
 y
end