D15L7BR15U15R7L7D6R7BD9BR10R1BR10R1BR10R1BR10R1BR10R1BR10R1"8c X96 24 4:(128,96)(0,X),:8X0 256 4:(128,96)(X,24),:8 X24 96 4:(128,96)(256,X),:9Y"BM34,100;R13L13D20R15U10L10BR20U10R15D10L15D10U10R7F10BR8U20R15D10L15R15D10BR10U20R15D10L15R15BR10U10D20U10R15U10D20BR10U20BR10R15L15D20R15BR10R15U10L15U10R15"9΀ X124 192 4:(128,124)(0,X),:9؀ X0 256 4:(128,124)(X,192),:9 X192 124 4:(128,124)(256,X),:9 X14000::94,1::1,1:"BM34,24;R13L13D20R15U10L10BR20U10R15D10L15D10U10R7F10BR8U20R15D10L15R15D10BR10U20R15D10L15R15BR10U10D20U10R15U10D20BR10U20BR10R15L15D20R15BR10R15U10L15U10R15"; "BM80,55;R10D10L10U10BR17D10U10F10U10BR20R10L5D10BR10U10D5R10U5D10BR7R10L10U5R10L10U5R10";"BM32,80;R26L13D30BR18U30R23F3D12G3L23R12F13BR9R23E3U9H3L23H3U9E3R23BR9BD15R15BR12H3U9E3R20F3D9G3L20G3D9F3R20E3U9H3BR12U12E3R20F3D24G3L20H3U12";"BM67,120;R15L15D20R15BR10R15L15U20R15D20BR10U20D20R15BR10R15L15U20R15D20BR10U20R15D10L15R5F10"<("BM32,150;R15L15D20R15BR10R15L15U20R15D20BR10U20R7D6U6R8D20BR10U20R15D10L15BR25BD10U20D20R15U20BR10R15L7D20BR17R15L15U10R15L15U10R15BR10D20U20R15D10L15R5F10"<2 X1 3500::<<"BM109,36;D20R15U7H3L12R12E3U7L15BR25F10E10G10D10"=F"BM32,65;R15L15D10R15L15D10R15BR10U20R12F3D14G3L12BR35R15U10L15U10R15BR10D20U20R15D20L15R15BR10U20R15D10L15R5F10BR12U20L8R15BR7D20U20R15D20L15R15BR10U20F20U20"=P X1 2500::=Z00::<<"BM109,36;D20R15U7H3L12R12E3U7L15BR25F10E10G10D10"=F"BM32,65;R15L15&':COPYRIGHT (C) T&D SOFTWARE 1983&B :CREATED BY ED SORTON&N 1170&^4,1::1,1&( X0 95 2:(128,96),0X: &2 X0 25:(128,45),0X,0:&< X0 25 2:(128,45),0X:&F X0 25:(192,96),0X,0:' P X0 25 2:(192,96),0X:'+Z X0 25:(128,147),0X,0:'Od X0 25 2:(128,147),0X:'on X0 25:(64,96),0X,0:'x X0 25 2:(64,96),0X:' X0 50:(128,96),0X,0:' X0 50 2:(128,96),0X:' X0 95 4:(0,96)(X,0),:( X0 95 4:(0,96)(X,192),:(H X256 161 4:(256,96)(X,0),:(t X256 161 4:(256,96)(X,192),:( X70 122 4:(33,96)(0,X),:(Ȁ X70 122 4:(223,96)(256,X),:(Ҁ X12500::(܀ X0 96 2:(0,0)(128,X),:)& X128 0 2:(0,0)(X,96),:)M X0 96 2:(255,0)(128,X),:)v X128 256 2:(255,0)(X,96),:) X0 128 2:(0,191)(X,96),:) X96 192 2:(0,192)(128,X),:) X256 128 2:(255,193)(X,96),:*" X96 192 2:(255,192)(128,X),:*1, X12500::*W6 X0 192 2:(0,0)(128,X),:*@ X0 192 2:(256,0)(128,X),:*J X128 0 2:(0,0)(X,192),:*T X128 256 2:(256,0)(X,192),:*^ X12000:::1,1+ h X0145 2:(128,96),0X,,2:+3r X0 95 2:(128,48),0X,0,.2:+X| X0 956:(128,48),0X,,.2:+ X0 95 2:(128,144),0X,0,.2:+ X0 95 6:(128,144),0X,,.2:+X0 40:(128,96),0X,0:+ X0 40 3:(128,96),0X:+ X12000::,$ X0 128 2:(64,48)(X,0),:,K€ X0 96 2:(64,48)(128,X),:,s̀ X128 0 2:(64,48)(X,96),:,ր X96 0 2:(64,48)(0,X),:, X128 256 2:(192,48)(X,0),:, X0 962:(192,48)(256,X),:- X256 128 2:(192,48)(X,96),:-= X96 0 2:(192,48)(128,X),:-h X128 256 2:(192,144)(X,96),:- X96 192 2:(192,144)(256,X),:- X256 128 2:(192,144)(X,192),:-& X192 96 2:(192,144)(128,X),:.0 X0 128 2:(64,144)(X,96),:.>: X96 192 2:(64,144)(128,X),:.hD X128 0 2:(64,144)(X,192),:.N X192 962:(64,144)(0,X),:.X X11000:.b X0 96:(64,48)(128,X),:.l X0 96:(192,48)(128,X),:/v X96 192:(64,144)(128,X),:/9 X96 192:(192,144)(128,X),:/\ X0 70 2:(128,48),0X:/ X0 70 2:(128,144),0X:/ X12500::/ X0 256 2:(128,96)(X,0),:/ X0 192 2:(128,96)(256,X),:0  X256 0 2:(128,96)(X,192),:0@ƀ X192 0 2:(128,96)(0,X),:: X1750:0fЀ X64 192:(128,96)(X,48),:0ڀ X48 144:(128,96)(192,X),:0 X192 641:(128,96)(X,144),:0 X144 481:(128,96)(64,X),:1 X0 80 2:(128,96),0X:1 X0 2500::1; X0 48 2:(0,0)(64,X),:1` X64 0 2:(0,0)(X,48),:1 X0 48 2:(128,0)(64,X),:1* X64 128 2:(128,0)(X,48),:14 X128 64 2:(128,96)(X,48),:2> X48 96 2:(128,96)(64,X),:2%H X0 64 2:(0,96)(X,48),:2KR X48 96 2:(0,96)(64,X),:2r\ X0 48 2:(128,0)(192,X),:2f X192 128 2:(128,0)(X,48),:2p X0 48 2:(256,0)(192,X),:2z X192 256 2:(256,0)(X,48),:3 X256 192 2:(256,96)(X,48),:3@ X48 96 2:(256,96)(192,X),:3j X128 192 2:(128,96)(X,48),:3 X48 96 2:(128,96)(192,X),:3 X96 144 2:(128,96)(192,X),:3 X192 128 2:(128,96)(X,144),:4 X96 144 2:(256,96)(192,X),:4>ʀ X192 256 2:(256,96)(X,144),:4kԀ X256 192 2:(256,192)(X,144),:4ހ X144 192 2:(256,192)(192,X),:4 X128 192 2:(128,192)(X,144),:4 X144 192 2:(128,192)(192,X),:5 X96144 2:(0,96)(64,X),:5; X64 0 2:(0,96)(X,144),:5d X96 144 2:(128,96)(64,X),:5 X64 128 2:(128,96)(X,144),:5$ X128 64 2:(128,192)(X,144),:5. X144 192 2:(128,192)(64,X),:6 8 X0 64 2:(0,192)(X,144),:65B X144 192 2:(0,192)(64,X),:6HL X12500::6yV:4,1:1,1: X0 128 2:(0,96)(X,0),:6` X0 192 2:(0,96)(128,X),:6j X128 0 2:(0,96)(X,192),:6t X256 128 2:(256,96)(X,0),:7~ X0 192 2:(256,96)(128,X),:7F X128 256 2:(256,96)(X,192),:7] X12500:: 307m:1,1:4,18;"BM10,20;U15R7D7L5R5D8BR13R7L7U15BR10D15BR7U15L3R7BR4R8L4D15BR10R7L7U15BR10R7L7D7R7L7D8R7BR13U15R5F2D5L7R8F2D5G2L7BR17U15BR5R8L4D15BR19U15R7 LARGE SAVINGS; HOWEVER, THIS IS BECAUSE THE PROGRAM WE ARE USINGIS VERY SMALL AND USES FEW VARI-ABLES."/p150Z23:" THE NEXT CHANGE WAS TO MOVE THE SUBROUTINE AT 10000-10030 TO1-4. THIS WAS DONE BECAUSE THE COMPUTER, WHEN LOOKING FOR THE LINE NUMBER FOR A 'GOSUB' OR A 'GOTO' STARTS ITS SEARCH AT THE LOWEST LINE NUMBER. THEREFORE,"1@3"A SUBROUTINE AT THE BEGINNING OFA PROGRAM WILL FOUND FASTER THANIF IT WAS PLACED AT THE END OF THE PROGRAM. NOTE THAT A GOTO WAS PLACED BEFORE THE SUBROUTINESO THAT AN ?RG ERROR WILL NOT OCCUR WHEN THE PROGRAM IS RUN."1L45:32@5" THE NEXT THING THAT WAS DONE WAS TO PACK THE PROGRAM INTO MULTI-STATEMENT LINES. THIS SAVED MEMORY AS WELL AS INCREASESPEED. (NOTE: EVERY NEW LINENUM-BER REQUIRES 5 BYTES OF MEMORY PLUS THE BYTES REQUIRED FOR THE BASIC TEXT.)"26:" THE NEXT MODIFICATION WAS TO CHANGE SOME OF THE CONSTANTS IN THE PROGRAM TO VARIABLES.":53P73:" THIS WAS DONE BECAUSE THE COMPUTER CAN FIND A FLOATIG- POINT VARIABLE MUCH FASTER THAN IT CAN CONVERT A ASCII CONSTANT TO A FLOATING-POINT CONSTANT."38:" THE RESULT OF THE PRECEDING THREE MODIFICATIONS WAS A RE- DUCTION OF 19 SECONDS IN RUNNINGTIME. THE EXECUTION TIME WAS DOWN TO 34 SECONDS."395:34`:" THE NEXT THING TO DO WAS TO ELIMINATE UNNECESSARY REPETITIVECALCULATIONS, SUCH AS IN LINE 1"4;:"1 FORI=1024TO1535:POKEI,143+C*16:NEXT:RETURN"4<:"LINE 1 THEN BECAME"4=:"1 CX=143+C*16:FORI=1024TO1535:POKEI,CX:NEXT:RETURN"4>55?3:" THE LAST THING WAS TO DELETE ANY UNNECESSARY SPACES AND 'REM'STATEMENTS. JUST ONE NOTE OF CAUTION: WHEN DELETING 'REM' STATEMENTS, BE SURE THAT YOU DO NOT HAVE ANY 'GOTOS', 'GOSUBS', OR 'THEN...ELSE' STATEMENTS"6@"THAT TRANSFER CONTROL TO THOSE LINES BECAUSE THEY WILL NOT EX- IST AFTER YOU DELETE THEM AND A ?UL ERROR WILL PROBABLY RESULT. THE SPACES AND TEXT WITHIN REM STATEMENTS CAN BE DELETED WITH THE PROGRAM PACKING UTILITY IN"6A"THE MARCH 1983 COCO-CASSETTE."6B56C37D" THE NET RESULT OF ALL THE MODIFICATIONS WAS A FINAL EXECU-TION TIME OF 21 SECONDS WHICH ISA 61 % REDUCTION IN EXECUTION TIME."7E57F3:" THE FINAL PROGRAM WILL NOW BEDISPLAYED.":7G"DO YOU WANT A PRINTOUT ? (Y/N)"8HK$:K$""728IK$"Y"DN2:768'JK$"N"7285KDN0:778QL3:"PRINTING...":788YM38mN#DN,"0 GOTO10"8O#DN,"1 CX=BC+C*S:FORI=SSTOSE:POKEI,CX:NEXT:RETURN"8P#DN,"10 I=0:BC=143:S=16:SS=1024:SE=1535:C=0"9Q#DN,"20 FORC=1TO7:GOSUB1:NEXT:C=0:GOSUB1"9R#DN,"30 END"9$S5:39T" THERE IS JUST ONE MORE THING TO MENTION WITH RESPECT TO SPEEDING-UP BASIC PROGRAMS. ON THE NEWER COLOR COMPUTERS, A HIGHER MACHINE SPEED CAN BE IN- VOKED BY TYPING"9U"POKE 65495,0 [ENTER]":wV"THIS DOES NOT WORK ON ALL MACH- INES AND MUST BE DISABLED BEFOREPERFORMING ANY CASSETTE OPERA- TIONS (CSAVE,CLOAD,ETC.)":W"DISABLE HIGH SPEED WITH":X"POKE 65494,0 [ENTER]":Y5:ZI0100:(2)116000 : 16100:[:\3:];^0:1:9 NOT WORK ON ALL MACH- INES AND MUST BE DISABLED BEFOREPERFORMING ANY CASSETTE OPERA- TIONS (CSAVE,CLOAD,ETC.)":W"DISABLE HIGH SPEED WITH":X"POKE 65494,0 [ENTER]":Y5:ZI0100:(2)116000 : 16100:[:\3:];^0:" LINE 00010 SETS THE MEMORY POINTER TO 15000, WHERE THE PRO-GRAM IS TO START BEING STORED.":61:6486" LINE 00020 SETS THE SYMBOL START TO 1. LINE 00030 SETS THE SYMBOL LAST TO 10.":61:6497" LINE 00040 LOADS A WITH THE VALUE OF START, WHICH AT THE TIME OF ASSEMBLY, MEANS THE SAMEAS LOAD A WITH 1 (LDA #1). NOTE THAT SYMBOLS ARE NOT THE SAME ASVARIABLES.":61:64:O8" LINE 00050 ADDS ONE TO A. LINE 00060 COMPARES A TO THE VALUE OF LAST, OR IN THIS CASE, 10. LINE 00070 TELLS THE MICRO- PROCESSOR TO BRANCH BACK UP TO ADD1 IF A IS NOT 10.":61:64;9" LINE 00080 IS REACHED WHEN THE CONDITIONAL BRANCH IN LINE 00070 IS FALSE; THAT IS, WHEN A IS EQUAL TO 10. LINE 00080 TRANSFERS CONTROL BACK TO THE CALLING ROUTINE.":61:64;n:" LINE 00090 SERVES NO PURPOSE BUT TO TELL THE ASSEMBLER TO STOP ASSEMBLING.":61;;3:" NEXT MONTH, MORE COMPLEX, PRACTICAL EXAMPLES OF ASSEMBLY LANGUAGE WILL BE PRESENTED.";<<=@484,"PRESS [ENTER] TO CONTINUE";<>(13)62<?<=@@288,(223,32);:@288,"";:=4A79,183,63,192,198,32,61,195,4,0,31,1,198,31,166,1,167,128,90,38,249,134,96,167,132,182,63,192,139,2,129,16,38,223,134,1,183,63,192,198,32,61,195,4,31,31,1,198,31,166,31,167,132,48,31,90,38,247,134,96,167,132,182,63,192,139,2,129,17,38,221,57>.B79,183,63,192,31,137,79,195,4,0,31,1,198,15,166,136,32,167,132,48,136,32,90,38,245,134,96,167,132,182,63,192,139,2,129,32,38,219,134,1,183,63,192,31,137,79,195,5,224,31,1,198,15,166,136,224,167,132,48,136,224,90,38,245,134,96,167,132,182,63,192>JC139,2,129,33,38,219,577,79,195,4,0,31,1,198,15,166,136,32,167,132,48,136,32,90,38,245,134,96,167,132,182,63,192,139,2,129,32,38,219,134,1,183,63,192,31,137,79,195,5,224,31,1,198,15,166,136,224,167,132&_ COPYRIGHT (C) T&D SOFTWARE 1983 BASIC SPEED-UP TUTORIAL&g8& IN$(32) : : R(2):I0511:16000(R1)100&::&@484,"PRESS [ENTER] TO CONTINUE";&IN$:IN$(13)IN$(32)6'' 94' 255,15099'5 I1600016016:D:I,D:'R I1610016118:D:I,D:' 142,4,0,166,1,167,128,140,5,255,38,247,134,96,167,132,57' 142,5,255,166,31,167,132,48,31,140,4,0,38,245,134,96,167,132,57'3(5)"BASIC SPEED-UP TUTORIAL":5)"----- -------- --------"(:" THIS TUTORIAL WILL PROVIDE YOU WITH SOME USEFUL TIPS THAT WILL HELP YOU WRITE FASTER BA- SIC PROGRAMS."){:" TO ILLUSTRATE THE CHANGES MADE TO SPEED UP A PROGRAM, A SAMPLE PROGRAM WILL BE DISPLAYEDUSING THE BEFORE/AFTER CONCEPT. NOTE: PRESS SPACEBAR INSTEAD OF ENTER TO ELIMINATE SCROLLING.")5)3:" THE SAMPLE PROGRAM WILL NOW BE DISPLAYED. IF YOU HAVE A PRINTER, YOU MAY GET A PRINTOUT.":*"DO YOU WANT A PRINTOUT ? (Y/N)"*,K$:K$""21*CK$"Y"DN2:25*SK$"N"21*aDN0:26*~3:"PRINTING ...":27*3*#DN,"10 REM<>"*#DN,"20 REM THIS IS THE TEST ROGRAM"+#DN,"30 REM FOR ILLUSTRATING THE"+(#DN,"40 REM SPEED-UP OF BASIC."+@#DN,"50 FORC=1TO7"+Y #DN,"60 GOSUB10000"+m!#DN,"70 NEXTC"+"#DN,"80 C=0"+##DN,"90 GOSUB10000"+$#DN,"100 END"+%#DN,"10000 FORI=1024TO1535"+&#DN,"10010 POKEI,143+C*16",'#DN,"10020 NEXTI",(#DN,"10030 RETURN",))DN05,1*3,+" IN IT'S INITIAL FORM, THE TEST PROGRAM TOOK ABOUT 54 SEC- ONDS TO RUN."-l,:" THE FIRST MODIFICATION MADE TO THE PROGRAM DEFINED THE VAR- IABLES IN THE ORDER IN WHICH THEY ARE MOST OFTEN USED. THIS IS DONE BECAUSE THE COMPUTER DEVELOPS TABLES TO KEEP TRACK OFTHE VARIABLES. AN ENTRY WHICH"--"IS AT THE TOP OF THE TABLE IS FOUND QUICKER WHEN NEED."-.5:3./" THE NEXT MODIFICATION MADE WAS TO REMOVE THE VARIABLE NAME FROM THE 'NEXT' STATEMENTS. THISWAS DONE BECAUSE THE COMPUTER TAKES TIME TO CHECK THE VARIABLEFOR VALIDITY IF IT IS INCLUDED IN THE 'NEXT' STATEMENT."/h0:" THESE TWO MODIFICATIONS RE- SULTED IN A ONE SECOND DECREASE IN RUNNING TIME. THIS IS NOT AK&' COPYRIGHT (C) T&D SOFTWARE 1983&/4&hI132:16100:16100:16000:"V31O5T200L200A":::&r0:1&500,15999&I1600016071:D:I,D:&I1610016177:D:I,D:&3& 7)"MACHINE LANGUAGE"& 8)"TUTORIAL PART 6"' :" IN THIS INSTALLMENT OF THE TUTORIAL ON MACHINE LANGUAGE, THE ASSEMBLER PSEUDO OPERATIONS AND AN EXAMPLE OF AN ASSEMBLY LANGUAGE PROGRAM WILL BE PRE- SENTED."' 61' 3(::" A PSEUDO OPERATION IS A COM- MAND IN AN ASSEMBLY LANGUAGE PROGRAM WHICH IS NOT ASSEMBLED INTO MACHINE CODE, BUT IS A COM-MAND WHICH TELLS THE ASSEMBLER TO DO SOMETHING OR SETS A PARA- METER FOR THE ASSEMBLER TO USE."(61:3)" THE FIRST PSEUDO-OP TO BE DISCUSSED IS THE 'END' INSTRUC- TION.")" THE END INSTRUCTION TELLS THEASSEMBLER TO QUIT ASSEMBLING. NOTE: EVERY ASSEMBLY LANGUAGE PROGRAM MUST HAVE AN END STATE- MENT !!!!")61:3)" THE NEXT INSTRUCTION IS THE 'EQU' STATEMENT."*x" THE EQU STATEMENT TAKES THE FOLLOWING FORM: [SYMBOL] EQU [EXPRESSION] (THE ITEMS IN BRACKETS ARE SE- LECTED BY THE PROGRAMMER.)"+k" EQU EQUATES A SYMBOL TO AN EXPRESSION. THE SYMBOL IS A STRING UP TO 6 CHARACTERS LONG. THE SYMBOL MAY THEN BE USED ANY-WHERE IN THE PROGRAM. WHEN THE PROGRAM IS ASSEMBLED, THE ASSEM-BLER WILL PUT IN THE ACTUAL NUM-ERIC VALUE."+x61:3+" THE NEXT INSTRUCTION IS THE 'ORG' INSTRUCTION.",_" THE ORG INSTRUCTION SETS THE ASSEMBLERS INTERNAL MEMORY POINTER. IT, IN FACT, TELLS THE ASSEMBLER WHERE IN MEMORY IT ISTO PUT THE PROGRAM OR OTHER DATA."," A PROGRAM MAY HAVE MORE THAN ONE ORG STATEMENT. FOR EXAMPLE, YOUR PROGRAM MAY START AT 10000,BUT THE DATA FOR THE PROGRAM MAYBE PUT AT 7000."-61:3-" IT IS NOW IMPORTANT HERE TO NOTE THAT THE ASSEMBLERS INTERN-AL MEMORY POINTER IS UPDATED AS THE PROGRAM OR DATA IS ASSEMBL- ED.":61:3." THE NEXT INSTRUCTION IS THE FCB STATEMENT. IT TAKES ON THE FOLLOWING FORM: [SYMBOL] FCB [EXPRESSION]"." FCB STANDS FOR fORM cONSTANT bYTE, AND IT ALLOWS YOU TO AS- SEMBLE ONE BYTE OF DATA INTO YOUR PROGRAM AT THE CURRENT AD- DRESS."." THE ADDRESS OF THE DATA IS ASSIGNED TO SYMBOL. (THE SYMBOL IS OPTIONAL.)"/61:3/i " THE NEXT INSTRUCTION IS FDB. IT TAKES ON THE FORM: [SYMBOL] FDB [EXPRESSION]"/!" FDB STANDS FOR fORM dOUBLE bYTE, AND IT ALLOWS YOU TO AS- SEMBLE TWO BYTE DATA INTO YOUR PROGRAM AT THE CURRENT ADDRESS."04"" THE ADDRESS OF THE DATA IS ASSIGNED TO SYMBOL, IF USED."0A#61:31($" THE NEXT INSTRUCTION IS THE FCC INSTRUCTION. IT HAS THE FOLLOWING FORM: [SYMBOL] FCC [STRING] (THE STRING IS SET OFF BY DE- LIMITERS IN FRONT AND BACK. THE DELIMITERS MAY BE ANY CHAR-"1b%"ARACTER, BUT BOTH DELIMITERS MUST BE THE SAME.)"2&" THIS INSTRUCTION STORES AN ASCII STRING STARTING AT THE CURRENT MEMORY ADDRESS. THE AD- DRESS OF THE FIRST CHARACTER IN THE STRING IS ASSIGNED TO THE SYMBOL, IF USED."2''61:32(" THE LAST PSEUDO OP TO BE COV-ERED BY THIS TUTORIAL IS THE RMBINSTRUCTION. THE RMB INSTRUCTIONHAS THE FOLLOWING FORM: [SYMBOL] RMB [EXPRESSION]"3)" THE RMB INSTRUCTION RESERVES MEMORY BYTE FOR DATA. THE NUMBEROF BYTES TO BE RESERVED IS CON- TAINED IN THE EXPRESSION. THE SYMBOL CONTAINS THE ADDRESS OF THE FIRST RESERVED LOCATION. (THE SYMBOL IS OPTIONAL.)"3*61:34+" AS WAS NOTED, SOME INSTRUC- TIONS, SUCH AS FCB, FDB, FCC, AND RMB, MAY HAVE SYMBOLS WHICH CONTAIN AN ADDRESS WHICH MAY BE USEFUL LATER IN THE PROGRAM. THESE SYMBOLS MAY BE USED THE SAME WAY AS SYMBOLS DEFINED WITHTHE EQU STATEMENT."4,61:35-" IT SHOULD ALSO BE NOTED THATSINCE PSEUDO OPS ARE CHARACTER- ISTIC OF THE ASSEMBLER, NOT THE ASSEMBLY LANGUAGE, SOME MAY NOT SUPPORT ALL OF THE PREVIOUSLY DESCRIBED PSEUDO OPS, OR SOME ASSEMBLERS MAY SUPPORT MORE."5.61:35/" NOW, AN EXAMPLE OF ASSEMBLY LANGUAGE WILL BE PRESENTED.":61:360"00010 ORG 15000 00020 START EQU 1 00030 LAST EQU 10 00040 LDA #START 00050 ADD1 INCA 00060 CMPA #LAST 00070 BNE ADD1 00080 RTS"7 1"00090 END"72647{3" THE ASSEMBLY LANGUAGE PROGRAMABOVE CAUSES THE A ACCUMULATOR TO COUNT FROM 1 TO 10.":61:6474" IN THE ASSEMBLY LANGAGE PRO- GRAM ABOVE THE LINE NUMBERS ARE EDITOR SUPPLIED AND USED ONLY FOR EDITING.":61:648i52&' COPYRIGHT (C) T&D SOFTWARE 1983&: ARCHERY&D120&O:255& AR(1),AS(1),CH(3),HS(3),CV(3),VS(3),SS(1),SA(1),TM(2)&:"BM0,2C3R1C2NU1ND2C3R2C2NU1ND2C3R2C2NU1ND2C3R10NU1ND2R1":(0,0)(16,4),AR,G&:(0,0)(16,4),AS,G' :"BM0,0C4R150":(0,0)(150,0),CH,G'I :"BM0,0C3D130":(0,0)(0,130),CV,G' S0:4:(0,0)(16,4),SS,G:"BM0,1C3R1C2NG2NH2C3R2C2NG2NH2C3R2C2NG2NH2C3R10NU1ND1R1":(0,0)(16,4),SA,G:4:1,0' L57:Y61:119:"BM57,61C2ND4E4F4NL6D4"( L77:Y71:119:"BM77,71ND4U4R6D4L4F4"(A L97:Y81:119:"BM97,81ND4U4R6L6D8R6"(oL117:Y91:119:"BM117,91ND4NU4R6NU4D4"(L137:Y101:119:"BM137,101D4NR6U4NR6U4R6"(L157:Y111:119:"BM157,111ND4U4R6D4L4F4"(L177:Y121:119:"BM177,121ND4NE4H4")#"V31T10L10O5CDEFGABGFDCDEFGABCGFD")4TD02000:*,:" IN THIS GAME, YOU MAY SHOOT AT A TARGET WITH A BOW & ARROW. HOWEVER, IT'S NOT THAT EASY. YOUMUST ALLOW FOR WIND, WHICH IS INDICATED IN THE UPPER RIGHT CORNER. YOU ARE AT THE CENTER, AND THE TARGET IS AT 'N', THIS IS A TOP VIEW."*" TO AIM, USE THE RIGHT JOY- STICK TO LINE THE CROSS-HAIRS WHERE YOU WANT TO SHOOT, THEN USE THE FIRE BUTTON TO SHOOT."*1,3:85:1,1*TD16000:+::" AFTER RELEASING THE ARROW, ITS PATH WILL BE TRACED FROM A SIDE VIEW AND A TOP VIEW."+" WHEN THE ARROW HITS THE TAR- GET, THE TARGET WILL APPEAR ON THE SCREEN TO SHOW YOU HOW YOU DID."," YOU WILL HAVE TEN ARROWS TO SHOOT. SCORING IS AS FOLLOWS: BLUE = 25, RED = 50, YELLOW = 100.",(11)"GOOD LUCK!",L@484,"PRESS [ENTER] TO START";,hR():(13)29,GC110::1,0:(128,96),8,2:(128,96),2,(128,96),9,4:(128,96),20,4:(139,96),4, (128,96),21,3:(128,96),40,3:(150,96),3- !"BM200,0 D50R55U50L55"-&""BM225,3C4 ND5F5U5"-9#(228,27),21,3-J$CX87:CY136-e%(55,CY)(205,CY),HS,G-&(55,CY)(205,CY),CH,-'(CX,30)(CX,160),VS,G-((CX,30)(CX,160),CV,-)(CX,30)(CX,160),VS,-*(55,CY)(205,CY),HS,.+H(0):V(1).,H50CXCX3.$-H15CXCX3.6.V50CYCY3.H/V15CYCY3.[0CX175CX175.l1CX85CX85.2CY140CY140.3CY50CY50.4(65280)254 (65280)12659.52,1:(228,27)(228X,27Y),:(228,27),21,3/6 F1 (15)157/7X(30)15:Y(30)15/$8F1/A9(228,27)(228X,27Y),/J:37/`;:"BM0,96C2R255"/}<"BM30,100C3NR5D4R5D4L5"/="BM+10,-8R3L3NL1D8L2R4"/>"BM+6,-8ND8R2F3D2G3L2"/?"BM+9,-8NR4D4NR4D4R4"/@"BM-1,0":114/A"BM30,2C4R4L2D8"0B"BM+7,-8R4D8L4U8"0)C"BM+7,0ND8R4D5L4"0>D"BM+4,+3":1140]E"C3BM240,110D70R10U70L10"0nF(242,112),30G"BM240,14D70R10U70L10"0H(242,16),30ICXCX128:CX(CX1.2)460JCYCY96:CY(CY1.2)1451KXT12258:(XT,CX)(XT16,CX4),AR,:(XT,CY)(XT16,CY4),AR,13LTXCXX9:TYCYY101DMTX10TX101UNTX85TX851hOTY106TY1061{PTY181TY1811Q(XT,CX)(XT16,CX4),AS,:(XT,CY)(XT16,CY4),AS,1RCXTX:CYTY2LS"V"(((226XT)7.2))"O4T255L255A"::(XT,CX)(XT16,CX4),AR,:(XT,CY)(XT16,CY4),AR,:"V31O1L10T10AV25AV20AV15AV10AV5A"2lTTD02000::1,3:1,0:892U:(128,96),20,2:(128,96),22V(128,96),21,4:(128,96),50,4:(150,96),42W(128,96),51,3:(128,96),90,3:(180,96),32X3YCXCX46:CYCY1453'ZCX128CX2.57:CY96CY2.573:[CX252CX2523I\CX3CX33\]CY188CY1883k^CY3CY33{_P(CX,CY)3`(CX3,CY3)(CX3,CY3),TM,G3a"BM"((CX))","((CY))"C2NE2NG2C3NF2NH2"3bTD02000:4c(CX3,CY3)(CX3,CY3),TM,4(d:P2A$"BULLSEYE":SS1004FeP4A$"RED RING":SS504efP3A$"BLUE RING":SS254gP1A$"YOU MISSED THE TARGET"4h@240(A$)2,A$;4i@299,"SCORE :";S;4jTD02000:4k1,14lGC4m@363,"GAME OVER"5n@390,"PLAY AGAIN ? (Y/N)"5#oK$:K$"Y"454pK$"N"1115<q:5Zr"BM+10,-8F2D4F2R1E2U4E2"5us"BM+7,0R3L3NL1D8L2R4"5t"BM+7,-8 NR4D4NR4D4R4"5u"BM+5,-8 F2D4F2E2NU2F2E2U4E2"5v6!wI0 L16 5:(I,Y)(I16,Y4),SA,:"V31O2T200L100ADG":(I,Y)(I16,Y4),SS,::"O1T10L10A D":61x4:1,1:45<q:5Zr"BM+10,-8F2D4F2R1E2U4E2"5us"BM+7,0R3L3NL1D8L2R4"5t"BM+7,-8 NR4D4NR4D4R4"5u"BM+5,-8 F2D4F2E2NU2F2E2U4E2"5v6!wI0 L16 5:(I,Y)(I16,Y4),SA,:"V31O2T200L100ADG":(I,Y)&':COPYRIGHT (C) T&D SOFTWARE 1983&9 359,57:0,1&u:2048:0:4:@229,"READING DISK DIRECTORY";:&HFF22,8&Ȁ X512 541:A$:X,("&H"A$):X:0512:F(0)&ҌA$(68):Y1:P11:PO4:T247&܀ X311:0,17,X,A$,B$:C$A$(B$,127)'4 N07:A$(Y)(C$,N321,8)"."(C$,N329,3)" "'[R(A$(Y)): R255A$(Y)"":300'A$(Y)A$(Y)((1547N32)48)" "' (1548N32)0 A$(Y)A$(Y)"B" : A$(Y)A$(Y)"A"( R0 (A$(Y),1)"B" ((A$(Y),10,3)"BAS" (A$(Y),10,3)"BIN") A$(Y)"":290(<A$(Y)(A$(Y),12):YY1(F" N,X(q,P2((Y1)10): P2(Y1)10 P2P21(6:6)"COLOR DISK DIRECTORY"(@A$(68F)" USED -"(F)" FREE":(32(A$))2)A$:10)"PAGE";P1;"OF";P2:(JH(P11)101)T XH H9) ^ A$(X)"" :370)/h9);A$(X))5r)C|&HFF22,8)nKPO328:529,&H80:A0(K):529,&H8B)E(P11)10PO3)(341)T PO4 P11 P1P11:PO13:A0(K):310 : (341)T PO4 A0(K):POPO1:390*d (342)T PO13 EY1 A0(K):POPO1:390 : (342)T P1P2 PO13 P1P11:PO4:A0(K):310*z (338)191450*410*(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);*օ (A$(E),"BIN") 359,126:MT$:+& (A$(E),"BAS") 359,126:T$,R+0ꁥ410+ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);*օ (A$(E),"BIN") 359,126:MT$:&':COPYRIGHT (C) T&D SOFTWARE 1983&:3:1,1::300&"BM5,40C2R235F2R1F2D135BF10U135H10D135L30ND2U1H1U3H1U3H1U3H1U3H1U3H1U3H1U3H1L169G1D3G1D3G1D3G1D3G1D3G1D3G1D3G1D3NR185U2L30U135E2R1E2BR8BD8R219F5D93L229U93E5"'_"BM0,180F10R30NH4F2R185H2NR30H2BH6L185BR6BD2NR32F6R32H6BR18BD1NR4F4R4H4BR18BU1NR32F6R32H6BR19BD1NR4F4R4H4BU1BR18NR32F6R32H6"'(248,55),2,2:"BM35,182C5NF8BR182NF8":"BM52,168C2E3R3F3D3G3L3H3U3BR128E3R3F3D3G3L3H3U3":(54,168),2,2:(182,168),2,2("C3":X20:Y32: 83:A$"T AND D SOFTWARE":X50:Y20:85:X220:Y32:83:X50:Y30:A$"HOLLAND MICHIGAN":85:X14:A$"REPRODUCTION OF ANY OF THE":YY32:"C4": 85(A$"FOLLOWING IS PROHIBITED.":YY10:X22:85(A$"T AND D SOFTWARE SHALL HAVE":X6:YY18:85)$ A$"NO LIABILITY OR RESPONSIBIL-":YY10:X6:85)Z A$"ITY TO CUSTOMER WITH RESPECT":YY10:X6:85) A$"TO ERROR, LOSS, OR DAMAGES":YY10:X14:85:A$"CAUSED BY THESE PROGRAMS.":YY10:X14:85*6 A$"COCO CASSETTE NO. II":X35:Y158:"C3":85:A$"MAY":X88:YY10:85:"BM+10,+4;U4R4D2NL2D2NL4BR4R4U2NL4U2L4"*G TD03000:*M*g"C3":X90:Y180:75*"C4":A$"JOIN ME ON MY SEARCH FOR THE SCROLL OF KNOWLEDGE.":X0:Y0:85*TD03000:+J:"C3BM110,151 U50 H10U20R10D10R10U10R10D10R10U10R10D15R20C2U40R15D10L15D30C3R20U15R10D10R10U10R10D10R10U10R10D20G10D50L120"+k"BM170,110NF10G10D30R20U30"+"BM210,90NF2G2D6R4U6"+"BM130,90NF2G2D6R4U6"+(160,100),3+(175,50),2+(170,120),4,3+X20:Y185:"C3":75,WA$"INSIDE THIS CASTLE IS THE SCROLL OF KNOWLEDGE. HOWEVER, WE MUST BE CAREFUL.":X0:Y0:85,hTD03000:,n,(0,80)(85,80),:(170,80)(255,80),:(0,150)(85,150),:(170,150)(255,150),-(85,30)(85,80),:(85,150)(85,191),:(170,30)(170,80),:(170,150)(170,191),-6X90:Y150:"C3":75-W "C2":X10:Y115:A$"A":85-r!X119:Y40:A$"B":85-"X215:Y115:A$"C":85-#"C3":X0:Y0:A$"WE ARE NOW INSIDE THE CASTLE. WHICH WAY SHOULD I GO ... PLEASE TYPE A,B, OR C.":85. $I01000.!%K$:K$""40.O&P("ABC",K$):P0"V31T200O1 AAA":40.X'41.z(:"V31T200O1 ADEFDACDA":36.) P 42,62,52.*:"BM80,180C2U40E5U20G25U30R35U4H3U4E10F10D4G3D4R35D30H25D20F5D40L44".+(85,170),2/,(85,170,1):(90,"#%')+-ERY BAS5FROGJUMPBAS$@MLT6 BASNMLTDICT BAS&^SPEED-UPBASMETRCONVBAS(DIR BAS COVER11 BAS!ARCHERY BAS5FROGJUMPBAS$@MLT6 BASNMLTDICT BAS&^SPEED-UPBASMETRCONVBAS(GRAFQUADBAS*EGRPROG BASCATCAVE BIN,-160,3):(92,148,4):(100,168,4):(110,140,4):(117,125,3):(114,120,1):(98,130,3):(95,135,1):(63,130,4):(70,125,3):(140,127,4):(135,122,1)/-(102,103),8,1/.(102,103),1//(105,100,3):(98,100,3)/0X145:Y110:"C3":750J1X0:Y0:A$"IN THIS ROOM, I AM GREETED BY AHOODED WIZARD. HE SAYS GO BACK AND TRY C.":850[2TD03000:0e3 280k405X30:Y180:"C3":751%6"BM170,180 C2U5R10U20H10U30H5U3G15U4E15H15U3F15U2E3U2E4U2E2R20F5R2F5R2D10G10L3D4F10R5F10R5F3E3R2U3E3R2U3E3U5H1U2H3U4R3F5R2F1R2D20G3D2G3D1G12F2D6F2D3G9L57"167(200,170),21H8(180,90),4,11Z9(180,90),4,11:"C3":X0:Y0:A$"INSIDE THIS ROOM IS A SMALL DRAGON... I MUST RETREAT...":851;"C4":X020:(162,103)(130,100X),:"V31O1T200L200A":22)?X30:Y80:"C3":753@X0:Y90:A$"THE SCROLL OF KNOWLEDGE THIS SCROLL WILL TRY TO CLEAR UP THE CONFUSION CONCERNING PMODES AND PCLEAR. AS YOU MAY ALREADY KNOW, THE PMODE COMMANDSIMPLY TELLS THE COMPUTER WHICHHIGH RESOLUTION GRAPHICS MODE "37AA$A$"YOU WANT TO USE.":853HBTD04000:3cC:X30:Y80:"C3":7545DX0:Y90:A$"THE MAIN THING WE ARE CONCERN- ED WITH, THOUGH, IS THE PCLEAR.SINCE PCLEAR DETERMINES HOW MANY BYTES ARE USED FOR GRAPHICS, IT ALSO DETERMINES MEMORY SIZE FOR BASIC PROGRAMS.":854FETD04000:4aF:X30:Y80:"C3":755UGX0:Y90:A$"IF YOU PCLEAR TOO MANY PAGES, A LARGE BASIC PROGRAM MAY OR MAY NOT LOAD DUE TO LACK OF AVAILABLE MEMORY. THIS WILL USUALLY RESULT IN A LOADING ERROR. BE SURE TO PCLEAR THE CORRECT NUMBER OF PAGES BEFORE LOADING."5^H855oITD04000:5wJ15K(X,Y)(X,Y),5L"BM+0,+0;R16E3R1F3R12U20D20R30E2U2H2L4H4U5D5F4L4G2L12H2L6U1L8H1L10H1L7H1L7G2D3F2D2BU12BR4NG4E3U8"6FM"BM+0,+0H1L5H1L5R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R40U2L45BU2R45"6N"BM+0,+0;H20L48G2F20BR3BU2H16R41F16BL13BU21H1L4H1L4H1L4U32L72D20E1R3E1R3BL6BG2L3G1L3G1L3G1L1G1L1G2L1G3D2F7R30U1H3U1E3U1L22U1E1R3BR24U24R30D24L30"7iO"BM+0,+0;E3U18H3F3R24E3G3D18F3H3L24BR5BU8U8R4D8L4BR2BU2R1BR8U6R4D8L4U2BR2R1BD6BL3L6BR21BD9R7BU3L7BU3R7BU3L7BU5U12R8D12L8BU3BR2R3BU4L3"8P"BM-65,+35;R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1H5L5H1L5H1U6D6L5H1U5D5L5H1U4D4L5H1U3D3L5H1L5H1L5H1L3G1D2F1R1G2D1F2BR32BU12H2U2E2R5G2D2F2L5R12E1H1L4R4E1R1U1H1L4R4"8Q"BM+0,+0;L9U2R4F2D1G2BR20BD10R2BR4R2BR4R2BR4R2BR4R2BR4R2BD4L2BL4L2BL4L2BL4L2BL4L2BD4R2BR4R2BR4R11BR4R2BR4R2"8R9S(X,Y)(X,Y),:"BM+0,+0;R3U2R5D2L5R7U6L10D6BU6BR3U1L2H2U1R3L7H2U1R4L9H2U1R22D3G3D2R2E3R2E2R2U3H7U1L2G1D2F2H2L2G1D2F2H2L2G1BD17BL6BU5":9"TX0:Y429,U"S2"9[V P1 (A$):I$(A$,P,1):I(I$)64 9WXX8B: X(252(B1.5)) X8:YY10(B2)9X I19 I289Y I18 I299Z I20 I309[ I0 I27:c\(X,Y)(X,Y),: I 95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124:z] S0 "T250O1C":^ P:"S4"::_"BM+0,+0;BR4ND4NF4G4D4BR8U4"::`"BM+0,+0;ND8R8D4NL8D4L8"::a"BM+0,+0;NR8D8R8":;b"BM+0,+0;ND8R6F2D4G2L6":;$c"BM+0,+0;NR8D4NR6D4R8":;@d"BM+0,+0;NR8D4NR6D4":;]e"BM+0,+0;NR8D8R8U4L1":;zf"BM+0,+0;D4ND4R8U4D8":;g"BM+4,+0;D8":;h"BM+0,+0;BR6D8L4U2":;i"BM+0,+0;D8U4R4NE4NF4":;j"BM+0,+0;D8R8":::L;k"BM+0,+0;ND8R4ND3R4D8":<l"BM+0,+0;ND8R8D8":<2m"BM+0,+0;D8R8U8L8":2? SL4 702@ SL4 90:452A 902B SL9 SL6 XX8:683 CXX8:SL7 XX83!D X15 X230 813+E 453GF(X,Y15)(X15,Y),FP,3WG SL1 763gH SL0 753I SL3 (X5,Y3)3 90:813J SL2 (X10,Y3)3 90:813K90:443L (X5,Y3)3 90:813M90:444+N"O3T5L4V31ADP20FDP20ADP100FDP100ABDEFAC":NFNF14AONF5 GL1:274JP414Q"C1BM"((X))","((Y))"E10G5NF5NH5U2E3U3H3G3D3F3"4R"V31O1T10L1AAE"4SDFDF1:DF5 274T:"YOU ESCORTED ";NF;"FROGS TO SAFETY"5 U::65494,0:7)"PLAY AGAIN ? (Y/N)"5VK$:K$"Y"115/WK$"N"865>X65494,0:5Y"BM"((X))","((Y))"E5R5NF5L3D2R2U3R2NL6U1NL6U1NE3D1L2U2L2D1L3H3":5ZAHR608:25[AHR1567:35\AHR2111:3:35]AHR2208:25^AHR3167:36_AHR4223:36`AHR4735:3:36(aAHR4864:26.b6<c4:3:55Y"BM"((X))","((Y))"E5R5NF5L3D2R2U3R2NL6U1NL6U1NE3D1L2U2L2D1L3H3":5ZAHR608:25[AHR1567:35\AHR2111:3:35]AHR2208:25^AHR3167:36_AHR4223: [&' COPYRIGHT (C) T&D SOFTWARE 1983&10:1&;1000&r:8)"MACHINE LANGUAGE":6)"TUTORIAL DICTIONARY"'e:" THIS PROGRAM WILL GIVE YOU A QUICK REFERENCE SOURCE TO MANY TERMS USED IN MACHINE LANGUAGE. THIS IS INTENDED TO CLEAR THE MEANINGS OF CERTAINS TERMS USED IN THE MACHINE LANGAGE TUTORIALSAND OTHER SOURCES ON MACHINE LANGUAGE."'n66':"WOULD LIKE TO SEE:"'"A) THE ENTIRE DICTIONARY"' " OR"' "B) ONLY A SELECT WORD"' :"PRESS THE LETTER OF YOUR CHOICE"( K$:K$"A"K$"B"12(* K$"B"24(0(6(BI118(N W$,D$([W$;" :"(cD$({LL((D$)32)2(L11 I18 66::L0((7(:"HERE IS THE WORD LIST:"::((I19(W$,D$(W$;( W$,D$) 19)W$))8 :"WHICH WORD DO YOU WANT TO SEE ?")U!"(X TO EXIT)====>";WT$)d"WT$"X"7)j#)v$I118)%W$,D$)&W$WT$ 43)')(:"THAT WORD IS NOT IN THIS DIC- TIONARY."))66)*24)+:W$;" :"),D$)-66*. 24*/MICROPROCESSOR,THE MAIN CHIP IN THE MICRO- COMPUTER RESPONSIBLE FOR ALL ARITHMETIC AND LOGICAL OPERA- TIONS.+'0INTERPRETER,A MACHINE LANGUAGE PROGRAM WHICHTRANSLATES A HIGHER-LEVEL LAN- GUAGE (SUCH AS BASIC) IN MACHINELANGUAGE ONE INSTRUCTION AT A TIME DURING RUN-TIME.+1ROM,READ ONLY MEMORY (THE BASIC INTERPRETER IS STORED IN ROM) DOES NOT LOSE CONTENTS WHEN SHUTOFF.+2RAM,RANDOM ACCESS MEMORY IS TO STOREDATA AND PROGRAMS - LOSES CON- TENTS WHEN POWER SHUT OFF.,U3BIT,THE SMALLEST DATA CELL IN A DIGITAL COMPUTER - MAY BE EITHEROFF (0) OR ON (1).,4BYTE,CONCATENATION OF 8 BITS - MAY HOLD VALUE BETWEEN 0 AND 255.-(5ACCUMULATOR,EITHER OF THE TWO 8 BIT REGIST- ERS (A OR B) OR THE 16 BIT D REGISTER - USED FOR ARITHMETIC AND LOGICAL MANIPULATION.-u6REGISTER,USUALLY REFERS TO A 16 BIT IN- DEX REGISTER OR STACK POINTER.-7STACK,AN AREA OF MEMORY USED FOR TEMP-ORARY STORAGE.-8BINARY,THE BASE TWO NUMBER SYSTEM..9HEXADECIMAL,THE BASE 16 NUMBER SYSTEM...:DECIMAL,THE BASE 10 OR COMMEN SYSTEM..;MACHINE LANGUAGE,THE ACTUAL OP-CODES THAT THE MICROPROCESSOR CAN UNDERSTAND WITHOUT AN INTERPRETER..ASSEMBLER,A PROGRAM THAT TRANSLATES THE MNEMONICS OF AN ASSEMBLY LAN- GUAGE PROGRAM INTO MACHINE LAN- GUAGE.0N?OFFSET,A VALUE (EITHER NEGATIVE OR POS-ITIVE) THAT IS ADDED TO ANOTHER VALUE OR REGISTER TO OBTAIN THE EFFECTIVE VALUE.0@LABEL,A SIX CHARACTER (OR LESS) STRINGUSED TO SIGNIFY A CERTAIN LINE OF ASSEMBLY LANGUAGE.1APSEUDO-OP,AN INSTRUCTION THAT IS NOT AS- SEMBLED BUT INSTEAD USED AS A DIRECTIVE TO THE ASSEMBLER.1AB@484,"PRESS [ENTER] TO CONTINUE";1TC(13)671ZDIX CHARACTER (OR LESS) STRINGUSED TO SIGNIFY A CERTAIN LINE OF ASSEMBLY LANGUAGE.1APSEUDO-OP,AN INSTRUCTION THAT IS NOT AS- SEMBLED BUT INSTEAD USED AS A &' COPYRIGHT (C) T&D SOFTWARE 1983&\ METRIC TO ENGLISH CONVERTER&f0:1&1000: L(4),LM$(3),LE$(4),WM$(2),WE$(2),V(3),VE$(3)&I14:L(I):& 2.54,30.48,91.44,160934.4&I13:LM$(I)::I14:LE$(I):'4 CENTIMETERS,METERS,KILOMETERS,INCHES,FEET,YARDS,MILES'S W(1).035274:W(2).0022046' WM$(1)"GRAMS":WM$(2)"KILOGRAMS":WE$(1)"OUNCES":WE$(2)"POUNDS"' I13:V(I),VE$(I):' 2.113,PINTS,1.057,QUARTS,.2642,GALLONS( :7)"METRIC TO ENGLISH":11)"CONVERTER"(y:" THIS PROGRAM WILL HELP YOU PERFORM METRIC TO ENGLISH AND ENGLISH TO METRIC CONVERSIONS.":(" YOU WILL BE ABLE TO CONVERT BETWEEN THE UNITS IN THE LENGTH, WEIGHT, AND VOLUME SYSTEMS.":)" THIS PROGRAM IS MENU DRIVEN.")83))114)"MENU":14)"----")j:11)"1. LENGTH":11)"2. WEIGHT":11)"3. VOLUME")::6)"YOUR CHOICE ? (1-3)")86)P("123",K$):P022) P 25,48,68):13)"LENGTH":)88) K 28,34* 95:39:96:45*?:"ENTER THE VALUE":"(IN ";LM$(MU);") ";:V*eEVCFL(EU):E(E1000.5)1000*:P$(V)" "LM$(MU)" IS":97:P$"EQUIVALENT TO "(E)" "LE$(EU):97* 83*!18*"95:45:96:39+#:"ENTER THE VALUE":"(IN ";LE$(EU);") ";:V+8$EVL(EU)CF:E(E1000.5)1000+%:P$(V)" "LE$(EU)" IS":97:P$"EQUIVALENT TO "(E)" "LM$(MU):97+&83:18,'9)"1) CENTIMETERS 2) METERS 3) KILOMETERS"::"WHAT IS YOUR CHOICE ? (1-3)",4(86:(K$)1 (K$)3 40,M)MU(K$):MU1CF1,^*MU2CF100,u+ MU3 CF100000,{,--11)"1) INCHES 2) FEET 3) YARDS 4) MILES"::"WHAT IS YOUR CHOICE ? (1-4)"-4.86:(K$)1 (K$)4 46-D/EU(K$):-_0:13)"WEIGHT"::88-p1 K 50,63-295:55:96:60-3:"ENTER THE VALUE":"(IN ";WM$(MU);") ";:V-4EVW(EU)CF:E(E1000.5)1000.15:P$(V)" "WM$(MU)" IS":97:P$"EQUIVALENT TO "(E)" "WE$(EU):97.?683:18.710)"1) GRAMS 2) KILOGRAMS"::"WHAT IS YOUR CHOICE ? (1-2)".886:(K$)1 (K$)2 56.9MU(K$):MU1CF1.:MU2CF1000.;/C<11)"1) OUNCES 2) POUNDS"::"WHAT IS YOUR CHOICE ? (1-2)"/f=86:(K$)1 (K$)2 61/v>EU(K$):/?95:60:96:55/@:"ENTER THE VALUE":"(IN ";WE$(EU);") ";:V/AEV(W(EU)CF):E(E1000.5)100009B:P$(V)" "WE$(EU)" IS":97:P$"EQUIVALENT TO "(E)" "WM$(MU):970GC83:180bD:13)"VOLUME"::880sE K 70,750F96:800G:"ENTER THE VALUE":"(IN LITERS)";:V0HEVV(EU):E(E1000.5)10001I:P$(V)" LITERS IS EQUIVALENT":97:P$"TO "(E)" "VE$(EU):971*J83:1818K95:801jL:"ENTER THE VALUE":"(IN ";VE$(EU);") ";:V1MEVV(EU):E(E1000.5)10001N:P$(V)" "VE$(EU)" IS":97:P$"EQUIVALENT TO "(E)" LITERS":971O83:182bP11)"1) PINTS 2) QUARTS 3) GALLONS"::"WHAT IS YOUR CHOICE ? (1-3)"2Q86:(K$)1 (K$)3 812REU(K$):2S@484,"PRESS [ENTER] TO CONTINUE";2T86:K$(13)842U2VK$:K$""862W37X" 1) METRIC ----> ENGLISH 2) ENGLISH ----> METRIC"3]Y:"WHAT IS YOUR CHOICE ? (1-2)"3qZ86:K$"1"933[K$"2"903\K2:943]K13^3_:"WHAT IS THE INPUT UNIT?"::3`:"WHAT IS THE OUTPUT UNIT?"::4a(32(P$))2)P$:ETRIC ----> ENGLISH 2) ENGLISH ----> METRIC"3]Y:"WHAT IS YOUR CHOICE ? (1-2)"3qZ86:K$"1"933[K$"2"903\K2:943]K13^3_:"WHAT IS THE INPUT UNIT?"::3`:"WHAT IS THE OUTPUT UNIT?"::4a(32(P$))2)P$:B&':COPYRIGHT (C) T&D SOFTWARE 1983&:THIS PROGRAM IS WRITTEN WITH THE USE OF THE PROGRAMS 'GRAFTEXT' AND/OR 'SMALTEXT' WHICH APPEAR IN THE NOVEMBER 1982 ISSUE OF CHROMASETTE MAGAZINE P.O. BOX 1087 SANTA BARBARA CA 93102 TEL (805) 963-1066':DESIGNED AND WRITTEN BY:'6:BEN AND MARC STEINMAN:'O:620-28TH AVE.SOUTH'n:GRAND FORKS NORTH DAKOTA': 58201' 600:'NL8:FC1'(27)256(28)850: 359,57'('2 4,1::1,1'<(96,74)(206,52),(F(96,76)(206,54),(+P(96,74)(96,34),(CZ(96,114)(96,76),([d(140,74)(96,74),(rn(52,76)(94,76),(x(164,54)(188,54),((248,54)(208,54),((206,12)(206,52),((206,92)(206,54),((206,92)(170,62),)(164,54)(168,59),)!(164,54)(206,10),):(206,10)(248,54),)SȻ(248,54)(206,92),)jһ(52,74)(96,32),)ܻ(96,32)(140,74),)(140,74)(98,114),)(98,114)(52,74),)@288,"****CUSTOM DESIGN OF A****":750*5@352,"****CUBICAL QUAD ANTENNA****":750:"T6;O2;L2;G;L4;C;D;E;F;L2;G;C;P16;C"*l"L2;A;L4;F;G;A;B;O3;L2;C;O2;C;P16;C;F;L4;G;F;E;D"*"L2;E;L4;F;E;D;C;L2;O1;B;O2;L4;C;D;E;C"*"L2;E;L1;D;L2;G;L4;C;D;E;F;L2;G;C;P16;C"*"L2;A;L4;F;G;A;B;O3;L2;CO2;C;P16;C;F;L4;G;F;E;D"+* "L2;E;L4;F;E;D;C;D;E;L2;F;O1;B;L1;O2;C"+4720+f@288,"INPUT CENTER FREQUENCY (IN MHZ)":750+t" F:720+,E.985F+6G1.033F+@D300F+JR309.55F+TB35.4F+^X(2(R264))+hY(X)+rSY+|X(S2(B24))+Y(X),PY,%X((R264)7575(F24)),1Y(X),9TY,ZX((R264)125125(F24)),fY(X),nUY,W142.64686F,@362,"COMPUTING":720:750,@288,"THIS 2 ELEMENT QUAD SHOULD" : 750-/"EXHIBIT A STANDING WAVE RATIO OF 2:1 OR LESS OVER THE FREQ. RANGE FROM":720:750-5-@288,E;"TO";G;"MHZ WHEN USED WITH 50 TO 75 OHM FEED LINE.":750: 720-@288,"THE BOOM LENGTH CAN VARY BETWEEN";22.860075F;"METERS AND";38.100125F;"METERS":720:750.@@288,"WITH VERY LITTLE EFFECT. A LENGTH OF";B;"METERS IS OPTIMUM":750.&@352,"TOTAL LENGTH OF THE WIRE IN THE DRIVEN ELEMENT IS" ;D;"METERS,":720:750.0@288,"WHICH IS";D4 "METERS ON EACH SIDE.":750/3:@352,"TOTAL LENGTH OF WIRE IN THE REFLECTION ELEMENT IS";R;" METERS,":720:750/oD@288,"WHICH IS";R4;"METERS ON EACH SIDE.": 750/N@352,"THE MINIMUM LENGTH OF BAMBOO, FIBERGLASS OR OTHER MATERIAL WILL BE":720:7500X@288, S;"METERS MEASURED FROM THE CENTER OF THE BOOM.": 7500|b@352,"IF A SPIDER (BOOMLESS) QUAD IS TO BE USED, EACH SPREADER WILL HAVE TO BE": 720: 7500l@288,"AT LEAST";P;"METERS.":720:7500v@288,"THE TURNING RADIUS (FOR TREE CLEARANCE, ETC) WILL VARY BETWEEN";T:7501M@352,"METERS AND"; U;"METERS, DEPENDING ON LENGTH OF THE BOOM.":720:7501@288,"THIS QUAD ANTENNA WILL WORK WELL EVEN AT LOW HEIGHTS ABOVE THE GROUND,":750:7201@352,"BUT IT WORKS BEST WHEN UP IN THE AIR A HALF WAVELENGTH ---";W:7502$@426,"METERS OR MORE.":720:7502@288,"THE FRONT-BACK RATIO (ABILITY TO REDUCE UNWANTED SIGNALS FROM THE OPPOSITE": 720: 7502@288,"DIRECTION) SHOULD EXCEED 10 DECIBELS FROM";.97F;"TO";1.03F;"MHZ,": 7503"@352,"APPROACHING 25 DB AT";F; "MEGAHERTZ.": 7503EƠ1,1: T11000::359,126::3Ї:" PRESS ANY KEY TO CONTINUE":750:180,1:240,1:730:3څ "" 730 : :3;:3A(FC256NL):3И"GRAFQUAD": 3р T13000: T3ҁ 20004wܷ- 2]'M&C O"1#&# &# =߆== =ܷ'\0?=4DDDD 5!!1 Z&⮍md1"j]&1- > JF?==7 1 Z&$1!j&1-5 03""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  """> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  "?? |qRt%G  """> >0 @"&*2"">" " $D~> <<" <""> #&/l,, :0&'+%+I'*>(H)+q}/k'}/h' @&9*ʶ/S*O/S+I ÷Ƿɷ˷̷ηзҷ÷Ķ""o&9/" 큌/:&/H9%p&o0%9/A/C/ATTTO/D/B=/Dƀ}/C'Tz/C }/@&9S9|/A|/A&z/Az/A|/B&|/A&|/A&|/A&|/A&|/B&z/A&z/A&z/A&z/A&|/A|/B&|/A&|/A&|/B&|/B&z/Az/A&z/B&9/T&%/Fy'/G'P' /@(]|/F/@(]߷&&/F'/G'P'~'/@(]z/F/@(]& /GP'/FJ&/@(]|/G/@(]& /G'/FJ&/@(]z/G/@(]}/T&(U90&J&90&9/F/A|/T~'/LO/M/L=/M0080||00809/LO/M/L=/M0滑0Ǥ000Ǥ0滑9z/R'9/S/R/40/ &/#' '/H&z/# m|/# h/"O}/#'//I/H&&&&S/I/I)/J/I'/J/H&z/# &|/" &|/# z/" /6(/"(i9)'HZ 9/P0&/P/F9/K =/K9/V/V/U/U)9/UDDDD*%/U0*%/VDDDD0*%/V0*%94=.0Z&59(/G'9/FDDD/Wm' o|/h)*984*ݽ*5&*/h9/W/g&9/j*9 /jȽ*9|/i/i/i.XX /jJ&0&9F4/jd*5J&94) Z&50&94) 2Z&50&9 4*ݽ*50&9/k̠0/P/S/U##/l9&[&&/k*%/F/GO)/@(]*a9/FDDD/"&2/GDDD/#&%z/k/k*% 4*J&5J&}/k'+I9 J&0&+,.⦠@&, 'N'bY&~&Ʒɷʷ̷ηзҷ·Ķ""9 &9,0&,0 &,0&,0&!,0 &,0&,0>&,0!&/lP/l9/l/l9,@&9 CATERPILLAR CAVE COPYRIGHT (C) 1983 T&D SOFTWARE BY A. PAKERSKI USE THE ARROW KEYS TO COLLECT GOLD BARS. AVOID THE FRONT OF THE CATERPILLER. PRESS ANY KEY GAME OVER PLAY AGAIN? Y/N  ,6=?=6,     &ATERPILLER. PRESS ANY KEY GAME OVER PLAY AGAIN? Y/N  ,6=?=6,