((CCCCCCCCCC1C1C12C70C70C71C71MAINFILEMODENAMETEMPFILESDPICDISKPR1PR2HDCOLREGSHIFDLSPAGEDNOPICKFILPICLPIPICOROCONSOWAIMEMLMEMHSCDLISLOHIGSKCTPRRRRRRSSSSSZZZZZFFFFFIIIILTSORTEPRPRPICSTMIREOPAPAGE6  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZd/ #A/"n110,1,2,3,4,5,6,7,8,10,15,129,708,709,710,712xàΛOOThis program displays Micro Illustrator files in a continuous slide show.MMIt loads one file in one part of memory, while it displays another fileQQin a second area of memory. Then it fades the screen to black, switches theNNdisplay list to the newly loaded picture, and fades back up. The programRRruns continuously, showing the selected .PIC" files on a disk. Requires 48K.GG;A0,;A,;@a,;,;,;$@d,;,;,++;A d,;A d,;,;@0,;;6-C:.hhhhhhh`,JJX=USR(SHIFT,FROM,TOO,NUM) Moves NUM bytes from memory location FROMto location TOO A&++000+AYk%6-F:A`,%AV$F:Aa,9%@ @2M%@'@_AY@4kAR= -(>:A%,-=( ͠Ǡɠà̠ΠԠŠҠ --@!-(Press ANY KEY to ContinueL -((RICHARD Q. FOX [72356,242]L( LEE C. ZION [70155,656]"L -((BOB GEAYER [71425,463]L( DOUG LANGE [74365,610],C-@/(TOM McCOMB [72456,1042]5-C( +CREDITS+60 -0("For Touch Tablet & Koala Pad Files@7-@7(#Please send comments via CompuServeJ A @T##. PUT DISK I/O SUBROUTINES IN^"". PAGE FOUR CASSETTE BUFFER.h,,6-C:HI V0  `hh`,r;6-?:<<A$<@1,;MOVE ASM ROUTINE TO PAGE 4|$$. ROUTINE TO CHANGE GRAPHICS 8. TO GRAPHICS MODE EGG6.=h01eeAO ݩ֩N`##. MAIN$ IS A MACHINE LANGUAGE"". ROUTINE TO DECOMPRESS .PIC!!. FILES MADE BY THE PROGRAM"". 'MICRO ILLUSTRATOR' AND TO##. DISPLAY THEM ON THE SCREEN.qq67,.dhBDE   D     ww67A,.d!  XY X!  FD))   ww67A,.d ]GPee`/ee(e--67A,.eee`##67A<A,.>:@4,##67AW<AW,.>:@4,HHTHE FOLLOWING PATCHES DIVERT THE COLOR INFORMATION TO MEMORY $5FC4HHTO $5FC8, AND MAKE THE LOAD ADDRESS FOR THE SCREEN IMAGE VARIABLE.##67A"<A",.>:Ai,&##67A#<A#,.>:@,0##67A(<A(,.>:Ai,:67<,.>:,D##67@d<@d,.>:@,N##67@r<@r,.>:@,X##67@<@,.>:@,b##67@<@,.>:@,l##67@<@,.>:@,v--READ DISK DIRECTORY AND FIND .PIC FILESM+000+AYM6-F:A`,%AV$F:Aa, #A-@1"% MM5,66,64,156,4,2,2,2,2,0,2,2,2,2,0,2,2,2,2,0,2,2,2,2,5,2,2,2,2,65,32,156+AY,@40= -(>:A%,-=( ͠Ǡɠà̠ΠԠŠҠ 1 -@@1(No PICTURES Found?AR-@ 7(Which Disk Drive (1-4)??6. ! A @"@1!6.1"@06.2"@&6.3"@$6.4 4  A0 ! 6-6-6-!6-A (6.D1:*.PIC67<,.(  6-6-6-* 47<,0  A`> 6-%H67$&<$,.7,R A\ "6- A0f 6-6-p6 -6((z -$ A -%$(7$&<$,  6-6- A - (>:A,<-@<((1-@1(Press ESCAPE for Pictures,-@ ,(Press SPACE BAR for SHOW6-@!6("Press CONSOLE SWITCH to Start OverK-@"?(*Use  and to SELECT PicturesKAR" A @" A0 A -(  " 6-%"@(6- A "@!6-&# "!@#6-&@ " &6-%@$@ A. " A8!@ ABE 6-%'67$&<$,.7$&<$,1 A 9-&?(*E6-L@3 A 0V " A0` 6-j (}t0-@ @0(~--@-(Press for MAIN MENU8-@!8($=Pause =Resume =Print-A ((START LOADING IN THE FIRST PICTURE67<,.>:@, AP..NOW THAT ITS LOADED, SET UP GRAPHICS 7.5+%@6-?:C:,,16-F:@,!6-F:@,16-%AV$%%6-F:A`,%AV$F:Aa, 6-%6-% 6-6- SPEED OF FADES "". NOW DISPLAY ALL .PIC FILES. FOUND ON THE DISK.DISPLAY LOW, LOAD HI( AFADE DOWN2%%@%%AA< A@FADE UPF67<,.>:,P APZDISPLAY HI, LOAD LOWd AFADE DOWNn %%AADx A@FADE UP67<,.>:@, AP A ++SUBROUTINE TO PICK AND LOAD A PICTURE 6-%@w " A-A# A!"''# A0 " ' APA6-F:B7u,("AG)"AQ76-F:B7i,A A  " A!0' A  AA6-F:B7u,("AG)"AQ76-F:B7i,A A  " A!0 A" A! AP, 6-! A66.D1: @+"@(+67<@,.7$&<$,J+@(+67<@,.7$&<$,T67<,.^-@h+7<,4 67,..PIC!'+ A`r |6-?:C:,,$KKTHAT'S THE LAST PICTURE, PUT THE TITLE UP WHILE WE LOAD THE FIRST ONE: 6-+%@-0  MAGIC LANTERN: A**SUBROUTINE TO SET UP THE FADE VALUES6 6-F:,6-F:,6-F:,-6-F:A,66-F:,I6-'@6-'@-6-'@;6-'@I6-'@0 6-P:,6-P:,6-P:,'6-P:,06-P:,I6-$@6-$@-6-$@;6-$@I6-$@$FADEOUT SUBROUTINE% A06-6-6-%6-""__Begin fadeout_____________ 6-&P:, & 6-&P:,0 : 6-&P:,D N 6-&P:,X b#F:,)F:,)F:,)F:,# Al""__End fadeout_____________v$FADEIN SUBROUTINE##__Begin fadein after new pic_N6-F:BE,!6-F:BE,06-F:BE,?6-F:BE,N6-F:BE , A@ -P:,  -P:,  -P:,  -P:, ##__End fadein_______________$F 6-@$P:+&,'@,*6-&%C6-$P:+&,'@,%F$KEYBOARD INPUT ROUTINE!6-F:B7u,!6-F:B7i, A!$ "AU A @"AG A @ '!@c6-&@d' A *$46-F:B2y,> !6-& A!H$RԠӛ\# 6.067@0,.#67,.f9 6-F:,6-P:'@,-6-&$@96-B:=:,,p!67&<,.=:,!67<,.=:,z9 6-F:,6-P:'@,-6-&$@96-B:=:,,367&<@ ,.=:,367@<@,.=:,9 6-F:,6-P:'@,-6-&$@96-B:=:,,367@&<,.=:,367@<@,.=:,9 6-F:,6-P:'@,-6-&$@96-B:=:,,967@"&<@!,.=:,967@$<@$,.=:, 6--5+7$%<$%,/7+%,$%<+%,$%,5 A"!!67@%<@0,.7$%,++67$%<$%,.7+%,$%<+%,$%,5/67+%,$%<+%,$%,.7@%<@0,56- ( A"0 SETUP PRINTER FOR GRAPHICS \ A#p P:\(>:@',>:@d,>:@',>:@Q,>:@, A#  6-C:,6-C:,$ SCREEN TO PRINTER LOOP. 6-F:,%AV$F:,8 f-@9)6-A$@@%%>6-?:A6<<<,P(7<A,b(7<A,f B  $L SETUP SUBROUTINESV + #A$-"'67<,.>:,+ ` 27,76,12,3j - 6.>:,67A d,.>:,'67,.-6.t 67<,.67<,.~ COLOR REGISTER PATTERNS - 6-A:7$%<$%,, 336-$+",%$+",%@ $+",%@$+", ))%A$A$A%A%  #A%@ A%   #A%P A%   #A%` A%  #A%p # -"A0%%#    15,15,15,15 10,5,10,5 10,0,5,0 0,0,0,0 $ SCREEN DUMP SUBROUTINE( ;A,6.2 >>67B:,%,.,hhhhhhhϩРˍ< ??67B:,%,.-ϭiͭiL_ϭiͭiF ??67B:,%,.-      8(̅ХP ??67B:,%,.-З`) ``JJ` Z ""67B:,%,.q͑`d $!6-?: