W ,,, : Z(,):(,)(',),,BF:(,)(',),Z :  :   PG$(@): AD$() N$(,): ZZ(d)& : ,: "VIDEO-FUSION ";4 \ : "(c)Rufus Fang Research Inc."d  ,: "(1) - Enter datapack" ,(: "(6) - View datapack files" ,(: "(7) - View page unit files" ,: "(2) - View specified page unit"/# ,: "(3) - Create new datapack"Z$  ,: "(4) - Edit/create page unit"~%  ,: "(5) - Save page unit"& ,: "(0) - Quit program" (  ,: ,: " (c)1990 RP :: Programmed Brooks deForest. :: For Tandy 1000 computer systems ": ,#-A$: A$"" -62 A$"1" Kn7 A$"0" A$() : : "Tandy DOS V2.2":< A$"4" = A$"5" X> A$"2" b? A$"3" l@ A$"6" A A$"7" F -K : ,: "Datapack name:";: : "",F$+L _:N "DPACK"HO bZU "i",#,F$:dZ dn_ `z`: b "..": _d A ::: e : ,: "Sorting..." i "i",#,F$: #,NAM$: ,: ,: " ": ,: NAM$: #,PG2-n A PG2: #,AD$(A):Ks A @: () ]x #,PG$(A):}:  ,: : "File not standerd format": "":: : : "..":  : "..": *Datapack loded ok*:  ,: ,: NAM$/ ,: , : "Video-Fusion";: : " >"(PG2)" <":(,),ZBN$"":N: YA$: A$"" y A$() : :   A$() (N$) N$(N$,(N$)): ,&: " ": ,&: N$:  A$( ) (N$)  (A$)0 (A$)9 ,,: ` (N$) N$"": ,&: " ": ,,:N$A$: ,&: N$: N$N$A$: ,&: N$: ,,: N(N$): N NPG2 ,,: ,&: " ":N$"":  *GET NEW PAGE ADDRESS*P$AD$(N):NPG(P$): NPG N: . *DISPLAY NEW PAGE*G(,)(?,),,BF^ (,)(?,)p ANPG @ST$(PG$(A),):FR$(PG$(A),,) FR$"!" , FR$"*" ^ FR$"@" r FR$"/"  FR$"&"  PG$(A)"'''" %O "A40C40A40": : ,&: N$: d, *TEXT MODULUE*1CC((ST$,,)):X$(ST$,,):Y$(ST$,,):X(X$):Y(Y$):TX$(ST$,(ST$))6 Y,X: CC: TX$:^ *LINE MOUDULE*cCC((ST$,,))UhX1((ST$,,)):Y1((ST$,,)):X2((ST$,,)):Y2((ST$, ,))om(X1,Y1)(X2,Y2),CC:r *RECTANGLE MODULE*wCC((ST$,,))|X1((ST$,,)):Y1((ST$,,)):X2((ST$,,)):Y2((ST$, ,))} (ST$,)"F" FB : FBP~ FB (X1,Y1)(X2,Y2),CC,B : (X1,Y1)(X2,Y2),CC,BFVl *CIRCLE MODULE*CC((ST$,,))X1((ST$,,)):Y1((ST$,,)):SZ((ST$,,))(X1,Y1),SZ,CC:"CC((ST$,,)):X1((ST$,,)):Y1((ST$,,)):(X1,Y1),CC:9 A ::: Q N2 :NN2 : ,: "Text Line Rect Circle Fill Ink"  : ,: "T": ,: "L": , : "R": ,: "C": ,: "F": ,: "I"  : ,": N2:(,)(?,),7 CC : ,(: () : CC: ,(: ()NA$: A$"" s A$() N2N: : :   A$"I" A$"i" CCCC: CC CC A$"I" A$"i" _ : A$"T" A$"t" ,: "Text" : A$"l" A$"L" ,: "Line" : A$"r" A$"R" , : "Rect" : A$"C" A$"c" ,: "Circle" A$"f" A$"F" ,: "Fill" A$"T" A$"t"  A$"L" A$"l" ZX:  A$"U" A$"u" N2N:   A$"R" A$"r" ZX: ( A$"C" A$"c" K A$"f" A$"F" ZX: ~ A$() N2 NN2:N2N2: :  A$"" : N N2:N$(N)""::N2:N:  X:YXX(X):YY(Y):(XX,YY)(X,Y),ZZ: Y,X: : ()&A$: A$"" 9(XX,YY),ZZ,O A$() e A$( )  A$"8" Y YY : A$"2" Y YY : A$"4" X XX : A$"6" X( XX XX(X):YY(Y):(XX,YY)(X,Y),ZZ: Y,X: : ()  ? X$(X):Y$(Y):C$(CC)X  CC C$(C$,)p  X X$(X$,)  Y Y$(Y$,)  Y,X: CC: S$ NN:N$(N)"!"C$X$Y$S$:N2N:  X:Yd: LYY XLXX:YLYY!PP(X,Y): PP (X,Y), : (X,Y),2!A$: A$"" !(X,Y),PP: A$"," XX : A$"." XX : A$"]" YY : A$"'" YY! A$"8" YY : A$"2" YY : A$"4" XX : A$"6" XX! Y Y : Y Y"" X X : X? X?^" A$()  : A$"Z" X : A$"X" X?"PP(X,Y): PP (X,Y), : (X,Y)," A$( )  : "XXX:YYY: ZX  : ZX #A$: A$""  : ZX (XX,YY)(X,Y), : (XX,YY)(X,Y),,B# A$"8" YY : A$"2" YY : A$"4" XX : A$"6" XX : A$"," XX : A$"." XX : A$"]" YY : A$"'" YY# Y Y : Y Y$ X X : X? X?>$ A$()  : A$"Z" X : A$"X" X?t$ ZX (XX,YY)(X,Y),CC : (XX,YY)(X,Y),CC,B$ A$( ) $ A$"F" ZX LS$"F":  : A$"f" ZX LS$"F": $ A$"U" :  : +%X1$(XX):X2$(X):Y1$(YY):Y2$(Y):C$(CC)D% CC C$(C$,)v% X X2$" "X2$ : Xc X2$(X2$,)% Y Y2$" "Y2$ : Yc Y2$(Y2$,)% XX X1$" "X1$ : XXc X1$(X1$,)& YY Y1$" "Y1$ : YYc Y1$(Y1$,)b& ZX TY$"*":LS$"" : LS$"" TY$"@" : (XX,YY)(X,Y),CC,BF:TY$"@"&NN:N$(N)TY$C$X1$Y1$X2$Y2$LS$:N2N:LXXX:LYYY:LS$"": &ZX: & *CIRCLE*&A$: A$""  : (XX,YY),SZ,K'  A$"8" SZSZ : A$"]" SZSZ : A$"2" SZSZ : A$"'" SZSZa' A$() u'(XX,YY),SZ,CC' A$( )  : 'X1$(X):Y1$(Y):SZ$(SZ):C$(CC):TY$"/"' CC C$(C$,)( X X1$" "X1$ : Xc X1$(X1$,)D( Y Y1$" "Y1$ : Yc Y1$(Y1$,)x( SZ SZ$" "SZ$ : SZc SZ$(SZ$,)(ZX:NN:N$(N)TY$C$X1$Y1$SZ$:N2N:LXXX:LYYY:LS$"": (X1$(X):Y1$(Y):C$(CC)( CC C$(C$,)+) X X1$" "X1$ : Xc X1$(X1$,)]) Y Y1$" "Y1$ : Yc Y1$(Y1$,)t) TY$"&":(X,Y),CC)!ZX:NN:N$(N)TY$C$X1$Y1$:N2N:LXXX:LYYY:LS$"": )X : ,: "Save page unit as:";: : "",F$8*Y "Punit": "o",#,F$: #,N2: N N2: #,N$(N)::: "..":  o*b : ,: "Load page unit as:";: : "",F$}*c j*d "PUNIT"*e i*g "i",#,F$: #,N2: N N2: #,N$(N)::: "..": *i ".."*j *lB+q : "Enter filenames of pages to be selected. "+r : A : ,: (P, ): ,:  : "Page"A":";: : "",AD$(A): AD$(A)"" u+s AD$(A)"!q" AD$(A)"!Q"  +t+u ,: (P, ):A2AQ,v  : , : "Enter datapack name (up to 10 characters)::";: : "",NAM$: (NAM$) uf,w ,: (P, ),x : ,: "Is this information correct (y/n)",yA$: A$"n" A$"N"  : A$"y" A$"Y" z : y+-z ,: (P, ): :  , : "Filename to save under:";: : "",F$>-{ "c40a40c40"E-|w-}NM: "DPACK": "o",#,F$: #,NAM$: #,A2-~ A A2-FA$AD$(A): "..": "PUNIT": "i",#,FA$: #,NN: - "..": "DPACK": #,NM:NMNMNN:: . "a",#,F$: A A2. "..": "PUNIT": "i",#,AD$(A): #,N2: N N2: #,N$(N):: : "..": "DPACK": N N2: #,N$(N):: #,"'''".:: "..".  .: ,: ,: " DATAPACKS ": ,: ,: (P,) / : "DPACK": / :: ".."f/ : ,: "<<< Press space bar to return >>>": " "::  r/ ".."/  :  ,: "NO DATAPACKS FOUND": /: ,: ,: " PAGE UNITS ": ,: ,: (P,)0 : "PUNIT": 0 :: ".."b0 : ,: "<<< Press space bar to return >>>": " ":::  n0 ".."0  :  ,: "NO PAGE UNITS FOUND": 0 (,)(?,):(,)(?,),,BF0 N N21ST$(N$(N),(N$(N))):FR$(N$(N),)1 FR$"!" ,21 FR$"*" ^H1 FR$"@" r^1 FR$"/" t1 FR$"&" 1 PG$(A)"'''" 1:NN2:1 : : "SOFTWARE ERROR!":