X;SAVE#D1:>macros>iomac.m65X;X;(X;LOAD#D9:xxxxxx.xxx2X;<EIFEHPZX;dX;This file contains ONLYnX;I/O macros.xX;X;No math or graphics, etc.X;X;X;堰X; X; ICCOMB ICBALD ICBAHE ICBLLH ICBLHI ICAX1J ICAX2K ICAX3L ICAX4M ICAX5N"X;,DSTATS6DBUFLO@DBUFHIJDBYTLOTDBYTHI ^X;h CIOVVr SIOVS| ROWCRST COLCRSUCOLOR0COLOR1COLOR2COLOR3ATACHR DE DFX; AFP FASC IFP FPI ZFR0D ZFR1F FMOVE& FMUL0 FR0: FR1D FDIV(NX;XCDTMV1bCDTMV2lCDTMV3vCDTMV4CDTMV5 VVBLKI"VVBLKD$CDTMA1&CDTMA2(CDTMF3*CDTMF4,CDTMF5.SDMCTL/SDLSTL0X; MEMLOX;DMACTL X;CONSOL = $D01FKBCODE RANDOM * IRQEN4 PORTB> NMIENHX;RSETVBV\\XITVBVbfX;pVCLOSE!MCLOSEzVOPEN!MOPENVGET!MGETVPUT!MPUT ENDVECSEIX; .OPT LISTX;BUFF .= *X; *= *+1024EI MCLOSEQ>  PICCOM9 !CIOV MOPEN PICAX19C PICAX29$Q>. PICCOM98 !CIOVBMPUTL?VQ>` PICBLL9j PICBLH9tQ> ~ PICCOM9C !CIOVMGETQ> PICBLL9 PICBLH9Q> PICCOM9 !CIOVX;X; X;X;  CLOSE  $>   VCLOSE(X; BPL *+52X; JSR ERROR<FX;P OPEN Z $>  d  2  n!@Ox @O1  =@O Q>4@O1 PICBAL9 Q>5@O1 PICBAH9 Q>4  PICBAL9 Q>5  PICBAH9Q> %>  VOPENX; BPL *+5"X; JSR ERROR, X;@OE16 X; TYA@JX;TX;^ PUT hX;ԠӠԠr $>  | VPUTX; BPL *+5X; JSR ERRORX; GET X;ӠŠŠΠ $>   VGETX; BPL *+5X; JSR ERRORX;X;X;X; BGET & $>  0 Q>4 : PICBAL9D Q>5 N PICBAH9X Q>4 b PICBLL9l Q>5 v PICBLH9Q> PICCOM9 CIOV X; TYAX; BPL *+5X; JSR ERRORX; BPUT  $>   Q>4  PICBAL9 Q>5  PICBAH9  Q>4  PICBLL9  Q>5 * PICBLH94Q> > PICCOM9H CIOVRX; BPL *+5\X; JSR ERRORfpX;z INPUT X;ԠȬƬΎ $>   Q>4  PICBAL9 Q>5  PICBAH9 Q>4  PICBLL9 Q>5  PICBLH9Q> PICCOM9 CIOV X; BPL *+5 X; JSR ERROR $ X;. PRINT 8 X;ԠϢB X;ԠҬL X;ԠҬV  ` $>  j t $>~    2  !@2PR @1 = @2PR   BPUT =@1=   BPUT =@1=@2PR@1     BPUT = =   Q>4  PICBAL9( Q>5 2 PICBAH9< Q>F PICBLL9P Q>Z PICBLH9d Q> n PICCOM9x CIOV   X; BPL *+5 X; JSR ERROR  X; XIO X;ϠҺ $>    2  Q>   Q   PICCOM9   2  " Q> , 6 Q @ J PICAX19T   2  ^ Q> h r Q |  PICAX29   2  !@2BP @1 = @2BP Q>4@1 PICBAL9 Q>5@1 PICBAH9  Q>4  PICBAL9 Q>5  PICBAH9 & CIOV0 C: X; BPL *+5D X; JSR ERRORN X X;b DSTATUS l X;Ӡv $>  Q> PICCOM9 CIOV  X; X; X; RND X;Ġ L1 Q   R>   R   EL1* 4 X;> BPUTV H "X;ŠΠΠӠĠR $>  \ Q>4 f PICBAL9p Q>5 z PICBAH9 Q  PICBLL9 Q  PICBLH9 Q> PICCOM9 CIOV  X; PAK PRINT =APress a key.A= L1 QR>FL1Q>$P.8X;B BGET.V LX;ҠŠΠҽV $>  `Q j PICBAL9t Q ~ PICBAH9 Q>4  PICBLL9 Q>5  PICBLH9Q> PICCOM9 CIOVCX; BGETV X;ҠŠΠν $>   Q>4  PICBAL9 Q>5 ( PICBAH92Q < PICBLL9F Q P PICBLH9ZQ>d PICCOM9n CIOVxCX; BPUT.V "X;ŠΠƠӠĠŪ $>  Q  PICBAL9 Q  PICBAH9 Q>4  PICBLL9 Q>5  PICBLH9Q>  PICCOM9 CIOV",X;6 INPUT.V @X;ԠȬҬJ $>  TQ ^ PICBAL9h Q r PICBAH9| Q>4  PICBLL9 Q>5  PICBLH9Q> PICCOM9 CIOVX; BPL *+5X; JSR ERRORX;