VE TO";A$G4A$""110G)>(A$)8810G8H"O",#1,A$GERX1100GW\I$(X)""880Ggf#1,I$(X):Gp:X1;"RECORDS TRANSFERED.":44539:110Gz:9)"VIEW DIRECTORY"G:X(0):X"FREE GRANULE";:X1910:"S";G".":44539:110 TO SAARGET HIT."/.@485,"PRESS [enter] TO CONT.";/E (13) 186/:" DON'T CRASH INTO BORDERS ORYOURSELF. DOING SO WILL KILL YOU.":::"GOOD LUCK!"/@485,"PRESS [enter] TO BEGIN.";/ (13) 192/ LONGER AFTER EACH T1>: COPYRIGHT (C) 1990>6: BY TRS-80 COMPUTING>T :***********************>r:* LETTER READER *>:* *>(:* BY: mILARDOVIC *>2:* aNTON *><:* pETER *?F:* *?&P:* FEBRUARY 15, 1990 *?DZ:***********************?wd::"FILE NAME TO READ FROM";A$:(A$)8100?nA$""190?x:359,57:65314,55?"D",#1,A$,1:#1,1X$?XX1:(1)X 180?#1:X$;@ X$(13)CRCR1:CR15(CR15)44539@140@*44539::100@0*****************?wd::"FILE NAME TO READ FROM";A$:(A$)8100?nA$""190?x:359,57:65314,55?"D",#1,A$,1:#1,1X$?XX1:(1)X 180?#1:X$;@ X$(13)CRCR1:CR15 >: COPYRIGHT (C) 1990>6: BY TRS-80 COMPUTING>W :**************************>x:* SIMPLE FILER PROGRAM *>:* *>(:* CREATED BY: mILARDOVIC *>2:* aNTON *><:* pETER *?F:* *?>P:* THURSDAY MARCH 22 1990 *?_Z:**************************?sd10000:I$(100)?n:" SIMPLE FILING PROGRAM"?x::" 1 - MAKE A NEW LIST"?" 2 - LOAD OLD LIST"?" 3 - MAKE ADDITIONS"@" 4 - MAKE DELETIONS"@1" 5 - VIEW LIST"@L" 6 - PRINT LIST"@f" 7 - SAVE LIST"@" 8 - VIEW DIRECTORY"@ȇ" 9 - EXIT PROGRAM"@҇:10)"YOUR CHOICE"@ܢ44539:A():A1A9220AA 270,360,440,540,610,700,790,890A+:"ARE YOU SURE (Y/N)?";:150,10AV44539:A$:A$"N"110:A$"Y"250A^:A|:8)"MAKE A NEW LIST":AI$(1)""310A""THERE IS A LIST IN MEMORY. OKAY TO ERASE (Y/N)?"A,44539:A$:A$"N"110:A$"Y"300B@6"YOU CAN HAVE UP TO 100 ITEMS IN THIS LIST. PRESS TO END INPUT.":Ba@X1100:"###>";X;:I$(X)B{JI$(X)""XX1:110BTXB^XX1:110Bh:10)"LOAD OLD LIST"Br:"FILENAME TO LOAD FROM";A$B|A$""110B(A$)8370C"I",#1,A$:X0C(1)430C,XX1:#1,I$(X):410CR:X;"RECORDS READ.":44539:110Co:8)"MAKE ADDITIONS":C…I$(1)"""THERE ISN'T ANY LIST IN MEMORY!!":X11000::110C̀X10011CօI$(X)""490CXCXX1:X100530D "###>";X;:I$(X)DI$(X)""110D&490DM"MEMORY FULL!!":X11000::110Dh:9)"MAKE DELETIONS"D&:"DELETE WHICH ITEM NUMBER";Y:Y0110D0Y100550:Y100590D:XY 99DDI$(X)I$(X1):DNI$(100)""DX110Eb:12)"VIEW LIST"ElX1100E vI$(X)""680EB@3232(X((X1)12)12),;EZ"###. ";X;:I$(X)EtX12(X12)44539E{XE@3232(X((X1)12)12),((13(X((X1)12)12)),13);E44539:110E:10)"PRINT LIST"FƇ:"POKE150,";A$:A(A$):A$""110FВ150,AF2ڻ"LIST TITLE=>";A$FC#2,A$:#2FPX1100FbI$(X)""780F#2,"###. ";X;:#2,I$(X):XF 110F:12)"SAVE LIST"F I$(1)"":"THERE IS NOTHING TO SAVE!!":X11000::110G*::"FILENAME TO SA&: SHOPPING LIST MAKER&6: COPYRIGHT (C) 1990&Q: BY TRS-80 COMPUTING&_:X1:W0&t A$(100),B(100)&"ITEM";X;: A$& A$(X)"XX" 60&"PRICE";X;: B&#WWB(X)&(XX1&- X100 60&2&7 20&<'A"READY PRINTER. TO PRINT"'"F ZZ$'2K T1 X1'OP#2,"ITEM ";T;" ";A$(T)'mU#2,"PRICE ";T;" $";B(T)'uZ T'dTAXW.05'iL((TAX100).5)100'n#2'sQ((W100).5)100'x#2,"TOTAL ";Q'}#2,"TAX ";L(#2,"GRAND TOTAL ";QL( "BOOT9",RNT"'"F ZZ$'2K T1 X1'OP#2,"ITEM ";T;" ";A$(T)'mU#2,"PRICE ";T;" $";B(T)'uZ T'dTAXW.05'iL((TAX100).5)100'n#2'sQ((W100).5)100'x#2,"TOTAL ";Q'}#2,"TAX ";L(#2,"GRAND TOTAL "; &_: (33021)50 2)"SLIP-N-SLIDE COCO 3 VERSION" : 2)"SLIP-N-SLIDE COCO 2 VERSION"&@454,"FAST OR NORMAL (F/N)?"&AN$: AN$"F"10: AN$"N"8::6& 106' (33021)50 65497,0: 106 : (33021)50 65495,0: 106'" OXDX:OYDY:DX0:DY0:C0'> (UP)KP DY1:C1'X(DN)KP DY1:C1't (LT)KP DX1:C1' (RT)KP DX1:C1' C0DXOX:DYOY'PXPXDX:PYPYDY'WX(HP)PX:WY(HP)PY:HPHP1' HPEL HP0( PT(PX,PY): PT1 36( PTWC 68($"44(4$(PX,PY,WC)(I&(WX(TP),WY(TP))(d(TPTP1: TPEL TP0(m*12(z,SCSCPT(. T1,1(0PBSW(PY2)(PX2)UL(2 PB,BL(4@LL, PR$;SC,CTCS;(6ELEL1(PT3)(PT5)(8 ELEM ELEM):TL(RH)SW(RW)UL)3<(TL)DV((TL)DV)58)C> TLPB 58)S@ TL,CL(PT))YB)eD I15)uF(PX,PY,WC))HT2,1)J(PX,PY))L T3,1)NI)PCSCS1)R I0 EL)TWX(I)0:WY(I)0)VI)X CSCT 140 : 122)Z0)\I162*^(I,1,WC):(I,28,WC)*`I*+bI131*Dd(1,I,WC):(62,I,WC)*KfI*Qh*kjWX(205),WY(205):WC8*lCT5:UL1024:LL481:WC8:BL128:RW30:RH13:SW32*nT1176:T289:T358:EM200:DV16*pUP341:DN342:LT343:RT344:KP247+6rCL(1)143:CL(2)159:CL(3)175:CL(4)191:CL(5)207:CL(6)223:CL(7)239+_tPR$" SCORE=#### LIFES LEFT=# "+nv90:154+|xSC0:CS0+zEL10:HP9:TP0+|PX60:PY27+~90+@LL, PR$;SC,CTCS;+DX0:DY1+ PT17+58+PT+12, SCHS HSSC,3:@167, "YOUR SCORE WAS ####";SC,W@231, "HIGHSCORE IS ####";HS,w@295,"WANT TO PLAY AGAIN?",AN$: AN$"" 148, AN$"Y" 120, AN$"N" 152, 148,: (33021)50 65496,0: : 65494,0:-TI$(0)"SLIP -N":TI$(1)"- slide"-(I1:J0-H@487,"NEED INSTRUCTIONS?";-`@204,(TI$(J),I);-~II1: I8I1:J(J1)- 605I10IJ,2-AN$:AN$"N"194- AN$"Y"160-:@10,"SLIP -N- SLIDE".!" SCORE AS MANY POINTS AS YOU CAN BEFORE YOU DIE "CT"TIMES.".G10)(138)" "(133)," 1 POINT".S I27.~10)(138)(CL(I))(133),I"POINTS"./ "THE ARROW KEYS CONTROL YOUR DIRECTION. YOU CAN ALSO MOVE DIAGONALLY, THE 'SLIME' GETS LONGER AFTER EACH T& : A HOLLY JOLLY CHRISTMAS&?: PROGRAMMED BY JOE AHERN&Y: COPYRIGHT (C) 1989&t: BY TRS-80 COMPUTING& W$(125): H(125)&:H1& L1 121& W$(H): A& A0 T1 150: T: 25& A1 T1 20: T: 25'@X(136)4:XX25616(137):TX(W$(H)):XX(TX)2:@X,W$(H)' L113 L114 L115 L116 L117 L118 L120 A,6:: 25' L121 A,8:: 25' A,4:'HH1: L'"BOOT9"(W2 HAVE,108,A,133,HOL,170,LY,170,JOL,159,LY,159,CHRIST,147,MAS,108,-,0,IT'S,108,THE,133,BEST,147,TIME,147,OF,133,THE,133,YEAR,58,.,0(4 I,159,DON'T,159,KNOW,159,IF,147,THERE'LL,133,BE,133,SNOW,133,-,-1,BUT,108,HAVE,133,A,133,CUP,125,OF,133,CHEER,108,.,0)^6 HAVE,108,A,133,HOL,170,LY,170,JOL,159,LY,159,CHRIST,147,MAS,108,.,0,AND,108,WHEN,133,YOU,147,WALK,147,DOWN,133,THE,133,STREET,58,.,0)8 SAY,159,HEL,159,LO,159,TO,147,FRIENDS,133,YOU,133,KNOW,133,AND,108,EV,133,'RY,133,ONE,125,YOU,89,MEET,78,.,0*n: OH,170,HO,147,THE,170,MIS,159,TLE,133,TOE,133,-,-1,HUNG,147,WHERE,125,YOU,125,CAN,147,SEE,133,-,0,SOME,125,BOD,89,Y,133,WAITS,108,FOR,147,YOU,147,-,-1*< KISS,89,HER,89,ONCE,108,FOR,125,ME,133,.,0,HAVE,108,A,133,HOL,170,LY,170,JOL,159,LY,159,CHRIST,147,MAS,108,-,0+`> AND,108,IN,133,CASE,147,YOU,147,DID,133,N'T,133,HEAR,58,-,0,OH,159,BY,159,GOL,159,LY,147,HAVE,133,A,125,HOL,108,LY,133+@ JOL,133,LY,170,CHRIST,176,MAS,147,-,-1,THIS,159,YEAR!,176E,108,A,133,HOL,170,LY,170,JOL,159,LY,159,CHRIST,147,MAS,108,-,0+`> AND,108,IN,133,CASE,1& 0: L19 25&% (L,1,5): L&=(18,2,5):(26,2,5)&U(17,3,5):(25,3,5)&w(15,4,5):(16,4,5):(24,4,5)&(14,5,5):(17,5,5):(21,5,5)& L31 33:(L,9,4): L:(25,5,5)& L32 34:(L,8,4): L&(13,6,5): L26 36'(L,6,4): L:(25,6,5)'4(12,7,5):(17,7,5):(21,7,5)'Q L33 35:(L,7,4): L't(25,7,5): L35 37:(L,7,4)'(28,11,5):L'"(12,8,5):(17,8,5):(21,8,5)'$(26,8,5):(37,8,4):(38,8,4)'&(12,9,5):(19,9,5):(27,9,5)(((38,9,4):(39,9,4)(*(12,10,5):(27,10,5)(<, L29 37:(L,10,5): L(Z. L38 40:(L,10,4): L(0(12,11,5):(19,11,5):(20,11,5)(2(21,11,5):(27,11,5)(4(29,11,5):(30,11,5):(31,11,5)(6 L38 41:(L,11,4): L(8(21,12,5):(12,12,5)): L28 30:(L,12,4): L)2< L39 43:(L,12,5): L)L>(11,13,4):(12,13,5))f@(13,13,5):(27,13,4))B(28,13,4):(29,13,4):(44,13,5))D(10,14,4):(11,14,4):(12,14,4))F(13,14,4):(14,14,5):(26,14,4))H(27,14,4):(28,14,4):(43,14,5)*J L10 12:(L,15,4): L*6L L14 16:(L,15,5): L*TN L25 27:(L,15,4): L*rP L41 43:(L,15,5): L*R L10 13:(L,16,4): L*T L24 26:(L,16,4): L*V(36,16,5):(44,16,5)*X L10 12:(L,17,4): L+Z L23 25:(L,17,4): L+\(36,17,5): L39 43+1^(L,17,5): L+N` L8 11:(L,18,5): L+lb L22 24:(L,18,4): L+d(36,18,5):(38,18,5)+f(41,18,4):(42,18,4)+h(7,19,5): L21 23+j(L,19,4): L:(37,19,5)+l(41,19,4):(42,19,4),n L8 10:(L,20,5): L,,p L19 22:(L,20,4): L,Jr L40 41:(L,20,4): L,ot(7,21,5):(15,21,5): L18 21,v(L,21,4): L: L40 41,x(L,21,4): L,z L8 11:(L,22,5): L,| L15 22:(L,22,5): L,~(26,22,5)- L39 41:(L,22,4): L-,(11,23,5):(14,23,5):(15,23,5)-Q(16,23,5): L20 25:(L,23,5)-o L: L37 40:(L,23,4)-w L- L12 13:(L,24,5): L- L15 17:(L,24,4): L- L20 22:(L,24,5): L- L35 38:(L,24,4): L. L15 19:(L,25,4): L.+ L33 36:(L,25,4): L.I L19 34:(L,26,4): L.g L21 32:(L,27,4): L.X1 2000:X:"BOOT8"3:(L,24,5): L- L15 17:(L,24,4): L- L20 22:(L,24,5): L- L35 38:(L,24,4): L. L15 19 >&: THE HAUNTED GRAVEYARD&8: COPYRIGHT (C) 1989&S: BY TRS-80 COMPUTING&l 4,1:1: 0,1: 1,1&(110,30)(72,30),:(112,32)(122,32),:(124,30)(132,22),') (132,22)(132,18),:(132,18)(126,14),:(126,14)(76,14),:(76,14)(64,22),:(64,22)(64,26),:(66,28)(72,28),'f (64,32)(68,36),:(68,36)(68,42),:(54,44)(32,44),' (34,46)(20,46),:(20,44)(12,44),:(10,42)(10,32),:(10,32)(64,32),'(60,24),25,0(?(254,78)(196,78),:(176,78)(34,78),:(34,74)(34,78),:(34,74)(30,74),:(30,74)(0,88),:(32,78)(0,96),((34,100)(0,114),:(46,98)(254,98),:(166,78)(166,98),:(204,78)(204,98),:(196,78)(192,74),:(192,74)(180,74),:(180,74)(176,78),)k(196,78)(196,98),:(176,78)(176,98),:(176,82)(196,82),:(200,76)(192,68),:(192,68)(180,68),:(180,68)(172,76),:(180,82)(180,98),)(184,82)(184,98),:(188,82)(188,98),:(192,82)(192,98),:(202,102)(158,168),:(158,168)(126,190),:(158,168)(188,148),*(188,148)(254,128),:(216,180)(176,180),:(212,180)(212,174),:(212,174)(208,174),:(208,174)(208,170),:(208,170)(212,170),*(212,170)(212,164),:(212,164)(216,164),:(216,164)(216,170),:(216,170)(220,170),:(220,170)(220,174),+(220,174)(216,174),:(216,174)(216,180),:(192,156)(226,156),:(226,156)(226,150),:(226,150)(222,146),:(222,146)(214,150),:(214,150)(214,156),,(190,130)(232,130),:(218,130)(224,122),:(224,122)(218,130),:(212,118)(242,118),:(242,118)(242,108),,o!(238,114)(246,114),:(166,100)(90,138),:(90,138)(58,118),:(58,116)(48,116),,#(72,144)(0,176),:(72,144)(48,128),:(32,126)(48,126),:(48,126)(48,130),:(48,130)(30,130),:(30,130)(30,126),-%(46,124)(46,114),:(32,124)(32,114),:(40,86)(40,124),:(48,108)(30,108),:(30,108)(30,112),:(30,112)(48,112),:(48,108)(48,112),-'(44,106)(44,90),:(36,106)(36,90),:(44,90)(40,86),:(36,90)(40,86),.L)(142,110)(112,110),:(106,110)(106,102),:(110,106)(102,106),:(108,116)(70,116),:(78,116)(78,108),.+(78,108)(70,108),:(70,108)(70,116),:(12,130)(12,150),:(4,136)(20,136),:(12,150)(38,150),.-(34,110),0,0./(44,110),0,0/61(48,130)(30,130),:(224,122)(232,130),:(48,130)(48,126),:(48,126)(30,126),/H3(38,128),0,0/5(10,42)(12,44),:(18,44)(22,46),:(34,46)(38,44),/7(52,44)(68,42),:(32,40),0,0:(60,40),0,0/9(64,26)(66,28),:(70,28)(72,30),:(108,30)(124,30),0#;(100,20),0,0:(72,24),0,0:(214,172),0,00=AX12000:X:"BOOT8"128),0,0/5(10,42)(12,44),:(18,44)(22,46),:(34,46)(38,44),/7(52,44)(68,42),:(32,40),0,0:(60,40),0,0/9(64,26)(66,28),:(70,28)(72,30),:(108,30)(124,30),0#;(100Y&7 : COLOR COMPUTER SUPER DIRECTORY V1.3&f: COPYRIGHT (C) 1989 BY KEVIN ARMALAY&n: &u(:&|2:&<: &HD7C0,0: &HD816,20: 63506,33: 150,18'F 5000: N$(68),E$(68),A$(68),Y$(68),R$(68),G(68),B(68),S(68),O(68),W(68),P(68)'+Z@65,"COLOR COMPUTER SUPER DIRECTORY"'~d@128,"DISK NAME:":@192,(25,175);:@160,"";: DN$:@185,"":DN$(DN$,25)'n@484,"IS THIS CORRECT? (Y/N)";'xA$: A$"" 120 : A$"N" A$"n" 90(@480,"reading directory, please wait.";( 360(!@480,(31,32);(J@482,"ready printer, press enter.";(gA$: A$(13) 170(|@480,(31,32);(@491,"printing";(ȇ #2," Directory of: ";DN$: #2:QQ$" FILENAME.EXT SZ ": MN1 4: #2,QQ$;: MN) ҇ #2,(80,"*"):#2)܀ X1 N1)\ #2," ";N$(X);".";E$(X);" ";: #2,"##";G(X);: #2," ";)d X)t #2: #2)AZ(0)) AZ1 #2," 01 free granule remaining.": 300*  AZ10 #2," ";: #2,"0#";AZ;: #2," free granules remaining.": 300*N" #2," ";: #2, "##";AZ;: #2," free granules remaining."*w,:@195,"PRESS [R] TO PRINT ANOTHER"*6@239,"OR"*@@262,"ANY OTHER KEY TO END."*JA$: A$"" 330 : A$"R" A$"r" *T "BOOT8"*^ 350+h S3 11+r0,17,2,F$,X$+%|0,17,S,A$,B$+:X$A$(B$,112)+E 430+M S+S+i F1 8:F032F+N1$(X$,F031,8) :FILE+… (N1$,1)(255) :NO MORE FILES TO READ+̅ (N1$,1)(0) 560 :THIS ONE HAS BEEN KILLED+N1N11, N$(N1)N1$,-E$(N1)(X$,F023,3) :EXT,^X((X$,F018,1)) :FIRST GRANULE, X9 R$(N1)(X) : R$(N1)" "(X),Z1((X$,F017,1)),Z2((X$,F016,1)),Z3256Z1Z2,& 580,0 F,:,DG0,NGG1-XB((F$,X1,1))-$b B70 650-,lXB-gv X9 R$(N1)R$(N1)(X) : R$(N1)R$(N1)" "(X)-r 590-~G(N1)G-B(N1)2304(G1)256(B193)Z3 :TOTAL BYTES-S(N1)B192:O(N1)Z3:W(N1)2304GB(N1)-TGTGG--:.X: SPECIAL THANKS TO A. L. MCGARRITY FOR HIS READ AND GRANULE COUNT ROUTINES1)" "(X)-r 590-~G(N1)G-B(N1)2304(G1)256(B193)Z3 :TOTAL BYTES-S(N1)B192:O(N1)Z3:W(N1)2304GB(N1)-TGTGG--:.X: S&7 : COLOR COMPUTER SUPER DIRECTORY V2.3&f: COPYRIGHT (C) 1989 BY KEVIN ARMALAY&n: &u(:&|2:&< 40:3:0,4:: &HD7C0,0: &HD816,20: 63506,33: 150,18'F 5000: N$(68),E$(68),A$(68),Y$(68),R$(68),G(68),B(68),S(68),O(68),W(68),P(68)'P 700'KZ: 4,2:"Color Computer Super Directory"'d 1,11:"DISK NAME: ";: 0,4,U: (25,32);: 13,11: DN$: 0,4: 39,11:" ";:DN$(DN$,25)'n 8,22:"IS THIS CORRECT? (Y/N)";(xA$: A$"" 120 : A$"N" A$"n" 90(G 2,22: 3,2,B:"Reading directory... Please wait.";: 0,4(R 360(j 0,22: (39,32);( 3,22: 3,2,B:"Ready printer and press [ENTER].";:0,4(A$: A$(13) 170( 0,22: (39,32);) 15,22: 3,2,B:"PRINTING";: 0,4)aȇ #2," Directory of: ";DN$: #2:QQ$" FILENAME.EXT SZ ": MN1 4: #2,QQ$;: MN){҇ #2,(80,"*"):#2)܀ X1 N1) #2," ";N$(X);".";E$(X);" ";: #2,"##";G(X);: #2," ";) X) #2: #2)AZ(0)** AZ1 #2," 01 free granule remaining.": 300*| AZ10 #2," ";: #2,"0#";AZ;: #2," free granules remaining.": 300*" #2," ";: #2, "##";AZ;: #2," free granules remaining."*,: 6,9:"Press [R] to print another"*6 18,11:"or"+ @ 9,13:"Any other key to end.";+QJA$: A$"" 330 : A$"R" A$"r" +_T "BOOT8"+j^ 350+yh S3 11+r0,17,2,F$,X$+|0,17,S,A$,B$+X$A$(B$,112)+ 430+ S++ F1 8:F032F+N1$(X$,F031,8) :FILE,3… (N1$,1)(255) :NO MORE FILES TO READ,j̅ (N1$,1)(0) 560 :THIS ONE HAS BEEN KILLED,vN1N11,N$(N1)N1$,E$(N1)(X$,F023,3) :EXT,X((X$,F018,1)) :FIRST GRANULE- X9 R$(N1)(X) : R$(N1)" "(X)-Z1((X$,F017,1))-7Z2((X$,F016,1))-HZ3256Z1Z2-S& 580-[0 F-a:-iDG0-sNGG1-XB((F$,X1,1))-b B70 650-lXB-v X9 R$(N1)R$(N1)(X) : R$(N1)R$(N1)" "(X)- 590-G(N1)G.(B(N1)2304(G1)256(B193)Z3 :TOTAL BYTES.TS(N1)B192:O(N1)Z3:W(N1)2304GB(N1).`TGTGG.f.n:.: SPECIAL THANKS TO A. L. MCGARRITY FOR HIS READ AND GRANULE COUNT ROUTINES1)" "(X)- 590-G(N1)G.(B(N1;BM+4,+3"e2 "/","E6;BM+3,6"e>2 "X","E6;BM-6,0;F6;BM+3,0"ep2 "0","BM+1,0;H1;U4;E1;R2;F1;D4;G1;L2;BM+6,0"e2"'","BM+1,-5;E2;BM+4,+7"e: X0 10: X:e> S10 B14:"L16;G;P64;L8;O2;GFEDCBA":B14:Y0:S10 :GUTTER BALLe>fBh2000:2010:2000:15000:2000:15000:2000:2020:2030:2040:2050:2060:2070:2000:2080:2090:2100:Y0:B6:S110 :TITLE PAGEfBr12030A+2:CHAR-GEN+42ɀ XX1 (AA$)+?2ʏ:LL0+M2ˍ LL$,CC$+u2̅ LL$(AA$,XX,1) CC$: 13006+2LLLL1: LL48 13003+2΋:+2φ " ","BM+7,0"+2І"A","U4;E2;F2;D2;NL4;D2;BM+3,0",2ц "B","U6;R3;F1;D1G1;NL3;F1;D1;G1;L3;BM+7,0",92҆"C","BM+1,-0;H1;U4;E1;R2;F1;BM+0,+4;G1;L2;BM+6,0",^2ӆ "D",!U6;R3;F1;D4;G1;L3;BM+7,0",2Ԇ "E",!NR4;U3;NR2;U3;R4;BM+3,+6",2Ն "F","U3;NR2;U3;R4;BM+3,+6",2ֆ "G","BM+1,-0;H1;U4;E1;R2;F1;BM+0,+2;NL1;D2;G1;L2;BM+6,0"-2׆ "H","U3;NU3;R4;NU3;D3;BM+3,0"-32؆ "I","BM+1,0;R1;NR1;U6;NL1;R1;BM+4,+6"-a2ن "J","BM+0,-1;F1;R1;E1;U5;NL1;R1;BM+3,6"-2چ "K","U3;NU3;R1;NE3;F3;BM+3,0"-2ۆ "L","NU6;R4;U1;BM+3,+1"-2܆ "M","U6;F2;ND1;E2;D6;BM+3,0"-2݆ "N","U6;F1;D1;F2;D1;F1;NU6;BM+3,0".!2ކ "O","BM+1,0;H1;U4;E1;R2;F1;D4;G1;L2;BM+6,0".F2߆ "P","U6;R3;F1;D1;G1;L3;BM+7,3".2 "Q","BM+1,0;H1;U4;E1;R2;F1;D3;G1;NH1;NF1;G1;L1;BM+6,0".2 "R","U6;R3;F1;D1;G1;L2;NL1;F3;BM+3,0".2 "S","BM+0,-1;F1;R2;E1;U1;H1;L2;H1;U1;E1;R2;F1;BM+3,+5"/2 "T","BM+2,+0;U6;NL2;R2;BM+3,+6"/>2 "U","BM+0,-1;NU5;F1;R2;E1;U5;BM+3,+6"/v2 "V","BM+0,-6;D2;F1;D1;F1;ND1;E1;U1;E1;U2;BM+3,+6"/2 "W","NU6;E2;NU1;F2;U6;BM+3,6"/2 "X","U1;E4;U1;BM-4,0;D1;F4;D1;BM+3,0"/2 "Y","BM+0,-6;D2;F2;ND2;E2;U2;BM+3,6"02 "Z","NR4;U1;E4;U1;L4;BM+7,6"0<2 "1","BM+1,0;R1;NR1;U6;G1;BM+6,+5"0l2 "2","NR4;U1;E1;R1;E2;U1;H1;L2;G1;BM+7,+5"02 "3","BM+0,-1;F1;R2;E1;H2;E2;H1;L3;BM+7,6"02 "4","BM+3,0;U2;NR1;L3;U1;E3;D3;BM+4,3"02 "5","BM+0,-1;F1;R2;E1;U2;H1;L3;U2;R4;BM+3,+6"172 "6","BM+4,-5;H1;L2;G1;D4;F1;R2;E1;U1;H1;L3;BM+7,+3"1W2 "7","U1;E4;U1;L4;BM+7,+6"12 "8","BM+1,-0;H1;U1;E1;H1;U1;E1;R2;F1;D1;G1;NL2;F1;D1;G1;L2;BM+6,0"12 "9","BM+0,-1;F1;R2;E1;U4;H1;L2;G1;D1;F1;R2;BM+4,+3"12 "/","U1;E4;U1;BM+3,6"2,2 "?","BM+0,-5;E1;R2;F1;D1;G2;BM+0,+1;D1;BM+5,+0"2U2 "!","BM+2,+1;U1;BM+0,-2;U5;BM+5,7"2s2 ".","BM+2,0;U1;BM+5,+1"22 ":","BM+2,-1;U1;BM+0,-2;U1;BM+5,+5"22 ";","BM+1,0;E1;U1;BM+0,-1;U1;BM+5,+4"22 ",","BM+2,0;NU1;G1;BM+6,-1"3 2 "'","BM+1,-5;E2;BM+4,+7"3)2 "-","BM+0,-3;R4;BM+3,+3"3S2 "+","BM+2,-1;U2;NU2;NL2;R2;BM+3,+3"3}2 "=","BM+1,-2;R3;BM-3,-2;R3;BM+4,+4"M+2,-1;U1;BM+0,-2;U1;BM+5,+5"22 ";","BM+1,0;E1;U1;BM+0,-1;U1;BM+5,+4"22 ",","BM+2,0;NU1;G1;BM+6,-1"3 2 "'","BM+1,-5;E2;BM+4,+7"3)2 "-","BM+0,-3;R4;BM+3,+3"3S2 "+","BM+2,-1;U2;NU2;NL2;R2;BM+3,+3"3}2 "=","BM+1,-2;R3;BM-3,-2#z10)(138)" "(133)," 1 POINT"// I27/Z10)(138)(CL(I))(133),I"POINTS"/`/ "THE ARROW KEYS CONTROL YOUR DIRECTION. YOU CAN ALSO MOVE DIAGONALLY, THE 'SLIME' GETS LONGER AFTER EACH TARGET HIT."0 @485,"PRESS [enter] TO CONT.";0! (13) 9500:" DON'T CRASH INTO BORDERS ORYOURSELF. DOING SO WILL KILL YOU.":::"GOOD LUCK!"0ʇ@485,"PRESS [enter] TO BEGIN.";0ԅ (13) 9800ސ LONGER AFTER EACH TARGET HIT."0 @485,"PRESS [enter]U40 FR2 A110 A1A210 "BM207,15": 12730Ug0 FR2 A110 S110 "BM207,15": 12740U0 FR2 S1S210 "BM207,29": 12750U0 FR3 S110 "BM241,43": 12700U0 FR3 S110 S1S210 "BM241,43": 12710V$0 FR3 C110 A110 "BM207,15":12760VV0 FR3 A110 S110 "BM207,29": 12740V0 FR3 A110 A1A210 "BM207,29": 12730V0 FR3 S1S210 "BM207,43": 12750V0 FR4 S110 "BM241,57": 12700W0 FR4 S110 S1S210 "BM241,57": 12710WH0 FR4 C110 A110 "BM207,29":12760W~0 FR4 A110 A1A210 " BM207,43": 12730W0 FR4 A110 S110 "BM207,43": 12740W0 FR4 S1S210 "BM207,57": 12750X0 FR5 S110 "BM241,71": 12700X<0 FR5 S110 S1S210 "BM241,71":12710Xo0 FR5 C110 A110 "BM207,43": 12760X1 FR5 A110 A1A210 "BM207,57": 12730X1 FR5 A110 S110 "BM207,57": 12740Y1 FR5 S1S210 "BM207,71":12750Y-1 FR6 S110 "BM241,85": 12700Ya1 FR6 S110 S1S210 "BM241,85":12710Y1 FR6 C110 A110 "BM207,57": 12760Y1 FR6 A110 A1A210 "BM207,71": 12730Y1 FR6 A110 S110 "BM207,71": 12740Z)1 FR6 S1S210 "BM207,85": 12750ZS1 FR7 S110 "BM241,99": 12700Z1 FR7 S110 S1S210 "BM241,99": 12710Z1 FR7 C110 A110 "BM207,71":12760Z1 FR7 A110 A1A210 "BM207,85": 12730[#1 FR7 A110 S110 "BM 207,85": 12740[Q1 FR7 S1S210 "BM207,99": 12750[{1 FR8 S110 "BM241,113":12700[1 FR8 S110 S1S210 "BM241,113":12710[1 FR8 C110 A110 "BM207,85":12760\1 FR8 A110 A1A210 "BM207,99": 12730\J1 FR8 A110 S110 "BM207,99": 12740\w1 FR8 S1S210 "BM207,113":12750\1$ FR9 S110 "BM241,127": 12700\1& FR9 S110 S1S210 "BM241,127": 12710] 1' FR9 C110 A110 "BM207,99":12760]@1( FR9 A110 A1A210 " BM207,113": 12730]t1) FR9 A110 S110 "BM207,113": 12740]1* FR9 S1S210 "BM207,127": 12750]1. FR10 S110 "BM241,141": 12700^10 FR10 S110 S1S210 "BM241,141":12710^711 FR10 C110 A110 "BM207,113":12760^o12 FR10 A110 A1A210 "BM207,127": 12730^13 FR10 A110 S110 "BM207,127": 12740^14 FR10 S1S210 "BM207,141": 12750: 12800_18 FR11 S110 "BM241,155": 12700_>1: FR11 S110 S1S210 "BM241,155":12710_q1; FR11 C110 A110 "BM207,127":12760_1< FR11 A110 A1A210 "BM207,141":12730:12800_1= FR11 A110 S110 "BM207,141": 12740: 12800`1B FR12 S110 "BM241,169": 12700`U1I FR12 C110 A110 "BM207,141":12760:12800`1J FR12 S110 "BM207 ,141": 12780: 12800`1V 12031`1 SCORING GRAPHICS`1AA$"X": 13000`1AA$"/": 13000a 1AA$(A1A2S1ST):STA1A2S1ST: 13000a91AA$(A1S1S2ST):STA1S1S2ST: 13000ac1AA$(S1S2ST):STSTS1S2: 13000a1AA$(C1A1S1ST):STC1A1S1ST:13000a1AA$(A1S1S2ST):STSTA1S1S2:13000a1AA$(S1ST): 13000b2 "BM215,184":AA$(ST): 13000bg2 Q02000:::@228,"YOUR SCORE WAS "ST:@ 288," PRESS 'Y' TO START A NEW GAME.": Q0 2000:b2A$:1,1: A$"" 12820b2 A$"Y" 12820 : 28b2:CHAR-GENb2ɀ XX1 (AA$)b2ʏ:LL0b2ˍ LL$,CC$c 2̅ LL$(AA$,XX,1) CC$:13006c(2LLLL1: LL48 13003c02΋:cB2φ" ","BM+7,0"cj2 "1","BM+1,0;R1;NR1;U6;G1;BM+6,+5"c2 "2","NR4;U1;E1;R1;E2;U1;H1;L2;G1;BM+7,+5"c2 "3","BM+0,-1;F1;R2;E1;H2;E2;H1;L3;BM+7,6"c2 "4","BM+3,0;U2;NR1;L3;U1;E3;D3;BM+4,3"d+2 "5","BM+0,-1;F1;R2;E1;U2;H1;L3;U2;R4;BM+3,+6"de2 "6","BM+4,-5;H1;L2;G1;D4;F1;R2;E1;U1;H1;L3;BM+7,+3"d2 "7","U1;E4;U1;L4;BM+7,+6"d2 "8","BM+1,-0;H1;U1;E1;H1;U1;E1;R2;F1;D1;G1;NL2;F1;D1;G1;L2;BM+6,0"e2 "9","BM+0,-1;F1;R2;E1;U4;H1;L2;G1;D1;F1;R2)(232,130),:(48,130)(48,126),:(48,126)(30,126),/H3(38,128),0,0/5(10,42)(12,44),:(18,44)(22,46),:(34,46)(38,44),/7(52,44)(68,42),:(32,40),0,0:(60,40),0,0/9(64,26)(66,28),:(70,28)(72,30),:(108,30)(124,30),0#;(100,20),0,0:(72,24),0,0:(214,172),0,00<AX12000:X:"BOOT",128),0,0/5(10,42)(12,44),:(18,44)(22,46),:(34,46)(38,44),/7(52,44)(68,42),:(32,40),0,0:(60,40),0,0/9(64,26)(66,28),:(70,28)(72,30),:(108,30)(124,30),0#;(1000: 2100:Y1:S21CQ* B8 X133 X152 Y1 Y28 2000:2070:Y1:S21C4 B9 X164 X185 Y4.5 Y24 2000:2100:Y1:S21C6 B9 CC2 X160 X180 Y15 Y30 2000:2100:Y1:S21C9 1500D%z B11 X168 X181 Y8 Y24 2000:2100:S21Do B11 X155 X172 Y10 Y32 2000: 2060:2100:Y1:S22D B11 CC2 X132 X159 Y32 Y46 2000: 2010: 2030: 2060: 2100:Y1:S24E- B11 X139 X157 Y25 Y47 2000:2010: 2030:2060: 2100:Y1:S24E9 1500Ev B13 X165 X182 Y8 Y24 2000:2100:S21E B13 X164 X172 Y16 Y32 2000: 2060:2090: 2100:Y1:S23F* B13 X154 X164 Y24 Y40 2000: 2030:2050: 2060:2090: 2100:Y1:S25F B13 CC2 X132 X153 Y27 Y49 2000: 2010: 2020: 2030: 2050: 2060: 2090: 2100:Y1:S27G B13 CC2 X138 X154 Y26 Y48 2000: 2010:2020:2030:2050:2060:2090:2100:Y1:S27Gw B13 CC2 X126.5 X140 Y30 Y40 2000: 2020: 2050: 2090:Y1:S23G B13 X136 X151 Y18 Y40 2000:2020:2050:2090:Y1:S23GŁ 1500Hʅ B14 X168 X181 Y8 Y24 2000: 2100:Y1:S21Hj̅ B14 X164 X172 Y16 Y32 2000: 2060: 2090: 2100:Y1:S23H΅ B14 X154 X164 Y24 Y40 2000: 2030: 2050: 2060: 2080: 2090: 2100:Y1:S26IZЅ B14 X140 X157 Y25 Y37 2000:2010:2020: 2030:2040:2050:2060:2070:2080:2090:2100:Y1:S210I҅ B14 X149 X154 Y24 Y48 2000:2010:2030:2040:2050:2060:2080:2090:Y1:S27J9ԅ B14 X144 X149 Y34 Y49 2000:2010 &$:****************************&G:* SLIP-N-SLIDE *&j:* WRITTEN BY ALBERT NOAH *&:* COPYRIGHT (C) 1992 *&:* BY COLOR COMPUTING *&:****************************'1 : (33021)50 2)"SLIP-N-SLIDE COCO 3 VERSION" : 2)"SLIP-N-SLIDE COCO 2 VERSION"'S@454,"FAST OR NORMAL (F/N)?"'AN$: AN$"F"50: AN$"N"40::30'( 530'2 (33021)50 65497,0: 530 : (33021)50 65495,0: 530'T I15*N^(PX,PY,WC)*XhT2,1*er(PX,PY)*p| T3,1*wI*CSCS1* I0 EL*WX(I)0:WY(I)0*I* CSCT 700 : 610*ž0*̀I162*֜(I,1,WC):(I,28,WC)*I+I131+(1,I,WC):(62,I,WC)+$I+*+DWX(205),WY(205):WC8+zCT5:UL1024:LL481:WC8:BL128:RW30:RH13:SW32+&T1176:T289:T358:EM200:DV16+0UP341:DN342:LT343:RT344:KP247,:CL(1)143:CL(2)159:CL(3)175:CL(4)191:CL(5)207:CL(6)223:CL(7)239,8DPR$" SCORE=#### LIFES LEFT=# ",HN450:790,VXSC0:CS0,jbEL10:HP9:TP0,zlPX60:PY27,v450,@LL, PR$;SC,CTCS;,DX0:DY1, PT17,290,PT,60, SCHS HSSC-ƞ:@167, "YOUR SCORE WAS ####";SC-3Ї@231, "HIGHSCORE IS ####";HS-Sڇ@295,"WANT TO PLAY AGAIN?"-mAN$: AN$"" 740- AN$"Y" 600- AN$"N" 780- 740- : (33021)50 65496,0: : 65494,0:-TI$(0)"SLIP -N":TI$(1)"- slide". I1:J0.$*@487,"NEED INSTRUCTIONS?";.<4@204,(TI$(J),I);.Z>II1: I8I1:J(J1).pH 605I10IJ,2.RAN$:AN$"N"990.\ AN$"Y"820.f:@10,"SLIP -N- SLIDE".p" SCORE AS MANY POINTS AS YOU CAN BEFORE YOU DIE "CT"TIMES."/& 0: L19 25&% (L,1,5): L&=(18,2,5):(26,2,5)&U(17,3,5):(25,3,5)&w(15,4,5):(16,4,5):(24,4,5)&(14,5,5):(17,5,5):(21,5,5)& L31 33:(L,9,4): L:(25,5,5)& L32 34:(L,8,4): L&(13,6,5): L26 36'(L,6,4): L:(25,6,5)'4(12,7,5):(17,7,5):(21,7,5)'Q L33 35:(L,7,4): L't(25,7,5): L35 37:(L,7,4)'(28,11,5):L'"(12,8,5):(17,8,5):(21,8,5)'$(26,8,5):(37,8,4):(38,8,4)'&(12,9,5):(19,9,5):(27,9,5)(((38,9,4):(39,9,4)(*(12,10,5):(27,10,5)(<, L29 37:(L,10,5): L(Z. L38 40:(L,10,4): L(0(12,11,5):(19,11,5):(20,11,5)(2(21,11,5):(27,11,5)(4(29,11,5):(30,11,5):(31,11,5)(6 L38 41:(L,11,4): L(8(21,12,5):(12,12,5)): L28 30:(L,12,4): L)2< L39 43:(L,12,5): L)L>(11,13,4):(12,13,5))f@(13,13,5):(27,13,4))B(28,13,4):(29,13,4):(44,13,5))D(10,14,4):(11,14,4):(12,14,4))F(13,14,4):(14,14,5):(26,14,4))H(27,14,4):(28,14,4):(43,14,5)*J L10 12:(L,15,4): L*6L L14 16:(L,15,5): L*TN L25 27:(L,15,4): L*rP L41 43:(L,15,5): L*R L10 13:(L,16,4): L*T L24 26:(L,16,4): L*V(36,16,5):(44,16,5)*X L10 12:(L,17,4): L+Z L23 25:(L,17,4): L+\(36,17,5): L39 43+1^(L,17,5): L+N` L8 11:(L,18,5): L+lb L22 24:(L,18,4): L+d(36,18,5):(38,18,5)+f(41,18,4):(42,18,4)+h(7,19,5): L21 23+j(L,19,4): L:(37,19,5)+l(41,19,4):(42,19,4),n L8 10:(L,20,5): L,,p L19 22:(L,20,4): L,Jr L40 41:(L,20,4): L,ot(7,21,5):(15,21,5): L18 21,v(L,21,4): L: L40 41,x(L,21,4): L,z L8 11:(L,22,5): L,| L15 22:(L,22,5): L,~(26,22,5)- L39 41:(L,22,4): L-,(11,23,5):(14,23,5):(15,23,5)-Q(16,23,5): L20 25:(L,23,5)-o L: L37 40:(L,23,4)-w L- L12 13:(L,24,5): L- L15 17:(L,24,4): L- L20 22:(L,24,5): L- L35 38:(L,24,4): L. L15 19:(L,25,4): L.+ L33 36:(L,25,4): L.I L19 34:(L,26,4): L.g L21 32:(L,27,4): L.X1 2000:X:"BOOT"13:(L,24,5): L- L15 17:(L,24,4): L- L20 22:(L,24,5): L- L35 38:(L,24,4): L. L15 19 =&: THE HAUNTED GRAVEYARD&8: COPYRIGHT (C) 1989&S: BY TRS-80 COMPUTING&l 4,1:1: 0,1: 1,1&(110,30)(72,30),:(112,32)(122,32),:(124,30)(132,22),') (132,22)(132,18),:(132,18)(126,14),:(126,14)(76,14),:(76,14)(64,22),:(64,22)(64,26),:(66,28)(72,28),'f (64,32)(68,36),:(68,36)(68,42),:(54,44)(32,44),' (34,46)(20,46),:(20,44)(12,44),:(10,42)(10,32),:(10,32)(64,32),'(60,24),25,0(?(254,78)(196,78),:(176,78)(34,78),:(34,74)(34,78),:(34,74)(30,74),:(30,74)(0,88),:(32,78)(0,96),((34,100)(0,114),:(46,98)(254,98),:(166,78)(166,98),:(204,78)(204,98),:(196,78)(192,74),:(192,74)(180,74),:(180,74)(176,78),)k(196,78)(196,98),:(176,78)(176,98),:(176,82)(196,82),:(200,76)(192,68),:(192,68)(180,68),:(180,68)(172,76),:(180,82)(180,98),)(184,82)(184,98),:(188,82)(188,98),:(192,82)(192,98),:(202,102)(158,168),:(158,168)(126,190),:(158,168)(188,148),*(188,148)(254,128),:(216,180)(176,180),:(212,180)(212,174),:(212,174)(208,174),:(208,174)(208,170),:(208,170)(212,170),*(212,170)(212,164),:(212,164)(216,164),:(216,164)(216,170),:(216,170)(220,170),:(220,170)(220,174),+(220,174)(216,174),:(216,174)(216,180),:(192,156)(226,156),:(226,156)(226,150),:(226,150)(222,146),:(222,146)(214,150),:(214,150)(214,156),,(190,130)(232,130),:(218,130)(224,122),:(224,122)(218,130),:(212,118)(242,118),:(242,118)(242,108),,o!(238,114)(246,114),:(166,100)(90,138),:(90,138)(58,118),:(58,116)(48,116),,#(72,144)(0,176),:(72,144)(48,128),:(32,126)(48,126),:(48,126)(48,130),:(48,130)(30,130),:(30,130)(30,126),-%(46,124)(46,114),:(32,124)(32,114),:(40,86)(40,124),:(48,108)(30,108),:(30,108)(30,112),:(30,112)(48,112),:(48,108)(48,112),-'(44,106)(44,90),:(36,106)(36,90),:(44,90)(40,86),:(36,90)(40,86),.L)(142,110)(112,110),:(106,110)(106,102),:(110,106)(102,106),:(108,116)(70,116),:(78,116)(78,108),.+(78,108)(70,108),:(70,108)(70,116),:(12,130)(12,150),:(4,136)(20,136),:(12,150)(38,150),.-(34,110),0,0./(44,110),0,0/61(48,130)(30,130),:(224,122i&: HALLOWEEN MUMMY&7: PROGRAMMED BY JOE AHERN&Q: COPYRIGHT (C) 1989&l: BY TRS-80 COMPUTING&x4,1:5&1,1:0,5& "BM148,168;L40H1L10H4L8H10E20U14H2U4H8U8HL8H8U8R6U8EU4HU8":LFT/EAR' "G8D8G4L6HU14R6E14U4E10R4E5R10ER18ER14ER6ER16FR10F12R4F10":TOP'L"D24G8D4F10GD6G12D8G4D10G2D4G2L16H10L16H8L8HL19H6"'i"BM148,168;U6E4U10H8U6"'"BM104,88;E4R4E6R14FD8G6L24HU3":(116,90),3:(116,90),0,0'"BM156,76;R8F2R14F2D8L28U6E2U4":(163,84),3:(163,84),0,0("BM132,98;E12F12D8L6H4L2G4L8U8"::NOSE(F"BM120,108;F4R8F4R24E8R4FG12L8GL22H2L8H12R12"("BM92,112;E4U26E4L4G4L18R10D6G4E4U6L10R18E4R12E8R20E8R54L28F8R12F4R2"("BM76,68;R12E4R16E8L8HL16R16FR8ER20E8R52")"BM76,52;R12E4R12E8L10H8F8R10F4R12F10":"BM132,28;F8R42L32F8R6F3")L "BM96,132;F36":"BM108,126;F40":"BM88,142;F26":"BM76,152;R21")h( TT12000:TT:"BOOT"E4U6L10R18E4R12E8R20E8R54L28F8R12F4R2"("BM76,68;R12E4R16E8L8HL16R16FR8ER20E8R52")"BM76,52;R12E4R12E8L10H8F8R10F4R12F10":"BM132,28;F8R42L3ing.": 300*N" #2," ";: #2, "##";AZ;: #2," free granules remaining."*w,:@195,"PRESS [R] TO PRINT ANOTHER"*6@239,"OR"*@@262,"ANY OTHER KEY TO END."*JA$: A$"" 330 : A$"R" A$"r" *T 113,0: 40999*^ 350+h S3 11+r0,17,2,F$,X$++|0,17,S,A$,B$+@X$A$(B$,112)+K 430+S S+Y+o F1 8:F032F+N1$(X$,F031,8) :FILE+… (N1$,1)(255) :NO MORE FILES TO READ+̅ (N1$,1)(0) 560 :THIS ONE HAS BEEN KILLED,N1N11,N$(N1)N1$,3E$(N1)(X$,F023,3) :EXT,dX((X$,F018,1)) :FIRST GRANULE, X9 R$(N1)(X) : R$(N1)" "(X),Z1((X$,F017,1)),Z2((X$,F016,1)),Z3256Z1Z2,& 580,0 F,:,DG0-NGG1-XB((F$,X1,1))-*b B70 650-2lXB-mv X9 R$(N1)R$(N1)(X) : R$(N1)R$(N1)" "(X)-x 590-G(N1)G-B(N1)2304(G1)256(B193)Z3 :TOTAL BYTES-S(N1)B192:O(N1)Z3:W(N1)2304GB(N1)-TGTGG--:.^: SPECIAL THANKS TO A. L. MCGARRITY FOR HIS READ AND GRANULE COUNT ROUTINES1)" "(X)-x 590-G(N1)G-B(N1)2304(G1)256(B193)Z3 :TOTAL BYTES-S(N1)B192:O(N1)Z3:W(N1)2304GB(N1)-TGTGG--:.^& 2000: A$(72):D$(12)&?:****************************&b:* TRS-80 COMPUTING ON DISK *&(:* ALL PROGRAMS CONTAINED *&2:*ON THIS DISK ARE (C)1991-2*&<:* COLOR COMPUTING SOFTWARE *&F:****************************&P'Q "DRIVE # TO USE FOR SIDE 2:"',R DR$: D(DR$)'FS: "PLEASE WAIT..."'ZS311:D,17,S,B1$,B2$:C$B1$(B2$,127):T125532:T$(C$,T,14):(T$,1)(0) (T$,1)(255) 100 : AA1:A$(A)(T$,11)'dT$(14,255)110 : T,S(n &HFF40,0(_x 001,AUGUST 1989,002,OCTOBER 1989,003,DECEMBER 1989,004,FEBRUARY 1990,005,APRIL 1990,000,(gX1(o:(1)"TRS-80/COLOR COMPUTING ON DISK"(T1 X: EX$,IS$: T( EX$"000" 500(16((IS$)2)3)IS$;" ISSUE"(Y0)ȀYY132:(14348);::)SҀHH1A:(A$(HH),3)EX$D$(Y)A$(HH):YY1:HH : HH)܀HH0Y1:(65HH);". ";(D$(HH),8):)(65HH)". NEXT MENU") X1 (65HH1)". PREVIOUS MENU")L$: L$""250* (L$)650 (L$)65HH1 250*) (L$)65HH XX1: 140*R (L$)65HH1 X1 XX1:140*uN$(D$((L$)65),8)"/"EX$*":"LOADING ";(N$,8);"...": N$,R*, 250*6 310*:"PLEASE INSERT SIDE 1...": 44539:"BOOT"(L$)650 (L$)65HH N$,R+, 250+6 310". PREVIOUS MENU"*EL$: L$""250*n (L$)650 (L$)65HH1 250* (L$)65HH XX1: 140* (L$)65HH1 X1 XX1:140*N$(D$((L$)65),8)"/"EX$+":"LOADING ";(N$,8);"...":1G1NL3F1D2;,X( "BM+4,+0;U6F1D1F2D1F1NU6;BM+4,+0;U4E2F2D2NL4D2;BM+4,+0;U6F1D1F2D1F1NU6",v) 3000:K65:YJ180:FR0,-B1:ST0,2(0,180)(133,10), :DRAW ALLEY,< (0,192)(138,10),,F (125,192)(185,10),,P(134,192)(189,10),-R(161,44),44,,1,.65,.87-_T(35,70),15,1:(36,62),3,1:(42,68),3,1:(31,73),3,1:(8,115)(35,84),-xU(7,180)(128,180),-W"BM150,192;U10L3U2R36D2L35R32D10":"BM150,178;R6L3U4"-X(153,170),6,,1.2,.9,.6:"BM147,170;R12"-Y(153,172),1,,2.Z(143,12),3,,2 :SET PINS.%d(155,12),3,,2.8n(154,20),3,,2.Kx(165,12),3,,2.^(164,20),3,,2.q(175,12),3,,2.(155,28),3,,2.(144,20),3,,2.(145,28),3,,2.(146,36),3,,2.S10:S20.1,1. 430.(X,Y),Z :DRAW BALL/;&: GRAPHICS DESIGN # 1&0: BY JOE AHERN&D: ECB REQUIRED&\: ****************&f 3,1&l&v 1,0& Z1 3&* 4,1: 102&, 3,1: 108&. 3,1: 102&0 4,1: 108&2 Z&d 1000&fA56:B24:C200:D24',hX148:(A,B)(C,D),:AA3:BB3:CC3:DD3: X'2j'KlA58:B24:C58:D164'nX148:(A,B)(C,D),:AA3:BB3:CC3:DD3:X'p': GRAPHICS DESIGN # 2': BE JOE AHERN': ECB REQUIRED': ****************' 3,1''$ 1,0(.R3: X1 20('8(128,96),R,4:RR3(/B X(HLA$"BM128,96;U60E12"(aVB$"BM128,96;E42E12"(p` Y1 10(j"C4;A0"A$:"A0"B$(t"A1"A$:"A1"B$(~"A2"A$:"A2"B$("A3"A$:"A3"B$("C1;A0"A$:"A0"B$("A1"A$:"A1"B$)"A2"A$:"A2"B$)&"A3"A$:"A3"B$). Y):܎"BOOT",96;U60E12"(aVB$"BM128,96;E42E12"(p` Y1 10(j"C4;A0"A$:"A0"B$(t"A1"A$:"A1"B$(~"A2"A$:"A2"B$("A3"A$:"A3"B$("C1;A0"A$:"A0"B$("A1"A$:"A1"B$)3) "BOOT6": 40 "LOADING PAR 3 GOLF";:"PAR3GOLF/CC3")N! A9 40)e" A10 "BOOT8")v# A11 :)$ A0 A11 28,2: 5)(:"FLIP DISK OVER TO SIDE 1 FOR BOOT 6 - HIT WHEN READY"))B$:B$""41**B$(1mation on file sizes is exactly the same as the last column in the standard directory. The free granule information is included, so that you can tell when a disk that is used often is beginning to run out of data space. Using the Program Anyone who can turn the computer on can use this program. All you do is RUN"SUPERDIR." When the program loads up completely, you will be asked for the name of the disk. As stated earlier, the name of the disk is any code, name, or other useful information crucial in identifying the disk. When typing the name, try to keep the entry only as long as the printed line. If you go beyond this, you will have to abbreviate your entry somehow. If you do not, the computer will only take the first 25 characters of the entry. After entering the identification, the computer will ask you whether what you typed was correct. At this time you can review the entry and assure yourself of its accuracy. If the entry is wrong, press the [N] key. You will be given a chance to retype the8&: THE SMILING CAT&2: (C) COPYRIGHT 1989&M: BY TRS-80 COMPUTING&0:T2430:(T,2,8):T: T3441:(T,2,8):T&T2431:(T,3,8):T:T3442:(T,3,8):T:T2443:(T,4,8):T&T2544:(T,5,8):T:T2645:(T,6,8):T'(29,3):(30,4):(31,5):(32,6)'8(40,3):(41,4):(42,5):(43,6)'T2749:(T,7,8):T:T2628:(T,8,8):T:T3033:(T,8,5):T:T3543:(T,8,5):T'T4453:(T,8,8):T:T2428:(T,9,8):T:T3033:(T,9,5):(T,10,5):(T,13,5):T(T3542:(T,9,5):(T,10,5):(T,13,5):T(7T4354:(T,9,8):T:(42,8,5)(T2328:(T,10,8):T:T4355:(T,10,8):T:T2123:(T,11,8):T:T3031:(T,11,5):T("T3742:(T,11,5):T($(33,11,5):(35,11,5):(33,12,5):(35,12,5)(&T4955:(T,11,8):T)(T2022:(T,12,8):T)+*T2425:(T,12,2):T)E,T2728:(T,12,2):T)_.T3031:(T,12,5):T)y0T3742:(T,12,5):T)2(43,8):(43,9):(43,10):(43,11))4(44,12,2):T4648:(T,12,2):T:T5155:(T,12,8):T*L6T2021:(T,13,8):T:(23,13,2):T2528:(T,13,2):T:T4447:(T,13,2):T:(49,13,2):T5156:(T,13,8):T*8T1922:(T,14,8):T:T2329:(T,14,2):T:(26,14):T3237:(T,14,7):(T,15,7):T:T4349:(T,14,2):T:(46,14):T5156:(T,14,8):T+^:T1921:(T,15,8):T:T2431:(T,15,2):T:(25,15):(27,15):T3843:(T,15,2):T:(47,15,2):(49,15,2):T5156:(T,15,8):T+T2125:(T,17,8):T:T2835:(T,17,8):T:(30,17):(31,17):(32,17):T4755:(T,17,8):T,b@T2138:(T,18,8):T:T4655:(T,18,8):T,BT2237:(T,19,8):T:T4555:(T,19,8):T,DT2336:(T,20,8):T:T4454:(T,20,8):T,FT2453:(T,21,8):T,HT2552:(T,22,8):T-JT2647:(T,23,8):T-+N DLAY1 3000: DLAY-7S"BOOT"2138:(T,18,8):T:T4655:(T,18,8):T,BT2237:(T,19,8):T:T4555:(T,19,8):T,DT2336:(T,20,8):T:T4454:(T,20,8):T,FT2453:(T,21,8):T,HT2552:(T,22,8):T-JT2y will never print "01 free granules remaining." Another of my pet peeves is the fact that numbers are not aligned at the right in BASIC, not even with PRINT USING statements. I have also, in the same breath, put a fix in for that (lines 260-290). The b #$%'/BOOT BASBIRD 001&DESIGNS 001 >PAR3GOLF001"SMILCAT 001!;GRAVEYRD002@MUMMY 002lNOGHOST 002PUMPKIN 002.SPRDIR1 002\SPRDIR2 002HOLJOL 003LETSNOW 003(SLEIGH 0030GLASERSHW0043SHOPLIST004SLIPSLID004CUSTMBAS0055EASTEREG0054FILER 005 LETTREAD005 4TEXTCNTR0056.&:PAR 3 GOLF&3:FOR TANDY COLOR COMPUTER 3&J:BY FLOYD KEIRNAN& :6908 GOLD OAK LN, CITRUS HEIGHTS, CA 95621 PH.619-722-4985& :161): "TYPE OF MONITOR (RGB/CMP)R/C";MM$: MM$"R" M9 : M5& :2:9,16:8,0'$"BM115,30F80E8H4G8BM191,30G80H8E4F8":(168,106),6,4'"BM85,150U12R4F2D2G2L BM+12,6U8E4F4D4L8R8D4BM+8,0U12R4F2D2G2L4F6BM+16,-2D1F2R4E2U2H2L2R2E2U2H2L4G2D1BM+34,+0U2H2L4G2D8F2R4E2U2L2BM+10,2U8E2R4F2D8G2L4H2BM+23,3L6U12BM+14,11U12R6L6D6R3"(s"BM45,172U12R4F2D2G2L4R4F2D2G2L4BM+12,-12F6E6G6D6BM+20,0U12R6L6D6R3BM+16,6L6U12BM+12,10U8E2R4F2D8G2L4H2BM+13,-10F6E6G6D6BM+11,0U12R5F2D8G2L5)"BM157,172U12D7E7G6F6BM+8,0U12R6L6D6R4L4D6R6BM+8,0U12BM+8,12U12R4F2D2G2L4F6BM+8,0U12D1F10D1U12BM+8,12U8E4F4D4L8R8D4BM+8,0U12D1F10D1U12")$ X7 320 16:(X,5),3,4: X)I Y22 172 16:(311,Y),3,4:)n" X311 7 16:(X,186),3,4:)% Y167 17 16:(7,Y),3,4:)(X7:Y151:(X,Y),3,2)+ P0 10:(X,Y),3,4:(X,Y),3,0).XX12:YY4)1 P)4(X,Y),3,4*7X311:Y150:(X,Y),3,2*7: P0 10:(X,Y),3,4:(X,Y),3,0*H=XX13:YY4*f@ P:(X,Y),3,4:(X,Y),4,4*C 150,1:(X,Y),3,4: Q0 1000:*F0::@34,"BALL IS CONTROLLED WITH THE RIGHT JOYSTICK"*I@98,"CLUB NO. <---> "+L@138,"VELOCITY--^"+:O@194,"DRIVE BALL WITH RED BUTTON"+R@258,"PUTTING ANGLE IS CONTROLLED WITH THE RIGHT JOYSTICK"+U@451,"PRESS ANY KEY TO CONTINUE"+X "" 88+[:@35,"YOU HAVE A CHOICE OF THREE OPTIONS",p^@130,"NO.1--REGULAR GOLF":@194,"NO.2--GATED DRIVE (REQUIRES A MORE CAREFUL SELECTION OF CLUB ANGLE)",a@322,"NO.3--DRIVING RANGE(FOR DRIV- ING PRACTICE)":@424,"**HAVE FUN!**",mG$: G$"" 109,pH1:,sTT0,vS0:D0-yJ(80)100 :GREEN LOCATION-K}G(((50)J50)8)8 :HOLE LOCATION-fF(((50)250)8)8-tX4:Y182-2:8,0- (254,J),71,8,1.2 : (250,J),M,8 :GREEN-EE(10)10-(90,0),100,2,EE:(3,3),2,2 :LAKE.(F,G),7,,.8 :HOLE.N H10 (F,G)(F,G20),: (F10,G20),: (F10,G8),: (F,G8),. H9 (F,G)(F,G20),: (F16,G20),: (F16,G8),: (F,G8),. H9 ((F9)81,(G14)8),H. H10 ((F9)8,(G14)8),H/C (70)100 :SAND TRAP/D(80)70/%E(10)10.5/5U(21)19/Q G$"1" G$"3" 181/(0,120)(U4,U115),:(U20,U130),: (0,150),:(3,140),9,8 :GATE0(U16,U126)(78,192),:(44,192),:(U5,U143),:(U16,U126),:(52,190),9,8 :GATE0JA$"G5R3G6R4G7R10D4R2U4R10H7R4H6R2H5;BL5;BD23;R14":C$"XA$;BR28;BD40"0 H 187,190,193,196,199,202,205,208,211,187,193,199,205,211,190,196,202,2080"S6C1BM50,100;XC$;":(45,110),7,1: 2140"C1BM25,100;XC$;":(20,110),7,1: 2141 "S4C1BM150,165;XC$;":(145,175),3,11N"C1BM130,160;XC$;":(125,170),1,1: 2141q"C1BM15,75;XC$;":(10,85),1,11"C1BM100,165;XC$;":(95,175),1,11"C1BM245,20;XC$;":(245,30),3,1:2141"C1BM180,75;XC$;":(175,85),1,12 "C1BM60,100;XC$;":(55,110),1,12C"C4BM 4,187;U2H2F2E2":(X,Y),3,4:(X,Y),4,4 :TEE2~م G$"1" G$"2" AA40 10 10:(C,D),AA,1,E:2܅ (0)1 223 : 2202A((0)64)51 :CLUB ANGLE2V((1)90)1.5 :CLUB VELOCITY3 X185 T.1: 235 3 X185 3373% 175,133XAX:YAY3? 175,13](XA,YA),3,4:(XA,YA),3,03 XXA((V((A510)57))T)2 :X TRAJECTORY3DDYA3Y((((1)64)2((A510)57)T16T2))DD :Y TRAJECTORY3 Y180 Y1804 Y3 Y34# G$"1" G$"3" 2654g (X4,Y)9 X75 SS1: 472:(4,182),1:X4:Y182: 3224 G$"3" (X1,Y1)7 X66 490: 220 :HIT TREE4 X320 SS1: 356 :IN THE ROUGH4 Y4 Y45m (X,Y5)2 S0 (1,0),"OH! OH! IN THE DRINK":(4,1),"TRY A NEW BALL":SS1:(X,Y),3,4:(X,Y),4,4:(4,182),3,4:X4:Y182: 2145 (X,Y3)2 S0 (1,3),"HOW'S THE FISHING?":SS1:(X,Y),3,4:(X,Y),4,4:(4,182),3,4:X4:Y182: 2146 G$"3" YD XC25 XC25 YD25E YD25E "L16;G;P64;L8;O2;G":XC2:YD:SS1:(2,20),"OH! OH! THE SAND TRAP":(2,22),"PENALTY, 1 STROKE": 3016 S0 XF9 XF9 YG14 YG6 SS1: 397 :HOLE IN ONE6X1X:Y1Y7! (X,Y3)0 9 (X,Y),3,4:(X,Y),3,(X,Y3)7-$TT.3 :TRAJECTORY UNIT7?' Y180 3017* XF30 XF30 ( YG YG30)(XF30 XF30 YG30 YG15) 301 : 2447- XX X6 2 :BALL ROLL70(X,Y),3,473(X,Y),3,(X,Y3)76 X79(X,Y),3,47+ H18 FF54 @391,54FF"UNDER PAR">b H18 @358,"TOTAL FOR 18 IS" FF: Q0 5000:> H18 :@258,"OH!OH! I DO BELIEVE IT'S STARTING TO RAIN-- BETTER RUN FOR THE CLUB HOUSE->": Q02000:Q:2>:IF H=18 THEN HPAINT(50,100),9,8?z H18 "M52,45;R7U14L14D14R7L40U20L5E20R50F20L5D20L38":(15,22),5,8:(2,2),"19TH HOLE":X(300):Y(150):(X,Y),1,4? H18 (F,G8),:(F,G),3,4:Z(20)? H18 "T15V20L75O2E": Q0 300 Z::439@Q H9 0:@258,"YOUR SCORE ON THE FRONT NINE WAS"TT: TT27 @354,"YOU FINISHED"27TT "UNDER PAR":FFTT@Å H9 @418,"PRESS Y TO START THE BACK NINE W TO START THE FRONT NINE AGAIN N TO END THE GAME"@ƅ H9 HH1: 118@Ʌ H9 E$@̅ E$"" 457Aυ E$"Y" HH1:: 115A(҅ E$"W" 112A}Յ E$"N" :@258,"HOPE YOU ENJOYED THE GAME":@294," COME BACK AGAIN.":"BOOT"Aց 457Aؠ 150,1: X22 XX X20 10:(X,Y),3,4:(X,Y),3,0: X:(X,Y),3,4:(4,182),3,4:(4,182),4,4B((0,12),"NARROW IS THE GATE":(0,13),"TRY A NEW BALL"B.ސB=:HSCREEN2BKX4:Y188B[ (X,Y),1,4B 180,1: YY Y20 10:(X,Y),3,4:(X,Y),3,(X4,Y): Y:(X,Y),3,4:SS1B(0,10),"WHO PLANTED THAT TREE THERE!?"CT(125,165),8,4:(123,164),1,4:(127,164),1,4:(125,167),1,4:(125,169),2,4,.2:(118,155),5,4,2,0,1:(130,155),5,4,2,0,1C(136,179),16,4,.5:(148,173),5,4:(148,185),10,4,.5,.5,.8:(136,187)(148,187),:(125,173)(123,187),: Q01000:C(2,24),"DON'T LOOK AT ME!,I DIDN'T DO IT"D1,4:(125,167),1,4:(125,169),2,4,.2:(118,155),5,4,2,0,1:(130,155),5,4,2,0,1C(136,179),16,4,.5:(148,173),5,4:(148,185),10,4,.5,.5,.8:(136,187)(148,187),:(125,173)(123,187),: Q01000:C(2,24),"DON'T LOOK AT ME!,I DIDN'T DO IT"D:T2528:(T,13,2):T:T4447:(T,13,2):T:(49,13,2):T5156:(T,13,8):T*8T1922:(T,14,8):T:T2329:(T,14,2):T:(26,14):T3237:(T,14,7):(T,15,7):T:T4349:(T,14,2):T:(46,14):T5156:(T,14,8):T+^:T1921:(T,15,8):T:T2431:(T,15,2):T:(25,15):(27,15):T3843:(T,15,2):T:(47,15,2):(49,15,2):T5156:(T,15,8):T+T2125:(T,17,8):T:T2835:(T,17,8):T:(30,17):(31,17):(32,17):T4755:(T,17,8):T,b@T2138:(T,18,8):T:T4655:(T,18,8):T,BT2237:(T,19,8):T:T4555:(T,19,8):T,DT2336:(T,20,8):T:T4454:(T,20,8):T,FT2453:(T,21,8):T,HT2552:(T,22,8):T-JT2647:(T,23,8):T-+N DLAY1 3000: DLAY-8S"BOOT7"138:(T,18,8):T:T4655:(T,18,8):T,BT2237:(T,19,8):T:T4555:(T,19,8):T,DT2336:(T,20,8):T:T4454:(T,20,8):T,FT2453:(T,21,8):T,HT2552:(T,22,8):T-JT2 &  400&&= @0,"THE FLYING BIRD BY DAVID MCNALLY";&E :&{ "BIRD POSITION 1'S COLOR(1-7)";A: A1 A7 8&&"BIRD POSITION 2'S COLOR(1-7)";B: B1 B7 14&&"BIRD POSITION 3'S COLOR(1-7)";C: C1 C7 18&'2"BIRD POSITION 4'S COLOR(1-7)";D: D1 D7 22'90'DAA16'OBB16'Z CC16'e"DD16'$A$(129A)(138A)(128)(128)(128)(133A)(130A)'&B$(135A)(138A)(131A)(143A)(131A)(133A)(139A)(Z(C$(129A)(143A)(138A)(143A)(143A)(143A)(133A)(143A)(130A)(*D$(135A)(143A)(143A)(143A)(143A)(143A)(143A)(143A)(139A)),E$(143A)(143A)(143A)(143A)(143A)(143A)(143A)(143A)(143A))i.F$(141A)(143A)(143A)(143A)(143A)(143A)(142A))0G$(133A)(143A)(143A)(143A)(138A))2H$(132A)(143A)(143A)(143A)(136A)*4I$(143A)(143A)(143A)*%6J$(140A)(140A)(140A)*8K$(133B)(131B)(128)(128)(128)(131B)(143B)(131B)(128)(128)(128)(131B)(138B)+:L$(143B)(143B)(130B)(128)(143B)(143B)(143B)(128)(129B)(143B)(143B)+N$(133B)(143B)(143B)(143B)(143B)(143B)(143B)(143B)(138B),6@O$(141B)(143B)(143B)(143B)(143B)(143B)(142B),oBP$(133B)(143B)(143B)(143B)(138B),DQ$(132B)(143B)(143B)(143B)(136B),FR$(143B)(143B)(143B),HS$(140B)(140B)(140B)-JT$(131C)(143C)(131C)-<LU$(143C)(143C)(143C)-NV$(132C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(136C).:PW$(140C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(143C)(140C).RX$(141C)(143C)(143C)(143C)(143C)(143C)(142C).TY$(133C)(143C)(143C)(143C)(138C).VZ$(132C)(143C)(143C)(143C)(136C)/XA1$(143C)(143C)(143C)/EZB1$(140C)(140C)(140C)/k\C1$(131D)(143D)(131D)/^D1$(143D)(143D)(143D)/`E1$D1$(143D)(143D)/bF1$(135D)E1$(139D)0dG1$(135D)E1$(143D)(143D)(139D)0afH1$(133D)(143D)(143D)(141D)D1$(142D)(143D)(143D)(138D)0hI1$(129D)(143D)(142D)(136D)(132D)D1$(136D)(132D)(141D)(143D)(130D)15jJ1$(132D)(136D)(128)(128)(128)D1$(128)(128)(128)(132D)(136D)1[lK1$(140D)(140D)(140D)1gn 10001sp 10121r 10241t 10361v 10241x 10121z 1101@138,A$;:@170,B$;1@201,C$;:@233,D$;1@265,E$;:@298,F$;2@331,G$;:@363,H$;2&@396,I$;:@428,J$;2> T1 50: T:0:2V@167,K$;:@200,L$;2n@232,M$;:@265,N$;2@298,O$;:@331,P$;2@363,Q$;:@396,R$;2@428,S$;2 T1 50: T:0:2@172,T$;:@204,U$;2@231,V$;:@264,W$;3 @298,X$;:@331,Y$;3%@363,Z$;:@396,A1$;34@428,B1$;3L T1 50: T:0:3f @172,C1$;:@204,D1$;3@235,E1$;:@266,F1$;3@297,G1$;:@328,H1$;3@359,I1$;:@391,J1$;3@428,K1$;3 T1 50: T:0:@231,V$;:@264,W$;3 @298,& **********************&; * LET IT SNOW *&X * BY: DAVID MCNALLY *&u * C1989 *& * TRS-80 COMPUTING *& **********************&A1: A(117),B(117),C(117):& T1 117: A(T),B(T),C(T)' A(T)4 P1 80: P: T'. A(T)3 20: T'R A(T)2 Y1 200: Y: T' A(T)1 B(T),C(T) : A(T),1: B(T),C(T)''"BOOT"' 229,1: 89,4' W3 37' A(W)2 K1 200: K: W' A(W),1: B(W),C(W)' W((id -1,89,5,-1,89,5,229,176,4,229,176,4,229,165,4,218,159,4,218,147,4,229,133,4,229,89,4,-2,-2,-2(f 229,89,2,229,89,4,229,147,2,229,133,4,229,147,2,229,133,4,218,125,4,218,89,4,-2,-2,-2)h 218,108,4,218,185,4,218,185,4,218,176,4,223,165,4,223,159,4,223,147,2,-2,-2,-2)j 223,193,2,223,185,4,218,89,4,-2,-2,-2,218,89,2,218,165,4,218,159,4,-2,-2,-2,218,159,2,218,147,4,218,133,2,-2,-2,-2)l -3,-3,-3,229,133,2*n -2,-2,-2,229,125,4,229,133,4,229,147,2,229,159,4,229,147,4,229,125,4,229,176,4,229,147,2,-2,-2,-2*|p 229,125,2,229,147,4,223,133,4,223,133,2,223,125,4,204,108,4,204,89,2,204,108,4,218,125,2,-2,-2,-2*r 218,125,2,218,133,4,218,147,4,218,159,2,218,147,4,218,125,4,218,176,4,218,147,4,-2,-2,-2+0t 223,176,2,223,170,4,223,159,4,204,170,4,204,159,2,204,170,4,218,176,2,-2,-2,-2+v 218,89,4,197,176,2,197,176,4,197,165,4,218,159,4,218,147,4,197,133,4,197,89,4,-2,-2,-2+x 197,89,2,197,89,4,192,147,2,-4,-4,-4,197,133,4,197,147,2,197,133,4,218,125,4,218,89,4,-2,-2,-2,Qz 218,108,2,218,108,4,218,185,4,218,185,4,218,176,4,223,165,4,223,159,4,223,147,2,-2,-2,-2,| 223,193,2,223,185,4,218,176,4,-2,-2,-2,218,176,2,218,165,4,218,159,4,-2,-2,-2,218,159,2,218,147,4,229,133,2,147,2,197,133,4,218,125,4,218,89,4,-2,-2,-2,Qz 218,10yJ(80)100 :GREEN LOCATION-K}G(((50)J50)8)8 :HOLE LOCATION-fF(((50)250)8)8-tX4:Y182-2:8,0- (254,J),71,8,1.2 : (250,J),M,8 :GREEN-EE(10)10-(90,0),100,2,EE:(3,3),2,2 :LAKE.(F,G),7,,.8 :HOLE.N H10 (F,G)(F,G20),: (F10,G20),: (F10,G8),: (F,G8),. H9 (F,G)(F,G20),: (F16,G20),: (F16,G8),: (F,G8),. H9 ((F9)81,(G14)8),H. H10 ((F9)8,(G14)8),H/C (70)100 :SAND TRAP/D(80)70/%E(10)10.5/5U(21)19/Q G$"1" G$"3" 181/(0,120)(U4,U115),:(U20,U130),: (0,150),:(3,140),9,8 :GATE0(U16,U126)(78,192),:(44,192),:(U5,U143),:(U16,U126),:(52,190),9,8 :GATE0JA$"G5R3G6R4G7R10D4R2U4R10H7R4H6R2H5;BL5;BD23;R14":C$"XA$;BR28;BD40"0 H 187,190,193,196,199,202,205,208,211,187,193,199,205,211,190,196,202,2080"S6C1BM50,100;XC$;":(45,110),7,1: 2140"C1BM25,100;XC$;":(20,110),7,1: 2141 "S4C1BM150,165;XC$;":(145,175),3,11N"C1BM130,160;XC$;":(125,170),1,1: 2141q"C1BM15,75;XC$;":(10,85),1,11"C1BM100,165;XC$;":(95,175),1,11"C1BM245,20;XC$;":(245,30),3,1:2141"C1BM180,75;XC$;":(175,85),1,12 "C1BM60,100;XC$;":(55,110),1,12C"C4BM 4,187;U2H2F2E2":(X,Y),3,4:(X,Y),4,4 :TEE2~م G$"1" G$"2" AA40 10 10:(C,D),AA,1,E:2܅ (0)1 223 : 2202A((0)64)51 :CLUB ANGLE2V((1)90)1.5 :CLUB VELOCITY3 X185 T.1: 235 3 X185 3373% 175,133XAX:YAY3? 175,13](XA,YA),3,4:(XA,YA),3,03 XXA((V((A510)57))T)2 :X TRAJECTORY3DDYA3Y((((1)64)2((A510)57)T16T2))DD :Y TRAJECTORY3 Y180 Y1804 Y3 Y34# G$"1" G$"3" 2654g (X4,Y)9 X75 SS1: 472:(4,182),1:X4:Y182: 3224 G$"3" (X1,Y1)7 X66 490: 220 :HIT TREE4 X320 SS1: 356 :IN THE ROUGH4 Y4 Y45m (X,Y5)2 S0 (1,0),"OH! OH! IN THE DRINK":(4,1),"TRY A NEW BALL":SS1:(X,Y),3,4:(X,Y),4,4:(4,182),3,4:X4:Y182: 2145 (X,Y3)2 S0 (1,3),"HOW'S THE FISHING?":SS1:(X,Y),3,4:(X,Y),4,4:(4,182),3,4:X4:Y182: 2146 G$"3" YD XC25 XC25 YD25E YD25E "L16;G;P64;L8;O2;G":XC2:YD:SS1:(2,20),"OH! OH! THE SAND TRAP":(2,22),"PENALTY, 1 STROKE": 3016 S0 XF9 XF9 YG14 YG6 SS1: 397 :HOLE IN ONE6X1X:Y1Y7! (X,Y3)0 9 (X,Y),3,4:(X,Y),3,(X,Y3)7-$TT.3 :TRAJECTORY UNIT7?' Y180 3017* XF30 XF30 ( YG YG30)(XF30 XF30 YG30 YG15) 301 : 2447- XX X6 2 :BALL ROLL70(X,Y),3,473(X,Y),3,(X,Y3)76 X79(X,Y),3,47+ H18 FF54 @391,54FF"UNDER PAR">b H18 @358,"TOTAL FOR 18 IS" FF: Q0 5000:> H18 :@258,"OH!OH! I DO BELIEVE IT'S STARTING TO RAIN-- BETTER RUN FOR THE CLUB HOUSE->": Q02000:Q:2>:IF H=18 THEN HPAINT(50,100),9,8?z H18 "M52,45;R7U14L14D14R7L40U20L5E20R50F20L5D20L38":(15,22),5,8:(2,2),"19TH HOLE":X(300):Y(150):(X,Y),1,4? H18 (F,G8),:(F,G),3,4:Z(20)? H18 "T15V20L75O2E": Q0 300 Z::439@Q H9 0:@258,"YOUR SCORE ON THE FRONT NINE WAS"TT: TT27 @354,"YOU FINISHED"27TT "UNDER PAR":FFTT@Å H9 @418,"PRESS Y TO START THE BACK NINE W TO START THE FRONT NINE AGAIN N TO END THE GAME"@ƅ H9 HH1: 118@Ʌ H9 E$@̅ E$"" 457Aυ E$"Y" HH1:: 115A(҅ E$"W" 112AwՅ E$"N" :@258,"HOPE YOU ENJOYED THE GAME":@294," COME BACK AGAIN.":Aؠ 150,1: X22 XX X20 10:(X,Y),3,4:(X,Y),3,0: X:(X,Y),3,4:(4,182),3,4:(4,182),4,4B(0,12),"NARROW IS THE GATE":(0,13),"TRY A NEW BALL"BސB,:HSCREEN2B:X4:Y188BJ (X,Y),1,4B 180,1: YY Y20 10:(X,Y),3,4:(X,Y),3,(X4,Y): Y:(X,Y),3,4:SS1B(0,10),"WHO PLANTED THAT TREE THERE!?"CC(125,165),8,4:(123,164),1,4:(127,164),1,4:(125,167),1,4:(125,169),2,4,.2:(118,155),5,4,2,0,1:(130,155),5,4,2,0,1C(136,179),16,4,.5:(148,173),5,4:(148,185),10,4,.5,.5,.8:(136,187)(148,187),:(125,173)(123,187),: Q01000:C(2,24),"DON'T LOOK AT ME!,I DIDN'T DO IT"C1,4:(125,&: BOOT # 8&A(4):@8,"TRS-80 COMPUTING";:@45,"BOOT 8";&Y@96,"select one:";&@160,"1. HALLOWEEN MUMMY";:@192,"2. NO-GHOST";& @224,"3. SHOOT DOWN THAT PUMPKIN!";:@256,"4. COCO SUPER DIRECTORY (CC 1&2)";'1 @288,"5. COCO SUPER DIRECTORY (COCO 3)";:@320,"6. THE HAUNTED GRAVEYARD";'@352,"7. SANTA'S SLEIGH";:@384,"8. LET IT SNOW!";:@416,"9. LOAD PREVIOUS BOOT";'@448,"10. LOAD NEXT BOOT 11. QUIT": A$'A(A$):@448,"";( A1 "LOADING HALLOWEEN MUMMY...";:"MUMMY"(3 A2 "LOADING NO-GHOST...";:"NOGHOST"(q A3 "LOADING SHOOT DOWN THAT PUMPKIN...";:"PUMPKIN"( A4 "LOADING COCO SUPER DIRECTORY...";:"SUPERDIR/C12"( A5 "LOADING COCO SUPER DIRECTORY...";:"SUPERDIR/CC3"). A6 "LOADING THE HAUNTED GRAVEYARD...";:"GRAVEYRD")b A7 "LOADING SANTA'S SLEIGH...";:"SLEIGH") A8 "LOADING LET IT SNOW!...";:"LETSNOW")! A9 "BOOT7",R)" A10 "BOOT9",R)# A11 :)$ A0 A11 28,2: 5A6 *$ A0 A11 28,2: 5RD...";:"GRAVEYRD")h A7 "LOADING SANTA'S SLEIGH...";:"SLEIGH") A8 "LOADING LET IT SNOW!...";:"LETSNOW")! A9 "LOADING HOLLY JOLLY CHRISTMAS...";:"HOLJOL")" A10 "BOOT7",R*# A11 :W&: HALLOWEEN MUMMY&7: PROGRAMMED BY JOE AHERN&Q: COPYRIGHT (C) 1989&l: BY TRS-80 COMPUTING&x4,1:5&1,1:0,5& "BM148,168;L40H1L10H4L8H10E20U14H2U4H8U8HL8H8U8R6U8EU4HU8":LFT/EAR' "G8D8G4L6HU14R6E14U4E10R4E5R10ER18ER14ER6ER16FR10F12R4F10":TOP'L"D24G8D4F10GD6G12D8G4D10G2D4G2L16H10L16H8L8HL19H6"'i"BM148,168;U6E4U10H8U6"'"BM104,88;E4R4E6R14FD8G6L24HU3":(116,90),3:(116,90),0,0'"BM156,76;R8F2R14F2D8L28U6E2U4":(163,84),3:(163,84),0,0("BM132,98;E12F12D8L6H4L2G4L8U8"::NOSE(F"BM120,108;F4R8F4R24E8R4FG12L8GL22H2L8H12R12"("BM92,112;E4U26E4L4G4L18R10D6G4E4U6L10R18E4R12E8R20E8R54L28F8R12F4R2"("BM76,68;R12E4R16E8L8HL16R16FR8ER20E8R52")"BM76,52;R12E4R12E8L10H8F8R10F4R12F10":"BM132,28;F8R42L32F8R6F3")L "BM96,132;F36":"BM108,126;F40":"BM88,142;F26":"BM76,152;R21")V( 4026E4L4G4L18R10D6G4E4U6L10R18E4R12E8R20E8R54L28F8R12F4R2"("BM76,68;R12E4R16E8L8HL16R16FR8ER20E8R52")"BM76,52;R12E4R12E8L10H8F8R10F4R12F10":"BM132,28;F8R42L3 &: PUMPKIN&&: BY ALBERT NOAH&@: COPYRIGHT (C) 1989&[: BY TRS-80 COMPUTING&f 640&n 4&x 3,1&(A(34,20)&2&< 1,1'*F(9,7,3):(10,7,3):(9,8,3):(6,9,3):(6,9,3):(7,9,3):(8,9,3):(9,9,3):(10,9,3):(11,9,3):(12,9,3):(5,10,3):(6,10,3):(9,10,3):(12,10,3)'P(13,10,3):(4,11,3):(5,11,3):(6,11,3):(8,11,3):(9,11,3):(10,11,3):(12,11,3):(13,11,3):(14,11,3)(Z(4,12,3):(5,12,3):(6,12,3):(7,12,3):(8,12,3):(9,13,3):(10,12,3):(11,12,3):(12,12,3):(13,12,3):(14,12,3)({d(4,13,3):(7,13,3):(8,13,3):(9,13,3):(10,13,3):(11,13,3):(12,13,3):(14,13,3):(4,14,3):(14,14,3)(n(6,15,3):(13,15,3):(6,16,3):(7,16,3):(8,16,3):(9,16,3):(10,16,3):(11,16,3):(12,16,3)(x (6,13,3))-:PRESET(4,8,1):PRESET(28,8,1):PRESET(15,8,1):PRESET(19,8,1))R:PRESET(4,14,1):PRESET(28,14,1))i(0,0)(34,20),A,G)o)R1:T0:TT0:S0:MV1)X0:Y0)X(200)100:Y(180)90)A0:B0*&ҽ(128,86,0):(128,106,0):(108,96,0):(148,96,0):(128,85,0):(128,107,0):(106,96,0):(150,96,0)*NXX((32A)12):YY((32B)12)*cTT1:T84430*rY75Y75*Y75Y75*X112X112*X108X108*(113X,86Y)(147X,106Y),A,*"(65280)126(65280)254340+ ,XX(5)3:YY(3)2+#6MVMV:MV1230+7@A(0):B(1)+`J(65280)126 (65280)254210+pTSS1:50,2+^(64,192)(128,96),:(192,192)(128,96),+h(64,192)(128,96),:(192,192)(128,96),+rX10X10Y5Y5390+|210,I15305:(128,96),I,4,.4:I,II15305:(200I2),1:(128,96),I,1,.4:I,SHH1,eTM1500:TM,k,q,‡6)"AFTER ";R;"PUMPKINS":,̇5)"SHOTS = ";S,և5)"HITS = ";H,T84500,"TOO MUCH TIME. HE GOT AWAY":GG1-5)"GOT AWAY = ";G-YTTTTT:5)"SCORE = ";((250RTT)(TT250R)(H(S1)))-kTT1008630-:5)"TIME REMAINING"-"MINUTES";16);"SECONDS":M((1008TT)168):SC(((1008TT)M168)2.8)-&2);M;18);SC:.0:"PRESS THE FIRING BUTTON TO CONT.".8:M(65280):M126M254570.AD3,1.GN.PX1,1.^bT0:RR1.hl180.v"TIME HAS EXPIRED": 65495,0:65496,0:.:..10)"INSTRUCTIONS":."THE OBJECT OF THE GAME IS TO"/"SHOOT AS MANY PUMPKINS AS YOU"/+"CAN IN THE TIME THAT IS GIVEN."/Q"YOU WILL BE ALLOWED 30 SECONDS"/uƇ"PER PUMPKIN AND A TOTAL OF 6"/Ї"MINUTES OF FLYING TIME. YOUR"/ڇ"SCORE WILL BE BASED ON NO. OF"/"PUMPKINS SHOT DOWN AND ACCURACY."0 :" PRESS (ENTER) TO CONT";Z$00d"1) COCO 2 HIGH SPEED POKE 2) COCO 3 HIGH SPEED POKE 3) NO POKE"0w :"WHICH :";A0 A1 65494,0: 200 A2 65497,0:200* 20 OF"/"PUMPKINS SHOT DOWN AND ACCURACY."0 :" PRESS (ENTERD&: SANTA'S SLEIGH&6: PROGRAMMED BY JOE AHERN&P: COPYRIGHT (C) 1989&k: BY TRS-80 COMPUTING&} 3,1:: 1,1&"C6;BM56,76;R12F12D4F4D4F8D4R4F2R20U25EU8E12R8E8R16ER18D4L18G4L13G8L4GL4G4D6F2D24"'( "R4D4G4L28HL8H4L4HU6H8U2H12L6G4L4H4U6E4R6L6G4D6F4R4E4R6D18GD10G2D16F2R104U12"'F "E2U12E2U12E3U8E3U8E7U6"'"BM42,128;L4GD4FR6E8H8L8G12D6F16R148L15H16G16H16G16H16G16L15E8H8"'"BM96,112;U12R20L20E6R16L16H4G12F8H8E12F4U16R16L16D8H12E12F4D12U20R20D16"("U16L20E6R20G6E6D16U6E16F14H3E4H6G4H3"((156,88),6,6(+(60,80),7,6("BM172,136;E16F28G16H28;BM180,130;R4L4D4R4BR4BD2R4D4L4U4D4R4BR4BD2R4L4D4R4BR4BD2R4D4L4U4"("BM0,154;R254D40L254U37C5;BM192,154;R16":(128,172),6,6)P$"L4.;C;L8;B-;L4;A;G;F;G;A;F;L8;G;A;B-;G;L4.;A;L8;G;L4;F;E;L2;F")* "T5;O3;XP$;T5;O4;XP$;")C#X1850:X:"BOOT8"28;BM180,130;R4L4D4R4BR4BD2R4D4L4U4D4R4BR4BD2R4L4D4R4BR4BD2R4D4L4U4"("BM0,154;R254D40L254U37C5;BM192,154;R16":(128,172),6,6)P$"L4.;C;L8;B-;L4;A;G;F;G;A;F;L8;G;A;B-;G;L4.;A;L8& **********************&; * LET IT SNOW *&X * BY: DAVID MCNALLY *&u * C1989 *& * TRS-80 COMPUTING *& **********************&A1: A(117),B(117),C(117):& T1 117: A(T),B(T),C(T)' A(T)4 P1 80: P: T'. A(T)3 20: T'R A(T)2 Y1 200: Y: T' A(T)1 B(T),C(T) : A(T),1: B(T),C(T)''"BOOT8"' 229,1: 89,4' W3 37' A(W)2 K1 200: K: W' A(W),1: B(W),C(W)( W((jd -1,89,5,-1,89,5,229,176,4,229,176,4,229,165,4,218,159,4,218,147,4,229,133,4,229,89,4,-2,-2,-2(f 229,89,2,229,89,4,229,147,2,229,133,4,229,147,2,229,133,4,218,125,4,218,89,4,-2,-2,-2)h 218,108,4,218,185,4,218,185,4,218,176,4,223,165,4,223,159,4,223,147,2,-2,-2,-2)j 223,193,2,223,185,4,218,89,4,-2,-2,-2,218,89,2,218,165,4,218,159,4,-2,-2,-2,218,159,2,218,147,4,218,133,2,-2,-2,-2)l -3,-3,-3,229,133,2*n -2,-2,-2,229,125,4,229,133,4,229,147,2,229,159,4,229,147,4,229,125,4,229,176,4,229,147,2,-2,-2,-2*}p 229,125,2,229,147,4,223,133,4,223,133,2,223,125,4,204,108,4,204,89,2,204,108,4,218,125,2,-2,-2,-2*r 218,125,2,218,133,4,218,147,4,218,159,2,218,147,4,218,125,4,218,176,4,218,147,4,-2,-2,-2+1t 223,176,2,223,170,4,223,159,4,204,170,4,204,159,2,204,170,4,218,176,2,-2,-2,-2+v 218,89,4,197,176,2,197,176,4,197,165,4,218,159,4,218,147,4,197,133,4,197,89,4,-2,-2,-2+x 197,89,2,197,89,4,192,147,2,-4,-4,-4,197,133,4,197,147,2,197,133,4,218,125,4,218,89,4,-2,-2,-2,Rz 218,108,2,218,108,4,218,185,4,218,185,4,218,176,4,223,165,4,223,159,4,223,147,2,-2,-2,-2,| 223,193,2,223,185,4,218,176,4,-2,-2,-2,218,176,2,218,165,4,218,159,4,-2,-2,-2,218,159,2,218,147,4,229,133,2,147,2,197,133,4,218,125,4,218,89,4,-2,-2,-2,Rz 218,1&: BOOT # 9&A(4):@8,"TRS-80 COMPUTING";:@45,"BOOT 9";&Y@96,"select one:";&@160,"1. A HOLLY JOLLY CHRISTMAS";:@192,"2. LASER SHOW";& @224,"3. SHOPPING LIST";:@256,"4. SLIP-N-SLIDE";' @288,"5. THE HATCHING EGG";:@320,"6. CUSTOMIZING BASIC";'V @352,"7. LETTER READER";:@384,"8. FILER 9. TEXT CENTER UTILITY";'@416,"10. LOAD PREVIOUS BOOT 11. QUIT";' A$'A(A$)' A1 "LOADING HOLLY JOLLY CHRISTMAS...";:"HOLJOL"(  A2 "LOADING LASER SHOW...";:"LASERSHW/CC3"(A A3 "LOADING SHOPPING LIST...";:"SHOPLIST"(u A4 "LOADING SLIP-N-SLIDE...";:"SLIPSLID"( A5 "LOADING HATCHING EGG...";:"EASTEREG/PRO"( A6 "LOADING CUSTOMIZING BASIC...";:"CUSTMBAS/CC3") A7 "LOADING LETTER READER...";:"LETTREAD")I A8 "LOADING FILER...";:"FILER")! A9 "LOADING TEXT CENTER UTILITY...";:"TEXTCNTR")" A10 "LOADING PREVIOUS BOOT...";:"BOOT8")# A11 :)$ A0 A11 28,2: 5") A7 "LOADIN&  4000& 3,1&' 4000&. 3&8 1,0&F I3 7&T J2 6&b S0 3&p# R0 3&z( R,S&*A$: A$"C" P0 P1 : A$"C" P1 P0&+ A$"E" J0 J1 : A$"E" J1 J0&-A0:B255:C0:D191'2(A,C)(B,D),,B'v3A$: A$"C" P0 P1 : A$"C" P1 P0 : A$"E" U0 U1 : A$"E" U1 U0'4 A$(12) : A$"P" 1000'5 U1 (A,C)(B,D),'6 P1 (128,96),(65),S'7AAJ:BBJ:CCI:DDI(< A255 C191 50(A R(F S('K J(/L I(9P 80(G 2: 0,0(H1(150):V1(90):H2(150)168:V2(90)100:LC0( (7),0) A$: A$"P" 1041 : A$"B" Z0 Z1 : A$"B" Z1 Z0 : A$"D" L0 L1 : A$"D" L1 L0)I Z0 (H1,V1)(H2,V2), : Z1 (H1,V1)(H2,V2),,B)] A$(12) ) L1 Z0 (H1,V1)(H2,V2),,B:(H2,V1)(H1,V2), : L1 Z1 (H1,V1)(H2,V2),:(H2,V1)(H1,V2),)LCLC1:LC200 : 1010* H1H14:XH1: 1029:H1X**V1V14:YV1: 1035:V1Y*HH2H23:XH2: 1029:H2X*fV2V22:YV2: 1035:V2Y*r 1012* X0 X319X:* X319 XX319* * Y0 Y191Y:* Y191 YY191** 0: 3,1: 1,0* 20+ 0::@10,"LASER SHOW";+! 5000+=@39,"BY DAVID MCNALLY"+b@67,"(C) 1990 TRS-80 COMPUTING"+v:"MODE 1:":;+"C.................CIRCLES ON/OFF";+"E..................TWISTS ON/OFF";+" KEY.........CLEAR SCREEN";,"P..........SWITCH TO OTHER MODE!";,.:"MODE 2:":;,W"B.............LINES/BOXES ON/OFF";," KEY.........CLEAR SCREEN";,"D...........BOX AND LINES ON/OFF";,"P..........SWITCH TO OTHER MODE!";,A$: A$"" 4026, 5,:....SWITCH TO OTHER MODE!";,.:"MODE 2:":;,W"B.............LINES/BOXES ON/OFF";," KEY.........CLEAR SCREEN";,"D...........BOX AND LINES ON/OFF";,"P..........SWITCH TO OTHER MODE!";,A$: A$"" 4026, 5,:>: HATCHING BIRD EGG>;: (C) 1990 TRS-80 COMPUTING>K 8: 1,1:>V 520> 1,3::520:"C4;BM98,148;E6F6E6F6E6F6E6F6E6F6E2"> 1,5:: 500>"BM92,104;E4R8FR4D6H2G2H2G4H2G2H2U":(94,104),3,3?"C3;BM116,100;E8F4D4G4L4H":(120,100),3,3?:"BM136,104;E6R2F4DFD6GH4L4H2U":(140,103),3,3?b"BM160,120;E6FDL2R2DL4R4DL2R2DGH6"?u 1,7:: 500?"C2;BM108,146;U8E2U4E2U4D2L8UH2U8R4F8DG2H6F6E2U4EU4H4U6E6UE4R6U4R4F2D2R4F4DF6D6G4D4G4L2H2BU12BL4"@,"D2G2L2H2U2BL4BD12G2L3H2BR28E6R4D8G2DL8U2R2L4U2R2BR2BD2E4G4D2L2D2F2D4F2D8"@N(122,102),4,2:(134,102),4,2@"C3;BM60,180;E4R8FR4D6H2G2H2G4H2G2H2U":(66,180),3,3@"BM84,180;E8F4D4G4L4H":(88,180),3,3@"BM168,180;E6R2F4DFD6GH4L4H2U":(172,179),3,3A "BM188,180;E6FDL2R2DL4R4DL2R2DGH6"A)# 1,1: 1,0:X1500:XAE$ 1,3: 1,0:X1500:XAl& 1,5: 1,0:X1500:X: 1,7:1,0A(DLAY11050:DLAY:"BOOT9"A(128,148),35,3,1.2,0,.5A"C3;BM98,148;E6F6E6F6E6F6E6F6E6F6E2":(128,152),3,3AB(128,148),35,3,1.2B (128,148),3,3: 1,0:X1500:XAE$ 1,3: 1,0:X1500:XAl& 1,5: 1,0:X1500:X: 1,7:1,0A(DLAY11050:DLAY:"BOOT9"A(128,148),35,3,1.2,0,.5A"C3;BM98,148;E6F6E6F6E6F6E6F6E6F6E2":(128,152),3,3AB(128,148),35,3,1.>: CUSTOMIZING BASIC>4: COPYRIGHT (C) 1990>O: BY TRS-80 COMPUTING>[: 90>s :"LOOK FOR:": A$> 90> A$"DIR" 508217,18>:"SEARCHING FOR ";A$;"..."?  (A$)3 :"I CAN'T CHANGE THAT COMMAND!!": Y1 1050: Y: 90? TS E?%#A(A$)?q( L1 A1:C((TL)1):(C);: ((A$,L,1))C 80: L : T?-:"I CAN'T FIND THAT WORD!!": Y1 1000: Y:: 90?2 W1 A1?7W;" ";(A$,W,1)?< W?>W;" KILL COMMAND"@A"CHANGE WHAT #": B: BA1 B1 65@C BA A$;" WAS KILLED.":"TYPE LPOKE";T;",";(T):" TO ENABLE ";A$;".": T,18: A$"DIR" 208216,85: : @FQB1::"CHANGE TO:": C$: C$"A" C$"Z" C$"" C$" " 90@K TQ,(C$):: 160A;P L(A$)1 (TL)((A$,1)) Y1 1000: Y:: 50AAUAZ:@12,"UTILITY":"CUSTOMIZING BASIC FOR YOUR NEEDS";:7)"BY DAVID MCNALLY"A_ 160Ad:"A. EDIT A BASIC COMMAND"Ai:"B. EDIT AN EXTENDED BASIC COMMAND":Bn"C. EDIT A DISK BASIC COMMAND"BRs:"D. EDIT SUPER EXTENDED BASIC COMMAND":Bk}AA$: AA$"" 125B AA$"D" AA$"A" 100,1:: 90B AA$"A" S499712:E507903: 10B AA$"B" S491520:E499711:: 10Cg AA$"C" (188)14 S507904:E516095: 10:: (188)14 :"YOU DON'T HAVE DISK BASIC!!": I1 2000: I: 90C AA$"D" S516096:E523775: 10C: AA$"A" S499712:E507903: 10B AA$"B" S491520:E499711:: 10Cg AA$"C" (188)+>: TEXT CENTER UTILITY>6: COPYRIGHT (C) 1990>Q: BY TRS-80 COMPUTING>W>k L$(16),PO(16)> @6,"TEXT CENTER UTILITY!">@40,"BY DAVID MCNALLY"?L:" THIS PROGRAM WILL CENTER TEXT ON THE SCREEN. ENTER UP TO14 LINES AND THE COMPUTER WILL CENTER IT FOR YOU AND DISPLAY THE @ POSITION OF EACH LINE."?q:" PRESS ANY KEY TO GO ON"?A$: A$"" 20?? X1 16??"ENTER LINE #";X?:" WHEN DONE.":" TO QUIT ENTERING.":? L$(X)@ L$(X)"XX" 35 : X@$#XX1@.$IX2@F% I(I) II.5@X&TC256(I32)@f' Y1 X@(K((16(L$(Y))2))@*PO(Y)TCK(32Y)@. Y@/@0 Y1 X@2@PO(Y)1,L$(Y): Y@4 E1 2000: E@5@6 E1 XA"8"PRINT@";PO(E)1;",";(34);L$(E);(34)A*<:2@F% I(I) II.5@X&TC256(I32)@f' Y1 X@(K((16(L$(Y))2))@*PO(Y)TCK(32Y)@. Y@/@0 Y1 X@2@PO(Y)1,L$(Y): Y@4 E1 2000: E@5@6 E1 XA"8"PRIN