`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮  RMATTER.CODEsk, blTEM.STARTUPgSYSTEM.STARTUPgr=vgyBJTERMr=vgSYSTEM.STARTUPg̥ BJSETUP.CODEvg DESIGN.CODE̥FORMATTER.CODEFORMATTER.DATA NAMEDISK.CODEhSYSTEM.STARTUPgSYSTEM.STARTUPgSYSvgMSG14r=vg'ȣMSG15r=vgMSG11r=vgMSG5gr=vgnȣMSG7gr=vgMSG8gr=vgMSG9gr=vgPMSG16r=vgVPCMENUr=vgyFMTMENUmpVFMT6O]psVFMT3O]svVFMT2r=vgvxMSG2gr=vg1xyMSG1gr=vg1y{MSG4gr=vgȣ{|MSG12r=vg|~MSG10r=vg"ȣ~MSG6gr=vgMSG13r=DESIGN1$& SYSTEM.APPLEvg&O SYSTEM.PASCALvgiOPSYSTEM.MISCINFOPYSYSTEM.LIBRARYgY]VFMT1r=vgڠ]a BJSTART.CODE̥aeVFMT5r=vgeiVFMT4r=vgimVFMT0O]&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴T}iU･~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|i h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83IߐiżQHPH ~P~ȱP~~P꽥QLSҠ RhPhQLE RR8tSut\ȱt]X i RHLfRtȱRuVt tVuWRTȱRU｠RXȱRYRRR콆SLSҠ8|}`|ȱ|L8||tȥ}|utetȱtet|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| 4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYe  Íáɡ 럚肚X  šš  ġš  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡUĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36% "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1:(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initializedSȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá  6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3  P ?š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTUPCHAINSTUINPFNAMEINPFNAME +ء%צEnd of directory.šצ File name is If correct, press return.צOtherwise, enter file nameצEnter file name צ: Peturn. OtherwiseצEnter file name or ? for list: P׷? PתP+VM ؄]צFile: V+M ? (Y/N) V+M P+١׷,,P,צ:Q,P +VM á5צ Disk is emptyתPVM áVM Pצdצ File name is #If correct, press rrwise,צenterEnterצ disk name or drive number צ: Pצy:á,צ:,Pš@'Disk name must be 7 characters or less.ئ10ׯצ11ئ12ׯ#QPRLš,,#D$File disk is assumed to be in drive > File disk name is assumed to be If so, press return. Othe "ˡP$Can't read disk directory, I/O code  fڪP̄-ʄ-ˡ#ʄ-- -V:#-̄. -VV~459ڳ@@ڳNVڪP.š:á//P//#X//P-/-/ȡ4-. -0.--.CBJ9BEXT INPFNAME.CODEz6 z|z6 9b6 *,,#9:INPFNAME.CODESK #9:INPFNAME.TEXT#9:INPFNAME.CODE[*]JL:SYSTEM.SWAPDISK   VAR "DIRFILE : FILE ;   PROCEDURE GETFLNM ( VAR FILENAME: STRING ; EXISTINGFILE : BOOLEAN ) ;   IMPLEMENTATION E ԍ֍br r b^br BJ9`b6 6 ^``Pb6 r ext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tBBBצP׷- File name is :"$&(V ,ƄL:ƄLPƄL:צ:ƄLP,,UUd,ƄLƄL#PצDisk in , is named VM ,תPU צ̄LƄL,PƄLǠƄLP4  22v$ צOtherwise, enter file nameצEnter file name צ: P TechnologyDesign Program Diskצ Enter the number of the functionצyou wish to use1. Form Design2. System ConfiƁ0P تP-,,&VV-PV:QVǡVHDȡ$"Welcome to VersaForm 1.2 Release 2*Copyright 1981 Applied Software٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jBBBBBBBBBBBBBBBB>STARTDES N*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?   EګצWriting out the file*ZlDTXZ\l\B.5$< ۂۂۀ Nˡۂ.ɡ3 ꕞNˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTM M I ɡ- ~ݟˡ   á   0'&6á" 2ˡ "" N NN 3á   _4ˡ a L' H` Lookup (Y),tTodaysdate (Y)(á  M I\[ M M! Ddnt ݫAN؞ (h(lower) will be accepted. (ow dLow value ( uHigh value l--(@ This item: eL# limits of one D t&nrange. Input will be OK if it falls in,@il any one range.2PgIf you give only the@"tlow (high) value, any input higher8 v *4IT*J`ByC|>yK4ии6`VyCtvVy,D  "0, ~RANGE CHECKINGB#{On each line type the LBL1BLUEJAY1ȡˡܹ FSEEK ר~ FREADREAרj FWRITEREרV FREADDECרB צP׷- File name is :"$&(V ,ƄL:ƄLPƄL:צ:ƄLP,,UUd,ƄLƄL#PצDisk in , is named Vgurationצ3. Initialize Diskettes צ4. Name a DisketteP1צDESIGNo2BJSETUPY3 FORMATTERA4NAMEDISK*,-,-ȡ,,צBJSTART 6V"Design Program Diskצ Enter the number of the functionצyou wish to use1. Form Design2. System ConfiOP3:"AI4: "UOP4:"VI5: "cj OP5:"kkI6:  This item: This item: erations,,- Items/numbers "I1: "#OP1:"+I2: "s+OP2:"{,I3: "@be made by adding,D%tsubtracting, multiplying, or dividing B@$ two items, or one item and a number.D%sOperations are +,-,*,/,Low(L),High(H) (nu Op *4IT*"`ByC|>y#4ии6`VyCtvVy,D", $* CCALCULATION D& The calculation may LBL1BLUEJAY1  FORMAT ȡ.'á ٣٣  P P P  ٣ ɶ ٣Ȅ   آ0٣  V  ȡ?ɡRá/ .&eb ) آȡ.آȡآآآأB ȡ$ۢOߣ,  z&'  $( آȡآ 'آion.$Format eThis item: em: {€Š~iu+,ȡ+O++, LEN=  ZHV |أAAá ߣ ing digit ( 0-9 ) 6y? -- Any character is OKB #eAny other characters mean that only >p tthe particular character will be8daccepted in that positaracters may be used to 8cspecify a required format:D%-& -- Any letter of the alphabet is OK 8-# -- Any digit (0-9) is OKB0#A/ -- Optional lead *4IT*&`ByC|>y'4ии6`VyCtvVy,D" *. MFORMAT CHECKING F' The following chLBL1BLUEJAY1-- ́́ʁʁȡSʁ- *-ƁZP-ƁZ gurationצ3. Initialize Diskettes צ4. Name a DisketteP1צDESIGNo2BJSETUPY3 FORMATTERA4NAMEDISK*,-,-ȡ,أ  0'0'0d0d 0 N `{Ʉ ۚ_Ʉ&ڨˡ "ڣAAڣAAá  ڣAA ˡڣAAڣAA *ڢCڣ؂ڣˡ ڣڢؚ,ڢCڣ؂ڣˡ ڣ&ߣߣߢC@@ߣɄߢCߢC@@f the column@!owhose total is to be kept in this $@item: (0 mItem name ` eThis item: = ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/ *, ~COLUMN TOTALS @"eEnter below the name o= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/LBL1 bgb b b b b OAUTOMATIC FILLING (` kLookup (Y),taTodaysdate (Y) ( cCalc - (Y).aColumn Total (Y)P iThis item:-Yes-or-no --(Y) . dMandatory -- (Y).;EEXTENDED CHECK S ( gRanges (Y)& tList (Y)(  mFormat (Y)0 nimum-length.iMaximum-length- .tJustify-(L/R/#) . fSelfchecking (Y).@eNumeric --- (Y) .T eDate ------- (Y). = ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/" J'<CCHECKING AND AUTOMATIC FILLING,iMi= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/LBL1 bgb b b b b?@@ߣߣѡVSECTOR  צ MAP ߣ צ ALLOC áۡ%  ۣˡۢCۢC@@@@6تPR LBL1 bgb b b b bstead of PART NUMBER. Type return to continue. you want a column to be wider than its heading, extend it with dots. Thus in the example above, the DATE column becomes 8 spaces wide, and the STOCK# column is 15 spaces wide. Column headings can't have spaces in them. Use PART/NUMBER or PART-NUMBER in..DATE.. ....STOCK#..... ..PRICE.. To define the columns, type the headings on one line, separated by at least one space. The space below each heading is reserved for that column. If you type a heading like "DATE", the column will be 4 spaces wide. IfAcceptable values ( This item: L# VVL#V This item: eL# against the values@u "that you enter on the lines below."EOnlyB@ha $oinput that matches one of the values6below will be accepted. 060 = ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/  , b LIST CHECKING F(XInput will be checked = ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/LBL1 bgb b b b bLook up $FsuResult( This item: *L#  *L4RRw!i"i  w# µj!p~6͸ill be obtained Bl $iby looking it up in the table below.D@ t%mThe item to ge t the lookup value from "mis: ( Item name &5ed = ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/ * #*b TABLE LOOKUPF T'The data for this item w= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/= ض-%3 TNVZ NؖTNVZINWٖ نOVZ{O ٖ> 1^B/ The form you are defining is too large to fit in the available memory space. To make more room, you must either remove some data items or shorten some item names or text. If you want to go back and change it, type "R". If you want tALARY". HOW TO DEFINE THE ITEMS To define the text items -- titles and so forth, just type them wherever you want them to be. Make sure they are separated from the data items by at least two spaces. To define a single data item, type the namele at the top or the note about confidentiality. There are also two kinds of data items. There are single items, like "EMPLOYEE" or "HIRE DATE". But below these there are also some items organized into columns, with headings "DATE", "JOB-TITLE", and "SHere is an example of a form you might be designing. Note that there are two main kinds of items on this form. One is data items, where there is a blank that will eventually be filled in, like "EMPLOYEE" or "SALARY" The other is just words, like the titpe "Q". To continue, type "C" . ch form in the file (so we can tell different forms apart). To choose these, move the cursor (by pressing return) to the item you want, then press X. If you want to go back and change the form before choosing the reference item(s), type "R". To quit, ty One or two of the data items you have just defined must serve as a reference key--to enable us to pick out one form from all the others in the file. Combined, the two items must be between 3 and 40 characters long, and must contain something unique for ea The item is too long. It must be less than 80 characters in length. If you want to go back and change it, type "R". If you want to cancel this form definition, type "Q". r you want to leave room for. The item must fit all on one line. 4. Type another space and go on to the next item. Type return to continue. Move the cursor (using the arrow keys) to where you want the item to start. 2. Type the item name or any title or other text. Add a space at the end. 3. If this is an item with data to be filled in, type one dot (.) for each characteAfter these instructions, you will see the form as it looks now (if this form is brand new, the screen will be blank) . You may then define the single items for this form. Defining columns will come later. Define each item in the following way: 1.o cancel this form definition, type "Q". , then just one space, and as many dots as you want to allow for data. For example, "EMPLOYEE ................." Since there are 17 dots, this would allow for employee names up to 17 letters. Longer names would have to be abbreviated. Every data item must have a name, like "EMPLOYEE" or "DEPENDENTS." Otherwise it wouldn't be a data item, but just a row of dots. To define the columns of items, all you need to do is to define the column headings. Type them all on one line with at least one spac The item name must begin with a letter of the alphabet. It may not begin with a number or another symbol. If you want to go back and change it, type "R". If you want to cancel this form definition, type "Q". The item name is too long. Item names are limited to 20 letters. If you want to go back and change it, type "R". If you want to cancel this form definiti堢Ѣ defining columns; Press R to return. f the screen. To do this, move the cursor (by pressing return) to the line that you want the column headings to be on, and then press X. You will then be able to change the old column headings (if there were any), or type new ones. Press Q to quit The next step is to show where on the form the column headings go. They must be placed on an empty line, one that has no header items on it. The columns will then extend from the heading line down to the first line below that's not empty, or to the end o This item name has been used twice. Each item must be given a unique name. If you want to go back and change it, type "R". If you want to cancel this form definition, type "Q". etter of the alphabet. They must be no more then 20 characters long. You can't have two items with the same name. When there is a ? at the bottom of the screen, type ? if you need help. items can have spaces in them, column names can't. So, if you wanted to have a column named PART NUMBER, you would have to eliminate the space, perhaps by naming it PART-NUMBER. Some other rules and suggestions: Names of items must begin with a ly 4 letters in "DATE". When you want a column to be wider than its heading, extend the heading with dots on either side. Thus in the example the "DATE" column is 7 characters wide, and the TITLE column is 30 characters wide. Though the names of single e separating them. When you type a column heading, like "DATE", the spaces below it will be reserved for that column (down as far as the next single item or text item.) In this case, however, the column will be only 4 characters wide, since there are onl The location that you have given for the column headings cannot be used, since this choice would leave no room for the columns. Usually this is because there is a single item on the same line or the next one. Please either ty   fBP..#5 DESIGN FILING REPORT CPRINT RPTWORK gXgZgz~~~hgjg~hgzg|g|gPb.ggu~gZggzNPG2 FORM DESIGN Copy an existing form design Change an existing form design Design a new form Print the form definition COMMANDS Validate (V) Save this form (Sa) Print current form (Pr) Clear to blank form (Cl) Erase unvalidated data (E) Page Forward (PF) Page Backward (PB) Delete a line (D) Quit- restart item or go to next (Q) No Command - Press Return The single items must be separated by at least one blank space. If you want to go back and change it, type "R". If you want to cancel this form definition, type "Q". bel a disk that comes from another system, whatever data is on it may be lost. This disk does not have a label on it that identifies it properly to the system. If you want to place a label on it now, type "Y". Otherwise, insert another disk and type a space when you are ready. CAUTION If you la This disk has an identifying label but does not have any form defined for it yet. If you want to define a new form for it now, type "Y". Otherwise, insert another disk and type a space when you are ready. CONFIDENTIAL EMPLOYEE RECORD EMPLOYEE .................... DEPENDENTS .. HIRE DATE ....... JOB HISTORY ..DATE.. ......JOB-TITLE....... .SALARY. ........ ...................... ........ pe "R" and choose another line for the column headings, or type "Q" to discard the form definition and quit. gggggggz@~~g Q@gggzg@@ggZ8QQVhXhXh"hnOFil"h$hlzb0h2h:hSTARTDES  Print current form P-) Delete a line תP- )צ Next form P- )צ Back to previous form P- )צ Clear to blank form P- )צ Erase unvalidated data P-) Page forward תP-)צ Page backward P-++! -)צ Display the cmd menu P-) Validate תP-)צ Get a form P-) Save a form תP-) First form in file תP-)צ Last form in file P-)צ File space report P-)צ"צIllegal value ĄڿÍ, :Pš&צToo longȄצ:á,,Pš5 +,+,ȡ++jZ ȡצEnter a sequence of up to4 numbers between 1 and 127צEnter 0 to end the sequenceצEnter sequence [ צ] :ɍڳ@@ڳNV+-Pá+g-,,š-+-+=-0... Ȅ#. ɡ .--+++ +,B,8BJSETUP gurationצ3. Initialize Diskettes צ4. Name a DisketteP1צDESIGNo2BJSETUPY3 FORMATTERA4NAMEDISK*,-,-ȡ,,צBJSTART 6V"Design Program Diskצ Enter the number of the functionצyou wish to use1. Form Design2. System Configurationצ3. Initialize Diskettes צ4. Name a DisketteP1צDESIGNo2BJSETUPY3 FORMATTERA4NAMEDISK*,-,-ȡ, TechnologyDesign Program Diskצ Enter the number of the functionצyou wish to use1. Form Design2. System ConfiƁ0P تP-,,&VV-PV:QVǡVHDȡ$"Welcome to VersaForm 1.2 Release 2*Copyright 1981 Applied Software٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jBBBBBBBBBBBBBBBB)צ Remove the current form P-)צ Index list P-) Quit - exit the programתP-)צ Cursor to command lineP- )צ Calculator P-ƁY+~+~ȡ++צPצEnter the name of the existingצconfiguration file. To use*BJTERM , just press return : PšUP"U~~*~BJTERM~P-U"ˡ*** צ Key code is   characters long.á#uaáá#ua***** Entry rejected *****he spacebar, then return. If you want to change it,צ(Press the key you want to use, then rtn צOtherwise just press return Pš***** Entry rejected ** (base 10)u7prefixed by ASCII code   ja á;If you want to define one, צIf you want to erase it,צ!Press tRFunction key for the command a áE"-)" is undefined. "-)"צ now sends ASCII code a mayצ'write all the copies now, or just write'a single temporary copy. Do you want toצwrite all copies now? (Y/N)   3צConfiguration file not updated.;Nצ!For correct system operation, the configuration file must be namedBJTERM and written identicallyon each of the Program Disks%(that is, on each boot disk). YouMake sure it isn't write-protected.)Full (Disk:)file name: RPRš )RP#)צ*צBJTERMP)  Ɓ-%Update/write the configuration file? guration file nameצis *BJTERM."To update or create the file under!a different name, enter the name,צotherwise just press return.צ%(צ:QצBJTERMWP) ˡ Try again? {{Í||  צ$Remember to write-protect your disksuZ  #The default confiPZJ ||ȡMake sure that the disk named |צ&is mounted and is NOT write-protected.צThen press return.RP|~ )~PצI/O error establishing configuration file, I/O code =  Configuration file NOT WRITTEN   R ٨צ12345678Pצ š }"}öÄ4Configuration file recorded)PgI/O error, I/O code =  צConfiguration file NOT WRITTEN تP"ˡ"ˡ**PB..#5 רDESIGN רFILING רREPORT רCPRINT רRPTWORK ר-a+--#4U&@aצOld configuration not found,~,~ȡ$a, u,,,aa *~*~ȡ****~*~ȡ****~*~ȡ****~*~ȡ*Prefix code ( ASCII code  )צisn't the one set earlier ( )aצ***** Entry rejected ***** צPrefix not in use.ٓ  OK ? (Y/N) ٓ.02Xȡ (Printer page width default is צ now set to   Do you want to change it? (Y/N) vEnt 2 - attribute =צ 3 - Apple II native  c;ˡצ&Video reverse code for this screen is צ now set to ȡ+ˡ nitialization sequence? (Y/N )  B!Enter the initialization sequenceH %Video reverse type of this screen is  1 - toggle gצ on code is  now set to ȡ+ˡ "Do you want to change this? (Y/N)  áצDoes this terminal have an  i(Y/N) צ(NOTE: The Apple II doesn't.)mצ"Enter the ASCII code (in decimal) ɍ! Illegal code ĄثqS ˡ Terminal initializati now set to  צ Do you want to change it? (Y/N) צDoes this terminal use a prefix code to identify special command!or function key sequences? RƂƃ/Ƃ*SYSTEM.MISCINFO"ëƂ"ëƂ0ˡ0.Can't read SYSTEM.MISCINFOƂTצ!Prefix code for this terminal is ame for Copy/Prnt pgm is .צVol name for Rptwrk disk is .צDefault vol name for files is ..צVol name for Filing pgm is .Vol name for Report pgm is .צVol n this? (Y/N) tDiagnostic mode? (Y/N) : Change it? .צEnter new volume name: TVol name for Design pgm is  to have form feed (ASCII FF)."Do you want to change this? (Y/N) צThe system will now צ notצsend line feed after CR.צ"Do you want to change initialization sequence Should the operator be asked for)a printer initialization sequence? (Y/N) z= $The printer is now understoodצnotˡ "Do you want to change this? (Y/N)  áצDoes this printer have an צinitialization sequence? (Y/N)  B!Enter thevצEnter the new page length ũɍ-צ***** Illegal value *****ȩĄy *ˡPrinter initialization sequenceצis now set to ȡ$er the new print width ũɍ-***** Illegal value *****ȩĄ Printer page length default is  now set to  צ Do you want to change it? (Y/N) צand un-reverse code is  now set to ȡ+ˡ "Do you want to change this? (Y/N) J~yHšáDoes this terminal have reverseצvideo capability ? (Y/N ) Reverse video types are: צ 1 - toggle  2 - attribute  3 - Apple II nativeURATION(,,(,,"Prefix code for this terminal is: , ,,NONE,,צCOMMAND ,צCODE ,צPREFIXED,́YʁYȡ ! " printer? PRINTER:תP2Listing file name? Pšצ.TEXTצ:˄#́YƁYPƁY.TEXTUƁYP,צPress return when ready,SYSTEM CONFIGNONE /ȡ$ˡ, ,,Operator will ,not , be asked for ,,צprinter control sequence.,.",ƁXList configuration tolt : , ,, Printer does ,צnot ,צhave form feed,,צ Printer does ,not ,take LF after CR,,Printer initialization seq: á,-), -)a ˡ,a , u,צYes,,No,!,צPrinter page width default : , ,,Printer page length defauá,צNONE 9++ȡ++ˡ,+ ++,,צTerminal initialization seq: á,NONE 9++ȡ++ˡ,+ ++,<I D ,Y,צ (toggle)B, (attribute)(, (Apple II)fS>&,צVideo reverse seq : á,צNONE 9++ȡ++ˡ,+ ++,,צNormal video seq : ,,צVol name for Rptwrk disk is ,,.,,צDefault vol name for files is ,,., ,צVideo reverse type : , ɡs_, (none),.,,Vol name for Filing pgm is ,,.,,Vol name for Report pgm is ,,.,,Vol name for Copy/Prnt pgm is ,,.ntry rejected ***** צEnter only one character*á *JT Rȡ,$,צProgram volume names : ,,Vol name for Design pgm is ,צ now set to ""If you want to change it,צEnter the character, then rtn צOtherwise just press return Pšf***** EOtherwise just press return Pšfצ***** Entry rejected ***** Enter only one character*á **Printer dummy data character is J*צDisplay dummy data character is now set to ""צIf you want to change it,Enter the character, then rtn  Enter the reverse video type :ũɍ,***** Illegal code *****ȩĄéÍ Enter the reverse video sequenceצEnter the un-reverse sequence,צDisplay dummy data character is,צ ",,",,Printer dummy data character is, ",,",,Diagnostic mode is,צ not, set.,,,,Dצ!Reconfigure function keys? (Y/N) (Reconfigure dummy data character? (Y/N) Reconfigure reverse videoצ#and terminal initializati$ )R%)ۣáۢǀǀ4W%)ۣáۢǀǀ(8墁٣Äǀ W%)壁áhǀǟ墀ǀ墀ǀǣ)ڢڢڣ [A'ڣˡڢ"W$('أáڣڣˡTڢڢڣFڢڢڣ*ڢڢڣ\B(ڣˡڢ"ڣá ڢڣڢR צ SYSTEM ERROR   . Code =  bɄڢڢڢc2''أá{TڢڢڣEڢڢڭR$ """#Iڣڣ#BL IO ($Iۣ#צREC IO &%ȡ(ˡڡ/@&ɡɡۏؿH تPIHR"!IBɡ ؀-   0 áHܕ 1 R"تPI1(GGצTRACE(mem, min) !("G"! RD٪PIצTR !!"  h 4rN~ or--File label not written5צError--Form not written to fileš sásst "Do you want checking or automatic filling for this form? (Y/N) : ١ st s3,&Form now (re-)established on the file. BS Z<襂 < ád   ˡ3Error--File label not written5צError--Form not written to fileš sásst "Do you want che  I/O code =  <צALLOCFMT٣Aݢ٣ ǀɡAݢáݢݢágǀȡ#ݢˡݢ+  šBGB B B B B BCopyright Applied Software Technology 1981N > #%6:.FORMAT NUCLEUS FMTPROCSPRINTFORLAYOUT INIT PHASE1 VPA on? (Y/N) Reconfigure printer characteristics? (Y/N) צ'Reconfigure Pascal volume names? (Y/N) צBJSTART J: L x l*,<Pz!%!b)2+-T-T.'j2(/ 5577D"צ!Reconfigure function keys? (Y/N) (Reconfigure dummy data character? (Y/N) Reconfigure reverse videoצ#and terminal initialization? (Y/N) Reconfigure printer characteristics? (Y/N) צ'Reconfigure Pascal volume names? (Y/N) צBJSTART J: L x l*,<墀ǀá  ( ٣! ᢁšȄᣁÄǀR%)ᣁá_ǀᢀǟǀǟߕݚᢀǀᢀǀ ȡ cɍᢁb3@ڣ!ڨ۟ˡˡ $ ڣAˡ ڣA  ڣAˡ ڣA á  proper disk, andצEnter the (disk:)file nameצ : Pˡ+-JP3)",,ˡ@File not present (I/O code , );,&$ .ڳ@@ڳNVآآ٢$ צ FINDFNAME- -" -- .TP Mount the hS>(++P+. Press return^+צGETFMTڢڣˡQڢLBL1ׯ <ڢCڣڢڣˡڣ ڣAڣ ڣˡ PPǀFDɡ!ڣDǀDEEGEEEHEHȡGEEE عwCan't read labelתPpצCan't read mapPYCan't read fmtתPBצFile unlabelledP*צNo form definedPڪPTצINITFCBؚۢۢۢAۢBۣAۣAFCB INITȡۣAۣAۣA +צREADFMTFEGFEȄأÄvEǀDFأáTGEFǀ:` X ,ERRMSG =TXT MIN R=X =R=Y RMAX R>X $>R$>Y RINTC La0 { 8 L 0 Ș L  0 ` ` ` ` ii ` !L& `"! cW1l8& x   V >`Nr~ *   ` j Lq`<;8+sifbYD8hhhhhhhhhh "  " )%    L-I% I%HHHH`G = Ș !0 0-+$ 800   LuLu jD.<0⭅ۥ!800   LL q jL]?mKeim80;e i 0 L10 L?ȭLcHH`ášݕ  <0Ȅ Ȅ Ʉ ܂ áf  tI hhhhhhhhi i ii  q jL- Lm+<,7,2,-, ,,p2/,)Y ڣ!`zȄ  7ÄإYإ\٣!ؚݢC?ݢC?+lتP R* تP  R&,Ȅعˡ,ȡ,|ˡ,' ? @ lC? ܏㣀 ɡ2C?C?ݗ㣀+ALLOC # á*ۡ צ DE-ALLOC ɄGݣˡ*? ܣAٟ؟ܣAˡCݣˡ<ݣ ˡ3ݣݣ ۚݣ ˡݣˡݣݣۚ`ڢCڣ؂ڣˡ ڣڢؚ,*ڢCڣ؂ڣˡ ڣ&+  㣀㣀@@Ʉ CT $!# (:צWRITEFMT أÄ{ǀ ǀǀǀǀ߿ǀ޿ǀݿ צFIXšHצ:ˡ2צ:á"B: YPئתPZ`(~0pjr3)",,ˡ@File not present (I/O code , );,á  E" jצENTERLOC ۟ˡVá!۟ō۟á  ?[I ڪP-ƁY     آ,٣ ȡP5٣ ȡ%PP .\M~ڨ FILLSCREEN  ˡ! áÄ (P     *    آ ȡ-      آ ȡ; آ cآ c    آ آ ȡ-Pܣ Ȅ G3 u     צFILLHDRS  آ ȡ6آ c آ c  šKآ    ȡ! ~áPġ `á'ȡ Pá ک4áPɡ PáPܩPġP ب LFINDFIELD PPi ġO@ɚ5PɄ;G?١ ١ )١  ?9%If P P    & P P    & P P   (P á  ȡ.(PǀPP_š `?š @ققکȡ * צ DISPCHFLD: ؟ˡPázájۢcPPۢPۢPڕȡ&قPB!قǟ ؟áK 0Ɓ\0PRINTER:"á0́]ܩȡ 00*hn&$ rݢ&PP0d PP0 DA ȡ-PPޣ!ߣ ǟٟáA m%[6j : ؟ˡPázájۢcPPۢPۢPڕȡ&قPB!قǟ ؟áK 0Ɓ\0PRINTER:"á0́]ܩȡ cݢݢȡPrݢ&PP0d PP0 DA ȡ-PPޣ!ߣ ǟٟáA m%[6j 0 ȡ0P00N}  ˡBȡ ٟˡBááPݢȡPݢȡPݢP  0  ȡ0 <ġf]ˡ]]0 0צPAGE 0] 0ȡ0PĄP áPȡT $!# (:צWRITEFMT أÄ{ǀ ǀǀǀǀ߿ǀ޿ǀݿ́Z-́Ɓ=Ɓצ: ƁYƁ- ʁZةÄ ,́́ʁʁȡʁ ʁ́́́ʁʁȡ=ʁ- -Ɓ[P-Ɓ[ʁ́؂- } צ Press return to continue. Q-skipƁʁ ʁ́Z --Eg"^ۨ ݟޓP˄' @ɄצINPUTDETPP ˶ PɄ  P˶ Í  ە ġޚނ ٮۚPû  ەߚ   ȡ.ˡc ޶ צ$Add a second part to the key? (Y/N)  zߡU&ܓDá<'Second key = first key. Try again?(Y/N)ܡ޶  { $צPARSEDET  =ڍڡ ۡ ń (Ȅ1צKey is  צ . OK? (Y/N) 2$Key length error. Return to continue&  &ڡ ˡ!ˡ/ٮ%צGETKEY  צ'Move (rtn) to key item, press X. ?-Help =  ==?áj%MSG10== ==?áצMSG4=;=<   ˡ ˡ ؟á+No key was previously definedJצ Old key was خ áD   ܢ ڕܢ   ń  5 r < צ(Type single items, return from this line צ Processing.. ˡخ* צ%C-Confirm, R-Redesign, Q-Quit, ?-HelpPARSEHDR    ȶ˄  P˶ Í  ! ڕ ġ۶۶ۮܢܢښܢ ڕܢcܢ ܢܢ X  "צ Processing.. # á&\:ڡ&á# :١ٓ !צȡڢnPá"צERROR-Need space before "צ ". Press RTN"" $" removed to create space. Press RTN.V عO MSG1PצMSG11DצMSG128צMSG13,צMSG15 צMSG16 WF<2*צINITFLDڢڢڢڢڢڢڢ\OšQܢš@ܢÄń ܢ ˡ تP  צ' Error in designing the following item:+,+,ȡ+O++'PɄؿ ۓo ؟ˡ/ڢȡڢc>@@8  ˡòOߢɡ-ߢcߢcߢߢɡ#E (צINSCRNáPáP?á PáPġ PJáPá ک,á%ٿPɡá~ڨPL#L# ܟˡáPPߢɡ# ܂ޡނá& sz( 'Move (rtn) to col hdgs, press X. ?-Help ?áBצMSG14۳۳ړwPčF צMSG5۳ڍړ+- 8)צ LAYOUTDETS<)ܶ<۶צ%Type the column headings, then return ۮצ Processing.. ( Y++ +ˡ03 Y++ ,ˡ03 Y,,,ˡ03 Y,, Ƃ'ˡ7(#'5(#$2ˡ,3 Y22 +ˡ03 Can't read צ*SYSTEM.MISCINFOצ , I/O code =  ))*(#&(#'. . .. Enter the number you choose :  .Ʉ/ /]Ƃƃ0Ƃ*SYSTEM.MISCINFO"ÚƂ"ÚƂ`/Ɓ[/́\Ɓ\=Ɓ\: Ɓ\צFMTMENUƁ\/P/ ../ E/P/.. . .../ M/P/.cǟ> >  Estimated file capacity:   צ forms with no column lines#Type: C-Confirm, R-Redesign, Q-Quit== =ۨߍߡ! 0v v B < 8"z D\t@.v>d,b \ X ,charactersצMaximum column lines per form: cǟ> >  Estimated file capacity:   צ forms with no column lines#Type: C-Confirm, R-Redesign, Q-Quitimum form size: >  charactersצ Minimum storage units per form:  > šצColumn line size: >  charactersצMaximum column lines per form: צ%Form containing only single items has6"Both single items and columns have now been designed. >> ǀǀצ File size:   storage unitsMindesigning forms? (Y/N) Y MSG7צMSG6Press return to continue MSG4,ڨ٨צLAYOUT *,>> > >> > > + ߓۣ á; out, you may define the columns.$If this form will have columns, type!"Y" to enter the column headings.צIf not, type "N".'JH \+$Need help on  áo5 '"    ǂd    צHDR DEF SIZE =  צFIELD DEF SIZE =  `*<;;:$: &Now that all the single items are laidˡخݢ ݣ ɲݣ ݢ ݣ * %C-Confirm, R-Redesign, Q-Quit, ?-Help ==?áצMSG2==<ܓ   Vt٨צ12345678צ š J@'ȡ' ' ''''' ' ' ' ' ''' '"'$'&' Ɓ/++ȡ.Ʉ ++ȡYisk a unique name.UM  is illegal.Enter name (up to 7 letters): Pš'++:TTPɄUM ز+ ,,ءUM á/׷yצ:á,:,Pš@צ'Disk name must be 7 characters or less.١צ,,P,:Q,PX lUM צBLANKUM 8 צ%You must give the d>צ File disk name is assumed to be צIf so, press return. Otherwise,enterצEnter disk name or drive number : P9ئ10ׯצ11ئ12ׯ#QPRLš,,#sá^צ!Disk to copy TO is assumed to be  in drive Bצ$File disk is assumed to be in drive Ƅ-"ˡK %Can't write disk directory, I/O code  bڪPƄ-ƅȲUʄUˡʄUU/Ƅ-Ƅ-ŪVƄ-Ƅ-z45-.C "ˡJ $Can't read disk directory, I/O code  `ڪPƄ-ƅȲUʄUˡ#ʄU- -U:Ƅ-#Ƅ--̄V -UƄ- ٣á٢٣ˡ)File initialization failed.h٣35er ڪP.š:á//P//#XXXP-X-Xȡ4-. -0. -?٢C??٢C٣á? ȡ٢C?٣Ä٢Cۂ٣á ȡ ߂ ȡ LBL1  ȡ  NODE٨@أˡpأ4BBȡ # BצINITFILE٢  רؚ? ȡ٢C? ȡ3٢C?''' ' ' '''''''!'   خ  צ WRITEtraceG R &á (z   VersaForm 1. *Copyright Applied Software Technology 1981 'ȡ' ' 'pen configuration file: 4NVIצTrace ? (Y/N) : س@@II7Trace unit (1, 2, 6 or 8): HHF Init +ȡ-++ȡ0++ȡ9쥀VU6775488**Ś#"Ú * D Error. Jצ already exists.NEWFILE+JP++TTTT[+,,#HצDisk in +צ is named UM +צPTEnter the name you are giving sá0צto the file you are copying TOצ&Remove the sticker, then press return.~ Can't create file; I/O code= ʁW ʁW á3Make sure the disk is formattedʁWˡ, *צ SETUPUUá צ$There is not enough room on the diskצto accommodate your file. Do you want to try again? (Y/N) TTʁWá צ"Warning--File is write-protected. file to contain? (There are  !storage units per Pascal block) :ƁV ʁVʁV0uȄ́XʁXO צMust be between  צ and 0u ʁXʁV́V,VʁVצ storage units.٪P,ƁX,"́WʁWáTV UDo you want your file to be theצstandard size? (Y/N) ́Vצ'How many storage units do you want yourצREADMAPڢCڣ؂ڣˡmڣڢؚ:צ CLEARFILEצ Please wait Vȡ7,VUVá .VT,צYour file contains  צIf correct, press return.Otherwise, enter file nameEnter file name : P׷Pצ-צ File name is A%)+-/VfHt#< +תP++TTZ+ƄuƄu#FDisk in +צ is named UM +צPTצ!What file contains the form being copied FROM?צPצƄKצ READVPDATAضÚ@%Some checking info lost. Press return|צ WRITEVPDATAȡ۶ړ'ڡ+צNo space available onem name    á"צItem may not be left blank O ˡw4,"No operations allowed with strings׮F O3#צMust be +, -, *, /, L, or H O@@Must be Y or N׮-=|צ SPVALCHECK  Item name is incorrect׮$ˡצItem must be a column Item name is incorrect׮ $$ˡM C 934.צ&Calc value must be number or it۶VVO۞O-áYO۞O-O-O-O0Írڨ) CHECKLINE-)VVO]á>WVWVVVO[WWVȡۢO܂! Fڨ) CHECKNAMEA áŶRL آ ݄آO áġܕآO٢L jڨ)-VAL= U+VU;WUP+k أAá ǟߣ ǟأB ȡ#ۢOߣ!ǟǟ* x áܢ P4  "CMD:..... ?,V,SA,CL,E,D,PF,PB,PR,Q­NتPSTRTOBVOO,O-,-ȡ٢,O,,,"V\ب)Ix+צPTUTUȡ3+VV+PV?QVP+TTOTT+UUצBOOȡآO:צVPOPENצ:VFMT00؂="ˡf٢\تP ­R0تP R ͢< t %This screen layout may not be changedצ"because the file already has data.צ$The checks and fills may be changed.u5Y !5xvN sk in the!original drive (usually #4), thenצ press return.á< á ǀ<oצ"Do you want to redesign the screenlayout? (Y/N) : !=!= Iif s˄sǀCopying  <ǀtצ Form copied=צ:BJTERM"ˡ&Replace the Design Program Diskimum column lines per form: cǟʁ2 ʁ2  Estimated file capacity:  ʁ0 צ forms with no column lineś/́3ʁ/ʁ3ȡʁ/́/="=!=!ǟ =! Ɓ. File size:  צ storage unitsצMinimum form size: ʁ2  charactersצ Minimum storage units per form: ʁ0 ʁ2 šצColumn line size: ʁ2 צ charactersMax&!+H dƁ-צ PRINTEXAMPLEšsá́1*Print the form? (Y/N) ́1ʁ1צ Make sure the printer is online.Ɓ. צPRINTER:"á<́2ʁ2 ǀǀ́0צFile J the filek5ˡ l צ COPYFLDVP.ȡ آˡ ۡ'NצCOPYVP& $ COPY BUF GOT %%ˡ%ˡ%%% O OצItem must be a number] O#Item must be L or R or 0..9׮%jWD צ CHECKFIELDS234 ޟ2.  222<\ f "(PǀPPققکȡ_š`B?š@צ THIS ITEM:*E *ˡLF+*,,á<,+!,ǟ,ˡ+!+ǟ, Xx/צ THIS ITEM:*E *ˡP*,,áE+,-+-ȡ"F!,+ǟ+O++,4Z ~0צݣBš ޣ ޣšޢښ ޢخ)ޣ ń(ݣBޣޣ Pm  -צCLEARNEXTDETAILۣAܣ ۣBܣ ܣ ǟȡ/ǟܣ ǟȡۣB!ǟ  |.O ۢخ*ڣB!ǟ ڣBخ)ĸ`+צValidation required,,צPAGEFORM,How many pages? ׮cۏݣAޣޣ ޣ ńBޣ šڶš ޣ áPá%Ȅ%á$ߡ! ٟˡ٢٢$4(خ(٣A٣B!خĸ.)צ CLEARSNUMSȡڣBڣB! B*ڣA ö ÍأȄ#&, ȶأȄ#&& '“ ácPá"QأAݢݢ&á# ˄' &:öÍV% ^عNNo room on the form׮ALine may not be changed now׮ Not an item׮ U=p&PPá#áAأ š&zBأ 6u  P Ʉ) L"@#á ĸ0$öÍÍÍá'ȡ Pá ک4áPɡ PáPܩPġPبPP h ġNá Ʉ(PɄPܣ Ȅ ȄIÄخނ P צREPAINT٣A٣A٣B!8P á |áPġ `ȡܢܢܢܢȡ(q ڨ٨צ SCREENDISP ݟˡ ˡخP ޶Ȅw P Ȅ8ǟ P uhب MASKDISPLAY  ڟˡáܢܢsܢQ צSTDCURSܣAݣ áIܣBݣݣ ݣ áۂP~ڨ٨צ SETUPSCREEN  ݟˡ ˡǟצTABLOC۶ġڣA ƂڣB   ˡ sdݓ˄ɄF0 PܓȄš ɡ P kD ޶ȡ ڂ ȡ ˡل ȡ ȡ6١ ١ $١  0 Wv VPCLEAR٣Aڢخ*٣B!ǟ ٣B0خ)L1P ؟ˡrܣAáSݣɶݣ Ȅ7ۢ قPB قPy 4 ˡVWWAXVVáVVVVVYYȡ#WB!ڂǟڂVjV`VPVX XVYYȡ#WB!ڂǟڂV. VG-ˡ . -RG-ˡ-L-E -ˡ. - ITEM NAMEFצFORMATFצI1:FI2:FצI3:FI4:FצI5:FI6:FצOP1:FצOP2:FצOP3:FצOP4:FצOP5:F&צ ITEM NAMEF -E -ˡ--RBGצSETUPFMT .= --ˡ1-á --á ---צMINIMUM-LENGTHFצMAXIMUM-LENGTH-FJUSTIFY-(L/R/#)FLG-ˡ --HG-ˡ-ښʮCˡ*No space available on the file׮ksFˡ lT٢F &Checking/filling information processedD٪P SETPROCNUM-E -ˡ -RFFتP ALLOCSCBSÄAߢáߢߢá ǀá9 ȡ.ߢšߢߢ5  Cצ SAVEVPDATAEF!ܣ ܣ  Saving form׮Fڶgo on.׮1#.E/0J)Bצ GETVPDATAá1Eá1.B1!%jA=AJ- ר!=D צ'@Pö HPP Ȅ?$ 'Ȅ @á>?; ˄=צVPFETCHF!ǟ Fأˡ;'No old info, disk err. Return to H4/*BR"  -zu Vn  "$&(*,.02468:<>BDF NPRTVXZ\^`xfwjlx ?'ȡ - <>ȡɲ Ä K8ɡ$  ɡkDƁ-ƂY  Ɓ-́UƁU=ƁUצ:VPCMENUƁU"áƁ-́Ɓ-́,"áʁ, צEnter the command you choose : ƁṔƁ́UʁʁUȡʁƁʁʁ́!ۣۣ Ȅ:צIllegal line number 7k22 F ĸk1d)]-U-LFA ;74,suu cWRMG"$3(H?<< ;צ OK? (Y/N) س@@س 29)ĸ_ :,Delete line number : ׮cȄڣA8أBá:&צ!Only the last line may be deleted:ۣڣBܢݣAޣz8٣A٣BɡMڣ ڣ ڣ ڣ ٣Bȡ#٣B!ǟ٣B!ڣ ǟ٣B٣B.) Line deleted׮U98 6צVPVAL %%á"5צEntries checked.6% ­H`332 ؟ˡáݣAضޣ ȡ% ˡ ٓ:VVAWWVBáVBVB.4KU\n5ܣAݣ á ܣBݣݣ ڣBġ Form is full׮Eݣ á(!Columns are full; PF to continue.׮ۂP$ò --˶Ó-áù --PĶá0-P./cǟ/ / ƹ ƭw/\^EF!ǟ*IצSETPARMS? I? I?I?I?I?Iآ IآIȡ? آ&H The current item is " " `KK Old checking in!NOW FORMATTING DISKETTE IN DRIVE  0B:2*"0 82 2,& צERROR: UNABLE TO FORMAT DISK. DISKETTE WRITE PROTECTED,  צ IS NOT ONLINE.  é ń ȄDESTROY DIRECTORY OF   : :ȡ   צ ? 99@@9966"ˡ#12:formatter.data"ˡ8צ I CAN'T FIND FILE FORMATTER.DATA   צ"FORMAT WHICH DISK (4, 5, 9..12) ? 8808 " ˫6 á=צ DISK NUMBER  xץ:צAPPLE DISK FORMATTER PROGRAM=#4:formatter.data"ˡ#5:formatter.data"ˡ#9:formatter.data"ˡ#10:formatter.data"ˡצ#11:formatter.dataáMצ'PUT SYSTEM DISK IN #4 AND PRESS RETURN  THAT'S ALL FOLKS... ڳT 0ڳ ۏڂ0ڳ<pGFORMATTE (Y/N) F G!=K=Kȡآ===F%5 צVPAƁ ́F"F!צ VFCB OPENƁVPA SCREEN GOT ́ʁˡʁˡʁʁ́Ɓ!($p ZN D N  X 4(*8 hz !"*#H# %%LX$)t*H)*&:+8&++@,v ,6---$-D. N> >#E H  FJI=DF=ÄH==JF; Confirm צ? (Y/N) F G!=K=Kȡآ===F%5 צVPAƁ ́F"F!צ VFCB OPENƁVPA SCREEN GOT ́ʁˡʁˡʁʁ́Ɓ!($p ZN D VJNצFLDVPAF NJJIH?=K=KȡaF?=<=> >#E H  FJI=DF=ÄH==JF; Confirm צ?PMצSETMODEJIGH A á,,|,iI[LٳJٳIٳGٳMM,H hecking #or automatic filling for this item?צ Reply Y/N áX, or reply A to keep all צremaining items without change.@@JJGformation exists.%Reply C-Change, K-Keep, or D-Discard;צ$Reply A to keep all remaining items צwithout change.LKצDo you want to have c BAD MEDIA, OR BAD DRIVE. SpPh>h?hhhhhBPhh AOhM=< =H*H?H>H`@QVTNMFEA@?642* xP66HIHHHHhHH A? .?hHHHj .? ] H^HVP {>( F> =$0x8x @A- @# H8`L(B >k @@f0x> %> %>Hh @A#-8``zȄ ȡٛٛ*ġE#áPȡ ؛0T \0Enter the number of the driveצthat holds the diB NAMEDISK BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JFG8`0($ p,&"L=Y?&D&Y?&C? 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  AB A') +B A&п Ax) ++`ʖ8'x0|&HhHh @ @ @ @VY@'&Y@xꪽ@' @ @ @ @ @`Hh` aI꽌ɪVɭ&? $? $?`HJ݌h Hh݌` @?Hh݌``  !"#$%&'()*+,-./0123456789:;<=>? @A @x @A - @x8`->0ݩ>ʥ ` H t>x$50xh$50xLAJJJJ`HHjf5 t>h $50x`80^݌Hh ? ?݌ $? $? $? ? ? ?EEHJh #? $sk to be named( 4, 5, 9, 10, 11, or 12 ). ( Press return to exit. ) Pˡ_ ō"ˍ ܓ?צ!Invalid drive number, try again. Þ"܄>\P(Y/N) ڳ@@ڳNhYou may try again or quit. צ Try again? ^áCצUnit  eadingwritingצ disk name, I/O code =  . "Ú ڍړ, "Ú ڍ(Z b ٨צ12345678Pצ šS becomes SALESA. Then youcan use Structured Backup.: Pš'++:++Pġ ` l Error áצrnot be over 7 characters long. צ(To quit, just press return) 'Recommendation: Make the name 6 lettersצ(long or less, then add an A on the end. צ'Example: SALEMצ'The name does not start with a letter. ل$ Enter the new disk name forצthe disk in drive # . It must start with a letter and S"Do you want to change the name of  צ?       ɭQ    ۪Xdi,bee is over   letters long.ٓncertain. Press return.BJSTART  ">X:  v , \ "e not presentjCצCan't open configuration fileƁ0P تP-,,&VV-PV:QVǡVHDˡ š HThe disk name is now .H$Disk status u PZJ*BJTERM"Ú,Ú<Configuration file not presentjCצCan't open configuration fileeadingwritingצ disk name, I/O code =  . "Ú ڍړ, "Ú ڍ(Z b ٨צ12345678Pצ šS becomes SALESA. Then youcan use Structured Backup.: Pš'++:++Pġ ` l Error áצrnot be over 7 characters long. צ(To quit, just press return) 'Recommendation: Make the name 6 lettersצ(long or less, then add an A on the end. צ'Example: SALEMצ'The name does not start with a letter. ل$ Enter the new disk name forצthe disk in drive # . It must start with a letter and S"Do you want to change the name of  צ?  š]צThe name is over   letters long.ٓ is not present. VError reading disk  צ , I/O code =  Press return.  &؞"Ú  ת"إ  ׷Äc צBLANK PZJ*BJTERM"Ú,Ú<Configuration file not presentjCצCan't open configuration file