&=:MUSIC GRID ** WRITTEN BY TIM HENNON&t:COPYRIGHT (C) MARCH 1991 ** BY FALSOFT, INC.&:RAINBOW MAGAZINE& 2& 8&C4&V30& C& (20,V)(300,V),& V100 11 : VV10& 7& H20' C' (H,30)(H,100),'2 H300 16 : HH40'< 12'Q V35 95 10'g H40 280 40'uC(8)1' (H,V),C,4' (C25)5,2' H' V' 16C& (20,V)(300,V),& V100 11 : VV10& 7& H20' 8)8 ZE4: 3330SA (ML$)4 MM$(ML$,2) : MM$""Sl (ML$)4 MS$(ML$,2) : MS$ML$S ML$MM$("00"(("&H"MS$)48),2)("0000" (EA),4)S LI(ML$)2: 2650S :NOW CHECK FOR INDEXED ADDRESSINGT DI99999 ZE10: 3330T6 DI127 DI128 ZE11: 3330TM DI0 DI256DITa AM(AM$)&H40T  (AM 2)2 ZE10: 3330T  (ML$)4 MM$(ML$,2) : MM$""T  (ML$)4 MS$(ML$,2) : MS$ML$UC &ML$MM$("00"(("&H"MS$)32),2)ZT$("0000" (DI),2): LI(ML$)2: 2650UO 0 2650Uv ::CHECK FOR OP-CODE FCB OR GREATERU D EA99999 ML$(ML$,2)("00"(("&H"(ML$,3,2)) 48),2) ("0000"(EA),4): LI4: 2670V N NV99999 NV65535 ZE6: 3330VP X NV99999 ML$ML$("0000"(NV),4): LI4: 2670Vd b:CHECK FOR FCBV l MN112 ( NV99999 NV255 ) ZE6: 3330 : ML$("00"(NV),2):LI1: 2670V v:CHECK FOR FCCW$ MN113 ML$(34)(ST$,6)(34): LI(ST$): 2670W8 :CHECK FOR FDBW MN114 NV65535 ZE6: 3330 : ML$("0000" (NV),4): LI2: 2670W :CHECK FOR ORGW MN115 EA99999 ZE6: 3330W LOEA: ML$"": LI0: 2670X3 :************************************************************Xb : UTILITY SUBROUTINESX :************************************************************X :***SUBROUTINE TO CLEAR CURRENT CHARACTER POSITION AND STORE CHAR***Y (CP8,RW8)(CP87,RW87),,BFY0 (L$(RW),CP1,1)ZA$Y6 Y\ :***ERROR PROCESSING FOR LINE***Yy CP53 ZC53 : ZC13Y  (ZC8,RW8)(ZC87,RW87),,BFY (ZC,RW),"*"Y *Y 4:***CLEAR EVERYTHING SUBROUTINE***Y >LO&H7F00: SALO: SBLOZ HPN0Zu R I0 22: L$(I)" "A$" ": Z \ I0 26: S(I)1: Z f 3510Z pZ zCP14: RW0Z A$(124)[. Y0 22: (0,Y)," . ..... ...... .......... . ..... ...... ..........": [M Y0 22: (39,Y),A$: [Y 3570[_ [ :***CLEAR BINARY DATA AND SCREEN***[ I0 26: S(I)1: [ ʀ I0 22: (0,I8)(103,I87),1,: [ Ԁ I0 22: (320,I8)(423,I87),1,: \ ސ\ :***PRINT TITLE***\z (0,24),"BARDEN'S EZASM: F1 SAVES/F2 LOADS/CLEAR/SHFT,UP ARR DELETES/SHFT,DN ARR INSERTS"\ EN***[ I0 26: S(I)1: [ ʀ I0 22: (0,I8)(103,I87),1,: [ Ԁ I0 22: (320,I8)(423,I87),1,: \ 1870A:D IRW 21: (L$(I),1,38)(L$(I1),1,38): A^N(L$(22),1,38)(L$(0),41,80)AfXJ0A{b J22 1910Al IJ 21: (L$(I),41,80)(L$(I1),41,80): Av(L$(22),41,80)" "A: 1710BB*:***LOOK FOR SHIFT, DOWN ARROW***BF ZA$(91) 2050Ba AL1 3510: AL0B{ CP40 JRW : J0B I21 J 1: (L$(I1),41,39)(L$(I),41,29): B(L$(J),41,39)" "C Ѕ CP40 2040C-(L$(0),41,39)(L$(22),1,38)Cf I21 RW 1: (L$(I1),1,38)(L$(I),1,38): C(L$(RW),1,38)" "C 1920CCH1C ZA$(13) C 3290: (CP,RW),ZA$C CPCP1D* ((CP39) (CP79)) D4 1220Da>:************************************************************DH: ASSEMBLERDR:************************************************************D\:SUBROUTINE TO PROCESS LINE OF TEXTEf CP53 ZC55 : ZC15E?p (L$(RW),ZC,14)" " Eiz:***FIRST PROCESS POSSIBLE SYMBOL***E (L$(RW),ZC,1)" " SY((L$(RW),ZC,1)) : 2220E (L$(RW),ZC1,1)" " ZE2: 3330F  ((SY64) (SY91)) 2210 : ZE1: 3330FdSYSY65: S(SY)1 S(SY)LO : (PN0) (S(SY)LO) ZE1: 3330F:***NOW FIND 5 CHARACTERS OF MNEMONIC***FZCZC2F (L$(RW),ZC5,1)" " ZE2: 3330FMN(OB$,((L$(RW),ZC,5))): MN0 2300G1ԅ (L$(RW),ZC5,7)" " ZE3: 3330GAMN(MN1)5GZML$(M1$,MN21,2)Gf 2610GMN(T1$,(L$(RW),ZC,5)): MN0 MN(MN1)5: 2320G MN(T2$,(L$(RW),ZC,5)): MN0 2330 : MN(MN1)5 32H ML$(M2$,MN21,2): MNMN30: 2370HL MN(TH$,(L$(RW),ZC,5)): MN0 2350H $ML$(M3$,((MN1)5)41,4): MN(MN1)5 104: 2370H .MN(PS$,(L$(RW),ZC,5)): MN0 ZE3: 3330 : MN((MN1)5)112I 8:***NOW FIND OPERAND TYPE***I- BEA99999: NV99999: DI99999: ST$""I9 LZCZC6Ix V:FIRST LOOK FOR $XXXX - EXTENDED ADDRESSING - MUST BE HEXI ` (L$(RW),ZC,1)"$" EA("&H"(L$(RW),ZC1,4)): EA0 ZE4: 3330 : 2610J j:LOOK FOR #$XXXX - IMMEDIATE TWO OR FOUR DIGIT HEXJZ t (L$(RW),ZC,2)"#$" NV("&H"(L$(RW),ZC2,4) ): 2610J ~:LOOK FOR #XXXXX - IMMEDIATE DECIMALJ (L$(RW),ZC,1)"#" NV((L$(RW),ZC1,5) ): 2610J :LOOK FOR + OR - WITH XXX,RK" ((L$(RW),ZC,1)"-" (L$(RW),ZC,1)"+") 2500K ZS$(L$(RW),ZC4,2): (ZS$",Y" ZS$",X" ZS$",U" ZS$",S") ZE5: 3330K ZS$",X" ZT$"88" : ZS$",Y" ZT$"A8" : ZS$",U" ZT$"C8" : ZT$"E8"L DI((L$(RW),ZC,4)): 2610L! ą MN112 2560L9 ΅ MN113 2540L ؀ IZC ZC15: (L$(RW),I,1)"#" 2530 : ST$ST$ (L$(RW),I,1): L ⁥ 2610L (L$(RW),ZC5,1)" " ZE5: 3330 : NV((L$(RW),ZC,5)): 2610M :MUST BE SYMBOLIC ADDRESS HEREM? (L$(RW),ZC1,1)" " ZE5: 3330M_ SY((L$(RW),ZC,1)) 65M  (SY0 SY25) ZE5: 3330M  S(SY)1 EAS(SY): 2610 : PN1 ZE1: 3330M ( CP53 (53,RW),"#": EA0 : (13,RW),"#": EA0NH 2:***NOW HAVE VALID MNEMONIC AND ARGUMENT, CONSTRUCT MACHINE LANGUAGE***Nd < CP39 ZC40 : ZC0Nz F MN29 2770N PLI1N Z CP39 RW22LR PN0 3530: 2700N d CP39 RWLR PN0 3530: 2700O n PN0 2700O* x (ZC,RW),("0000"(LO),4)" "ML$Og I0 (ML$)21: LOI, ("&H"(ML$,I21,2)): O{ SBLO SBLOO LOLOLIO EBLO1O CP39 RW22LR LRRW22O CP39 RWLR LRRWO P :FIRST CHECK FOR RELATIVE ADDRESSINGP ҅ MN111 3170P5 AM$(AA$,MN1,1)PN AM$"A" 2880Pt MN56 ML$"16": LI3: 2830P MN58 ML$"17": LI3: 2830P ML$"10"ML$: LI4P EAEALOLI: EA0 SG1: EA(EA) : SG0Q E1(EA256): E2EA(E1256)QA " SG1 E2256E2: E1255E1: E2256 E20: E1E11Qq ,ML$ML$("00"(E1),2)("00"(E2),2)Q} 6 2650Q @:NOW CHECK FOR IMMEDIATE ADDRESSINGQ J NV99999 2950Q TAM(AM$)&H40Q ^ (AM 4)4 ZE4: 3330RW h (AM 16)16 ML$ML$("00"(NV),2) : ML$ML$("0000"(NV),4)Rq rLI(ML$)2: 2650R |ML$ML$("0000"(NV),4): LI3: 2650R :NOW CHECK FOR EXTENDED ADDRESSINGR EA99999 3030R AM(AM$)&H40S (AMVE ASSEMBLER 1.0"/<ڇ "COPYRIGHT 1990, WILLIAM BARDEN, JR."/\ "SOURCE INPUT FILE:"; SI$/} "SOURCE OUTPUT FILE:"; SO$/ "OBJECT OUTPUT FILE:"; OO$/:************************************************************0 : MNEMONICS AND OP CODES0U:************************************************************0 :ONE-BYTE INSTRUCTIONS - NO FOLLOWING BYTES - 0 TO 2911*OB$"ABX ASLA ASLB ASRA ASRB CLRA CLRB COMA COMB DAA DECA DECB INCA INCB LSLA LSLB LSRA LSRB MUL NEGA NEGB NOP ROLA ROLB RORA RORB RTS SEX TSTA TSTB "1x4M1$"3A485847574F5F4353194A5A4C5C485844543D40501249594656391D4D5D"1>:TWO- OR THREE-BYTE INSTRUCTIONS DEPENDING UPON IMMEDIATE OR EXTENDED OPRND1H:30 TO 1032RT1$"ADCA ADCB ADDA ADDB ADDD ANDA ANDB ANDCCASL ASR LBCC LBCS LBEQ LBGE LBGT LBHI LBHS BITA BITB LBLE LBLO LBLS LBLT LBMI LBNE LBPL LBRA LBRN LBSR LBVC LBVS CLR "3a\T2$"CMPA CMPB CMPX COM DEC EORA EORB INC JMP JSR LDA LDB LDD LDU LDX LEAS LEAU LEAX LEAY LSL LSR NEG ORA ORB ORCC PSHS PSHU PULS PULU ROL ROR SBCA SBCB STA STB STD STU STX SUBA SUBB SUBD TST "4fM2$"89C98BCBC384C41C48472425272C2E222485C52F25232D2B262A16211728294F81C18C434A88C84C4E8D86C6CCCE8E121310114844408ACA1A34363537494682C287C7CDCF8F80C0834D"47p:INSTRUCTIONS OTHER THAN RELATIVE WITH LEADING 104Hz:104 TO 1114{TH$"CMPD CMPS CMPU CMPY LDS LDY STS STY "4M3$"1083118C1183108C10CE108E10CF108F"4:PSEUDO-OPS - 112 TO 1154PS$"FCB FCC FDB ORG "5,:ALLOWABLE ADDRESSING MODES. SUBTRACT HEX 40 TO FIND 000BEIXR WHERE5r:B IS OP BYTE (B=0);E=EXTENDED;I=IMMEDIATE;X=INDEXED;R=RELATIVE.5AA$"..............................NNNN^NNDJJAAAAAAANNAAAAAAAAAAAAJNN^JJNNJZZNN^^^BBBBJJJNNDDDDDJJNNJJZZZNN^J^^^^^^JJ...."64:************************************************************6a: PRELIMINARY - 26:************************************************************6 L$(22), S(26)6 46 1,3006(0,0)(111,7),16 339070:************************************************************7Z$: MAIN LOOP7.:************************************************************78LR17BPN07LAL07V 12208.` CP53 (138,RW8)(1387,RW87),,BF : (538,RW87)(5387,RW87),,BF8:j 21408FtRWRW18s~ RW23 RW0: CP40 CP54 : CP148 CP53 CP54 : CP148 11108:************************************************************9: EDITOR9J:************************************************************9q:SUBROUTINE TO ENTER LINE OF TEXT9ZA$: ZA$"" (CP8,RW87)(CP87,RW87),,B: (CP8,RW87)(CP87,RW87),,B: 12209:***UP ARROW***:؅ ZA$(94) 1300:/ CH1 CH0: 2140:;RWRW1:R RW1 1220: CP39 RW22: CP14: 1220 : RW22: CP54: 1220: :***DOWN ARROW***: ZA$(10) 1360: CH1 CH0: 2140:(RWRW1;2 RW23 1220;;< CP39 RW0: CP14: 1220 : RW0: CP54: 1220;RF:***LEFT ARROW***;mP ZA$(8) 1400;yZCPCP1;d CP13 CP38: 1220 : CP53 CP78: 1220 : 1220;n:***RIGHT ARROW***;x ZA$(9) 1440<CPCP1 FOR ANOTHER TEST **"+hI$:I$""360+-rI$(12)20:+T|4:(12,24),"Right answer is "II$+j"L8O3FDFD":300+ 1,O4A,A,2,O4G,G,3,O4F,F,4,O4E,E,5,O4D,D,6,O4C,C,7,O3B,B,8,O3A,A,9,O3G,G,10,O3F,F,11,O3E,E,12,O3D,D,13,O3C,C,14,O2B,B,15,O2A,A,N 16,O2G,G,17,O2F,F,18,O2E,E,19,O2D,D,20,O2C,C,21,O1B,B,22,O1A,A,23,O1G,G,24,O1F,F,25,O1E,E,4:(12,24),I$" is correct":NCNC1:"L10O3CEGO4CO3GO4L4C":O4D,D,6,O4C,C,7,O3B,B,8,O3A,A,9,O3G,G,10,O3F,F,11,O3E,E,12,O3D,D,13,O3C,C,14,O2B,B,15,O2A,A,N 16,O2G,G,16&#d: COCO INTERACTIVE ASSEMBLER&Nn: COPYRIGHT 1990, WILLIAM BARDEN, JR.&x:************************************************************&: DATA DICTIONARY&:************************************************************':A$=TEMPORARY VARIABLE'@:AA$=ALLOWABLE ADDRESSING MODES'd:AL=1 IF BINARY DATA ON SCREEN':AM$=CURRENT ADDRESSING MODE CHARACTER CODE':AM=DECODED ADDRESSING MODE':CH=1 IF LINE CHANGED':CP=SCREEN CHARACTER POSITION, 0 TO 79($:DI=DISPLACEMENT VALUE OF OPERAND(8:E1=EA MS BYTE(L:E2=EA LS BYTE(p:EA=COMPUTED EFFECTIVE ADDRESS(:EB=LAST BINARY DATA LOCATION(:I=GENERAL WORKING INDEX(:J=GENERAL WORKING INDEX(":L$(22)=SCREEN LINE ARRAY),:LI=NUMBER OF BYTES IN MACHINE CODE)<6:LO=CURRENT LOCATION FOR BINARY)Z@:LR=LAST SOURCE ROW USED)zJ:M1$=ALL ONE-BYTE OP CODES)T:M2$=ALL TWO OR THREE-BYTE OP CODES)^:M3$=ALL THREE OR FOUR-BYTE OP CODES)h:ML$=CURRENT PARTIAL OP CODE STRING*r:MM$=FIRST BYTE OF MACHINE LANGUAGE*B|:MN=NUMERIC VALUE OF MNEMONIC*l:MS$=SECOND BYTE OF MACHINE LANGUAGE*:NA=O IF NO BINARY, 1 IF BINARY ON SCREEN*:NV=NUMERIC VALUE OF OPERAND*:OB$=ALL ONE-BYTE MNEMONICS+:OO$=OBJECT OUTPUT FILE NAME+:PN=PASS NUMBER, 0 OR 1+A:PS$=ALL PSEUDO OPS, MNEMONICS+^:RW=SCREEN ROW, 0 TO 22+w:S(26)=SYMBOL TABLE+:SA=STARTING ADDRESS FOR ASSEMBLED PROGRAM+:SB=FIRST BINARY DATA LOCATION+:SC=SAVE CHARACTER POSITION,:SG=SIGN OF RELATIVE DISPLACEMENT,4:SI$=SOURCE INPUT FILE NAME,V:SO$=SOURCE OUTPUT FILE NAME,h:SR=SAVE ROW,}&:ST$=FCC STRING,0:SY=CURRENT SYMBOL, WORKING,::T1$=ALL TWO OR THREE-BYTE MNEMONICS, PART ONE-D:T2$=ALL TWO OR THREE-BYTE MNEMONICS, PART TWO-1N:TH$=ALL THREE OR FOUR BYTE MNEMONICS-OX:Y=GENERAL WORKING INDEX-ob:Z$=GENERAL WORKING STRING-l:ZA$=TEMPORARY FOR SINGLE CHARACTER-v:ZC=CHAR POSITION, WORKING-:ZE=ERROR CODE-:ZS$=WORKING STRING FOR INDEXING CHARACTERS.!:ZT$=OP CODE FOR INDEXING TYPE.d:************************************************************.: PRELIMINARY - 1.:************************************************************. 2000,&H7EFF.ƞ/Ї "COCO INTERACTIN / PRESS ENTER TO ABORT":(29,23),"Column number:":J}2:(30,22),"CLEAR MUSIC MEMORY":(20,23),"SHIFT-CLEAR TO PROCEED / ENTER TO ABORT":J~2:P5 (21,22),"LOAD" :(21,22),"SAVE"K(26,22),"A PROGRAM / PRESS ENTER TO ABORT":(30,23),"FILENAME: ":K02:(27,23),"Start:":(42,23),"End:":KgTX 61535:HT14:VT18:(H,8)(V,159),1,:T:K43350:(0,175)(640,192),2,:K(X14,8)(X18,159),1,:K41598,3:1:0,0:LP2,.::LO$"":101:T0 :ER$::59078,51:4:65434,56:1:(3,19),(2394)L130:2:(16,22),"YOU HAVE ENCOUNTERED A":(39,22),ER$:(42,22),"ERROR IN LINE NUMBER":(62,22),:(19,23),"PRESS BAR TO RETRY / ENTER TO BREAK PROGRAM":59078,141LP$:P$""135M P$(32)130:110:10 :P$(13)132 :135M}0:(3,19),(D):59078,51:0:80:D(P$):D:20,0:"DIRECTORY OF DRIVE";D;"/";(D);"FREE GRANULES":H0:V3MI311:D,17,I,A1$,A2$:J18:J5 K(J1)32:K(J5)32MJ5A1$A2$MA3$(A1$,K1,8)"/"(A1$,K9,3)N'((A3$,1))255144:((A3$,1))0143NMH,V:A3$;:HH17:H68H0:VV1NVJ,INx30,21:"== PRESS ANY KEY =="N""4:65434,56:1:(3,19),(2394):59078,141:10:145OE130:2:(6,22),"Fundamental....: First Harmonic: Second Harmonic:":(6,23),"Third Harmonic: Fourth Harmonic:"OH23:V22:89:Z0:LC(0)LO:LO$"":H47:89:LC(1)LO:LO$"":H71:89:LC(2)LO:LO$"":H23:V23:89:LC(3)LO:LO$"":H47:89:LC(4)LOPULO$"":LC0:T04:LCLCLC(T)::LC100 101:130:(17,23),"SUM OF PERCENTAGES MUST BE 100 / PRESS ANY KEY" :130:150Pr""130:146:149QF(21,23),"CALCULATING NEW WAVEFORM - PLEASE WAIT"::I04:LC(I)LC(I)100::I0255:AR23.14159I256:SCLC(0)(AR)LC(1)(2AR)LC(2)(3AR)LC(3)(4AR)LC(4)(5AR):SC32(31SC.5):A1I,SCQi152::130:101:110:10QZZ1:(Z25)Z25::R NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,/0,ID,TM,OS,LS,ST,CN,FD,AO,DN,IO,FM,NO,IE,DS,UF,NE,BR,DF,OB,WP,FN,FS,AE,FO,SE,VF,ER,DS,HR,HPRX D,E,F,11,12,14,15,16,18,19,1B,1C,1D,1F,20,22,23,26,27,29,2A,2B,2D,2E,30R 31,32,34,35,37,38,38,39,3B,3B,3C,3C,3E,3E,3E,3F,3F,3F,3F,3F,3F,3F,3E,3ER 3E,3C,3C,3B,3B,39,38,37,37,35,34,32,31,30,2E,2E,2D,2B,2A,29,27,26,24,23SB 22,20,1F,1F,1D,1C,1B,1B,19,19,18,18,16,16,15,15,15,15,15,15,15,15,15,15S 15,15,15,16,16,16,18,18,18,19,19,1A,1A,1B,1B,1B,1C,1C,1E,1F,1F,20,20,22S 22,22,22,22,23,23,23,23,23,23,23,22,22,22,22,20,20,20,1F,1F,1D,1D,1C,1CT+ 1B,19,19,18,16,15,15,14,12,12,11,F,E,E,D,B,B,A,8,8,7,7,6,6,4,4,3,3,3,1Ty 1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,3,3,3,3,3,4,4,4,4,4,6,6,6,6,6,6,6,6,7T 7,7,7,7,7,7,6,6,6,6,6,6,6,6,6,4,4,4,4,4,4,4,4,4,4,3,3,3,4,4,4,4,4,4,6,6U 6,7,7,7,8,A,A,B,D,0,0,1,37,1,4A,1,5E,1,72,1,88,1,A0,1,B9,1,D3,1,EE,2,0CUc 2,2B,2,4C,2,6F,2,94,2,BB,2,E4,3,10,3,3F,3,71,3,A5,3,DC,4,17,4,56,4,98,4U DD,5,28,5,76,5,C9,6,21,6,7F,6,E2,7,4A,7,B9,8,2F,8,AC,9,30,9,BB,A,50,AU ED,B,93,C,43,C,FE,D,C4,E,95,F,73,10,5F,11,58,12,60,13,77,14,A0,15,DA,17VK 26,18,87,19,FC,1B,88,1D,2B,1E,E7,20,BE,22,B0,24,C0,26,EF,29,40,2B,B4,2EV 4D,31,0E,16,0,88,86,4C,1F,8B,86,3F,B7,FF,23,1A,50,30,8D,FE,6A,9F,C3,9FV C6,9F,C9,9F,CC,30,8D,0,80,9F,C0,39,9E,C0,A6,80,97,C2,39,31,8D,FF,50,A6W3 80,EE,A6,DF,CF,A6,80,EE,A6,DF,D1,A6,80,EE,A6,DF,D3,A6,80,EE,A6,DF,D5,9FW C0,39,10,8E,0,BE,A6,9F,4C,C3,AB,9F,4C,C6,A9,9F,4C,C9,A9,9F,4C,CC,B7,FFW 20,DC,C4,D3,CF,DD,C4,DC,C7,D3,D1,DD,C7,DC,CA,D3,D3,DD,CA,DC,CD,D3,D5,DDX CD,31,A2,26,6,A,C2,27,C,20,C7,A6,80,20,0,20,0,20,0,20,C1,39,17,FF,75,8DXh 91,81,0,26,4,4F,1F,8B,39,8D,8E,8D,AB,20,F0,8E,4F,22,4F,A7,80,8C,7F,F1X 26,F9,39,BD,B3,ED,1F,02,A6,A2,A7,25,10,BC,4C,A8,26,F6,CE,00,00,86,80X A7,A0,EF,A1,EF,A4,39,BD,B3,ED,1F,02,A6,25,A7,A0,10,BC,4C,BD,26,F6,390,20,0,20,C1,39,17,FF,75,8DXh 91,81,0,26,4,4F,1F,8B,39,8D,8E,8D,AB,20,F0,8E,4F,22,4F,A7,80,8C,7F,F1X 26,F9,39,BD,B3,ED,1F,02,A6,A2,A7,25,10,BC,4C,A8,26,F6,CE,00,00,86,80X A7,A0,EF,A1,EF,A4,39,BD,B3,ED,1F,02,A6,25,A7,A0,10,BC,4C,BD,26,F6,39BN$((NO),((NO))1):N$(3(N$),"0")N$:Y(1,NO$,N$):Y0 NONO2:NS1:66:Y(((Y1)4)8)4:Y0 RR1:Y(R)Y8C2:QQ1 69:Y32Y56 (Y8)Y8 GY4:GY8DG0 IG 568:(X6,I)(X18,I),:I:QQ1:G09sEY152Y156 (X2,148)3 (X6,148)(X18,148), :Y160 (X6,156)(X18,156),:(X2,148)3 (X6,148)(X18,148),9FQQ0:GQ0:3:Y(R)Y(R1)20 A3 Y(R1)Y(R) 41:N$(3) :41:N$(A)9GNS141:S$:NS0: HS:R0:NL0 W4 "BM"(X)",104"R$(A):)IXX35:W0:T:YY1:XX1::CJ130:124:H44:V23:K89:LO0LO2498LO(LN$)101:3:(H,V),LO$:LO$"":75:LX55:129:SM(LO5)A55:EMSM80:64:X55:MEM:MSM:M130:LO$"":110:118:10;N130:121:128:H34:V23;O89:ZTLO:ZT0 ZT1;APOL$LO$:LO$"":H47:89:SELO;QZTSE SE24983:101:(34,V),OL$:(47,V),LO$:LO$"":OL$"":79:53:SE(SE5)A5:TP(SE):SE,0:C(0):SE,TP;R130:OL$"":LO$"":110:10;S130:121#ZLO$""P$(8)P$"":89 :P$(8)3:(H,V),LO$:2:LO$(LO$,(LO$)1):(H,V),LO$:89>J[P$(13)LO$""130:110:10>\P$(13)LO(LO$)::(P6P13)(LO$)389:(LO$)489>]LO$LO$P$:2:(H,V),LO$:89>^P$:P$""94:?8_P$(8)LO$""P$"":94 :P$(8)3:(H,V),LO$:LO$(LO$,(LO$)1):(H,V),LO$:2:(H,V),LO$:94?b`P$(13)LO$""130:3:110:10?aP$(13) :(LO$)894?bLO$LO$P$:2:(H,V),LO$:94?cX55:X1475:129:SMSM65:SMA5 SMA5:X1((MA5)5):X1(X135)55@dEMSM80:X55:64:XX1:118:RB0:10@/eU120::U:@f(19971)55 101:10 :130::PO19967:Z0:2:(30,22),"CONVERT MUSIC FILE":(18,23),"PRESS ENTER TO PROCEED / SPACEBAR TO ABORT":101AcgP$:P$" "130:110:10 :P$(13)T1297:152:A$::T1132:POPO1:152:P$:PO,("&H"P$)::130:110:101:TE(T92):48 :P$""103AhY32 Y40 Y48 Y56 Y152 Y160 2 :Bi(X2,Y4)3 (X7,Y4)(X4,Y4),:(X15,Y4)(X18,Y4),:XL0: :(X7,Y4)(X18,Y4),:XL0:BjN$(1)"BU2BLR12EU2HL12GD2FBFBD":N$(2)N$(1)"BUBR13U21BD22BL13":N$(3)N$(2)"BUBH2R14UL14UR14BD5BL12":N$(4)N$(3)"BR13BU22R4DBD21BL17":N$(5)N$(4)"BR13BU18R4DBD17BL17":N$(6)N$(5)"BR13BU14R4DBD13BL17":N$(7)N$(6)"BR13BU10R4DBD9BL17"CkTC$"HL3GR5DL5FR3EU32E3R4F3D3G6L9G8D5F5R16E4U4H4L10G3D3RBD5BL4H5BRU4E7BR9BU2E5U3H2BD18RF3D4G3":BC$"E18BR4R2EUHL2GR4DL4BDBL3U6BR3FR2EUHL2GR4DL4BL3H4BDF3D6G4BU14BRL13G6DFR2EUHFL4DR4BU2BL2E4":D$"BRBU3R9BU2L9":F$"BL11BUU8BD3R5DG4LBDBR11"DlS$"BL11BUU6BR4D6BU2BR2L8BU2R8BD5BR5":R$(1)"BU2L3UR3U3R11D3R3DL14":R$(2)R$(1)"BL3D16":R$(3)R$(2)"BU17R14UL11UR11":R$(4)R$(3)"BL14BD2D17R5":R$(5)R$(4)"BU4L5":R$(6)R$(5)"BU4R5":R$(7)R$(6)"BU4L5":CN$"0001":LN$CN$EZmNO$"112,108,106,102,098,096,092,088,084,082,078,074,072,068,064,060,058,054,050,048,044,040,036,034,030,026,024,020,016,012,010,006,002":Fn2:(0,22),"OAD OVE EMPO NSERT

LAY MENUS WAVEFORM":(0,23),"AVE UMP LEAR ELETE OPY CNVRT <@> CRS.PLAY":PQ1:Fo2:(0,22)," NOTE -> RAISE LENGTH INSTAL NOTE FLAT DWN. ARROW":(0,23)," REST <- LOWER LENGTH CLEAR NOTE SHARP CLEAR F+S":PQ0:G p130:PQ1111:10 :110:10G!q(H,V)(640,V),:G[rLC((X55)35)1:SMM(LC5)5:EMSM80:X650:GrsPE(M):PE0117GtMM25:152:115GuTM M255:MM5:(M)0 117 :LMM:MA5:118:101:Gv3:M20258 M20258 :MLM LMMHpw(189,159)(233,167),2,:(325,159)(369,167),2,:(23,20),M:(40,20),LM:(469,159)(504,167),2,:(605,159)(640,167),2,I%xCN$(((MA5)5)1):CN$(CN$,(CN$)1):CN$(4(CN$),"0")CN$:1:(59,20),CN$:LN$(((LMA5)5)1):LN$(LN$,(LN$)1):LN$(4(LN$),"0")LN$:3:(76,20),LN$:IXy2:P8(16,22),"PLAY":P10(16,22),"COPY"Iz(21,22),"BLOCK OF MUSIC / PRESS ENTER ONLY TO ABORT":I{2:(17,23),"Start:":(32,23),"End:":(45,23),"Destination:":J4|2:(16,22),"JUMP TO SPECIFIC COLUM2&:MUSIC3+ ** WRITTEN BY GEORGE QUELHORST ** COPYRIGHT (C) APRIL 1991 ** BY FALSOFT, INC. ** RAINBOW MAGAZINE':1380,&H4C8B::59078,141:0,56:1,32:2,63:3,8:1,1367:2,2719:65497,.:41598,255:132:Q2:80:1:65434,56:0,0:&HF80F,0:&HF84F,0:&HF89C,0:140,175'133:TT17113:A119712:A220099:A320100:A420257:A520258:A619671:A719682:A820173:A920128:0A3:1A6:219627:319596:(20100)22(20101)0(20102)136(20103)134 5(x26,12:"POKING ML PROGRAM INTO MEMORY":T141:A$:T:DA1 A4:T$:D,("&H"T$)::DA6 A7:P$:D,("&H"P$)(:T1959619622:P$:T,("&H"P$):T:T1962719642:P$:T,("&H"P$):T:C1(0))D(2394):1:33,12:"DRAWING SCREEN":59065,57:4:59065,32:0:1:(12,0),"MUSIC+ FOR THE COLOR COMPUTER III. BY: GEORGE QUELLHORST":43350:MA5:MEA5:LMA5:A3:P165496:P265497:106*BH0:V52:2:T15:VV8:113:T:V100:T15:VV8:113:T:(0,60)(0,140),:(640,60)(640,140),:3:"BM15,95"TC$:"BM7,138"BC$:3:(0,20),"Tempo:":(40,8)(72,159),1*(0,40)(640,56),2:(86,160)(86,169),:(239,160)(239,169),:(376,160)(376,169),:(510,160)(510,169),:(48,20),"Crsr Note:":1:(59,20),CN$:3:(65,20),"Last Note: 0001"+50:(12,20),"Cursor mem: 20258":(31,20),"High Mem:":(0,169)(640,169),:1:(0,19),P1$:X55:PX90:Y104:PY108:"BM55,104"D$:130:110:1:(0,19),"Drv.":(3,19),(D)+ 59108,230:4:65434,56:59108,231:(A5)0114:64:X55:Y104:115,% P$:P$"0"P$"1"P$"2"P$"3"137:11,K P(1,"gIPCLTSMDK@JW "(4),P$), P$""13: P 112,61,51,54,58,46,59,78,61,83,52,74,146,22,102, (343)247PXX:PYY:XX35:MEM:MM5:118:X20RB1 :19-ME20258RB1 101:MA5:X55:PY90:RB0:10:RB1 99-_(344)247(M)0 PXX:PYY:XX35:MEM:MM5:118:X650RA1:19-RA1 M32753 114:RA0:X55:129:SMSM65:EMSM80:X55:64:X195:118-(341)247104:PXX:PYY:YY4:Y28 Y32:PY36:19.)(342)247104:PXX:PYY:YY4:Y164Y160:PY156.W(X5,Y4)3 2:41:D$ :1:41:D$.(PX5,PY4)3 3:"BM"(PX)","(PY)D$ :0:"BM"(PX)","(PY)D$.10.P$.P$"R"Q1:131/Q1Y104:0:41:R$(7):3:41:R$(A)/-P$"N"0:"BM"(X)",104"R$(7):Q2/?P$(13)35/_(343)247AA1:A8A1/(344)247AA1:A0A7/Q2(X3,101)3 0:"BM"(X)",104"R$(7) :Q242:3:41:N$(A)/Q2(343)191 43:3:41:F$0Q2(344)191 43:3:41:S$07 Q2(342)247 430c!P$(12)Q2 42:43:TY:45:350l"220#W0:T321604:(X2,T4)3 WW1:N(W)T0$W5 0::42:43:TY:45:3510%T:TI(1282(A1).5):M,TI:S14:N(S)0PO(S)0:39 :P(S)N(S)48:PO(S)((NO$,P(S)41,3))1&(X5,N(S)3)3 PO(S)PO(S)2:(X6,N(S)5)3 PO(S)PO(S)2:TN(S):0:44:N$(A):44:F$:451'MS,PO(S):N(S)0:S:SMM:EMM:131:X1X:64:XX11(Q2::101)"BM"(X)","(Y):2*0:41:N$(7):2.+0:41:F$:41:S$:2J,"BM"(X)","(T):2~-2:(X8,T4)2 (X3,T4)(X15,T4),::2.:H7:V20:(54,159)(82,167),2,2/89:H6:TELO:TE0TE120TE(TTTE):TE18TE18:TE600TE6003G1T1(TE256):T2TE256T1:A8,T1:A81,T2:LO$"":(54,159)(82,167),2,:50:10323:T9256(A8)(A81):T9(TTT9):(6,20),T9:33A9,0:A91,128:C(0):1034ZT((MA5)5)1:53:C0(0):10435ZT1285(ZT1):ZU(ZT4096):ZVZT4096ZU:ZW(ZV256):ZLZV256ZW:ZU16ZUZW:A9,ZU:A91,ZL:4I6101:130:1254`7P$:P$""55:48P$(13)130:110:1049P$"\"X55:129:C1(0):0:X55:Y104:MA5:LMA5:DEA5:130:110:118:10:555:(A5)0 101:10 :130:126:H40:V32:94:P1,.:MLO$:LO$"":&HFF40,0:P2,.:130:110:(54,159)(82,167),2,:50:114:X55:64:MA5:115:X55:Y104:105;(A5)0101:10:130:126:H40:V32:LO$"":9463D1((LM4)256):D2(LM4)(D1256):&H4CBD,D1:&H4CBE,D2:C2(M):XX1:EMEM4:64:XX1:Y104:MK:LMLM5:118:107v?1:LMLM5:LM3275310: D1(M256):D2M(D1256):&H4CA8,D1:&H4CA9,D2:C3(LM):64:XX1:Y104:MK:118:107@3:Y1Y:NS0:W0:TSM EM 5:NL(T):NL0 :NL1 NL2:T,27AA(8((NL)(2))):S14:NO(TS):NO0WW1:728????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO RETURN TO FIRST PAGE OF MENU",] " PRESS ^ (UP ARROW) FOR

";,uXX$: XX$""430,XX$(94) ::,…XX$" "240,̀I11 NP:XX$B$(I)500,֋I:430,XX$430,ꁥ240-Q$A$(I):(Q$,1)"*"540-G:@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM."-:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."--Q(Q$):QQ6:SL$(Q$,Q)-& SL$,R- "APRIL". " (15) MUSIC3+". " (21) EASYGO"., " (31) MUSICTST".@ " (32) EZASM".V " (50) TIC-TAC".l " (53) FREEDOM". " (58) LIFESKL7". " (60) MUSCGRID".І "END"--Q(Q$):QQ6:SL$(Q$,Q)-& SL$,R- "APRIL". " (15) MUSIC3+𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%'()*+,./014 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASMUSIC3+ BASEASYGO BAS&IMUSICTSTBASEZASM BASTIC-TAC BAS-FREEDOM BAS2LIFESKL7BAS3"MUSCGRIDBAS߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?>F&:EASY COME EASY GO&5:WRITTEN BY JAMES BUSH&T:COPYRIGHT (C) APRIL 1991&k:BY FALSOFT, INC.&:RAINBOW MAGAZINE' :" easy come / easy go":::"A GAME OF WINNING AND LOSING. (WHAT ELSE DO YOU DO IN GAMES?)":::"HIGH SPEED POKE (Y/N)?"'G$'1G$"Y" 65495,0: 35'MG$"N" 65494,0:35'W 15'#@480,"DO YOU WANT INSTRUCTIONS (Y/N)?";'(G$'-G$"Y" 1180'2G$"N" 60'7 40'<:2000:M20:JJ100(AN$(15),T$(2),L$(28),F$(8),A$(15),B$(15),A(15),D(53),E(8),H$(8)("F150(<KI115:A(I)0:I:S0(GP 785(pU@480,"PRESS TO START GAME";(zZG$(_G$(13) 105(d 90(i935(n200)Ts"BM24,136;XL$(27);":"BM27,136;XL$(3);":"BM34,136;XL$(28);":"BM42,136;XL$(8);":"BM49,136;XL$(1);":"BM56,136;XL$(14);":"BM63,136;XL$(7);":"BM70,136;XL$(5);")x"BM84,136;XL$(3);":"BM91,136;XL$(1);":"BM98,136;XL$(18);":"BM105,136;XL$(4);"*>}"BM24,148;XL$(27);":"BM27,148;XL$(16);":"BM34,148;XL$(28);":"BM42,148;XL$(12);":"BM49,148;XL$(1);":"BM56,148;XL$(3);":"BM63,148;XL$(5);"*"BM77,148;XL$(2);":"BM84,148;XL$(5);":"BM93,148;XL$(20);"+'"BM27,188;XL$(5);":"BM34,188;XL$(1);":"BM41,188;XL$(19);":"BM49,188;XL$(25);":"BM63,188;XL$(3);":"BM70,188;XL$(15);":"BM77,188;XL$(13);":"BM84,188;XL$(5);"+"BM98,188;XL$(5);":"BM105,188;XL$(1);":"BM112,188;XL$(19);":"BM120,188;XL$(25);":"BM134,188;XL$(7);":"BM141,188;XL$(15);"+305,nN$(0)"BUU4ER2FD4GL2H":N$(1)"U4E2F2D2L3R3D2":N$(2)"BU5ER2FDGL2GD2R4":N$(3)"BR3L2HBU4ER2FDGLRFDG":N$(4)"BR3U6G3DR4":N$(5)"BR3L2HBU5R4L4D2R3FD2G":N$(6)"BR3L2HU4ER2FBD2BL3R2FDG"-;N$(7)"BU6R4DG3D2":N$(8)"BR3L2HUEHUER2FDGL2R2FDG":N$(9)"BUFR2EU2L3HUER2FD4":N$(10)"R2LU5LRUBR5R2FD4GL2HU4E":N$(11)"UDR3U6L2R4":N$(12)"BR1HU4ER2FD4GLBUF2":N$(13)"U6BR4G3F3":N$(14)"R2LU6DLRBRBD5"-N$(15)"U2E1U2E1F1D2F1D2L4R5E5R1F2L1H1D1G1D1G1L8D3F1D2F1R2E1U2E1U3"-T$(1)"R20F2D30R1U30D30G2E2L1G2L20D1R20U1L20H2U30E2"./T$(2)"R20F2D30R1U30D30G2E2L1G2L20D1R20U1L21H2U30E2D34R2U34R2D34R2U34R2D34R2U34R2D34R2U34R2D34R2U34R2D34E2U30"/L$(1)"U4E2F2D2L3R3D2":L$(2)"U6R3F1D1G1L3R3F1D1G1L3":L$(3)"R3E1G1L3U6R3F1":L$(4)"R2E2G2L2U6R2F2D2":L$(5)"R4L4U3R3L3U3R4":L$(6)"U3R3L3U3R4":L$(7)"R3E1U1L1R1D1G1L3U6R3F1":L$(8)"U6D3R4U3D6":L$(9)"R4L2U6R2L4":L$(10)"U1D1R3U6R2L5"/L$(11)"U6D3E3G3F3":L$(12)"R4L4U6":L$(13)"U6F2E2D6":L$(14)"U6D1F4D1U6":L$(15)"U6R4D6L4":L$(16)"U6R3F1D1G1L3":L$(17)"R2E1H1F2H1U4H1L2G1D4F1":L$(18)"U6R3F1D1G1L3F3":L$(19)"R3E1U1H1L2H1U1E1R2"0L$(20)"U6R2L4":L$(21)"U6D6R4U6":L$(22)"H2U4D4F2E2U4":L$(23)"U6D6E2F2U6":L$(24)"U1E2F2D1U1H4U1D1F2E2U1":L$(25)"U3E2U1D1G2H2U1":L$(26)"R4L4U1E4U1L4":L$(27)"H3E3":L$(28)"E3H3"1UAA$"T4O3L8DP32DP32DL4.GL4.BL8DP32DP32DL4.GL2.BP32":AB$"L4GP32L8GF#P32F#P32EP32EL2.DP32":AC$"L8DP32DP32DL4.F#L4AP32L8DP32DP32DL4.F#L2.AP32":AD$"O4L4DL8EP32DP32CP32O3BAL2G"1[Ð1s4,1:0,1:(1):1,11ͅ A(13)0 "BM4,0;XT$(2);" : "BM2,0;XT$(1);":"BM7,20;XA$(13);"2 ҅ A(11)0 "BM126,0;XT$(2);" : "BM125,0;XT$(1);":"BM130,20;XA$(11);"2Wׅ A(12)0 "BM162,0;XT$(2);" : "BM160,0;XT$(1);":"BM165,20;XA$(12);"2܅ A(14)0 "BM4,44;XT$(2);" : "BM2,44;XT$(1);":"BM7,64;XA$(14);"2 A(7)0 "BM90,44;XT$(2);" : "BM90,44;XT$(1);":"BM95,64;XA$(7);"3: A(8)0 "BM126,44;XT$(2);" : "BM125,44;XT$(1);":"BM130,64;XA$(8);"3 A(9)0 "BM162,44;XT$(2);" : "BM160,44;XT$(1);":"BM165,64;XA$(9);"3 A(10)0 "BM196,44;XT$(2);" : "BM195,44;XT$(1);":"BM200,64;XA$(10);"4# A(15)0 "BM4,88;XT$(2);" : "BM2,88;XT$(1);":"BM7,108;XA$(15);"4o A(1)0 "BM55,88;XT$(2);" : "BM55,88;XT$(1);":"BM60,108;XA$(1);"4 A(2)0 "BM90,88;XT$(2);" : "BM90,88;XT$(1);":"BM95,108;XA$(2);"5  A(3)0 "BM126,88;XT$(2);" : "BM125,88;XT$(1);":"BM130,108;XA$(3);"5Y A(4)0 "BM162,88;XT$(2);" : "BM160,88;XT$(1);":"BM165,108;XA$(4);"5 A(5)0 "BM196,88;XT$(2);" : "BM195,88;XT$(1);":"BM200,108;XA$(5);"5 A(6)0 "BM230,88;XT$(2);" : "BM230,88;XT$(1);":"BM235,108;XA$(6);"6&A$(N1)N$(15) X11000:X:JJ0:10656JA(12)0 X11000:X:11456i"M1 X11000:X:10656'M50000000 X11000:X:9956,11561 CHECK ACCOUNT76"BM27,160;XL$(1);":"BM34,160;XL$(3);":"BM41,160;XL$(3);":"BM48,160;XL$(15);":"BM55,160;XL$(21);":"BM62,160;XL$(14);":"BM71,160;XL$(20);":"BM78,156;R4;":"BM78,158;R4;":"BM87,160;XL$(19);":"BM89,161;U8;"7;"BM87,160;"7@U(M)7EV187JUU.17O U 1 3457TV7YW1(8V):F$(W)N$(0):W8o^V3 VV6 : V4 VV5 : V5 VV4 : V6 VV3 : V7 VV2 : V8 VV1 : V2 VV7 : V1 VV88c W VV 8 1:UU108hZ(U)8mZ0 F$(W)N$(0)8rZ1 F$(W)N$(14)8wZ2 F$(W)N$(2)8|Z3 F$(W)N$(3)9 Z4 F$(W)N$(4)9!Z5 F$(W)N$(5)98Z6 F$(W)N$(6)9OZ7 F$(W)N$(7)9fZ8 F$(W)N$(8)9}Z9 F$(W)N$(9)9UUZ9W:9"BM95,160;XF$(1);":"BM103,160;XF$(2);":"BM111,160;XF$(3);":"BM119,160;XF$(4);":"BM127,160;XF$(5);":"BM135,160;XF$(6);":"BM143,160;XF$(7);":"BM151,160;XF$(8);":R:REM WAIT FOR INPUT:\H$:H$"C" H$"c" 200,1:1035:H$"P" H$"p" 200,1:455:435;h"BM27,172;XL$(8);":"BM34,172;XL$(15);":"BM41,172;XL$(23);":"BM55,172;XL$(13);":"BM62,172;XL$(21);":"BM69,172;XL$(3);":"BM76,172;XL$(8);":"BM87,172;XL$(19);":"BM89,173;U8;";̀X1 8:H$(X)N$(0):E(X)0:X;P0;րJ18;G$;G$"0" E(J)0:H$(J)N$(0):150,1:740<G$"1" E(J)1:H$(J)N$(14):150,1:740<3G$"2" E(J)2:H$(J)N$(2):150,1:740a+50,1:P(E(1)(107))(E(2)(106))(E(3)(105))(E(4)(104))(E(5)(103))(E(6)(102))(E(7)(101))(E(8)(100))>r0J10 470?#5J11 PP.0000001 : J12 PP.000001 : J13 PP.00001 : J14 PP.0001 : J15 PP.001 : J16 PP.01 : J17 PP.1 : J18 PP?6:PP.1:P(P)?F? PM 105?tDB$(11)T$(2) A(11)0 P(M2) 105?I:REM GUESS HIGH OR LOW?N"BM170,160;U7G3E3F3;":"BM170,165;D7H3F3E3;":"BM171,161;U7G3E3F3;":"BM171,166;D7H3F3E3;"?SG$@XG$(94) L1:175,1:"BM179,160;XL$(8);":"BM186,160;XL$(9);":"BM193,160;XL$(7);":"BM200,160;XL$(8);":"BM207,160;XL$(5);":"BM214,160;XL$(18);":615A*]G$(10) L0:175,1:"BM179,172;XL$(12);":"BM186,172;XL$(15);":"BM193,172;XL$(23);":"BM200,172;XL$(5);":"BM207,172;XL$(18);":615A5b 595ASg:REM FIND VALUE OF CARDSAclX1500:XB,qA$(N)N$(1) JJ14 : A$(N)N$(13) JJ13 : A$(N)N$(12) JJ12 : A$(N)N$(11) JJ11 : A$(N)N$(10) JJ10 : A$(N)N$(9) JJ9 : A$(N)N$(8) JJ8 : A$(N)N$(7) JJ7BvA$(N)N$(6) JJ6 : A$(N)N$(5) JJ5 : A$(N)N$(4) JJ4 : A$(N)N$(3) JJ3 : A$(N)N$(2) JJ2B{A$(N)N$(15) JJ0CwA$(N1)N$(1) KK14 : A$(N1)N$(13) KK13 : A$(N1)N$(12) KK12 : A$(N1)N$(11) KK11 : A$(N1)N$(10) KK10 : A$(N1)N$(9) KK9 : A$(N1)N$(8) KK8DA$(N1)N$(7) KK7 : A$(N1)N$(6) KK6 : A$(N1)N$(5) KK5 : A$(N1)N$(4) KK4 : A$(N1)N$(3) KK3 : A$(N1)N$(2) KK2D6:REM DETERMINE HIGHER OR LOWERDML1 JJKK 685DdL0 JJKK 685D{L1 JJKK 700DL0 JJKK 700D JJ0 700DJJKK 720E:"BM179,188;XL$(23);":"BM186,188;XL$(9);":"BM193,188;XL$(14);":"BM200,188;XL$(14);":"BM207,188;XL$(5);":"BM214,188;XL$(18);"E^225,2:MMP:A(N)1:X1750:XEh105E"BM179,188;XL$(12);":"BM186,188;XL$(15);":"BM193,188;XL$(19);":"BM200,188;XL$(5);":"BM207,188;XL$(18);"E225,2:MMP:A(N)1:X1750:XF ƅJJ0 M0Fˁ105F"BM179,188;XL$(5);":"BM186,188;XL$(17);":"BM193,188;XL$(21);":"BM200,188;XL$(1);":"BM207,188;XL$(12);"Fՠ225,1:X175:X:225,1:A(N)1FڀX1750:XF߁105FJ1 "BM95,172;XH$(1);"GJ2 "BM103,172;XH$(2);"G$J3 "BM111,172;XH$(3);"GDJ4 "BM119,172;XH$(4);"GdJ5 "BM127,172;XH$(5);"GJ6 "BM135,172;XH$(6);"GJ7 "BM143,172;XH$(7);"GJ8 "BM151,172;XH$(8);"G 550G:REM SELECT CARDSH:@0,"********SELECTING CARDS*********";H*X153:D(X)X:XH6 I115Hb%F(100):X1F:X:G():H(G100)Hn*X(H)H~/X53 805H4D(X)0 805H9X1 805H>X53 920HCX53 A$(I)N$(15)HHX2 X15 X28 X41 A$(I)N$(3)I MX3 X16 X29 X42 A$(I)N$(4)ILRX4 X17 X30 X43 A$(I)N$(5)IxWX5 X18 X31 X44 A$(I)N$(6)I\X6 X19 X32 X45 A$(I)N$(7)IaX7 X20 X33 X46 A$(I)N$(8)IfX8 X21 X34 X47 A$(I)N$(9)J)kX9 X22 X35 X48 A$(I)N$(10)JWpX10 X23 X36 X49 A$(I)N$(11)JuX11 X24 X37 X50 A$(I)N$(12)JzX12 X25 X38 X51 A$(I)N$(13)JX13 X26 X39 X52 A$(I)N$(1)K X14 X27 X40 X1 A$(I)N$(2)KD(X)0KIK$K8J(3):K(3)KGJK 835KR 810Ks:REM CHECK FOR CURRENT CARDKS0 A(1)1:S1KA(1)0 A(2)0 N2KA(2)0 A(3)0 N3KA(3)0 A(4)0 N4KA(4)0 A(5)0 N5LŅA(5)0 A(6)0 N6LDʅA(6)0 A(7)0 A$(7)A$(6):N8:A(7)1L`υA(8)0 A(9)0 N9L~ԅA(9)0 A(10)0 N10LمA(10)0 A(11)0 A$(11)A$(10):N12:A(11)1LސL:@0,"********CONGRATULATIONS!********";M^@64,"YOU HAVE BROKEN THE BANK WHICH IS CURRENTLY SET AT $50,000,000 DOLLARS. DON'T YOU WISH IT WAS REAL MONEY!"MtAA$AB$:AC$AD$M@256,"END OF GAME OPTIONS: <1> START NEW GAME <2> QUIT";MG$MG$"1" N9G$"2" :"THANKS FOR PLAYING 'EASY COME / EASY GO'!":65494,0:NE 1015N[ :REM CHANGE CARDNN6 A(15)0 A(15)1:A$(N1)A$(15):105NN7 N10 A(14)0 A(14)1:A$(N1)A$(14):105NN11 A(13)0 A(13)1:A$(N1)A$(13):105O*"BM10,184;XL$(14);":"BM17,184;XL$(15);"O4$435O):JJ0 "DUE TO CARELESS BETTING AND THE HOPES THAT THE CARDS WOULD PLAY IN YOUR FAVOR, YOU HAVE GONE";:M0P.JJ0 "DUE TO UNFORSEEN MYSTICISM IN THE CARDS YOU DREW, THE JOKER HIMSELF HAS FORCED YOU";:M0P43R96 416 32:GR2: G,1P`8@R,"***********bankrupt*************";P=X150:X:@R," ";PBRPGR416 96 32:GR2:@R," ";:X125:XQL@R,"***********bankrupt*************";Q!QG,1Q(VRQH[@448,"PRESS TO END OR"Qu`@480,"PRESS TO START NEW GAME";QeG$QjG$(13) 60QoG$"E" :"THANKS FOR PLAYING 'EASY COME / EASY GO'!":65494,0:Qt 1125Ry:@0,"***********GAME OVER************";:@128,"END OF GAME OPTIONS: <1> CONTINUE ON WITH NEXT GAME <2> START NEW GAME <3> QUIT";"R~@64,"YOU FINISHED WITH $"M;RG$RG$"1" 75RG$"2" 60S7G$"3" :"THANKS FOR PLAYING 'EASY COME / EASY GO'!":65494,0:SC 1155T):" instructions ********in the beginning********YOU START WITH A GAME BOARD OF 12 CARDS PLUS 3 'CHANGE CARDS'. THE 12 CARDS ARE ARRANGED WITH 6 CARDS ON THE BOTTOM ROW, 4 IN THE MIDDLE ROW, AND 2 ON THE"U"TOP ROW. THERE IS 1 CHANGE CARD SET OFF TO THE LEFT OF EACH ROW.WHEN THE GAME IS FIRST STARTED, THE FIRST CARD ON THE BOTTOM ROWIS TURNED FACE-UP SO AS TO SHOW THE VALUE OF IT. YOU START WITH $20 AND ARE TRYING TO BREAK THE BANK."U=@480,"PRESS TO CONTINUE";UGG$U^ G$(13) 1210Uj 1195VS:" instructions **********play options**********AFTER THE GAME IS STARTED YOU HAVE THESE OPTIONS: -CHANGE CARD THIS OPTION ALLOWS YOU TO USE THE 'CHANGE CARD' FOR YOUR ROW."WL"YOU MAY USE THIS OPTION ONLY ONETIME PER ROW, SO USE IT WISELY. YOU WOULD USE THIS OPTION IF THECURRENT CARD IS NOT A VERY SAFE BET. FOR EXAMPLE, IF YOUR CARD WAS A 7, ODDS ON THE NEXT CARD ARE 50% HIGHER AND 50% LOWER. CHANGE THAT CARD!"Wrć@480,"PRESS TOCONTINUE";W|G$W΅G$(13) 1240WӁ 1225X؞:" instructions **********play options**********

-PLACE BET WHEN YOU GET A FAIRLY SAFE CARD TO BET ON, USE THIS OPTION. IF YOU HAVE A BAD CARD AND HAVE ALREADY USED YOUR CHANGE OPTION"Yc݇"THEN YOU MUST MAKE A BET ANYWAY,BUT JUST MAKE A SMALL ONE TO BE SAFE. IF YOU GET A 2 THEN BET EVERYTHING YOU HAVE BECAUSE THE NEXT CARD CANNOT BE LOWER THAN 2. DITTO FOR THE ACE. NO CARD ISHIGHER THAN THE ACE."Y@480,"PRESS TO CONTINUE";YG$YG$(13) 1270Y 1255Z:" instructions **********play options**********IF YOU MAKE A MISTAKE IN PLACINGYOUR BET, HIT THE BACKSPACE KEY AND THE SCREEN WILL BE REDRAWN AND YOU CAN PLACE THE BET ALL OVER AGAIN. AS YOU TYPE IN YOUR"[c"BET, YOU WILL HEAR A BEEP TO LETYOU KNOW THE NUMBER HAS BEEN ACKNOWLEDGED. HIT AFTER YOU KEY IN THE LAST DIGIT OF THEBET. IF YOUR BET IS 8 DIGITS, YOU DON'T HAVE TO HIT ENTER."[@480,"PRESS TO CONTINUE";[G$[ G$(13) 1300[ 1285\:" instructions **********play options**********AFTER YOUR BET IS PLACED, YOU NEED TO TELL THE COMPUTER IF YOUTHINK THE NEXT CARD WILL BE HIGHER OR LOWER IN VALUE. THIS IS DONE USING THE UP AND DOWN"]"ARROW KEYS, RESPECTIVELY. IF YOUHIT THE UP ARROW KEY, THE WORD 'HIGHER' WILL BE DISPLAYED ON THE SCREEN. HIT THE DOWN ARROW KEY AND THE WORD 'LOWER' WILL BEDISPLAYED. A FEW SECONDS LATER 'WINNER' OR 'LOSER' WILL BE DIS-PLAYED."]@480,"PRESS TO CONTINUE";]#G$](G$(13) 1330]- 1315^2:" instructions **********play options**********IF YOU LOST THE BET. THE MONEY WILL BE DEDUCTED FROM YOUR ACCOUNT. LIKEWISE IF YOU WIN THEBET, THE MONEY WILL BE ADDED TO YOUR ACCOUNT. NOW FOR THE SCARY"_7"PART, ON THE TOP ROW THERE ARE ONLY TWO CARDS, MEANING ONLY ONEBET FOR THIS ROW. YOU MUST BET AT LEAST HALF OF YOUR ACCOUNT OR THE BET WON'T BE ACKNOWLEDGEDAT ALL. THIS MAKES FOR A QUICK WAY TO WIN ALOT OR LOSE ALOT,"_<@480,"PRESS TO CONTINUE";_AG$_FG$(13) 1360`K 1345`P:" instructions **********play options**********THUS THE NAME 'EASY COME / EASY GO'! OF COURSE IN STRIVING TO BREAK THE BANK YOU WILL HIT MANYDOWNFALLS AND MAYBE EVEN HIT THEJOKER WHICH MAKES YOU BANKRUPT"aU"AUTOMATICALLY. IT WILL TAKE MANYCONSECUTIVE GAMES TO BREAK THE BANK BUT IT REALLY CAN BE DONE! ONCE THE BANK HAS BEEN BROKEN YOU WILL BE REWARDED WITH A SONGAND A SARCASTIC REMARK ABOUT THEMONEY YOU WON (WISHING IT WAS REAL)."aZ@480,"PRESS TOCONTINUE";b_G$bdG$(13) 1390b(i 1375cn:" instructions ******end of game options*******AT THE END OF EVERY GAME YOU AREGIVEN THE OPTION TO CONTINUE WITH YOUR PRESENT ACCOUNT, STARTA NEW GAME, OR QUIT. IF YOU GO BANKRUPT OR HIT THE JOKER, YOUR"cs"OPTIONS ARE TO START A NEW GAME OR TO QUIT. IF YOU BREAK THE BANK, YOU WILL GET YOUR VICTORY SONG AND THE OPTIONS TO START A NEW GAME OR QUIT. GOOD LUCK AND HAVE FUN WITH 'EASY COME / EASY GO'. BREAK THAT BANK!"dx@480,"HIT TO GET THINGS GOIN'";d%}G$d9G$(13) 60dE 1405OU BREAK THE BANK, YOU WILL GET YOUR VICTORY SONG AND THE OPTIONS TO START A NEW GAME OR QUIT. GOOD LUCK AND HAVE FUN WITH 'EASY COME / EASY GO'. BREAK THAT BANK!"dx@480,"HIT <%&:TIC-TAC&.:WRITTEN BY DAVID RIDINGS&M:COPYRIGHT (C) MARCH 1991&d:BY FALSOFT, INC.&{:RAINBOW MAGAZINE& 911& PC7:NC3:BC11:926&X$"BM=X;,=Y;"&1,99:2,999:3,999:4,2999&TT$"D110BR40U110D35R40L120BD40R120"'`TA$"C12R89D4L89U4C8":TB$"C12R4D84L4U84C8":TC$"C12BL2BD2E69F3G69H3C8":TD$"C12BR1F69G3H69E3C8"'(3,44)(316,48),,B:(4,46),BC,8'!(100,3)(104,44),,B:(101,5),BC,8:(206,3)(210,44),,B:(207,5),BC,8("A55:B22:D13:AA104:(A,B)(A9,B4),,B:(A1,B1),BC,8:D(,#X28:Y18:830(A$X235:Y19:812(V%X129:Y18:831(&(5,5),10,8:(109,5),10,8:(214,5),10,8((X79:Y18:829:X183:Y18:829:X287:Y18:829(+(11,37),4:(112,37),4(-(176,55)(310,180),,B:(7,52),14,8) /A135:B44)%0D18:BB16:95:D)@1B44:AA16: A18 61)I248)i=14:(5,51)(31,75),,BF:8)>"BM22,65D7F2R2E2U12H2L2G2D5U3L12G2D4F2R12L5BU8U13L1D13")?(21,65),8,8:(23,65),3,8*/A12:(20,163)(115,179),,B:11:(21,164)(114,178),,B:12:(22,165)(113,177),,B:(55,170),10,12:8*IB(3,21),"TIC-TAC-TOE"*Y[922:101*t_(A,B),6:(A,B),11,8:*e(23,65),1,8*g1:(26,61)(169,58),:(169,58)(169,111),:(169,111)(26,70),:8*h(43,67),0,1:121:125+5y11:X223:Y61:X$TT$:X224:Y63:X$TT$:10:X225:Y62:X$TT$:8:+r}X242:Y112:829:X201:Y77:833:X284:Y157:833 +(188,62)(218,93),2:(228,102)(258,133),3,4:(188,62)(218,93),,BF:(228,102)(258,133),,BF:(268,142)(298,173),,BF:8:129:202,N(25,9),"1 2 3":(25,14),"4 5 6":(25,19),"7 8 9":,fX202:Y158:X$TC$,p134,(11,37),10,8:(112,37),10,8:R(2): R 211,261,(11,37),3,8:A$,ԅ A$(48) A$(58)221,Ձ851,(11,37),10,8-ׁ851-؁211-%݅ A$(49) 311-<ޅ A$(50) 321-S߅ A$(51) 331-j A$(52) 341- A$(53) 351- A$(54) 361- A$(55) 371- A$(56) 381- A$(57) 391-끦918:711: T9 731. (11,37),10,8.261.-F11:(112,37),3,8.AP13:851:P.T(112,37),10,8.h P13:851:P.z (112,37),3,8. F.R(9):861. R 411,421,431,441,451,461,471,481,491.918:711: T9 731.(112,37),10,8.*211/+299/7 L(1)1 211/68N(1)24:N(2)9:N(3)1:397/N9L(1)1:A(1)1:TT1/g:(188,62)(218,93),2/m;/A L(2)1 211/BN(1)29:N(2)9:N(3)2:397/CL(2)1:A(2)1:TT1/D(228,62)(258,93),2/E/K L(3)1 2110 LN(1)34:N(2)9:N(3)3:3970!ML(3)1:A(3)1:TT10:N(268,62)(298,93),20@O0RU L(4)1 2110sVN(1)24:N(2)14:N(3)4:3970WL(4)1:A(4)1:TT10X(188,102)(218,133),20Y0_ L(5)1 2110`N(1)29:N(2)14:N(3)5:3970aL(5)1:A(5)1:TT11b(228,102)(258,133),21c1*i L(6)1 2111KjN(1)34:N(2)14:N(3)6:3971ckL(6)1:A(6)1:TT11~l(268,102)(298,133),21m1s L(7)1 2111tN(1)24:N(2)19:N(3)7:3971uL(7)1:A(7)1:TT11v(188,142)(218,173),21w2} L(8)1 2112#~N(1)29:N(2)19:N(3)8:3972;L(8)1:A(8)1:TT12V(228,142)(258,173),22\2n L(9)1 2112N(1)34:N(2)19:N(3)9:3972L(9)1:A(9)1:TT12(268,142)(298,173),2224:(N(1),N(2)),N(3):D129: (0)1 8:3,B$: B$(32) 8:(N(1),N(2)),N(3):2113YD:8:(N(1),N(2)),N(3):F149:F:3973l L(1)1 2713L(1)1:A(1)2:TT13(188,62)(218,93),333 L(2)1 2713L(2)1:A(2)2:TT13(228,62)(258,93),333 L(3)1 2714L(3)1:A(3)2:TT140(268,62)(298,93),3464I L(4)1 2714aL(4)1:A(4)2:TT14|(188,102)(218,133),344Å L(5)1 2714L(5)1:A(5)2:TT14(228,102)(258,133),34ː4ͅ L(6)1 2714L(6)1:A(6)2:TT15(268,102)(298,133),35Ր5-ׅ L(7)1 2715EL(7)1:A(7)2:TT15`(188,142)(218,173),35fߐ5y L(8)1 2715L(8)1:A(8)2:TT15(228,142)(258,173),355 L(9)1 2715L(9)1:A(9)2:TT15(268,142)(298,173),356(3,3)(100,44),46.(193,75)(290,116),4685416P (104,3)(206,44),46j (193,75)(295,116),46t 5416(210,3)(316,44),46(193,75)(299,116),465416(25,16),"W I N N E R"69177F129:0,49:P149:P:0,62:P149:P,F7 Z14:(Z)0:Z71!SA0:SB0:SC0:17;'5517cSASA1:10:(64,8)(96,38),,BF:8:X79:Y18: SA10811:6517d SA9828:6517e SA1 816:6517f SA2818:6517g SA3820:6517h SA4822:6518 i SA5824:6518#j SA6825:6518:k SA7826:6518Ql SA8827:6518mSBSB1:10:(168,8)(200,38),,BF:8:X183:Y18: SB10811:6618n SB9828:6618o SB1816:6618p SB2818:6618q SB3820:6619 r SB4822:6619$s SB5824:6619;t SB6825:6619Ru SB7826:6619iv SB8827:6619wSCSC1:10:(272,8)(304,38),,BF:89xX287:Y189y SC1816:6719z SC2818:6719{ SC3820:6719| SC4822:671:} SC5824:671:,~ SC6825:671:C SC7826:671:Z SC8827:671:q SC9828:671: SC10811:671::WIN-DAN:D13:917:D:681::WIN-COMP:917:D13:921:D:681::WIN-CAT;917:D19:918:D;681;JF119:0,49:P149:P:0,62:P149:P,F;m4:(178,57)(308,178),,BF:8;Q19:A(Q)0:L(Q)0:Q:T0; SA10511; SB10521; SC10531;121:129;202<Dž A(1)2 A(1)A(2) A(1)A(3) X198:Y75:TL$TA$:751х A(1)1 A(2)1 A(3)1 X198:Y75:TL$TA$:771>>҅ A(1)1 A(4)1 A(7)1 X201:Y75:TL$TB$:771>xӅ A(1)1 A(5)1 A(9)1 X209:Y81:TL$TD$:771>ԅ A(2)1 A(5)1 A(8)1 X241:Y75:TL$TB$:771>Յ A(3)1 A(6)1 A(9)1 X281:Y75:TL$TB$:771?'օ A(3)1 A(5)1 A(7)1 X209:Y149:TL$TC$:771?bׅ A(4)1 A(5)1 A(6)1 X198:Y115:TL$TA$:771?؅ A(7)1 A(8)1 A(9)1 X198:Y155:TL$TA$:771?ِ?ہ631?X$TL$:(X1,Y1),0,12:621?X$TL$:(X1,Y1),0,12:611@w+XX11:YY5:TN$"D20R5U20L5BR12G3D14F3R9E3U14H3L9BD4BR3G1D10F1R3E1U10H1L3":X$TN$:(X1,Y1),NC,8:(X12,Y1),NC,8:XA$" TEN":@,XX12:YY2:CT$"BL1E2U8G6H3L7G3H6D8F2D7F7R6E7U7": X$CT$@-(X16,Y),3,,.6:(X8,Y),3,,.6:(X12,Y4),3,,.8:(X12,Y9),5,,.4Ad.(X6,Y3)(X4,Y3),:(X6,Y6)(X1,Y10),:(X18,Y3)(X24,Y3),:(X18,Y6)(X24,Y10),A/(X1,Y1),15,8:XB$" CAT":A0XX3:YY2:OE$"D16L4D3R14U3L4U20L9D3R2"A1 X$OE$:(X2,Y),NC,8:XB$" ONE":B%2XX10:YY1:TW$"U3E3R13F3D8G3L11D4R9U2R5D6L19U9E3R10E1U4H1L7G1D2L5"BO3 X$TW$:(X1,Y2),NC,8:XB$" TWO":B4XX10:YY1:TH$"U3E3R13F3D6G2F2D6G3L13H3U4R5D2F1R6E1U3H1L6U4R6E1U3H1L6G1D2L5U2": X$TH$:(X2,Y),NC,8B5XB$"THREE":C 6XX5:YY7:FO$"D11R5D5L5D7L5U7L11U5E11R5L5BD8D4L5E5"C47 X$FO$:(X1,Y1),NC,8:XB$" FOUR":C8XX9:YY6:FI$"R17D5L12D3R9F3D7G3L14U5R11E1U1H1L11U12": X$FI$:(X2,Y2),NC,8:XB$" FIVE":D9XX9:YY1:SX$"U3H3L11G3D16F3R11E3U7H3L9U3E1R5F1D1R5BD6BL6L5G1D2F1R5E1U2H1": X$SX$:(X2,Y2),NC,8:XB$" SIX":D^:XX9:SV$"U6R20D5G9D8L6U9E9L9D2L5":X$SV$:(X2,Y2),NC,8:XB$"SEVEN":D;XX7:YY5:EI$"H2U6E3R14F3D6G2F2D6G3L14H3U6E2BR5BU3H1U2E1R6F1D2G1L6BD5G1D2F1R6E1U2H1L6":X$EI$:(X2,Y),NC,8:XB$"EIGHT":EW(X,Y5),12:(X,Y4),13,13,.3:(X,Y4),12,13:(X,Y4),13,8,.3:HA$"C8BL5BD2R2D2L2U2BR8R2D2L2U2BD4BL2L2D2R2U2BR4BD2D1G3L4H3U1BL8U5BR26D5":X$HA$:XC$"HAPPY":F?(X,Y5),13:(X5,Y4),6,,.5:(X5,Y4),6,,.5:(X,Y3),8,8:VI$"BD10BL1U2R2D2L2BD2L2G1E1R6F1L8BL5BU9U12D1H1F2BR16E2G1U1D12U12F1H2BL16G2":X$VI$F@G7ACX$"G9R6E5F5R6H9E9L6G5H5L6F9":X$CX$:(X1,Y),3,8:GSC(155):CC9:D(130):DD57:CC(15):(C4,D4)(C4,D4),1:(C,D),2,CC:(C4,D4)(C4,D4),1:G]G1:H2:J3:895G^G1:H4:J7:895G_G1:H5:J9:895G`G2:H3:J1:895HaG2:H5:J8:895H&bG3:H1:J2:895H<cG3:H5:J7:895HRdG3:H6:J9:895HheG4:H7:J1:895H~fG4:H5:J6:895HgG5:H6:J4:895HhG5:H9:J1:895HiG5:H8:J2:895HjG5:H7:J3:895HkG6:H9:J3:895IlG6:H4:J5:895ImG7:H8:J9:895I.nG7:H1:J7:895IDoG7:H3:J5:895IZpG8:H9:J7:895IpqG8:H2:J5:895IrG9:H1:J5:895IsG9:H7:J8:895ItG9:H3:J6:895IuG1:H7:J4:895IwI T8 A(R)0 272J  A(G)1 A(H)1 A(J)0 RJJ7 A(G)2 A(H)2 A(J)0 RJ:272J=JL 916J :2:4:8:65497,0:0,62:10,49:11,14:12,2:13,4:14,7:15,52:J :J"O1T160CDEFGABO2CDEFGABO3CDEFGABO4CDEFGAB":J"O2T160CDEFGAB":K T151141 1:T,1:T:41,9:K="O1T160CDEFGABO1CDEFGABO1CDEFGABO1CDEFGAB":KO (0)1 KY922K_K(3,3)(316,188),,B:(1,1),BC,8:4,7:15,52:J :J"O1T160CDEFGABO2CDEFGABO3CDEFGABO4CDEFGAB":J"O2T160CDEFGAB":K T151141 1:T,&:FREEDOM&0:WRITTEN BY RICHARD ESTRADO&O:COPYRIGHT (C) APRIL 1991&f:BY FALSOFT, INC.&}:RAINBOW MAGAZINE& :********************&:* FREEDOM *&:* *&(:* by R.ESTRADO *'2:********************' <:'7F: OMMIT LINE 80 FOR COCO1,COCO2'EP 65497,0'^Z: INITIALIZE'|d R(20),P(20),Q(20),S(20)'n 4,1: 1,1:'xP(0)128:Q(0)100:R(0)128:S(0)100'P1:PP2': MAIN PROGRAM(A(0)21:B(0)21:C(0)21:D(0)21(-AA5:BB5:CC5:DD5(C X1 15(20)(N 290(` P20 350(ȅ (P(P)R(P))50 AA:CC(҅ (Q(P)S(P))40 BB:DD(ܻ (P(PP),Q(PP))(R(PP),S(PP)),( (P(P),Q(P))(R(P),S(P)),)PP1: P21 P1)PPPP1: PP21 PP1)$ X)/ 140)L: CHECK BOUNDARIES)"P(P)P(P1)A: P(P)250 P(P)5 AA:P(P)P(P)A),Q(P)Q(P1)B: Q(P)192 Q(P)5 BB:Q(P)Q(P)B)6R(P)R(P1)C: R(P)250 R(P)5 CC:R(P)R(P)C*0@S(P)S(P1)D: S(P)250 S(P)5 DD:S(P)S(P)D*6J*MT: LINK ARRAY*}^P(0)P(20):Q(0)Q(20):R(0)R(20):S(0)S(20)*h),Q(P)Q(P1)B: Q(P)192 Q(P)5 BB:Q(P)Q(P)B)6R(P)R(P1)C: R(P)250 R(P)5 CC:R(P)R(P)C*0@S(P&!**************************&A* LIFE SKILLS SIMULATION *&a* CHECKBOOK SKILLS *&* BY FRED B.SCERBO *&* 60 HARDING AVE *&* NORTH ADAMS,MA 01247 *&* COPYRIGHT (C) 1990 *'**************************' 0' I132:(204);:'>I1192:A:(A128);:'VI132:(195);:'93,88,96,93,88,84,94,92,90,93,92,93,,,126,124,122,125,,112,126,116,126,116,126,16,116,126,,117,124,125(85,,,85,,,90,80,88,85,,84,,,122,,120,117,16,118,16,,122,,122,,16,122,,117,,116(e#85,,,85,,,91,90,96,85,83,82,,,75,67,66,69,70,16,,,74,,74,,16,74,,69,67,67((85,,,85,,,90,88,,85,80,,,,32,,74,69,68,66,,,74,,74,,16,74,,,,69(-85,,90,85,,,90,,,85,,81,,16,42,,42,37,,36,34,,42,,42,37,16,42,37,37,,37)V287,83,90,87,82,81,91,80,,87,83,87,,,43,35,42,39,34,32,43,33,43,33,43,39,33,43,39,37,35,39)z7@293," COMPUTER SIMULATION ";)<@325," CHECKBOOK SKILLS ";)A@357," BY FRED B.SCERBO ";)F@389," COPYRIGHT (C) 1990 ";* K@453," SKILL LEVEL (1-9) ";*PX$:X$""80*3UW(X$):W080*WZ@453," ALLOW HINTS? (Y/N) ";*m_X$:X$"Y"110*}dX$"N"115*i95*nDL1:120*sDL0*x0*}Z500*B$(10):I110:B$(I)::X()*0:Q(10)*FD0+ X((Z))W2:AX100+'Y((Z))W2:BY100+;CL((15)2)+JN$"##.##"+^0:PDPD1:PR1+460:" YOU HAVE A BALANCE OF ";:"$##.##";A:" IN YOUR CHECKING ACCOUNT."+" THE ";B$(Q);" YOU WANT COST";: W1" A"+ W1"S A",#" TOTAL OF ";:"$##.##";B;:". DO YOU HAVE",G" ENOUGH MONEY TO BUY THE NEW",WÇ" ";B$(Q);,pȇ" ? (Y)ES OR (N)O",ź460,X$:X$(3)210,ׅX$"N"250,܅X$"Y"235,X$"@"465,恥210, AB " CORRECT! YOU HAVE ENOUGH.":CRCR1-2 BA " SORRY! YOU NEED MORE MONEY.":WRWR1-<260-l AB " SORRY! YOU HAVE ENOUGH.":WRWR1- BA " CORRECT! YOU NEED MORE MONEY.":CRCR1-460- BA 305-" HOW MUCH MONEY WILL YOU HAVE":" LEFT?";-DL0285.!" (";:N$;A;:"-";:N$;B;:")";./"=> $ ";.9"340.g' (C100000.5)((AB)100000.5)400., (C100000.5)((AB)100000.5)420.1" HOW MUCH MORE MONEY DO YOU":" NEED? ";.6 DL0320.;"(";:N$;B;:"-";:N$;A;:")";/@"=> $ ";/E340/DJ (C100000.5)(((BA)100000.5))410/wO (C100000.5)(((BA)100000.5))430/TY$""/YX$:X$""345/^X$(13)385/cX$(8)375/hX$"@"465/m (X$)13345/rY$Y$X$:X$;:3450wWW(Y$):WW03400-|X$;:Y$(Y$,WW1):3450TC(Y$):(Y$)0 X$(13)3400`:4600f0" CORRECT! YOU HAVE ";:"$##.##";C;:" LEFT.":CRCR104350" CORRECT! YOU NEED ";:"$##.##";C:CRCR10NM1:4351(" WRONG! YOU HAVE ";:"$##.##";AB;:" LEFT.":WRWR1124351g" WRONG! YOU NEED ";:"##.##";BA:WRWR1:NM11460:" PRESS <<>> TO CONTINUE.";:1535,96:I1300:I1FD11X$:X$(13)5451…X$"@"4651ǁ4452SQ(143(CL16)):QS132:(SQ );:QS:2 ў:::2Eև3)"PROBLEMS COMPLETED = "PD:2jۇ3)"CORRECT RESPONSES = "CR:23)"INCORRECT RESPONSES = "WR:2TRCRWR:TR0TR12SC(CRTR100)23)"YOUR TOTAL SCORE = "SC"%":3 3)"ANOTHER TRY (Y/N) OR (C) ?";3X$:X$""5053.X$"Y" 3?X$"N" :3PX$"C" 5303Z 5053zPDPD1: FD0 PR1 1653 PR25603 FD1 1353! NM0 AAB:1503& AB0 AA : AAB3+Y((Z))W2:B(Y100)2400:PDPD1:PR24R5460:" YOU HAVE A BALANCE OF ";:"$##.##";A:" IN YOUR CHECKING ACCOUNT."4y:" YOU HAVE JUST RECEIVED A CHECK"4?" FOR ";:"$##.##";B;:". HOW MUCH"4D" WILL YOUR NEW BALANCE BE ?"4I4605N" RECORD YOUR NEW BALANCE HERE.": DL06005(S" (";:N$;A;:"+";:N$;B;:")";56X"=> $ ";5@]3405rb (C100000.5)(((AA)100000.5))6205g (C100000.5)(((AB)100000.5))6305l" CORRECT! YOU HAVE ";:"##.##";C:CRCR15q6356v" WRONG! YOU HAVE ";:"##.##";AB:WRWR16J{460:" PRESS <<>> TO CONTINUE. ";:I1300:I6XNM0:FD06qX$:X$(13)6606X$"@"465664560:Q(10)6FD06AAB6Y((Z))W2:BY10061507 SHIRTS,CANDIES,SOCKS,DISKS,BOOKS,PADS,PENS,CARPETS,SUNGLASSES,TAPESS <<>> TO CONTINUE. ";:I1300:I6XNM0:FD06qX$:X$(13)6606X$"@"465664560:Q(10)6FD06AAB6Y((Z))W2:BY10061507 SHIRTS,CANDIES,SOCKS,DISKS,BOOKS,PAD