¤ THIS IS 'BUILD'!¤ FOR EINSTEIN USE WITH XBAS4¤ (C) COPYRIGHT F.R.PETTIT MA(OXON) AND V.J.DAY3(Š F(200), F$(200):¤ for line Nos and line text2¼ 0H<N~1:M~1000:L~0:L1~u10:L2~0:L3~14990:L$~"GOSUB":L1$~"GOTO":B$~"TSX?":F "0:SOURCE.XBS",FD$:¤ Provides access to source textAP”# FD$;A$:¤ Lines 80 to 240 handle the initialisation moduleZF(0)~0:F$(0)~"REM" dF(N)~2"nF$(N)~"PRINT "tÇ(34)tA$tÇ(34) xN~Nt1‚”# FD$;A$ ŒF(N)~4–F$(N)~"REM "tA$:  N~Nt1)ª N~N r 30:¤ could be up to about 45´”# FD$;A$¾“ A$~"END" ‘ 250 ÈF(N)~2wNÒF$(N)~A$:¤ line textÜ› N*æ¢ "INITIAL MODULE HAS TOO MANY LINES"ğ¬Uú N~N r 200:¤ Lines 250 to 740 handle up to 14 modules with a total of 150 lines”# FD$;A$“ L~0 s C$~İ(A$,1)“ İ(A$,3)~"SUB" s 290 360"R$~Ş(A$,4,1) ,R~Å(R$) 6R~Ru64@L3~L3t10: 1000 JF(N)~L3TF$(N)~"RETURN" ^‘ 740h“ İ(A$,3)~"GOS" s 370 440rR$~Ş(A$,4,1) |R~Å(R$) †R~Ru64 F(N)~MtLšF$(N)~L$tÚ(E(R)) ¤L~Lt10 ®‘ 740¸“ İ(A$,3)~"GTO" s 450 520ÂR1$~ß(A$,3)ÌR1~Ü(R1$)ÖR1~R1w10tMtL àF(N)~MtLêF$(N)~L1$tÚ(R1) ôL~Lt10 ş‘ 740“ İ(A$,3)~"DEF" s 530 560 L1~L1t10F(N)~16000tL1&F$(N)~A$:‘ 7400“ İ(A$,3)~"DAT" s 570 600 :L2~L2t10DF(N)~Mt900tL2:F~F(N)NF$(N)~A$:‘ 740X“ A$~"RESTORE" s 610 620bA$~A$tÚ(F)l“ A$~"END" s 630 640"vM~Mt1000:L~0:L2~0:N~Nu1:‘ 740€“ A$~"FINISH" s 770 650ŠF(N)~MtL:L~Lt10E”“ L~20 s F$(N)~"PRINT "tÇ(34)tA$tÇ(34): F$(N)~A$:¤ Normal lineU“ L~10 s N~Nt1: 700:¤ Lines 650 to 670 provide module map at lines 18000 et seq¨F(N)~18000tMx100"²F$(N)~"REM "tA$t" IS AT"tÚ(M)N¼“ L~20 s N~Nt1: 740: ¤ lines 700 to 730 make up the 'instructions' linesÆF(N)~500tMx100/ĞF$(N)~"PRINT "tÇ(34)t" "tC$t" "tA$tÇ(34) ÚB$~B$tC$ä› Nî¢ "insufficient space"ø¬ ¼ 44> K~Nu1:ƒ FD$:¤ Lines 780 to 840 write the new program file† "0:NEWPROG.ASC",FD$,0  N~0 r K*¢# FD$;F(N);F$(N)4› N&>¢# FD$;110;"L$ = ";Ç(34);B$;Ç(34) Hƒ FD$-R¢ "Your new program is almost ready":¢:¢%\¢ "After 'FRAME.XBS' has loaded" f¢ "and the 'Ready' appears"p¢ "LOAD 'NEWPROG.ASC'"!z¢ "and SAVE as 'MYPROG.XBS'"„— "FRAME.XBS"èF(N)~L3:E(R)~L3òF$(N)~"REM"ü”# FD$;A$N~Nt1:L3~L3t10“ A$~"RTN" s 1050: 1060¨ $F(N)~L3 .F$(N)~A$ 8‘ 1020