3GAME,MIND,STRA,CHAN,DEMO,UTIL,PRAC,ADVN,EDUCe56,37:55,224::S(56)256(55):M460:L32650,128:1,0:S$" "R0:6H((A$)256):B(A$)(H256): "*** ROGRAM EDGER **** BY RAIG RUCE **** 04 ULY 1985 ***"K"ENU:":"1. DD":"2. EARCH":"3. OAD / ERIFY""4. AVE":"5. RINT":"6. UMARIZE":"7. ORT" ""MR1"ECORDS REE" "HOICE ( TO UIT)?"; A$:A$""11 A$"Q""";:1:650,0:  A$"7"A$"0"11-(A$)17,37,74,90,110,96,131A(E0)6:E0:UI11000::15}CR:"":RM"NO MORE ROOM!":16A$"":""C1"PROGRAM NAME":1,A$::A$""15ASCL:A$(A$S$,16):I1(A$):AI1,((A$,I,1)):"EXPANSION":1,A$::A$(A$S$,2):I1(A$):AI15,((A$,I,1)):n"TYP:G M S C D U P A E":1,A$::A$(A$S$,1)A18,(A$):"NUMBER OF PARTS":1,A$:A19,(A$):"LENGTH (BYTES)":1,A$:5:A20,B:A21,H:"TAPE":1,A$::A22,(A$)/"LOCATION (COUNTER)":1,A$::5:A23,B:A24,H_"RATING":1,A$::A25,(A$):"GRAPHICS"1,A$::A$(A$S$,2):I1(A$):AI25,((A$,I,1)):"CONTROL":1,A$::A$(A$S$,2):I1(A$)AI27,((A$,I,1))::"LANGUAGE":1,A$:0A$(A$S$,2):I1(A$):AI29,((A$,I,1)):P " OK (Y/N)? ";l!A$:A$"Y"A$"N"33{"A$"N"18#EE0:$RR1:17%R0"O ECORDS!":16&"EARCH:":"ƒIRST":"̒AST":"ӒEARCH":"͒ENU"'"HOICE (,,, OR )?"*(A$:A$"F"C0:48@)A$"L"CR1:48N*A$"M"6^+A$"S"40,"SEARCH FOR PROGRAM":"FILENAME:":1,A$:A$(A$S$,16)-:"SEARCHING...".I0R:J116:(SILJ1)((A$,J,1)):CI:48/I"":I:"NOT FOUND!":16N0""C1"PROGRAM NAME":ASCL:I015:((AI));:b1:"EXPANSION"2I1617:((IA));:::"TYPE":((A18))3"NUMBER OF PARTS":(((A19)),2):"LENGTH (BYTES)"4(((A20)256(A21)),2):"TAPE"5(((A22)),2):"LOCATION"H6(((A23)256(A24)),2):"RATING"7(((A25)),2):"GRAPHICS":I2627:((AI));8::"CONTROL":I2829:((AI));:9:"LANGUAGE":I3031:((AI));:::"+ - M EDT FWD DEL RW";;A$:A$""59!<A$"M"69=A$"E"E1:18:48I>A$"+"66W?CC1:Z0i@CRC0CZqA48BA$"-"CC1:ZR1:64CA$"F"CC20:Z0:64DA$"R"CC20:ZR1:64EA$"D"59F"":"DELETE: SURE (Y/N)? "; GA$:A$""71HA$"Y"48LIA32:ISCLSRL:I,(IA)::RR1:C0:48J"OAD / ERIFY:":"̒OAD":"֒ERIFY":"͒ENU"K"ӒET ''":"RESS , , , OR "LA$:A$"S"95MA$"M"6NA$"L"A$"V"76OA0:A$"V"A1/P"EVICE? 1";B:186,B:185,0:157,255iQA$"":781,(55):782,(56):780,A:"AME";A$:""R183,(A$):A$(A$S$,16):I116:511I,((A$,I,1)):S187,0:188,2:EE0:T65493:A1ST.6UA187VA((781)256(782))S:R(AL):ST.6,W:"/ Ғ; PAK">XA$:A$""88EY6^Z"AVE: URE (/)"z[A$:A$"Y"A$"N"91\A$"Y"6]A253:E1:80:A$(SRL):5:781,B:782,H^253,(55):254,(56):65496:6_"'' ALUE";R:68`"SUMMARY:":B0:H0:A0:C0:Z0:Y0:R0"NO RECORDS!":16kaISSRL132:YY1:Y"":(I16)48CC1bBB256(I21)(I20):(I18)71HH1c(I30)77AA1d(I25)69ZZ1 e:"DEVICE? 3";I:2,I:A$"":I4I5I2A$" "F f"":2,A$;(R)" PROGRAMS.":2,A$;(B)" BYTES OF DATA."} g2,A$;((B10485.76.5)100)" MEGABYTES OF DATA." h2,A$;" AVERAGE LENGTH:"((BR))" BTYES." i2,A$;(H)" GAMES.":2,A$;(A)" ML PROGRAMS."!j2,A$;(C)" FOR EXPANDED VIC.":2,A$;(Z)" PROGRAMS ";C!k2,"WITH >= 70 RATING.":2:2:"PAK";V!lA$:A$""108]!m6!n"RINT:":"O EVICE? 4";A:"ROM AGE? 1";C!oC16!pH(C1)50:BSHL:YSRL1:HH1:4,A:HH1:BY4:6"qI13:4::A$"VIC PROGRAMS"9"r4,""40(A$));(14);A$:4:4,(15)36)"PAGE:"Ct"sI12:4::4,"NO. PROGRAM NAME TA LOC ";"t4,"EX TYPE RA GR CT LA BYTES P":4:Z0"uHH1:ZZ1:4,(" "(H),3)" ";:I015#v4,((BI));::4," ";(" "((B22)),2)" ";L#w4,(" "((B23)256(B24)),3)" ";:I1617p#x4,((IB));::A$((B18)):#yI19:B$:(A$)(B$)#z4," "B$" "(((B25)),2)" ";:I2627#{4,((IB));::4," ";:I2829$|4,((IB));::4," ";:I3031-$}4,((IB));::4," ";d$~4,(" "((B20)256(B21)),5);" ";(B19)x$BB32:BY130$Z50I16:4::CC1:113$117$4:4:6$R2"OT NOUGH ECORDS!":16%"ORTING...":A$(LRS):5:169,B:170,H:24471:6