u'u THE BASIC 8 AUTOMATIC SLIDESHOWVu THIS PROGRAM WILL SEARCH AND DISPLAY ALLu BASIC 8 PICTURES (PICT.FILENAME) FOUND ONu( A DISK IN SEQUENTIAL OR RANDOM ORDER.u2 64K VDC RAM REQUIREDu< PROGRAMMED BY LOU WALLACE 8/10/88 vF@:,1:@L,0,0,03vP@<,7,0,0,640,900,0,0:@K,7:@L,0,0,0EvZ@8:%:(14)`vdDE$" "vnDN(("BA")): DN8 DN8vxXX(TI):BG2:FG0v 610v@5,2,0,65535:@,BG,FG,0v DE$(244),S(244)Jw"HE ASIC 8 LIDESHOW (64 )"::"RITTEN BY OU ALLACE."::"ADE POSSIBLE BY ASIC 8!":: 5w"URRENT DRIVE IS ";DN;". O YOU WANT TO CHANGE IT? (/)"w KE$w KE$"Y" KE$"N" 180w KE$"N" 230'x: "EW DRIVE NUMBER=";ND: ND8 ND11 :"UT OF RANGE! RY AGAIN...": 1:: 2101xDNNDSx: "LOOKING FOR PICTURES..."nx 3,DN,0,"$:""PICT.*"xxL@Sx ST0 290xDE$(DE)(DE$,L)xDEDE1: 250x" 3:DEDE1x,S0:B(0)0:B(1)32000:C(0)16000:C(1)48000 y6:"LOOKING FOR INFO ON THESE PICTURES..."/y@ I1 DE=yJN$DE$(I)VyT DN,DN,DN,N$",P,R"ty^ J1 12:#DN,A$:: DNyhS(I)(A$): S(I)4 S(I)0yry|:"ISPLAY PICTURES IN ORDER OR RANDOMLY (/)?";y KE$: KE$"O" KE$"R" 390zKE$:RF0: KE$"R" RF1cz:"HIS ASIC 8 LIDEHOW WILL RUN UNTIL YOU PRESS THE KEY.": 3yz@K,7,7:@L,0,0,0zS0:B(0)0:B(1)32000:C(0)16000:C(1)48000:FL0z@<,0,0,S(1),640,200,B(0),C(0)z@<,1,0,S(1),640,200,B(1),C(1){@K,0,0:@L,0,0,2:@K,1,1:@L,0,0,2:{@K,0,0:@L,0,0,2:@K,1,0N{VD0:@,BG,FG,0]{ I1 DE{ RF1 JJ((1)DE)1: JJI{@<,0,0,S(JJ),640,200,B(0),C(0){@<,1,0,S(JJ),640,200,B(1),C(1)|@L,0,0,2:@J,1,DN,0,DE$(JJ):@K,0,0:@L,0,0,2:@K,1,0|VD((1)30)1|& VD 620,650,680,700,730,760,790,820,850,880,920,960,1020,1120,1190,1290,1350,1410,1470,1510,1630,1680,1730,1780,1830,1890,1950|0VDVD27: VD1 580|: VD 2050,2120,2200|D KE$: KE$(27) IDE:FL1 }N: 3: FL1 610}X 430(}b DN:@8:%:C}l SIMPLE LEFT TO RIGHTm}v K0 79:@,1,K8,0,8,200,0,K8,0:s}} MORE LEFT TO RIGHT} K0 79 2:@,1,K8,0,16,200,0,K8,0:}} K0 79 4:@,1,K8,0,32,200,0,K8,0:} ~ RIGHT TO LEFT9~ K79 0 1:@,1,K8,0,8,200,0,K8,0:?~Y~ RIGHT TO LEFT WIDER~ K78 0 2:@,1,K8,0,16,200,0,K8,0:~~ RIGHT TO LEFT WIDER AGAIN~ K76 0 4:@,1,K8,0,32,200,0,K8,0:~ ~ TOP TO BOTTOM$  K0 199 8:@,1,0,K,640,8,0,0,K:**D4 TOP TO BOTTOM WIDERq> K0 199 16:@,1,0,K,640,16,0,0,K:wHR TOP TO BOTTOM WIDER AGAIN\ K0 199 24:@,1,0,K,640,24,0,0,K:fp MIXED #1z K0 78 2:@,1,K8,0,8,200,0,K8,0:5 K1 79 2:@,1,K8,0,8,200,0,K8,0:;J MIXED #2x K0 78 2:@,1,K8,0,8,200,0,K8,0: K79 1 2:@,1,K8,0,8,200,0,K8,0: CHECKEREDҀ Y0 199 24 X0 639 32@,1,X,Y,32,24,0,X,Y:! CHECKERED #26 Y0 199 24K X0 639 64d@,1,X,Y,32,24,0,X,Yl$:. Y0 199 248 X32 639 64B@,1,X,Y,32,24,0,X,YL:Vˁ` CORNERׁjX0:Y0t K1 10~XX64:YY20@,1,0,0,X,Y,0,0,0+ CORNER #2;X631:Y192J K1 10i@,1,X,Y,640X,200Y,0,X,Y{XX64:YY20 X0 X0 Y0 Y0@,1,X,Y,640X,200Y,0,X,YƂڂ  MIDDLE OUT #1 TT0 39@,1,(TT40)8,0,8,200,0,(TT40)8,0<(@,1,(39TT)8,0,8,200,0,(39TT)8,0B2H<\F MIDDLE OUT #2lP TT0 12Z@,1,0,(TT12)8,640,8,0,0,(TT12)8d@,1,0,(12TT)8,640,8,0,0,(12TT)8ănʃx݃ MIDDLE IN #1 TT39 0 1@,1,(40TT)8,0,8,200,0,(40TT)8,0D@,1,(39TT)8,0,8,200,0,(39TT)8,0JPc DUAL STEPPER K0 78 2:@,1,K8,0,8,200,0,K8,0@,1,(79K)8,0,8,200,0,(79K)8,0:Ԅ DUALING CORNERSX10:Y10:X2631:Y2192 K1 10X1X164:Y1Y120.@,1,0,0,X1,Y1,0,0,0S@,1,X2,Y2,640X2,200Y2,0,X2,Y2i"X2X264:Y2Y220{, X20 X206 Y20 Y20@@,1,X2,Y2,640X2,200Y2,0,X2,Y2JT΅^ SCROLL UPh Y24 0 1r@,1,0,0,640,200,0,0,Y8|  SCROLL LEFT1 X79 0 1N@,1,0,0,640,200,0,X8,0TZm SCROLL RIGHT| X0 79@,1,(79X)8,0,(X1)8,200,0,0,0 SCROLL DOWNφ Y0 24@,1,0,(24Y)8,640,(Y1)8,0,0,0& SLICED HORZ#0 X0 79A:@,1,X8,0,8,138,0,X8,0oD@,1,(79X)8,128,8,138,0,(79X)8,128uN{Xb SLICED VERTl Y0 24v@,1,0,Y8,320,8,0,0,Y8净@,1,320,(24Y)8,320,8,0,320,(24Y)8뇊 TUBULARX10:X279:Y11:Y223( K0 12b TTX1 X2:@,1,TT8,(Y11)8,8,8,0,TT8,(Y11)8: TTY1 Y2:@,1,X28,TT8,8,8,0,X28,TT8:ӈ TTX2 X1 1:@,1,TT8,(Y21)8,8,8,0,TT8,(Y21)8:  TTY2 Y1 1:@,1,X18,TT8,8,8,0,X18,TT8:.X1X11:X2X21:Y1Y11:Y2Y214:J STAGGERED_  X0 319 64s Y0 199 8 @,1,X,Y,64,8,0,X,Y*@,1,(576X),(199Y),64,8,0,(576X),(199Y)É4:ɉ>ډH INSIDE OUTRSX288:SY128\DX64:DY16:CT0f@,1,SX,SY,DX,DY,0,SX,SYFpSXSX24:SYSY8:DXDX48:DYDY16azCTCT1: CT13 2190l 2150r L SHAPEDY199: X0 79@,1,X8,Y,640(X8),8,0,X8,Y֊@,1,X8,0,8,200,0,X8,0YY2