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}' 'ALCHEMY+8 ",ALCHEMY.DEMO +8 0 )ALCHEMY.S+8 AN.DICK'L&L&AN.MALE(L)L)BACK)r v1,BASIC.SYSTEM*( 'CHECKIT? 6/ ϲ 'DD.DEMOG+t- DOUBLE.DUMPJ+b-DOUBLE.DUMP.SK +s"GS.COLORRcv GS.DICKSL&L&GS.MALETL)L)GS.NEWUL'L'-INPUT.ROUTINEV +:  NAMESb2L$L)'NIBMENUc< ++&PRODOSj"}@#(STAR.TRAVEL Q%'STARTUP z®3 .STARTUP.SCREEN . . -SURVEY.MASTER %+: TOT.JOCKL%L&TOT.NEWL'L'  L ɖ W ԧK ` ᥠ0*^X **)H)j$iPPi(hL⥡I . HJHtHtH`JJJJJL,N LNLFN ` U V` VH Lh) ` YWPS YQ` VH VhŨ) Hh` VH Lh E` V 'H'h*&jj&Ƨܥ (  `8j V؅ii(8( 'HhƨꥥP`Ġ̀IڢH V L玝 㢟 + L玞 㢤 +뮞@읗d gݢ +Lᘢ 著  ᥡ 賓  ᥡ3,8L~mi!,P8m WɘȍN͙В ꩫ 碰 +멵 L&h`H V W ᅦⅧ : : : :h` ' ******************************M * ALCHEMY.DEMO *s * BY JERRY JONGERIUS * * COPYRIGHT(C) 1991 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 *  ****************************** , :(4);"BRUN ALCHEMY"@ (21):OP$(15)R SET1:CLR2c DIS3:SW4u EXR5:LFT6 UP7:CIR8 $BOX9 .OP$(1)"ANIMATED BOX" 8OP$(2)"THREE GRAPHICS PAGES" BOP$(3)"EXCLUSIVE-OR" LOP$(4)"FLIP - LEFT/RIGHT"" VOP$(5)"FLIP - UP/DOWN"G `OP$(6)"CIRCLE - SPEED CONTRAST"m jOP$(7)"ELLIPSE - SPEED CONTRAST" tOP$(8)"CIRCLE - WORLD" ~OP$(9)"CIRCLE - OLYMPICS" OP$(10)"CIRCLE - CBS" ::(17) HEAD$"****************************************": 40 *s :HEAD$;B 8);"<< HI-RES ALCHEMY DEMO >>" 10)"BY JERRY JONGERIUS":6)"(C) 1991 MINDCRAFT PUBL. CORP.":HEAD$ L110:9((L)):7L:"<";L;">";" ";OP$(L): 8:" QUIT" 21:"WHICH NUMBER (1-10) ":"(WHILE DRAWING, RETURNS HERE)"/ 21:21:"";N$F N$"Q"N$"q"ė:h N(N$):N1N10ĺ(7):1250 N1300,1540,1740,1940,2150,2360,2530,2610,2750,2860 16368,0:1170 ********************** * * (* ANIMATED BOX *% 2* *A <**********************G FZ PST.035:C0:3t ZY12:P(CLR),Y,0: dY12:X02:P(BOX),Y,X,X,279X,191X:: nC0:D5:E5 xA30(C)125:B30(C)70 3 P(BOX),1,A,B,A40,B40 P(DIS),1,1)0:P(BOX),2,D,E,D40,E4003VCCST:D30(C)125:E30(C)70sP(BOX),2,D,E,D40,E40P(DIS),2,10P(BOX),1,A,B,A40,B40CCST(16384)155ı1400********************** * *&* THREE PAGES *B"* *^,**********************g6:3@12:13::"DRAWING PICTURES":JX13:Z(CLR),X,0:TY0786:X02:Z(BOX),1,XY,XY,279XY,159XY::^Z(CIR),2,140,80,30,30,.05:Z(BOX),2,110,50,170,110;hZ(CIR),3,140,80,30,10,.05[rZ(CIR),3,140,80,10,30,.05o|X13:P(X)X:Z(DIS),1,2:B1:23:"WHICH PAGE (1-3)? ";A$:A$(27)ıA(A$):A1A3ĺ(7);:1690Z(SW),P(A),1QP(A):P(A)1:P(B)QBA:16801**********************M* *i* EXCLUSIVE-OR ** ***********************:P1"DRAW IN WHICH COLOR ";A$:A(A$):A0A4A7ĺ(7);:1810Z(SET),P:Z(CLR),P,0:Z(DIS),P,2:A,&X0804O0Z(BOX),P,140X,X,140X,160XU:eDB127:1900uNB128:1900XB255:1900b:23:"PRESS ANY KEY TO RETURN TO MENU ";:A$:l:23:"PRESS A KEY TO EOR THE PAGE WITH ";::B;::" ";:A$ vZ(EXR),1,BG:23:"PRESS ANY KEY TO RETURN PAGE TO NORMAL ";:A$ZZ(EXR),1,B:v*********************** ** F/F L/R ** ***********************:"DRAW IN WHICH COLOR ";/A$:A(A$):A0A4A7ĺ(7);:2000@A:S.01:P1OZ(SET),P`Z(CLR),P,0qZ(DIS),P,2}C010 Z(BOX),P,50C,30C,50C,130CZ(BOX),P,100C,30C,100C,130C Z(BOX),P,70C,80C,80C,80C*Z(BOX),P,160C,90C,160C,130C54Z(BOX),P,160C,60C,160C,60C;>hH:23:"PRESS ANY KEY TO FLIP PICTURE ";|RA$:A$(27)ı\Z(LFT),P:2120f**********************p* *z* FLIP U/D ** ***********************<:"DRAW IN WHICH COLOR ";fA$:A(A$):A0A4A7ĺ(7);:2210sA:S.01{P1Z(SET),PZ(CLR),P,0Z(DIS),P,2Z(BOX),1,80,50,190,120Z(BOX),1,84,54,166,11680,12070,11570,4580,5070,45180,45190,507 90,15130,47170,15m Z(CIR),1,174,60,3,3,.1:Z(CIR),1,182,60,3,3,.1 :23:"PRESS ANY KEY TO FLIP PICTURE ";$ A$:A$(27)ı. Z(UP),P:23308 **********************B * *L * CIRCLE - CONTRAST *2V * *N` **********************^j H225:S.03it ::3~ 23:"BASIC VERSION":X1300: P1100:P296:H125 X03.141592S AH1(X):BH2(X) P1A,P2B:P1A,P2B P1A,P2B:P1A,P2B:" 23:"THE M/L VERSION"B Z(CIR),1,P180,P2,H1,H2,SQ X1500: 23:"PRESS ANY KEY TO RETURN TO THE MENU ";:A$: ********************** * * * ELLIPSE - CONTRAST * * * ********************** 0 H250:S.02:24206( R2 **********************n< * *F * CIRCLE - WORLD *P * *Z **********************d n J1.01:J2.01:3*x Z(SET),2:Z(CLR),Z,0:Z(DIS),Z,1:X02:Z(BOX),Z,X,X,279X,191X:J 140,16140,174:X109010h Z(CIR),Z,140,95,X,80,J1} (16384)155ı  Z(CIR),Z,140,95,90,14,J2 16368,0:A$: ********************** * *  * CIRCLE - OLYMPICS *& * *B **********************p :3:Z(SET),1:Z(CLR),Z,0:Z(DIS),Z,2 C250::K13:C1:2840::C278:K12:C1:2840: 16368,0 23:"PRESS ANY KEY TO RETURN TO THE MENU ";:A$: X13:Z(CIR),Z,C1,C2,25X,25X,.02::4" 140,80,200,110,170O, *********************j6 * *@ * CIRCLE - CBS *J * *T *********************^ :3:Z(SET),1:Z(CLR),Z,0:Z(DIS),Z,2 h X140:Y80:H150:H2H12:S.01'r Z(CIR),Z,X,Y,H1,H1,SB| Z(CIR),Z,X,Y,H2,H2,S] Z(CIR),Z,X,Y,H1,H2,S 23:"PRESS ANY KEY TO RETURN TO THE MENU "; 16368,0:A$: !"#$%&******************************* * ALCHEMY Source code * * by Jerry Jongerius * * (C) 1991 by MindCraft Publ. * * Concord, MA 01742 * ****************************** * * MOVE PROGRAM UP ORG $8000 * LDA #$96 STA $0C STA $FD LDA $03D1 BNE DOS33 LDA #4 JSR $BEF5 BCC BUFROK MEMPROB JMP $BE09 BUFROK CMP #$96 BEQ MOVEIT LDA #12 BNE MEMPROB DOS33 LDX #$95 STX $9D01 STX $FD STA $AA57 JSR $A7D4 MOVEIT LDA #>END+1 STA $FE LDA #EXIT-1 PHA LDA TABLE,X PHA INX LDA TABLE,X PHA RTS * ******************************** * * EXIT * ******************************** * EXIT LDA HGRZP LSR A LSR A LSR A LSR A LSR A TAY JMP FLOATINA * ******************************** * * GET VALUES * ******************************** * GETVAL4 LDA #$04 GETVAL3 BIT $03A9 STA $4E JSR COMBYTE TXA BEQ ILLEGAL CPX $4E BCC PAGEOK ILLEGAL JMP ILLQTYP PAGEOK LSR $4E BCS OVER3 ASL A ASL A ASL A ASL A ASL A OVER3 RTS * ******************************** * * TABLE OF * * ENTRY POINTS * ******************************** * TABLE DDB SPP-1 DDB CPVA-1 DDB DP-1 DDB SP-1 DDB EPB-1 DDB LR-1 DDB UP-1 DDB CIR-1 DDB PB-1 SKP 2 ******************************* * * SET PLOTTING PAGE * ******************************** * SPP JSR GETVAL4 STA HGRZP RTS * ******************************** * * CLEAR PAGE TO VALUE * ******************************** * CPVA JSR GETVAL4 PHA JSR COMBYTE PLA STA $A6 AND #$00 STA $A5 TAY TXA LDX #$20 STORE1 STA ($A5),Y INY BNE STORE1 INC $A6 DEX BNE STORE1 RTS * ******************************** * * DISPLAY A PAGE * ******************************** * DP JSR GETVAL3+1 STA $C057 STA $C050 STA $C053,X JSR GETVAL3+1 STA $C051,X RTS * ******************************** * * SWITCH PAGES * ******************************** * SP JSR GETVAL4 PHA JSR GETVAL4 STA $A8 PLA STA $A6 CMP $A8 BEQ RTSJ1 AND #$00 STA $A5 STA $A7 TAY LDX #$20 STORE2 LDA ($A5),Y PHA LDA ($A7),Y STA ($A5),Y PLA STA ($A7),Y INY BNE STORE2 INC $A6 INC $A8 DEX BNE STORE2 RTSJ1 RTS * ******************************** * * EOR PAGE * ******************************** * EPB JSR GETVAL4 PHA JSR COMBYTE PLA STA $A6 LDY #$00 STY $A5 STX $A7 LDX #$20 STORE3 LDA ($A5),Y EOR $A7 STA ($A5),Y INY BNE STORE3 INC $A6 DEX BNE STORE3 RTS * ******************************** * * HGR F/F L/R * ******************************** * LR JSR GETVAL4 STA $A9 LDA #$00 L9 STA $A5 LDA $A9 STA $A6 LDA #$20 STA $A7 L4 LDY #$27 L1 LDA ($A5),Y PHA DEY BPL L1 LDY #$27 L3 PLA LDX #$07 ROL A ROL $A8 ROR A L2 ROR A ROL $A8 DEX BNE L2 LDA $A8 STA ($A5),Y DEY BPL L3 * INC $A6 DEC $A7 BNE L4 LDA $A5 ASL A BNE L5 LDA #$28 L5 BCS L6 ASL A BCC L7 LDA #$00 L6 ASL A BCC L8 RTS L8 SEC L7 ROR A BCC L9 * ******************************** * * HGR F/F U/D * ******************************** * UP JSR GETVAL4 STA $A9 LDA #$D8 STA $A5 LDA #$F8 STA $A7 L12 LDA $A9 STA $A6 CLC ADC #$1F STA $A8 LDA $A5 ADC #$28 STA $A5 LDA $A7 SEC SBC #$28 STA $A7 LDX #$20 L11 LDY #$27 L10 LDA ($A5),Y PHA LDA ($A7),Y STA ($A5),Y PLA STA ($A7),Y DEY BPL L10 INC $A6 DEC $A8 DEX BNE L11 LDA $A5 CMP #$50 BNE L12 RTS * ******************************** * * STORAGE FOR CIRCLE * ******************************** * PLOTVAL DS $01 ENDVAL DS $01 * STOREXL DS $01 STOREXH DS $01 STOREY DS $01 * STOREXM DS $01 STOREYM DS $01 XMFAC DS $05 YMFAC DS $05 * ASX DS $01 ASY DS $01 * STEP DS $05 FORNEXT DS $05 PIFOUR DFB $80,$49,$0F,$DA,$A2 * ******************************** * * CIRCLE * ******************************** * CIR LDA HGRZP PHA JSR GETVAL4 STA HGRZP JSR SYNCHECK JSR GETXY STA STOREY STY STOREXH STX STOREXL JSR COMBYTE STX STOREXM TXA TAY JSR FLOATINA LDX #>XMFAC LDY #YMFAC LDY #STEP LDY #FORNEXT LDY #XMFAC LDY #FORNEXT LDY #YMFAC LDY #FORNEXT LDY #STEP LDY #FORNEXT LDY #PIFOUR LDY #LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻LYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,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 $݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v POپھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhLJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:i>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥj>>m>` im8iŻnjƻkiljoŻS -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=aIe f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!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~T٩   LiLMTRLLLLL58ﻀۻ)Iۻ `2Eۻ8`ﻀ ԠŬLL@ABCDEF. ********** 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 HI ***********************;* DD.DEMO *X* by James E. Trudeau *u(* Copyright (C) 1991 *2* by MindCraft Publ. *<* Concord, MA 01742 *F***********************P(4)"BLOAD DOUBLE.DUMP" Z::X160255:A$A$(X):m dFF((49182)127)((49183)127): 0=40 COLUMN,1=80 COLUMN IN 40 COLUMN MODE,2=80 COLUMN MODE n49166,0:2:"MAIN CHARACTER SET":: TURN ON MAIN CHARACTER SET xA$::(A$,64):F0F0::(A$,64)::200: NO ALTERNATE CHARACTERS: F1āX039:1064X,X::X4063:1192X40,X::::150 X0622:AUX(49237):1792X2,X:MAIN(49236):1792X2,X1:: ::"PRESS A KEY TO DUMP THE SCREEN.";:Z$:Z$:768: 49167,0:2:"ALTERNATE CHARACTER SET"::A$::A$:. (64899)(64898)420200: NOT //c OR ENHANCED //ef :"MOUSETEXT"::F1āX031:1576X,X64:::200 X0302:AUX(49237):1320X2,X64:MAIN(49236):1320X2,X65:: 768: F0Ģ12:"TRY ME WITH THE 80 COLUMN CARD ON." J,X%H7H6H76轒 [, ,U(,T( c( c( h6h7hʆ%L?0,@` ɠ 0 I@ `΍LMNOPQ Ů Ů é ǠŠĠ ֠ ̠ ̠ Ƞ Ԡð ҠðŠ ĸ̠ðƠ űð űؠð ֠µ  Šð ԠĸŠ ԠĠ ԠƳƠ Šƴ 󍍍ҠŠ ԠԠ 忍̠Š ֍ Ƞ 덠̍ؠñ ؠȠ ׍ؠ 占ؠ̍ؠŠ Ҡ؍ԭؠ ѠР占ҠԍŠҠ РҠ֠ ٠ РԠĸ̠ ̴̠ ؍Ԡűؠ ؍̩٠ ؍Р Ԡű Р ҠŠ ̴̩٠ ҠŠ 占٠ ٠ 󿍠àР ҠԍàŠ ōР 󿍠àР 卪 퍪̠ ׍ȍ ؍؍ѠҠ ؍Ҡؠ֠ ŠРԠ 卪 򍪍ŠɠԠ 鍠ԠҠ 󿍠̠ҠؠŠ ؠ 忍ѠԠ Р 占ԠҠ Р 占ԠŠԠ ԠРƠ 򿍠ѠŠ Р 򿍠ŠԠ Š 䍠ɠԠ Ҡð ðƍРŰԠԠðƬ 占ҠƬ ԠҠԍӍ 卪Ԡؠɍà΢ؠİL`K BT)` ])")"` ])4)4` ]) ")"` `1 0 1 WXYZ[\]^_`a ************************=* INPUT.ROUTINE *]* BY: GARY KNOX * {(* COPYRIGHT (C) 1991 *2* MINDCRAFT PUBL. CORP.*<* CONCORD, MA 01742 *F************************ P(12)(21): SHUT OFF 80 COLUMN TEXT SCREENA Z:9:9:"INPUT ROUTINE DESIGNER":13:"BY: GARY KNOX" d5:"(C) 1991 MINDCRAFT PUBL. CORP.":23:8:"PRESS A KEY TO CONTINUE." nX(16384):X127Ĺ16368,0:140 x110 *** INSTRUCTION INPUT ROUTINE *** D$(4):Q$(34):S$(20):CL0:NA$"IN.ROUTINE" 480 22:1:868:"ENTER INSTRUCTION # "N"..PRESS WHEN DONE WITH ALL INSTRUCTIONS.":S$(N)"" VT:BE:(91);:EN:(93); UBE:U1:VT A$ (A$)27320 (A$)21A$" ":270 (A$)13290 (A$)8270 (0)BE190K UBE1S$(N)"":1008:" ";:1008:180 S$(N)(S$(N),UBE1):1008:" ";:UU1:1008:190 UEN1UU1:S$(N)S$(N)A$:U:A$; 190 "N15CL0330 , 6NN1:10:1:868:160 @NN1 J T, ^ *** PROGRAM INSTRUCTION ROUTINE ***2 h: r: |" THIS PROGRAM MAKES IT POSSIBLE TO ADDA SUBROUTINE TO YOUR MAIN PROGRAM." 7 " THE SUBROUTINE ALLOWS YOU TO INPUT A CHARACTER STRING OF ANY LENGTH. YOU CANADD CUSTOM DIRECTIONS FOR THE ROUTINE. YOU ALSO CAN SPECIFY THE LINE NUMBERS"f "AND THE INCREMENT BETWEEN LINE NUMBERS."l  " AFTER THE ROUTINE HAS BEEN CREATED AND SAVED ON THE DISK, JUST 'EXEC' THE NEW FILE INTO YOUR OWN PROGRAM."23:1:"PRESS THE KEY.....";:A$8 ***MAIN PROGRAM ***e::9:"INPUT ROUTINE DESIGNER"::34,34:"INSTRUCTIONS? Y OR N ";:A$:A$:A$"Y"A$"N"A$"y"A$"n"490A$"Y"A$"y"İ360 *** ENTER ROUTINE INSTRUCTIONS ***N1a:2:"ENTER SCREEN INSTRUCTIONS FOR ROUTINE":VT8:4:BE2:EN38:160:NLN:2:1:868:8g&0 *** DISPLAY INPUT INSTRUCTIONS ***::2:13:"SCREEN LAYOUT"D4:NK1NLXHT((40(S$(K)))2)bHT:S$(K)lKTv23:1:"<> Y OR N ";:A$:A$"Y"A$"N"A$"y"A$"n"Ė30:868:630kA$"N"A$"n"700q*** CORRECT INSTRUCTIONS ***NL1CL1:69023:11:868:"WHICH LINE? (1-"NL") >>";:CL:CL1CLNL680VT4CL1:VT:1:868:BE2:EN38:NCL:160:580q:8:"ADD ANY INSTRUCTIONS? Y OR N";:A$:A$"Y"A$"N"A$"y"A$"n"700A$"Y"A$"y"NNL1:540*** SET ROUTINE LINE NUMBERS ***34,1::10:"FIRST LINE # OF ROUTINE (0-60000)";FL:FL0FL60000Ė34:868:10400"LINE # INCREMENTS ";IN6X*** SAVE ROUTINE ON DISK *** :10:"CREATING THE DISK FILE...."820 D$"VERIFY IN.ROUTINE"*12304D$;"OPEN IN.ROUTINE">D$;"WRITE IN.ROUTINE"HLNFLRLN"REM ** INPUT ROUTINE **":LNLNINJ\LN"REM LOCAL VARIABLES:AZ$,U,BE,EN":LNLNINfLN"REM **L=MAXIMUM LENGTH OF INPUT STRING **":LNLNINpLN"REM **L MUST BE DEFINED IN MAIN PROGRAM **":LNLNIN zLN"REM **S$ = INPUT STRING RETURNED TO MAIN PROGRAM **":LNLNIN!LN"VTAB2":LNLNIN-K1NLGZQ((40(S$(K)))2)sLN"HTAB"ZQ":PRINT"Q$;S$(K);Q$:LNLNINzKLN"IFL>=38THENBE=1:EN=39:GOTO"LNIN2:LNLNINLN"S$="Q$;Q$":BE=INT((40-L)/2)-1:EN=BE+L+1":LNLNIN LN"VTAB"NL4":HTABBE":LNLNINCLN"PRINTCHR$(91);:HTABEN:PRINTCHR$(93);":LNLNINmLN"U=BE:VTAB"NL4":HTABU+1":LNLNINLN"GETAZ$":LNLNINLN"IF ASC(AZ$)=21THENAZ$="Q$" "Q$":GOTO"LNIN6:LNLNINLN"IFASC(AZ$)=13THEN"LNIN7:LNLNINLN"IFASC(AZ$)<>8THEN"LNIN4:LNLNINDLN"IF POS(0)=BETHEN"LNIN4:LNLNINLN"IF U=BE+1 THENS$="Q$;Q$":CALL-1008:PRINT"Q$" "Q$";:CALL - 1008: GOTO "LNIN6:LNLNIN LN"S$=LEFT$(S$,U-BE-1):CALL-1008:PRINT"Q$" "Q$";:U = U - 1: CALL - 1008: GOTO "LNIN6:LNLNINI$LN"IF U"Q$"Y"Q$"AND AZ$<>"Q$"N"Q$"AND AZ$<>"Q$"y"Q$"AND AZ$<>"Q$"n"Q$"THEN VTAB24:HTAB1:CALL-868:GOTO"LN:LNLNIN|BLN"IFAZ$="Q$"Y"Q$"OR AZ$="Q$"y"Q$"THEN VTAB"NL4":HTAB1:CALL-958:S$="Q$;Q$":GOTO"LNIN20:LNLNINLLN"RETURN"VD$;"CLOSE"`:34,0:5:"YOUR ROUTINE HAS BEEN SAVED ON THE DISK."jt*** ROUTINE USE FACTS ***)~8:"THE NAME OF THE FILE IS"::15:NA$[13:"TO MERGE THE ROUTINE WITH YOUR PROGRAM":5:"JUST TYPE THE FOLLOWING COMMAND":8:"<<< EXEC "NA$" >>>"20:2:"THE ROUTINE LINE NUMBERS RANGE FROM":A$(FL)" TO "(LN) ((40(A$))2):A$G:12:"A FILE 'IN.ROUTINE' ALREADY EXISTS."(7):"DO YOU WANT TO OVERWRITE THIS FILE? Y/N";:YN$:YN$YN$"Y"YN$"y"YN$"N"YN$"n"1230YN$"Y"YN$"y"ĺD$"DELETE IN.ROUTINE":82012:958:"ENTER A NAME FOR THE ROUTINE:":"";NA$9 (NA$)0ĺ(7):1270D216,0O1340c(D$"VERIFY "NA$29:"A FILE NAMED '"NA$"' ALREADY EXISTS."(7):1270<(222)16ė:9:"'"NA$"' IS AN IMPROPER":"PRODOS FILE NAME.";:(7):1270FD$;"OPEN "NA$PD$;"WRITE "NA$Z8402 JOCK NEW MALE defghiMAR.1991 DISK (VOL 12 /NO 3) 5 HI-RES ALCHEMY SURVEY MASTER DISK ENCRYPTER DOUBLE DUMP INPUT ROUTINE DESIGNER 5 HI-RES ALCHEMY RUN ALCHEMY.DEMO SURVEY MASTER RUN SURVEY.MASTER DOUBLE DUMP RUN DD.DEMO INPUT ROUTINE DESIGNER RUN INPUT.ROUTINE 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. @ The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for Hi-Res Alchemy, remove all but the following files from a copy of this disk: ALCHEMY ALCHEMY.DEMO These programs are included on both sides of this disk. @ To create a work disk for SURVEY MASTER remove all but the following file from a copy of this disk: SURVEY.MASTER This program is included on both sides of this disk. @ To create a work disk for DISK ENCRYPTER remove all but the following files from a copy of this disk: DISK.ENCRYPTER ENCRYPTER.BIN This program is included only on the DOS 3.3 side of the disk. @ To create a work disk for DOUBLE DUMP remove all but the following files from a copy of this disk: DOUBLE.DUMP DD.DEMO This program is included on the ProDOS and DOS 3.3 sides of the disk. @ To create a work disk for INPUT ROUTINE DESIGNER, remove all but the following file from a copy of this disk: INPUT.ROUTINE This program is included on the ProDOS and DOS 3.3 sides of this disk. @ 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. The One- and Two-Liners are also included 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: ALCHEMY.S (EDASM) ENCRYPTER.S (EDASM) DOUBLE.DUMP.S (MERLIN) @ # klmnopqrstuvwxyz{|}~L !C}" %"" &)#M8( Y% ) LH""" &)jB, )7(P0 ( @X p 8 " ! +}""0 &"0 R%"" &)?) ;",")ɂ """ &) R%LH")0I0hx H( , R%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L"" &) !` |"M)Fi/ ƀ"3 """ " iL X\"LY"ίΠ`"""""(#*(% F%Z]eRQ!0SB}RBiBB}` }FELT#> ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙 i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= )J 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅL7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`ee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8k/<ʆ>-=?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@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B f-`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 C'KI؍0JHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 F 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 ΊJFȱJL8`GBJ R FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( 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ΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) 9⬂Ȣ؝z@zݚ@ʈLN 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 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`H GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`HхhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLELKL`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ҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  Э` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEB(1).5:C(1).5:C(2).25:C(3).75:B(4)1:C(4).25:B(5)1:C(5).75:B(6).5:B(7).5:C(7)1:E17:M::W.588:R.15:Y.5:XY:A17:B17:C13:U140MWMX:V90MWMY:(U0U279V0V191)8:7:U,V A(1)A:A(2)B:A(3)1:ZA(C):HB(Z):KC(Z):XRXH:YRYK::::(4)"BSAVE/RAM/P"M",A8192,L8192":::49234,0:129,167,217,282,366,475,617:A1999:T17:M:(4)"BLOAD/RAM/P"M:::  ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************& K THANKS TO RUSS HOUGHTON OF BALTIMORE, MD., FOR REVISING THE OPENING GRAPHIC (11-90).1 P16384H Z::D$(4):(21)R d970 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHES x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BLOAD STARTUP.SCREEN") G(16297)(16300)(16301)(16304)Z ********** READ INFO FROM NIBMENU TEXTFILEd 1120 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 MENU9 D$;"OPEN NIBMENU"P D$;"READ NIBMENU"i A$: A$ = DISK NAME NA$"NIBBLE "A$:22:20((NA$)2):NA$:1 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$5 6I0J @II1:768,S$(I)d J(S$(I),1,1)"#"350m T320} ^D$;"CLOSE" h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!":C "The programs on this disk are:":\ Z1NP:5:P$(Z):Zx 1030:FLAG$"ESC"ī600  ********** CYCLE THRU NIBMENU TEXT SCREENS A1 :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600S$(A)"#"510 S$(A)AA1:460J ********** LAST TEXT SCREEN BEFORE MENUS:3{6:"Thanks again for your order !"12:6:"ALL PROGRAMS ON THIS DISK ARE"&6:"COPYRIGHT (C) 1991 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP.")56:"52 DOMINO DR, CONCORD MA 01742"Y::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"cD1030N ********** SET UP MENUXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";)v5:20((A$)2):A$PI1ME2:61I:8:I". "MP$(I):y61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1/ ********** SELECT CHOICEQNSL:OSSL:780:Z0:24:8681: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ī380CSLSLZ(Z10):SLSLME(SLME)ME(SL1)[NOS:780:Z10700d800 ********** PRINT POINTER SUBROUTINE 61N:SX:X$(SLOS);: ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:680:42:1:" "::2:1:RC$(SL):g> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$(SL)R ********** CATALOG SELECTED \:49168,0::D$;"CAT":f24:7:"Press to continue"; p49168,0:49152,128:-z ********** QUIT SELECTEDl22::958:"Do you really want to quit? (Y/N)";:49168,049168,0:49152,128(49152)249(49152)217Ĺ49168,0::1100: ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ:C ********** ERROR HANDLING ROUTINEK:l(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. "A23:"Press to continue ";:958:49168,0:49152,128:600f ********** WAIT FOR KEYSTROKEsFLAG$""23:" for next page or for menu";:49168,0:49152,128(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE?8I013:ML:768I,ML:I:D$"PR#A$300":sB ********** DETACH UPPER/LOWER CASE HANDLER L(4);"PR#0":V ********** INSTALL INPUT-ANYTHING ROUTINE`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATALt 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 DATAy 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0p|~p|*U*U*U*U*U*(@?p~px|xժժժժժT*@?p~px|ЪժժժՊdO U @?`p~?pxԊԪ`|yg~0 cFc U*U*U*@@P*U*U*U*U*U c `Lgsc `0L| 0@ ժժժժժժ F`pO|`*U*U*U*U*U*0p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~px|xժժժՂn_? U@?`p~ppp}{c0 cFc(U*UA*U*ԪժժժժՊc|`LqFn|cx``G  pO?<ժժժժժժpaGo1G1v`cOFq3\qsqpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~Ap||xժժժՂN?p Upysc'C&0.cFc(U*U P*U*@c|@`?|1@?<Ԫժժժժժժժժժժժ3L;sL1 3N0fF3F0f`pO|`*U*U*U*U*U*@?~yg|sO?~yg|sO?~yg|sO?~ygp|~p|(U*U*U*U*U*@*@?p~px|ժժժժժpcU*@?p~p|ժժժ_?@>| Ux{w cY#8X03X0FC30*U*U*U*U*Uc ``c 3@ Ԫժժժժժ`ժժժժժժ0LsL1 ?pgF1Fq1fqappO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*@*@?p~px|ԪժժժժpcU*@?`p~p|ժժժ?~ GC@F Uxsg`c00@` 80`gF1\y1\yax1~p*U*U*U*U*U*@?p~Ap||x U*U*U*U*U*P*@?p~px|ԪժժժՊpgU @?`p~p|ժժ@?~|sp#XqF1 ;FpC ;P*  U @?~yg|sO?~yg|sO?~yg|sO?~yg@*U*U*U*U*Uc `]gs`gL`0L3 ?|1@ ժժժժժժ@pO|`ժժժժժժ0p|~pp*U*U*U*U*U*@?p~px|x U*U*U*U*U*T*@?p~px|ЪժժժՊtoU @?`p~p|ժժ`~} CCk<F9 gfCgU*(U*P*U*U*U*U*U c `Lgs0c|`0L  0@ ժժժժժժ F0`pO|`ժժժժժժ0p?|~?px*U*U*U*U*U*% ************************* F * SURVEY.MASTER *g * BY GARY KNOX *( * COPYRIGHT (C) 1991 * 2 * MINDCRAFT PUBL. CORP. * < * CONCORD, MA 01742 * F ************************* PD$(4):Q$(34)= ZQ(10),Q$(10,10),QQ(50),QQ$(50,10),R(50),R$(50,10)X dZ$(100),Z(10),CT$(10)b n170{ xD$;"OPEN NAMES,L15" D$;"READ NAMES,R0" QS:QS0210 K1QS:D$;"READ NAMES,R"K:CT$(K):K 210 ER(222):ER5ĺ" DISK ERROR NO. "ER". PROGRAM STOPPED.". D$;"CLOSE NAMES"G D$;"OPEN NAMES,L15"c D$;"WRITE NAMES,R0":0y D$;"CLOSE NAMES" ** MENU ** 250 230 (12)(21):::13:"SURVEY MASTER":13:"BY: GARY KNOX" 5:"(C) 1991 MINDCRAFT PUBL. CORP." 216,0:HT2:SN5D SI$(1)"1. CREATE A NEW QUESTIONNAIRE"p "SI$(2)"2. ENTER QUESTIONNAIRE RESULTS" ,SI$(3)"3. PRINT QUESTIONNAIRE RESULTS" 6SI$(4)"4. PRINT A COPY OF THE QUESTIONNAIRE" @SI$(5)"5. END THE PROGRAM" JHL0 TCS1 ^X1SN:XCSĞ8 hHL6XX(SN10):HT:SI$(X):? rX |23::"ARROWS";::" TO SELECT ... ";::"RETURN";::" TO EXECUTE" 16368,0 K(16384):K128400 16368,0:KK128:K8K21K10K11K13400 OSCS* K8K11CSCS1:CSCS(CS0)SN(CS0):590:400d K21K10CSCS1:CSCS(CSSN)(CSSN1):590:400 CS460,490,520,560,550::250 CT$"":3050:3080 CT$""460 1260: CT$"":3050:3080 CT$"-"490 CT$S$:1830: CT$"":3050:3080CT$"-"5200CT$S$:2400:@&3010:::W0CT$"":3050:3080h:CT$"-"560|DCT$S$::840:NHL6OSOS(SN10):HT:SI$(OS)XHL6CSCS(SN10)::HT:SI$(CS)::b ** INPUT ROUTINE **lS$"":AZ$"":20:""vL38BE1:EN39:6509BE((40L)2)1:ENBEL1EVT:BE](91);:EN:(93);oUBE:VT:U1xAZ$(AZ$)27FL1:820(AZ$)21AZ$" ":770(AZ$)13790(AZ$)96(AZ$)123AZ$((AZ$)32)(AZ$)8770(0)BE680:UBE1S$"":1008:" ";:1008:670mS$(S$,UBE1):1008:" ";:UU1:1008:680UEN1UU1:S$S$AZ$:U:AZ$; 68024:12:"RETYPE..Y OR N?";:AZ$:AZ$"Y"AZ$"N"AZ$"y"AZ$"n"Ģ24:1:868:790 AZ$"Y"AZ$"y"Ģ4:1:958:4902*22:958:AZ$""84`> ** QUESTIONNAIRE PRINT ROUTINE **H:10:"PRINTING A QUESTIONNAIRE"R1050\(4)"PR#1"::36,23:"Q U E S T I O N N A I R E"::K180:"-";:K::fK1QpK".";:36,5:"CHECK ONE OF THE FOLLOWING...":LzJ1Q(K)2:36,5:"----";:Q$(K,J);:36,42lJ1Q(K)ĺ"----"Q$(K,J1)u:J{KQQ1K1QUQ". ";:QQ1J1QQ(K):36,5:QQ$(K,J):J:J1R(K)236,5:"----"R$(K,J);:36,42J1R(K)ĺ"----"R$(K,J1)/:J:::KV:K180:"-";:K:::(4)"PR#0"`:: ** INPUT CRITERIA, QUESTIONS, & RESPONSES FROM DISK **D$;"OPEN GS."CT$$D$;"READ GS."CT$.E08QBK1Q:Q(K) LJ1Q(K):Q$(K,J):EE1:JVK`ETE0jD$;"CLOSE GS."CT$FtD$;"OPEN QU."CT$\~D$;"READ QU."CT$dQUwK1QU:QQ(K)J1QQ(K):QQ$(K,J):JR(K)J1R(K):R$(K,J):JKD$;"CLOSE QU."CT$ ** CREATE THE QUESTIONNAIRE **A$"N"ı?::11:"GROUPING ENTRY ROUTINE"::34,2:3" YOU MUST FIRST ENTER THE GROUPING":"SYSTEM QUESTIONS WHICH YOU PLAN TO USE FOR THE SURVEY." "THIS SYSTEM MUST CLASSIFY THE PEOPLE,":"WHO ANSWER THE SURVEY QUESTIONS."<" FOR EXAMPLE, MALE OR FEMALE, AGE":"GROUPINGS, ETC.."" THE GROUPING SYSTEM MAY BE USED AS":"CRITERIA FOR TABULATING THE RESULTS":"OF THE QUESTIONNAIRE."('2" THE PRINT ROUTINE WILL THEN BE ABLE":"TO SUMMARIZE HOW PEOPLE IN THESE":"GROUPS RESPONDED TO THE QUESTIONS."[<22:"PRESS KEY TO GO ON....";:A$::F10:"PREPARING FILE - PLEASE WAIT..."PD$;"OPEN TOT."CT$ZD$;"WRITE TOT."CT$d0nD$;"CLOSE TOT."CT$xQ1Q(Q)0:FL0:VT7:3:"ENTER A CHOICE FOR GROUPING "Q[5:"PRESS KEY WHEN NO MORE CHOICES IN THIS GROUPING"Q(Q)(Q(Q)14)140VT7:VT:958VT:L38:620FL0VTVT1:Q(Q)Q(Q)1:Q$(Q,Q(Q))S$:1440":10:"MORE CLASSIFICATION GROUPS? Y/N";:A$::A$"Y"A$"N"A$"y"A$"n"1470AA$"Y"A$"y"QQ1:1410WD$;"OPEN GS."CT$nD$;"WRITE GS."CT$uQK1Q:Q(K)J1Q(K):Q$(K,J):JKD$;"CLOSE GS."CT$:::7:"QUESTION-RESPONSE ROUTINE"::34,2:3"Q1,Q(Q)0:FL0:VT7:B63:"PRESS IF DONE WITH THE QUESTION"q@5:"ENTER QUESTION "Q" (3 LINES MAXIMUM)"JQ(Q)3(Q(Q)3)Q(Q)01640TVT:L38:620^FL0VTVT1:Q(Q)Q(Q)1:Q$(Q,Q(Q))S$:1610hR(Q)0:FL0:VT7:r3:"PRESS IF DONE WITH RESPONSES"E|5:"ENTER RESPONSES FOR QUESTION "QR(Q)(R(Q)14)140R(Q)0VT7:1:VT:958:1720VT:L25:620FL0VTVT1:R(Q)R(Q)1:R$(Q,R(Q))S$:1680:10:"MORE QUESTIONS? Y/N";:A$::A$"Y"A$"N"A$"y"A$"n"17000A$"Y"A$"y"QQ1:1580FD$;"OPEN QU."CT$]D$;"WRITE QU."CT$dQuK1Q:Q(K)J1Q(K):Q$(K,J):JR(K)J1R(K):R$(K,J):JKD$;"CLOSE QU."CT$:: ** INPUT THE RESPONSES **$&::9:"ENTER DATA ROUTINE"::34,2K010:"LOADING QUESTIONS.........."a:D$;"OPEN AN."CT$xDD$;"CLOSE AN."CT$N1050:X"PRESS IF RESPONSE WASN'T MARKED"b"PRESS IF RESPONSE WAS MARKED"l"PRESS TO GO TO 1ST RESPONSE AGAIN"vPP1,34,6:7:FL1:RE$"":T09KK0:L0^:KKKK1:LL1:J0:LQQU2230wKKQFL1FL2:KK1:8:L1Ğ:"RESPONSES FOR QUESTION "L1:216,0:HT12:HL7:FL1990,2020JJ1:JQ(KK)2010SI$(J)Q$(KK,J):1990SNQ(KK):2050.JJ1:JR(KK)2040HSI$(J)R$(KK,J):2020USNR(KK)^CS1r X1SN:XCSĞHL2X(SN10):HT:SI$(X): X*16368,04K(16384):K1282100>16368,0:KK128:K78K77K272100HOSCS' RK77RE$RE$"1":CSCS1:2190:2160Q \K78RE$RE$"0":CSCS1:2190:2160h fK27RE$"":1970 pCSQ(KK)FL11940 zCSR(KK)FL21940 2090 CSQ(KK)FL1ı CSR(KK)FL2ı HL2OS(SN10):HT:SI$(OS)!HL2CS(SN10)::HT:SI$(CS)::.!D$;"APPEND AN."CT$E!D$;"WRITE AN."CT$N!RE$e!D$;"CLOSE AN."CT$!:10:"MORE QUESTIONNAIRES? Y/N ";:A$::A$"Y"A$"N"A$"y"A$"n"2270!A$"Y"A$"y"PPPP1:1920!D$;"OPEN TOT."CT$ "D$;"READ TOT."CT$" TT)" D$;"CLOSE TOT."CT$6" TTTTPPM"$ D$;"OPEN TOT."CT$e". D$;"WRITE TOT."CT$m"8 TT"B D$;"CLOSE TOT."CT$"L ::"V ** PRINT SURVEY RESULTS **"` ::10:"PRINT RESULTS ROUTINE":34,3::4#j 10:"LOADING RESULTS NOW........"#t 1050$#~ :C0:PE0:N0I# K1QU:J1R(K):T(K,J)0:J:K# "YOU MUST SELECT THE GROUPING CRITERIA TOBE USED FOR TABULATING THE QUESTION":"RESPONSES."# 34,7# GT1Q:9# :5:"GROUPING NUMBER "GT" OF "Q:11: $ KK1Q(GT):5:Q$(GT,KK)v$ 1:20:868::"DO YOU WANT TO USE THIS CRITERIA? Y/N";::A$:A$"Y"A$"N"A$"y"A$"n"2500$ NN1$ A$"N"A$"n"Ģ11:5:868:2560$ CC1:Z(C)N:$ KKQ(GT)2570$ ZZKK1Q(GT):NN1:ZZ:2570$ KK$ GT % 34,3:.% 10:"LOADING RESULTS........"E%( D$;"OPEN TOT."CT$\%2 D$;"READ TOT."CT$d%< TT|%F D$;"CLOSE TOT."CT$%P PP0%Z LLPP100:LLTTLLTT%d D$;"OPEN AN."CT$%n D$;"POSITION AN."CT$",R"PP%x D$;"READ AN."CT$& KPP1LL:Z$(K):K& D$;"CLOSE AN."CT$)& KK1LL2& EET@& C02770K& J1Cj& (Z$(KK),Z(J),1)"0"2810q& J}& PEPE1& K1QU:J1R(K)& EE1:(Z$(KK),E,1)"1"T(K,J)T(K,J)1& J:K& KK' :(4)"PR#1"::36,30:"QUESTIONNAIRE SUMMARY"' C0ĺ::2920%' JJ1C.'" ZZ0Z', K1Q:J1Q(K):ZZZZ1:ZZZ(JJ)2880d'6 J:K'@ 36,5:"CRITERIA--"JJ":"Q$(K,J)'J :'T JJ'^ PE02990'h K1QU:36,7:"QUESTION "K":";'r J1QQ(K):36,14:QQ$(K,J):J7(| J1R(K):36,10:R$(K,J);:36,50:T(K,J)"/"PE"="(T(K,J)PE100)"%"E( J:::K( (4)"PR#0"::10:"MORE PRINTED RESULTS WITH DIFFERENT CRITERIA? Y/N";:A$:A$"Y"A$"N"A$"y"A$"n"2960: 5 SPACES( A$"Y"A$"y"2430( 3000*) 36,7:"NO RESPONSES WITH THIS CRITERIA.":::(4)"PR#0"4) ::k) 23:958:"DO YOU REALLY WANT TO QUIT? Y/N";:YN$) YN$"Y"YN$"N"YN$"y"YN$"n"ĺ:3010) YN$"Y"YN$"y"ı) :) :5:"ENTER THE NAME OF THE SURVEY."* FL0:VT7:VT:L11:620::FL1FL0::* '* QS031404* QQ1QSN* S$CT$(QQ)CS13300f*& S$CT$(QQ)CS1ın*0 QQ*: CS1CT$"-":*D (S$)0ı*N QSQS1:CT$(QS)S$:CT$S$*X D$;"OPEN NAMES,L15"*b D$;"WRITE NAMES,R0":QS +l D$;"WRITE NAMES,R"QS:CT$(QS)+v D$;"CLOSE NAMES"*+ 3240I+ D$"OPEN "S$:D$"CLOSE "S$\+ D$"DELETE "S$b+ + 216,0:D$"OPEN NAMES,L15":D$"WRITE NAMES,R0":QS1:QSQS1:D$"CLOSE"+ 12:958:(7)"'"S$"' IS AN INVALID NAME."/, 22:"PRESS [RETURN] TO ENTER A NEW NAME OR":"[ESC] TO RETURN TO THE MENU."W, X(16384):X155Ĺ16368,0::250v, X141Ĺ16368,0:CS1:450, 3270, :16::"WARNING":, 10:"THERE IS ALREADY A FILE - "CT$, :"ON THE DISK!"- 15:868:"PRESS A KEY TO CONTINUE";:A$ - 0 0