@ : HOME DEMO CHOICE PROGRAM Version 1.00T h: d "choice":  : :BGRCOLORS(): r ( :(,)(,),COLORS(),B:F1%:F2%: ,(): ,() 2CURX%:CURY%: :"Zenith Data Systems"; <CURX%:CURY%CURY%: : "Z-100 / Z-BASIC Demonstration System";: CURX%:CURY%CURY%: :" Version 1.0 "; FCURX%:CURY%CURY%: :" Artwork."; PCURY%CURY%: :" Interactive Business Graphics.";R ZCURX%:CURY%CURY%: :"Enter your choice : ";:  dFKEY%($()): FKEY%F1% FKEY%F2% d : FKEY%F1% n,x: :::normal exit n "";: : : x "";: : : ::artwork zbasic f,autoexec,*7:business graphicsT zbasic menu,autoexec,*h CURY%,CURX%:"O",,"AUTOEXE1.BAT" A$: A$"*" : : #,A$: TIMLOOP2%}:TIMLOOP1%"R",,"WHAT.FIL", "R",,"WHAT.RUN", . #, AS A$, AS DUMMY1$,AS TL11$,AS TL21$W #,AS DUMMY2$,AS TL12$,AS TL22$a ,k , TL11$(TIMLOOP1%) TL21$(TIMLOOP2%)" TL12$(TIMLOOP1%), TL22$(TIMLOOP2%)6 A$():@ ,J ,T^ h: h::abnormal endfr BGR BGR BGRBGR : BGR BGR BGRBGR| FGR FGR FGRFGR : FGR FGR FGRFGR FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR: (,),:PT(,): (,),O PT COLORS$"07777777" : COLORS$"01234567" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS()::7777777" : COLORS$"01234567" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():