8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' /AMPER.PEEK.DEMO  AMPER.PEEKER  2.AMPER.PEEKER.S  ' )ANIM.DEMO= @-3+ANIM.DEMO.S 6   APPEND.FILE2 ,BASIC.SYSTEM3(*+'CHECKITH 6/ ϲ GET.PLUSP  HR.INVERTERQ  HR.INVERTER.BINR% : -HR.INVERTER.SS . 'NIBMENUV PIC.LOADa &PRODOSb }<n% READ.FILE 'STARTUP ®3* .STARTUP.SCREENC 9`4TITLE.CMD.S| *" ,TITLE.LOAD.S *,TM.ADDRESSESڲ'TM.EDIT  +TYPE.AHEAD +*VCR.MOVIES3 q'WIDGETS)O  WRITE.FILE   ************************? * AMPER.PEEK.DEMO *^ * BY CHRIS MEYER *}( * COPYRIGHT(C) 1989 *2 * MINDCRAFT PUBL. CORP.*< * CONCORD, MA 01742 *F ************************Z(4)"BRUN AMPER.PEEKER":200 dA%(24,40) n250( xB124:C140@ B%B:C%C:A%,C%,B%Q A%(B%,C%)A%Z C,Bp (4):(4)"PR#1" (9)"80N" B124:C140:(A%(B,C));:C "":B (4)"PR#0": (21):::::7 "THIS ROUTINE WILL USE AMPER.PEEKER":"TO READ THE TEXT SCREEN AND PRINT IT TO THE PRINTER."\ 23:"PRESS RETURN TO CONTINUE."s (16384)128220y :X1950:((1)2)0ĺ" ";:270 A((1)25)193:(A); X L3((((PPPPЩLC` ߥ ߠȱ ߠȱץ) LL-׹Hh` ********************************* * AMPER.PEEKER SOURCE CODE * * BY CHRIS MEYER * * COPYRIGHT(C) 1989 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * * EDITOR ASSEMBLER * ********************************* ORG $300 ; ; EQUATES VARADR EQU $83 TEMP3 EQU $D6 TEMP2 EQU $FA ADR EQU $FC TEMP EQU $FE VECTOR EQU $3F5 ;& JUMP VECTOR CHECKC EQU $DEBE ;CHECK FOR COMMA GETVAR EQU $DFE3 ;EVALUATES VARIABLE ERROR EQU $FF2D ;PRINT "ERR" JMP BEGIN ; ; SCREEN ADDRESSES ; VTAB1 DFB $04,$04,$05,$05,$06,$06,$07,$07 DFB $04,$04,$05,$05,$06,$06,$07,$07 DFB $04,$04,$05,$05,$06,$06,$07,$07 VTAB2 DFB $00,$80,$00,$80,$00,$80,$00,$80 DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8 DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8 DFB $50,$D0,$50,$D0,$50,$D0,$50,$D0 BEGIN LDA #$4C ;SETS UP STA VECTOR ;& VECTOR LDA #START STA VECTOR+1 LDA START+2 STA VECTOR+2 RTS ; ; MAIN PROGRAM ; START JSR GETVAR LDA VARADR STA TEMP2 LDA VARADR+1 STA TEMP2+1 JSR CHECKC JSR GETVAR LDY #0 LDA (VARADR),Y STA TEMP INY LDA (VARADR),Y STA TEMP+1 JSR CHECKC JSR GETVAR LDY #0 LDA (VARADR),Y STA TEMP3 INY LDA (VARADR),Y STA TEMP3+1 ; ; CHECK FOR ERROR ; LDA TEMP BNE ERR LDA TEMP+1 CMP #41 BCS ERR LDA TEMP3 BNE ERR LDA TEMP3+1 CMP #25 BCS ERR JMP GOOD ; ; PRINT ERROR ; ERR JMP ERROR ; ; NO ERROR, SO CONTINUE ; GOOD LDY TEMP3+1 LDA VTAB1-1,Y STA ADR+1 LDA VTAB2-1,Y STA ADR LDA ADR BNE *+4 DEC ADR+1 DEC ADR LDY TEMP+1 LDA (ADR),Y PHA LDA #0 TAY STA (TEMP2),Y INY PLA STA (TEMP2),Y RTS  ,R @ <@ 9LP"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?"?\y x455ut?x <p?hjjjhp?< <x`PUTUP`x< xp@ +(+ @px p`@VPV@~`p `@~- -}~@` @|Z@Z:z|@ !"#$%&'()*+,-./01222͠22Ӯ2㩠2쮠𮠠2䬠22򠠠22Ǡ22󺠠2%Ҡՠ'Ҡՠ ŠՠؠӠՠؠӠՠ٠ĠՠؠĠՠ٠٠ՠؠՠ ؠؠՠà٠!ҠՠŠ̠ՠ̠ՠĠՠĠՠĠՠð'Šՠð'Πՠð&ҠՠƳŲԠՠ³Ԡՠ222ҠҠ!ԠΠҠԠ"ҠŠҠԠ!Рİ222Ԡ    ī ̫!Ġ"ԠҠ ԯ ҫ ؠ̫ ٠ҠР22庠2ŠĠ̠ԠﬠԠŠРŠﬠà٠ РРŠ ﬠà٠ Р Р ŠàﬠàĠ РàРŠĠﬠàĠ РĠРŠŠﬠàĠŠ àī ڠРŠРŠƠﬠĠŠ àī ٠à РƠРŠǠﬠ ī РŠǠР ŠȠﬠӠ$ȠĠРѠŠɠﬠӠɠРˠŠԠﬠԠ ԯ ҫ̠ ؠ̫ ٠ҠР РӠ"ԠҠР٠ Ҡ$РŠ22庠2Рà&̠ àĠ̠ ̫ ī àī ̫̠ àĠ ̫!̠Ԡﬠ ̫Š٠Ԡ!Р ̫#àà٠ 廠 ̫٠̠РàԠﬠ Š٠ԠРà٠ﬠ '٠ԠҠ ԯ ҫĠ ؠī٠ĠҠРנ#ԠҠ ԯ ҫ̠ ؠ̫٠̠ Ҡ22נ2 Р٠ӠàӠ#à͠Ҡӫ àͯ ҫؠ%Ҭةؠ٠$àҩ٠àҠҠ٠ҩ àҫ%ҫ & à ӫ àů ҫҬة ٠׬٠ҠȬ٠ ҫ'ﮠ ҬةàŠ "àҠŠ àҫ%ҬةàӠ "àҠŠ àҫ! ٠Š%РҬة$Ҡҩ٠墠%ҩ٠-"àҠŠ àҫ٠٠ؠŠРﬠؠӠؠؠӠؠؠӠנ׬ؠﬠ Ҡ Ȭ ҫ٠ŠؠѠР נ22ؠ캠2%Šà à à à à à à à à à à ବ¬¬¬¬ àìììììì àĬĬĬĬĬĬ àŬŬŬŬŬŬ àƬƬƬƬƬƬ à à à à à à à à à à à ବ¬¬¬¬ àìììììì àĬĬĬĬĬĬ àŬŬŬŬŬŬ àƬƬƬƬƬƬ à à à à à à à à22堨󠲩2&͠à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à22󺠠2(נà$à$à$à$à$à$à$à$à$à$à$à$à$à$à$à$à$àİİİİİİİİ$à$àİİİİİİİİ$à$àİİİİİİİİ$à$àİİİİİİİİ22󺠠2)Ƞàì$àì$àĬ$àĬ$àŬ$àŬ$à¬Ƭ¬$à¬Ƭ¬$àì$àì$àĬ$àĬ$àŬ$àŬ$à¬Ƭ¬$à¬Ƭ¬$àì$àì$àĬ$àĬ$àŬ$àŬ$à¬Ƭ¬$à¬Ƭ¬22庠2/*ԠàŬƬìà³堣à謠àƬŬààƬŬƬ堣à謠àŬìàƬàƬàƬìàŬ堣à謠àìàƬàƬàƬàì堣à謠ààƬ¬à¬ƬàƬà堣à謠ààƬàŬŬàƬà堣à謠ààŬĬàĬĬĬàŬà堣à謠àƬàìƬààìƬƬà D$(4): Control-D:D$;"APPEND SEQUENTIAL.FILE"ZD$;"WRITE SEQUENTIAL.FILE"y("USING APPEND WE CAN ADD"2"A FIFTH; SIXTH OR"<"ANY NUMBER OF ITEMS"FD$;"CLOSE SEQUENTIAL.FILE"456789:;<=>?@ABCDEFGLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLLIJKLMNO. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MINDCRAFT PUBL.CORP. *( * CONCORD, MA 01742 *2 *************************************' <:::"CHECKIT":"COPYRIGHT 1988 BY MINDCRAFT PUBL. CORP."0 F90\ PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)40969 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$d xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH2 A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140| 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."x A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE' (48896)76Ĺ56,0:57,133:1002:250B (4);"IN#A$8500":250l (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  Y"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):_,t6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:h $8500 VERSION5rI0377:ML:34048I,ML:I;| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169_ 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6& 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133> 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32o 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,166 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326  160,0,152,170,173,0,192,48,46,32,156,252,138,168,169,190,145,40,169,128,32,168,252,200,192,39,208,230,152,170,173,0,192,48,20,32,156,252,138,168,169,188,145,40,169,128,32,168,252,136,16,232,184,80,201,141,16,192,41,127,141,0,2  201,123,176,6,201,97,144,2,41,223,141,1,2,76,142,253:S768:ISS78:N:I,N::"PRESS A KEY":S:P(512):A$(P):Q(513):B$(Q):A$,P,,B$,Q% *****************************I * HR.INVERTER *m * BY ERNIE ALEXANDER *( * COPYRIGHT(C) 1989 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA. 01742 *F ***************************** PX024 ZB, d768X,B: Address $3003 nX9 xg 169,32,133,1,160,0,132,0,162,32,177,0,73 255,145,0,200,208,247,230,1,202,208,242,96  I`h`TU********************************** * HR.INVERTER SOURCE CODE * * BY ERNIE ALEXANDER * * COPYRIGHT(C) 1989 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA. 01742 * ********************************** * EDITOR ASSEMBLER ORG $300 STARTING ADDRESS SCREEN EQU $00 zero page usage (2 bytes) LDA #$20 Page # ($20 or $40) STA SCREEN+1 LDY #$00 STY SCREEN LDX #$20 INVERT LDA (SCREEN),Y EOR #$FF *or #$7F STA (SCREEN),Y INY BNE INVERT INC SCREEN+1 DEX BNE INVERT RTS WXYZ[\]^_`OCT 1989 DISK (VOL 10 /NO 10) 9 WIDGETS GS STARTUP SCREENS BUILDING A VIDEO/MOVIE DATA BASE GETTING THE LITTLE PICTURE THE INS AND OUTS OF STORAGE TINY MAILER, PART II AMPER TEXT PEEKER HI-RES INVERTER CHECKIT 4 WIDGETS RUN WIDGETS GETTING THE LITTLE PICTURE BRUN ANIM.DEMO AMPER TEXT PEEKER RUN AMPER.PEEK.DEMO CHECKIT RUN CHECKIT @ This disk is a double-sided disk. All of the programs that will run under ProDOS are on the ProDOS formatted front side of the disk, and all that will run under DOS 3.3 are on the back side of the disk. Some programs will run under both operating systems and are included on both sides of this disk. You're currently using the ProDOS side of the disk. @ Before using the programs on this disk, you should make a work disk for each program. This can be done by first making a complete copy of the disk with one of the following programs: * COPYA (DOS 3.3 System Master) * FILER (ProDOS Utilities Disk) * The Apple IIc or Apple IIGS Utilities Disk * Any Disk Copy Program Then boot the copied disk and delete all of the files that are not related to the program by using the DELETE command. The System Utilities program also has an option to DELETE files. @ You will not be able to delete the titles that we've placed in the catalog to separate files. However, these will not interfere with the operation of the programs. The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for WIDGETS, remove all but the following file from a copy of this disk: WIDGETS This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for GS STARTUP SCREENS, remove all but the following file from a copy of this disk: PIC.LOAD This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for BUILDING A VIDEO/MOVIE DATA BASE, remove all but the following file from a copy of this disk: VCR.MOVIES This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for GETTING THE LITTLE PICTURE, remove all but the following file from a copy of this disk: ANIM.DEMO This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for THE INS AND OUTS OF STORAGE, remove all but the following files from a copy of this disk: WRITE.FILE APPEND.FILE READ.FILE These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ To create a work disk for TINY MAILER, PART II, remove all but the following files from a copy of this disk: TM.EDIT TM.ADDRESSES These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ To create a work disk for AMPER TEXT PEEKER, remove all but the following files from a copy of this disk: AMPER.PEEKER.DEMO AMPER.PEEKER These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for HI-RES INVERTER, remove all but the following files from a copy of this disk: HR.INVERTER HR.INVERTER.BIN These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in every issue of Nibble that aids in typing in programs from the magazine. See the Typing Tips in the latest issue of Nibble for details on using CHECKIT. We have also included the One- and Two-Liners on this disk. @ The source code files for the major assembly language programs have been included on this side of the disk. These files are included expressly for experienced programmers. These files cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code files: TITLE.LOAD.S (APW) TITLE.CMD.S (APW) ANIM.DEMO.S (MINDCRAFT) AMPER.PEEKER.S (EDASM) HR.INVERTER.S (EDASM) @ # ,@ K"J9JTb ) @) "T"b ) ) kf */SYSTEM/SYSTEM.SETUP/BOOT.PICLf6b,T Jcdefghijklmnopqrstuvwxyz{|}~L !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( + %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0JHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE D$(4): Control-D8D$;"OPEN SEQUENTIAL.FILE"WD$;"READ SEQUENTIAL.FILE"b(I17m2A$(I)t<IFD$;"CLOSE SEQUENTIAL.FILE"PI17ZA$(I)dIn ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9703 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESd x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11201 P$(20): P$ = PROGRAM NAME _ S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME= NA$"NIBBLE "A$:22:20((NA$)2):NA$:1h NP: NP = NUMBER OF PROGRAMS ON DISK~ I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1,1)"#"350 T320! ^D$;"CLOSE"^ h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600M  ********** CYCLE THRU NIBMENU TEXT SCREENSU A1^ :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :36:"Thanks again for your order !")12:R6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1989 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030$N ********** SET UP MENUJXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"861ME:8:ME". Quit"l21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868Y1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z107008002 ********** PRINT POINTER SUBROUTINEO 61N:SX:X$(SLOS);:r ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL): > ********** EXECUTE A VALID MENU CHOICE,H49168,0::1100:D$;RC$(SL)PR ********** CATALOG SELECTED m\:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,0(49168,0:49152,128Z(49152)249(49152)217Ĺ49168,0::1100:` ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"_(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR KEYSTROKEFLAG$""`23:" for next page or for menu";:49168,0:49152,128~(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER *L(4);"PR#0":ZV ********** INSTALL INPUT-ANYTHING ROUTINEu`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165:~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~0 cFc& U*U*U*@@ @%P*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~ppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4pysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժ _?@>|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80 TO RE-DO:";XX$:20:958:140t 20:868:" = ACCEPT... R = RE-ENTER:";XX$:XX$""XX$"R"XX$"r"190 XX$"R"Ģ20:868:"PRESS RETURN TO ACCEPT EXISTING DATA":140 : : : SAVE ADDRESS TO DISK D$;"OPEN ADDRESSES,L87" D$;"READ ADDRESSES,R0", R:RR1J D$;"WRITE ADDRESSES,R";R^ "F15:A$(F):{ ,D$;"WRITE ADDRESSES,R0" 6R @D$;"CLOSE" J T: ^: h: SETUP r:5 |10:"NIBBLE TINY MAILER"/ :"THIS PROGRAM LETS YOU ENTER NAMES AND":"ADDRESSES INTO A RANDOM DISK FILE." :"YOU'LL ENTER:"::" NAME:":" STREET:":" CITY:":" STATE:":" ZIP:" :"THEN YOU'LL HAVE THE CHANCE TO RE-ENTER":"AND CORRECT ANY MISTAKES BEFORE SAVING"."THE NAME AND ADDRESS TO THE DISK FILE."::" (CHECKING THE DISK FILE)"P: CHECK WHETHER FILE EXISTS D$(4):D1$".........................":D2$"..":D3$".....":D1$=25 DOTS D2$=2 DOTS D3$=5 DOTS560D$;"VERIFY ADDRESSES":"PRESS RETURN TO BEGIN:";XX$110: ENTER ADDRESS0250: SAVE ADDRESS:10:" = ENTER ANOTHER... E = END:";XX$:XX$""XX$"E"XX$"e"500XX$"E"ĺ"END OF ADDRESS ENTRY":480: ENTER ANOTHER::&: CREATE NEW FILE 0216,0: RESET ERROR POINTER>::"PRESS TO CREATE ADDRESSES FILE";XX$[DD$;"OPEN ADDRESSES,L87"xND$;"WRITE ADDRESSES,R0"X0bD$;"CLOSE"l470( *********************************O* TM.EDIT *v* BY ALEXANDER LAIRD *(* COPYRIGHT (C) 1989 BY *2* MINDCRAFT PUBL. CORP. *7* CONCORD, MA. 01742 * <*********************************" F(17):510( P:G d: [ EDIT NAME & ADDRESS ] n:3:"RECORD #:";N::"NAME :":"STREET :":"CITY :":"STATE :":"ZIP :" x5:F15:10:A$(F): 5:CT0: GO BACK TO THE FIRST LINE F15 10:"";F$ F$""A$(F)F$8 F4:10:868:A$(F):CTCT(A$(F)) :CT(825)Ģ20:958:"ADDRESS TOTALS MORE THAN 82 CHARACTERS.":"RE-DO THE ENTRIES TO SHORTEN THEM.":" TO RE-DO:";XX$:20:958:130$ 20:868:" = ACCEPT... R = RE-ENTER:";XX$:XX$""XX$"R"XX$"r"190h XX$"R"Ģ20:868:"PRESS RETURN TO ACCEPT EXISTING DATA":130n t :z : :[ SAVE ADDRESS TO DISK ] D$;"OPEN ADDRESSES,L87" D$;"WRITE ADDRESSES,R";N F15:A$(F): D$;"CLOSE" " ,: 6:) @: [ READ SINGLE ADDRESS ]F JD$;"OPEN ADDRESSES,L87"c TD$;"READ ADDRESSES,R";Nw ^F15:A$(F): hD$;"CLOSE" r |: : :[ SCAN/SEARCH ADDRESSES ] D$;"OPEN ADDRESSES,L87" I1R D$;"READ ADDRESSES,R";I A$(1):(A$(1),L)N$NI:IR' I7 D$;"CLOSE"= C :I :Z : [ SETUP ]c :5 10:"NIBBLE TINY MAILER EDIT" :"THIS PROGRAM LETS YOU EDIT NAMES AND":"ADDRESSES IN YOUR RANDOM DISK FILE."]:"YOU'LL RETRIEVE AN ADDRESS RECORD BY":"ITS RECORD NUMBER OR BY THE NAME OF THE":"PERSON. THEN YOU CAN CHANGE ANY ITEM"&"IN THE ADDRESS AND WRITE THE CORRECTED":"ADDRESS BACK INTO ITS PROPER POSITION":"IN THE FILE."0:"YOU'LL ALSO HAVE THE CHANCE TO RE-ENTER":"AND CORRECT ANY MISTAKES BEFORE SAVING"r:"THE NAME AND ADDRESS TO THE DISK FILE."::" (CHECKING THE DISK FILE)"xD:~N:X:[ CHECK WHETHER FILE EXISTS ]bD$(4)l880vD$;"VERIFY ADDRESSES"D$;"OPEN ADDRESSES,L87"D$;"READ ADDRESSES,R0":R)D$;"CLOSE ADDRESSES"R0ė:10:"THERE ARE NO RECORDS CURRENTLY IN YOUR":"ADDRESSES FILE. PLEASE ENTER AT LEAST":"ONE ADDRESS BEFORE USING THIS PROGRAM.":::"PRESS RETURN FOR NEXT PAGE:";XX$:9:"THERE ARE ";R;" RECORDS IN THE FILE."::"YOU CAN RETRIEVE A RECORD BY ENTERING:"::" * A RECORD NUMBER (OR)"::" * A FULL OR PARTIAL PERSON'S NAME":" FOR EXAMPLE: SAM JONES":" SAM JON":" SAM J":"PRESS RETURN TO BEGIN:";XX$::4: MAIN CONTROL LOOP:8:"ENTER: RECORD #(1-";R;") OR ":" NAME (FULL OR PARTIAL) OR":" Q TO QUIT"::"ENTER: ";N$:N(N$):(N$)0750N$(113)N$(81)830: TEST ENDBN0NRĺ"THAT RECORD NUMBER IS LARGER THAN THE":"FILE CONTENTS. PRESS :";XX$:750e N0İ330:800:RETRIEVE REC #N0L(N$):410:N0İ330:800:SEARCH ON NAME N0ĺ:"A NAME MATCH WAS NOT FOUND.":"PRESS TO TRY AGAIN:";XX$:750*110: EDIT ADDRESS4250: SAVE ADDRESSr>:10:" = ENTER ANOTHER... E = END:";XX$:XX$""XX$"E"XX$"e"830HXX$"E"ĺ"END OF ADDRESS EDIT"::R750: ENTER ANOTHER\:f: ERROR MESSAGEp216,0: RESET ERROR POINTERNz:10:"YOU HAVE ENCOUNTERED A FILE ERROR WITH":"THE ATTEMPT TO READ THE ADDRESSES FILE.":"CHECK TO MAKE SURE THAT THE ADDRESSES":"FILE IS ON THIS DISK, OR SAVE A COPY":"OF THIS PROGRAM ON THE SAME DISK THAT""CONTAINS THE ADDRESSES FILE."::"PROGRAM ENDED."΅ϩL79j86L SL0L ϐ ΆϦl(Φ` l,*HɃ!ɓ, ,0Ϧh` L)DDR    Titleory 1YearActors/Actresses--DirectorType Color or B/WTape #" ***************************C* WIDGETS *d* BY ALEXANDER LAIRD *(* COPYRIGHT (C) 1989 *2* MINDCRAFT PUBL. Corp. *<* CONCORD, MA 01742 *F***************************P2630 Z: CLEAR FLASH AREA) d11:F17:30:868:::/ n:G x:[ INTEGER ALIGN ]a AL$(AL):AA(AL$):g : :[ DECIMAL ALIGN ] AL(AL100.5)100 AL0AL$"0.00":AA4: AX(AL100):AX$(AX) (AX$)3AX$"0"AX$:190" LF$(AX$,(AX$)2):RT$(AX$,2):AL$LF$"."RT$2 AA(AL$):8 :> :Y : [ DISPLAY RESULTS ]v 12:F15:30:868:: 1:868:"[[ OPERATING PERFORMANCE ]]" 868:"Entering quarter ";QTR;" your workforce is ";EMPL;".";:36,50:"Revenue.........";:AL(REV):130:36,74AA:AL$ 868:NEMP;" employees joined the company.";:36,50:"-Mfg cost.......";:AL(MCST):130:36,74AA:AL$ "868:LEMP;" employees left the company.";:36,50:"-Payroll........";:AL(DE(1)):130:36,74AA:AL$k ,868:"You manufactured ";DE(4);"(000) Widgets.";:36,50:"-Advertising....";:AL(DE(3)):130:36,74AA:AL$ 6868:UCST(UCST100.5)100:"Standard unit cost was $";UCST;"/unit.";:36,50:"-Research.......";:AL(RCST):130:36,74AA:AL$s @868:IVTY(IVTY):"Current inventory is: ";IVTY;"(000) units.";:36,50:"*Net Profit.....";:AL(PFT):130:36,74AA:AL$ J868:"You sold ";PSALE;"(000) units at $";DE(2);"/unit.";:36,50:"*Available Cash.";:AL(CASH):130:36,74AA:AL$ T868^ COMPARATIVE RESULTShP(1)(EMPLXEMP)1:P(2)(IVTYXIVTY)1:P(3)(PSALEXPSALE)1:P(4)(UCSTXUCST)1:P(5)(SALXSAL)1:PERCENT CHANGErF15:P$(F)"up":P(F)0P$(F)"down"|P(F)(P(F)100):ALP(F):160:PC$(F)AL$R11:33:"[[ COMPARATIVE RESULTS ]]":30:"Workforce went ";P$(1);" by ";:36,70(PC$(1)):PC$(1);"%"30:"Inventory went ";P$(2);" by ";:36,70(PC$(2)):PC$(2);"%"QTR2Ė30:"Product sales went ";P$(3);" by ";:36,70(PC$(3)):PC$(3);"%"/30:"Unit cost went ";P$(4);" by ";:36,70(PC$(4)):PC$(4);"%"w30:"Salary cost went ";P$(5);" by ";:36,70(PC$(5)):PC$(5);"%"}:::[ OPERATING RESULTS ]QTRQTR1XEMPEMPL:XIVTYIVTY:XUCSTUCST:XPSALEPSALE:XSALSALXPSALE0XPSALE1XIVTY0XIVTY18DE(5)RD(2)UCSTUCST1.3eDE(5)RD(2)DE(5)RD(3)UCSTUCST1.15&DE(5)RD(4)DE(5)RD(5)UCSTUCST.850DE(5)RD(5)UCSTUCST.70 :FL(1)0DE(4)(DE(4)2):MCSTMCSTFL(1): FLASH 1...ADD FIRE COST TO MFG COST (MCST)BDFL(4)0UCSTUCST1: FLASH 4...REDUCE UNIT COSTNFL(6)0MCSTMCST(DE(4)FL(6)): FLASH 6...ADDED REWORK COST * PRODUCTIONXUCST9UCST9bIVTYIVTYDE(4):MCSTMCST(DE(4)UCST):MFG->INVENTORY AND MFG COST"lFL(7)0NEMPFL(7): FLASH 7...ADDT'L EMPLOYEESUvFL(8)0LEMPFL(8): FLASH 8...LOST EMPLOYEESRCSTDE(5)RP: ADD MKT REPORT TO R&D COSTHIT0:DE(2)PC(2)HIT1:690DE(2)PC(7)HIT7:690F26:DE(2)PC(F)DE(2)PC(F1)HITF:F6PEPI(HIT): PRICE EFFECT%;HIT0:DE(3)AI(2)HIT1:740XDE(3)AI(8)HIT8:740F27:DE(3)AD(F)DE(3)AD(F1)HITF:F7AEAI(HIT): ADVTSG EFFECT%SL((PE100)(PAD100))((AE100)(APR100)): SALES % OF INVENTORY8FL(3)0SL1.00:DE(2)FL(3): FLASH 3... SELL 100% OF INVTYGSL1SL1n PSALEIVTYSL: BASIC SALES VOLUMEFL(2)0PSALEPSALE((100FL(2))100): FLASH 2... REDUCED SALES TRANSPORTATION SHUTDOWN FL(9)0PSALEPSALE(PSALE(FL(9)100)): FLASH 9... ADDED SALES.*PSALEIVTYPSALEIVTYt4FL(5)0SALSAL1.25:PRDNPRDN1:FLASH 5...BENEFITS PLAN EFFECT>REVPSALEDE(2):IVTYIVTYPSALE:SFLAG1SFLAG0:REVIVTY29.95:DE(2)29.95:PSALEIVTY:IVTY0: REVENUE CALCULATIONHSFLAG1SFLAG0:REVIVTY29.95:IVTY0TRFL(10)0SFLAG1: FLASH 10...SELL OUT FLAG NEXT PERIODt\MPAYEMPLSAL: MIN PAYROLLfDE(1)MPAYNEMPNEMP((DE(1)MPAY)10)((1)10):ADDED EMPLOYEESpDE(1)MPAYLEMPLEMP((MPAYDE(1))SAL)((1)4):LOST EMPLOYEESFzLEMP(EMPLNEMP)LEMPEMPLNEMP: AVOID NEGATIVE EMPLOYEES^EMPLEMPLNEMPLEMPFLTN((1)3)1: INFLATION 1-3%UCSTUCST(UCST(FLTN100)):SALSAL(SAL(FLTN100)): INFLATION EFFECTHPFT((1)250)500: EXCESS PROFITGPFTREVDE(1)MCSTDE(3)RCST:PROFIT = REV - PAYROLL - MFG - ADVTSG - R&DVPFT(PFT)PFTHPFTĢ12:30:868:"STRIKE! Excess profits of $";PFT;" cause":30:868:"employee and supplier complaints."PFTHPFTĖ30:868:"Employee costs rise by $1.00 per unit"PFTHPFTĖ30:868:"and profits are reduced by 50%":PFT(PFT2):SALSAL1:18:30::" TO CONTINUE:";::XX$:18:1403,29:868CASHCASHPFT:CASH(CASH):UCST(UCST100.5)100:FLTN(FLTN100.5)100:SAL(SAL100.5)100:PFT(PFT):MCST(MCST):IVTY(IVTY):PSALE(PSALE)CASH0İ100:12:30:"OUT OF CASH! You must":30:"sell 50% of production":30:"capacity to replenish cash ($1000).":306CASH0Ė30:" to sell:";:XX$:CASHCASH1000:PRDNPRDN2:PRDN(PRDN100.5)100:CASH01010:STILL NEGATIVEEMPL0İ100:12:30:"You've lost all your people. You must ":1403,29:"spend 50% of your cash balance of $";CASHEMPL0Ė30:"to hire new people at 30% premium."bEMPL0Ė30:" to hire new people.";:XX$:CASH(CASH2):EMPL(CASH(SAL1.30)):DE(1)DE(1)CASH:NEMPNEMPEMPL$PRDN.5İ100:12:30:"You've gone into negative cash":30:"for the last time. You're bankrupt!":30:" for Directors Report.";:XX$:BK1.8: B:$L:[ FLASH REPORTS ]CVF110:F$(F)"":FL(F)0:^`FA((1)20)1: 1-20jFA10F$(1)"FLASH Report: Industry is stable for":F$(2)"the current period.":1240tFA1FL(1)((1)100)125:F$(1)"FLASH Report: FIRE in the plant. The":F$(2)"production is cut by 50% while repairs":F$(3)"are made. The cost to restore your":F$(4)"production is: "(FL(1)):12400 ~FA2FL(2)((1)20)10:F$(1)"FLASH Report: Transportation shutdown!":F$(2)(FL(2))"% of sales cannot be shipped. Your":F$(3)"customers cancel orders!":1240 FA3FL(3)((1)15)20:F$(1)"FLASH Report: Major government order!":F$(2)"Entire inventory sells out at $"(FL(3)):1240#!FA4FL(4)1:F$(1)"FLASH Report: Outstanding parts buy!":F$(2)"Manufacturing cost drops by $1.00!":1240!FA5FL(5)1:F$(1)"FLASH Report: New Benefits Plan is":F$(2)"introduced. Cost per employee goes":F$(3)"up by 25% but productivity rises by":F$(4)"1(000) units per person.":1240"FA6FL(6)(((1)150)100)100:ALFL(6):160:F$(1)"FLASH Report: Quality defects require":F$(2)"rework with added cost of $"AL$:FL(6)(AL$):F$(3)"per unit.":1240=#FA7FL(7)((1)15)10:F$(1)"FLASH Report: Layoff in neighboring":F$(2)"plant. "(FL(7))" more employees are hired":F$(3)"and ready to produce next quarter.":1240#FA8FL(8)((1)11)5:F$(1)"FLASH Report: Competitor raids your":F$(2)"company and "(FL(8))" employees resign.":1240H$FA9FL(9)((1)11)20:F$(1)"FLASH Report: Widgets wins advertising":F$(2)"award! Market demand rises by "(FL(9))"%.":1240$FA10FL(10)1:F$(1)"FLASH Report: Major order received!":F$(2)"Total inventory can be sold at $29.95":F$(3)"next period with no advertising expense.":1240 %12:F15:30:F$(F):U%18:30::" TO CONTINUE:";::XX$:18:1403,0:868:1:1403,0[%a%:g%:% :[ CALCULATE BUSINESS INDEXES ]%:%:[PRICE SENSITIVITY]%(X100:F16:PI(F)X:F3XX15%2F3XX10%<&FTEMP((1)7)1:TEMPTEMP5:RANGE 5-12A&PPC(1)9.95:PC(7)29.95:PC(4)TEMP9.95:c&ZPC(6)29.95((PC(7)PC(4))2)&dPC(2)9.95((PC(4)PC(1))2)&nPC(3)PC(2)((PC(4)PC(2))2)&xPC(5)PC(4)((PC(6)PC(4))2)'TEMP((1)5)2: RANDOM LINE # 2-6 FOR MARKET WINDOW'PI(TEMP)50((1)50)$':8': ADVTSG INDEX\'X10:F28:AI(F)X:F5XX20l'F4XX10r''TEMP((1)50)75: RANGE 75-124'AD(4)TEMP'AD(1)25:AD(8)200'AD(2)25((AD(4)AD(1))2)(AD(3)((AD(4)AD(2))2)AD(2)$(AD(6)((AD(8)AD(4))2)AD(4)G(AD(5)((AD(6)AD(4))2)AD(4)j(AD(7)((AD(8)AD(6))2)AD(6)(TEMP((1)6)2: RANDOM LINE # 2-7 FOR MARKET WINDOW("AI(TEMP)50((1)50)(,:(6: [R&D INDEX](@AMT30(JF15)TTEMP(F25)25)^RD(F)TEMPRN7)hRN((1)25)1:RD(F)RD(F)RNP)rRI(F)AMT:AMTAMT15W)|F]):u):[PRICE/AD IMPACT])PAD((1)30)40:APR100PAD)):):):[MARKET REPORT])RP0)17:868[*18:868:(MKT1.25)CASH20ĺ"You don't have enough cash to buy the Market Report. to continue:";:XX$:MKT$"N":1780*1403,0:18:868:"Do you wish to purchase the Market Report for $";MKT;:"K? Y/N:";:MKT$:MK$;:MKT$"Y"MKT$"N"MKT$"y"MKT$"n"1770+18:1403,0:868$+MKT$"Y"MKT$"y"RPMKT@+MKTMKT1.25:MKT(MKT)[+MKT$"Y"MKT$"y"ı+1403,0:10:868:MKT$"Y"MKT$"y"ı+&1:1403,0:"R&D Index..........Price Index..........Advertising Index"+0F18+:1403,0:8689,DF5ALRD(F):130:36,3AA:AL$;:ALRI(F):130:36,8AA:AL$;"%";S,NF7ĺ"Price/Ad Mix";,XF8ALPAD:130:36,3AA:AL$;"%";:ALAPR:130:36,9AA:AL$;"%";,bF7ALPC(F):160:36,24AA:AL$;:ALPI(F):130::36,29AA:AL$;"%";(-lALAD(F):130:36,47AA:AL$;:ALAI(F):130:36,51AA:AL$;"%"/-vFT-17:"Market Report..:";:18:RP-18:868::"PRINT MARKET REPORT? Y/N:";::XX$:1403,0:18:868:XX$"Y"XX$"N"XX$"y"XX$"n"1930-XX$"Y"XX$"y"Č768-18:868--:-:.: [ ENTER DECISIONS ]<.10:1403,0:F176:"=";::_.11:1403,2:"[[ DECISIONS ]]"h.100.1403,0:12:"Payroll........: ":"Price..........: ":"Advertising....: ":"Production(k)..: ":"Research & Dev.: ":/12:F15:18:868:DE(F):/12:F15:18:"";X$6/ X$""DE(F)(X$)U/12(F1):18:868:DE(F)[/ /*DE(4)(EMPLPRDN)Ģ18:"You don't have enough employees to produce: ";DE(4);:". Press RETURN:";:XX$:1403,0:18:868:2030/4HIT0:F15:DE(F)0HITF0>v0HHIT0Ģ18:"You cannot enter a negative number for decisions. Press RETURN:";:XX$:1403,0:18:868:20301RDE(1)0DE(2)0DE(4)0Ģ18:"You must use a positive number for Payroll, Price & Prod'n. Press RETURN:";:XX$:1403,0:18:868:20301\(DE(1)DE(3)DE(5)RP)CASHĢ18:"You don't have enough cash to pay for these decisions. Press RETURN:";:XX$:1403,0:18:868:20301f1403,0:18::" TO ACCEPT... R TO REENTER:";::XX$:XX$(13)XX$"R"XX$"r"2150 2p1403,0:18:868.2zXX$"R"XX$"r"Ģ18:868:203042:2:@2:Z2: [ DISPLAY STATUS ]219:1:958:19::"Qtr Empl Invty $Cash $Unit Prodn Infln Salary $Profit"2F176:"=";::>336,2:QTR;:ALEMPL:130:36,12AA:AL$;:ALIVTY:130:36,22AA:AL$;:ALCASH:130:36,32AA:AL$;3ALUCST:170:36,40AA:AL$;:ALPRDN:160:36,48AA:AL$;:ALFLTN:170:36,56AA:AL$;3ALSAL:170:36,65AA:AL$;:ALCPFT:130:36,76AA:AL$33:3:3:[ FINAL LETTER ]4 4 "Mr/Ms President!":p4 "Over your ";TM;" quarters in office, you produced the following results:":4$ ALCREVTM:160:" Average Revenue.....";:36,40AA1:"$";AL$4. ALCPFTTM:AVAL:160:" Average Profit......";:36,40AA1:"$";AL$M58 AL(CLEFTCEMP)100:TRNAL:160:" Average Turnover....";:36,40AA:AL$;"%"5B AL(CPFTCREV)100:MGINAL:160:" Average Profit Margin ";:36,40AA:AL$;"%"6L AL(CASH(IVTYUCST))(750(5012)):AL((AL100)100)TM:ASETAL:160:" Average Asset Return";:36,40AA:AL$;"%"Q6V MGIN20MG$"is outstanding! Keep it up!":RVWRVW46` MGIN10MGIN20MG$"is very good. Good expense control!":RVWRVW36j MGIN5MGIN10MG$"could be better. Analyze your decisions better.":RVWRVW2&7t MGIN5MG$"is miserable. You can do better!"b7~ TRN5TRN$"is excellent. Keep it moving!":RVWRVW37 TRN5TRN10TRN$"is acceptable. Watch your payroll carefully!":RVWRVW28 TRN10TRN15TRN$"is marginal. Pay attention to your people!":RVWRVW1M8 TRN15TRN$"is very poor. You need more organization stability."8 ASET35AS$"is brilliant. We're delighted with the investment!":RVWRVW38 ASET25ASET35AS$"is acceptable... but watch your cash.":RVWRVW289 ASET12ASET25AS$"is marginal. We're frankly concerned.":RVWRVW1~9 ASET12AS$"is unacceptable. Our investment is disappointing."9 BK1ĺ:"With these results, you've taken the company into bankruptcy!"::RVW0:2570: :"Your profit margin management ";MG$): "Your people management ";TRN$K: "Your asset management ";AS$: :RVW7ĺ"You've done an excellent job in running Widgets Corp. We'd like to hire you":"for another term with a bonus of $";:AL(AV2):130:AL$;",000!"; RVW4RVW7ĺ"You've done an adequate job with the company. We're willing to renew your":"contract for another term, but we suggest that you pay more attention":"to the market reports."n< RVW4ĺ"You've really done a pitiful job with the assets and resources of the company.":"We won't be asking you to renew your contract...and please close the door":"on your way out."< :"The Directors"< <( :<2 :<< : [ INTRODUCTION ]n 10:30:" Copyright 1989":29:" by MindCraft Publ. Corp."::25:" TO BEGIN...S)KIP COMMENTS:";:XX$::XX$"S"XX$"s"3080>x "CONGRATULATIONS! You have been elected President of Widget Corporation. In":"this important job, you'll select a contract term for decision-making and then"? "make a series of management decisions each quarter:":? :" Payroll ..... $8(000) per employee per quarter"a? " Price ....... $9.95 to $29.95"? " Advertising.. $0 to 200(000)"? " Production... Depends on the number of employees and their unit productivity"@ " R&D.......... $0 to $200(000)"@ :"Widgets are high-tech appliances found in homes and offices. Although they":"have a low cost, they take expensive, skilled labor. If you pay less than the"SA "$8(000) PER EMPLOYEE per quarter, some employees will leave for other jobs. If":"you pay more, then new employees will join the company and begin producing in"B "the following quarter."::"Each employee can initially produce 2(000) Widgets per quarter. However other":"industry factors such as technology advances, strikes, and damaged goods can"HB "affect manufacturing cost and productivity."B :" for next page:";:XX$::"When you start a new quarter, a variety of price, cost, advertising, and R&D"GC "tables are automatically created. These tables are used with your decisions to":"to produce the company performance results."C :"For example: there are built-in advertising and pricing demand tables. The":"lower your price, the more you'll sell. But be careful not to sell below cost"D "or you'll lose money. And if you price above $29.95, you won't sell a single":"Widget. Similarly, your advertising expenditures affect the percentage of your"D "inventory that is sold each quarter.":mE :"You can buy a special Executive Market Report to display the index tables for":"the current quarter. It costs $50(000) and the price rises by 25% each quarter."F" :"Research & Development expense affects the unit cost impact curve. If you spend":"more, your cost will go down. Spend less and the cost rises. You can affect"F, "the unit cost (up or down) by up to 30% per quarter."::"There is also an inflation factor that affects the payroll expense between")G6 "of 1% to 3% per quarter. If you don't keep pace with inflation in your payroll":"then more employees will leave the company."PG@ :" for next page:";:XX$GJ :"Here's an example of how the demand curves work using the Price Index:"::" Price Index R&D Index Price/Ad Mix"HT " 9.95 100% 74 30% 60% 40%":" 15.45 85% 118 15%":" 18.20 70% 132 0%":" 20.95 67% 145 -15%":" 23.20 50% 162 -30%"H^ " 25.45 40%":" 29.95 0%"UIh :"With this index, if you set the price at $18.20 to $20.94, you'll sell 70%":"of the inventory that is affected by price. In addition, the Price/Ad Index"Ir "shows the relative influence of price and advertising for the quarter. In the":"quarter shown, pricing affects 60% of sales and advertising affects only 40%."J| :"With the R&D Index, if you spend $1 to 117K your unit cost will rise 30%. If":"you spend $145 to 161K, your unit manufacturing cost will be reduced by 15%."LK :"These indexes as well as an advertising index are shown when you purchase the":"special Market Report. The information can have a dramatic effect on results."sK :" for next page:";:XX$L :"You can also be affected by strikes if you have excessive profits. When you":"have a strike, it costs 50% of the current quarter profits to settle it, plus"YL "double the normal inflation effect in salary increases."L :"Widget's market has several advertising and pricing 'holes' where special":"promotions may sell out inventory at a relatively high price. But you'll have"!M "to experiment to find them."M :"When you have entered your decisions for Payroll, Price, Advertising, Research":"and Production, your results for the current quarter will be displayed."lN :"Each quarter, your results will also be affected by FLASH news reports that":"can be windfalls or setbacks with: major orders, fire, advertising awards, etc."O :"At the end of your term of office, you'll receive a performance review by the":"Board of Directors based on your profitability, return on assets, and employee"iO "management skills."::"Enjoy! And GOOD LUCK!"::" to begin:";:XX$oO :uO :O : [ SETUP MENU ]O BK0:QTR1:EMPL50:IVTY50:CASH750:UCST12.00:PRDN2:FLTN1:SAL8:CPFT0:MKT50dP :12:20:"Welcome to Widget Corp. Mr/Ms President!":20:"How many Quarters will you serve? (2-12):";TM$:TM(TM$):TM23090jP :pP& :P0 : [ MAIN CONTROL LOOP ]P: PD 1320: BUILD INDEXESPN 2220: DISPLAY STATUSPX 1740: MARKET REPORTPb 2000: ENTER DECISIONSQl 1110: FLASH REPORT9Qv 490: CALC OPERATING RESULTSyQ CREVCREVREV:CPFTCPFTPFT:CLEFTCLEFTLEMP:CEMPCEMPEMPLQ 1:2220: DISPLAY STATUSQ 250: DISPLAY RESULTSR 1:18::"PRINT REPORT? Y/N:";::XX$:XX$;:1403,0:18:868:XX$"Y"XX$"N"XX$"y"XX$"n"32309R XX$"Y"XX$"y"Č768eR REV0:PFT0:MCST0:RCST0:LEMP0:NEMP0R BK0QTRTM3140:CHECK END OF TERM OR BANKRUPTCYR :R : [ END OF TERM ]S 18::"Your Term is completed. Press RETURN for the Directors letter:";::XX$S 2310S 21:::"PRINT LETTER? Y/N:";::XX$:21:1403,0:868:XX$"Y"XX$"N"XX$"n"XX$"y"3310S XX$"Y"XX$"y"Č768S XX$"":21::"ENTER: Q)UIT OR A)NOTHER TERM:";:XX$:XX$"A"XX$"Q"XX$"a"XX$"q"3330T XX$"A"Ľ:30800T "YOUR TERM IS ENDED.":6T : I768911:K:I,K::^UH 165, 54, 72, 165, 55, 72, 165, 56, 72, 165, 57, 72, 165, 36, 72, 165, 37, 72, 162, 0, 138, 72, 169, 193, 133, 55, 169, 0, 133, 54, 170, 189, 134, 3, 240, 6, 32, 237, 253, 232, 208, 245, 169, 255, 133, 60, 230, 60, 165, 60HVR 133, 37, 32, 36, 252, 160, 0, 173, 0, 192, 201, 155, 240, 44, 104, 72, 208, 14, 8, 120, 141, 85, 192, 177, 40, 141, 84, 192, 40, 32, 237, 253, 177, 40, 32, 237, 253, 200, 192, 40, 208, 221, 169, 141, 32, 237, 253, 234, 234, 234W\ 234, 234, 165, 60, 201, 23, 208, 194, 104, 104, 133, 37, 32, 36, 252, 104, 133, 36, 104, 133, 57, 104, 133, 56, 104, 133, 55, 104, 133, 54, 141, 16, 192, 96, 141, 141, 137, 56, 50, 78, 141, 141, 0, 238 D$(4): Control-D8D$;"OPEN SEQUENTIAL.FILE"XD$;"WRITE SEQUENTIAL.FILE"v("THIS IS THE FIRST ITEM"2"FOLLOWED BY THE SECOND"<"THIRD"F"AND FOURTH"PD$;"CLOSE SEQUENTIAL.FILE"Z