' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u``C "(.27=k -g5>#-6?'-6?xA$")"H6:150' }A$"O"H7:150< A$"H"H8:150Q A$"E"H9:150g A$"M"H10:150 :A$:D$;"CLOSE": HX,Y:XX3:60X232,0:233,96  D$(4)&-3BD$;"OPEN PINUP"W(D$;"READ PINUP"_2Y0n7X0:Z(0)<A$:A$(13)YY3.84:55FA$" "H1:150PA$"'"A$"."H2:150_A$","H3:150dA$":"H4:150nA$"I"H5:150 150xA$")"A$"O"Ē5:1509A$"H"A$"E"Ē6:150MA$"M"Ē0:150e:A$:D$;"CLOSE":X,Y:X,Y1:XX1:60  D$(4)57+0,0:62454849230,0MD$;"OPEN PINUP"b(D$;"READ PINUP"j2Y0y7X0:Z(0)<A$:A$(13)YY1.28:55FA$" "Ē7:150PA$"'"Ē4:150ZA$"."A$","Ē3:150dA$":"Ē1:150nA$"I"Ē2:ECH" (4)"RUN MENU" < 24:15:"PRESS RETURN ";J A$:::6 TA$(A) ^:$ cA(49168)@ hA(49152)128:A1360e rA8A11PNTPNT1:PNT0PNT3 |A21A10PNTPNT1:PNT4PNT1 A13310 :: PNT500,600,700 (4)"RUN INSULTER WITHOUT SPEECH" X(4)"RUN INSULTER WITH SPEOU LIKE ?": 19= "USE THE ARROW KEY TO SELECT AND":^ "PRESS RETURN TO CONTINUE." A$(1)" INSULTER WITHOUT SPEECH " A$(2)" INSULTER WITH SPEECH " A$(3)" RETURN TO MENU " ,PNT1 6A13 @APNTĞ J8(A2): HEAR THE":9 "INSULTS SPOKEN THROUGH THE SPEAKER.":f "THIS PROGRAM MAY ALSO WORK WITH THE": "HARDWARE VERSION OF 'SAM' BUT I DONT": "HAVE THE CARD VERSION ANYMORE SO I": "COULDN'T TRY IT.": 1000 "WHICH PROGRAM WOULD YHICH IT MIXES AT RANDOM TO PRODUCE":V n"THE INSULTS. IT IS EASILY MODIFIABLE TO":z x"INCLUDE YOUR OWN TAUNTS.":: }1000 "THOSE WHO HAVE THE PROGRAM 'S.A.M.": "WITHOUT HARDWARE' CAN USE ANOTHER": "VERSION OF THE SAME PROGRAM TOK  ::%"+----------------+"?": INSULTER NOTES :"Y("+----------------+"e2:34,4k<F"INSULTER IS A PROGRAM THAT WILL GENERATE"P"RANDOM ABUSES AND INSULTS. THE PROGRAM":Z"HAS A BASE OF 320 WORDS AND PHRASES":% d"W     RISTOPHER OUP","BIG BLUE EYES"  "SHAVING CREAM","TENNIS SHOES","BEHALF","HONOR","COIN PURSE","EYE","BEER","WALLET","SPOON ","GRAPEFRUIT"  "BEDROOM","SANDWICH","HAIR","DRAWER","SPINNACH","LUNCH","SHOES","WASTEBASKET","EARS","SPARE TIRE" * BRUCE W. CHUPPED HANDS","GLOVE COMPARTMENT","LAUNDRY" "NOTEBOOK","CROTCH","POP BOTTLE","PIPE","CLEAVAGE","MUSKMELON","LEMONADE","LEFT NOSTRIL","GARDEN","COFFIN"  "PRESENCE","CLOSET","HOT CHOCOLATE","JELLO","EASTER BONNET","PANTS","HIP POCKET","SLIPPERS","SJAMAS","STOMACH" "MOUSTACHE","WAFFLE IRON","UNMADE BED","OWN BEST INTERESTS","HANDKERCHIEF","GREASY UNDIES","CREAM OF WHEAT","MITTENS","FAVORITE CHAIR","FLAPPING EAR"* "KITCHEN SINK","GRAVE","POT PIE","BRIEFCASE","PIE PAN","TEA CUP","DEFENSE","C"SMEAR GREASE"* -----OBJECTS-----  "JOCKSTRAP","BATHTUB","ASHTRAY","VOLKSWAGEN","OVERCOAT","TEACUP","SOAPDISH","BEST PAIR OF SOCKS","BELLY BUTTON","ARMPIT" "MOUTH","LAP","REFRIGERATOR","CORNER","MAILBOX","TAMBOURINE","NAME","DREAMS","PA" "SLOBBER","BURY A BONE","SHARPEN HIS CLAWS","BURN INNERTUBES","PRESS RATS","DIE","SHRIEK","SHOVEL TURDS","SCRATCH HIMSELF","FALL" "MASTURBATE","UNDRESS","CRY","RECLINE","ROLL DICE","BURN GARBAGE","FEEL HIS OATS","SLICE PICKLES","PEEL ONIONS",ORMS","SUCK HIS THUMB","STOMP","GRIND HIS HEELS","EMPTY HIS BLADDER","WIPE HIS FEET","FORNICATE","WRIGGLE SENSUOUSLY","SMIRK" "FEAST","COWER","PICK HIS NOSE","CACKLE","SCRATCH HIS BUTT","SOB","GRUMBLE","DANCE WILDLY","POP PIMPLES","SQUEEZE TOOTHPASTEP UP AND DOWN","DRIBBLE","HOLD HIS BREATH","CHEW HIS CUD","CASTRATE HIMSELF","SULK","LICK HIS LIPS","OOZE","DROOL" "GARGLE","SPLUTTER","FART","CRAP","WHIMPER","YELL","BRUSH HIS TEETH","SADDLE UP AND RIDE","WHINE","GIGGLE"} "SNEEZE","BREED EARTHWIS KNUCKLES","WEEP BITTERLY","WET HIMSELF","SWEAT","CHEW GARLIC" "WALLOW","SPILL BOILING WATER","GIVE BIRTH TO TWINS","DROP A WATERMELON","GO WEE-WEE","PUKE","TAKE A LEAK","FRY AN EGG","PASTE GREENSTAMPS","PACE UP AND DOWN"r "BLOW HIS NOSE","JUM","LEWDNESS"l "DESIRE","DESTRUCTION","SOCIOLOGY","FILTHINESS","CATALEPSY","CANCER","HELLFIRE","CORRUPTION","THE AMAZON","BLUBBER"v -----VERBS----- @ "LIGHT HIS BLOWTORCH","SPIT","SHUFFLE A DECK","HAVE A FIT","FIDDLE WITH HIMSELF","CRACK H "BRUTALITY","EVIL","REDUNDANCY","HARMONY","PREGNANCY","CELIBACY","DEATH AND TAXES","IMBECILITY","THE WILDERNESS","PARTS UNKNOWN" b "NO MEAN SIZE","LONG LIFE","INDEPENDENCE","SIMPLICITY","HIGH FINANCE","MOTHERHOOD","PSYCHOLOGY","PUSTULENCE","OSTEOPATHYGOOD WILL"zD "DELIGHT","MASOCHISM","BOREDOM","WAR","DESPAIR","HAPPINESS","DISEASE","SQUALOR","APATHY","CHRISTMAS PAST"N "SUFFERING","PERSPICASITY","COMPLACEMCY","DEGENERACY","CARNALITY","TORPITUDE","BASE DESIRES","TRAGEDY","CRIME","OBESITY" X0 "PERVERSION","PERDITION","MOTHER LOVE","FICKLENESS","NAUSEA","VALOR","ILLEGITIMACY","LUST","RELEVANCE","PUNISHMENT" : "JUSTICE","THE DEEP BLUE SEA","NYMPHOMANIA","PESSIMISM","SYPHILIS","DEEDS UNSUNG","SWEETNESS AND LIGHT","GLORY","DARKEST AFRICA","ASP","RATTLESNAKE","IGUANA","STINK BUG","VAMPIRE","ALLIGATOR"\ -----QUALIFIERS----- & "SCHOLARSHIP","THE SUNNY SOUTH","NECROPHILIA","CONSTIPATION","LETHARGY","FEAR AND TREMBLING","DESPERATION","SOCIAL CONSCIENCE","DIARRHEA","SONG AND STORY"w SHEEP FROG","JELLYFISH","PORCUPINE","CRAWLING CRAB" "HAMMERHEAD SHARK","VULTURE","BLACK STALLION","FRIENDLY WORM","GARTER SNAKE","DOORMOUSE","KANGAROO","OTTER","YAK","PENGUIN"= "ANACONDA","HEFFIBLE HORRALUMP","SKUNK","GREASY GOPHER","STINGING W CAMEL","SEA SERPENT","WOODPECKER","HORSEFLY" "SEA HORSE","TARANTULA","WALRUS","POUNCING PUMA","TURTLE","LEAPING LIZARD","QUESTING BEAST","LUNGFISH","MAD DOG","ANTEATER"4 "PATRON SAINT","HIGH PRIEST","BABOON","GHOST","PLATYPUS","SPIDER","MEXICANOTAMUS" "COCKROACH","SABRE TOOTH CHICKEN","TERRIBLE TOAD","GOD","CRAFTY FOX","PINK PANTHER","PHILOSOPHER","FEROCIOUS FLEA","HORRIBLE HEFFALUMP","PERSONIFICATION"- "FLYING SQUIRREL","CARRION CROW","DRAGON","GORILLA","HOWLING WOLF","ZEBRA","HUMPTY-   "TURTLE","BUZZARD","SPIDER","SCREAMING HYENA","GRUMPY GREMLIN","WOMBAT","GILA MONSTER","ARMADILLO","GOBLIN","OCTOPUS" "HOBGOBLIN","SCREECH OWL","AARDVARK","GALLOPING GOOSE","OPOSSUM","STUBBORN MULE","GROUNDHOG","WEREWOLF","GOOD FAIRY","HIPPrR4((1)N4)1 |9 "MAY THE "S$(R1)" OF "Q$(R2)Y V$(R3)" IN YOUR "O$(R4)"." SAM$"MAY THE "S$(R1)" OF "Q$(R2)" "V$(R3)" IN YOUR "O$(R4)"." 16384:1002:SAM$:0:1002 PAUSE12000:PAUSE 340  -----SUBJECTS----ARE "N1N2N3N4" POSSIBLE INSULTS":V ""PLEASE INSERT 'S.A.M. WITHOUT HARDWARE'":~ ,"DISK AND PRESS ";:"";A$ 6(4)"BLOAD SAM,A$4000" @ JGENERATE RANDOM SUBSCRIPTS TR1((1)N1)1 ^R2((1)N2)1 hR3((1)N3)1 BY DON'T ASK SOFTWARE.":E "(THE VERSION THAT DOES NOT REQUIRE":x "HARDWARE). PRESS TO START ";:"";A$ :: "+----------------------+" ": INSULTER WITH SPEECH :" "+----------------------+" :4::34,6% "THERE I1N1:S$(I):I' nI1N2:Q$(I):I= xI1N3:V$(I):IS I1N4:O$(I):I] ::} "+----------------------+" ": INSULTER WITH SPEECH :" "+----------------------+" : "THIS PROGRAM REQUIRES THE PROGRAM": "'S.A.M.'  RANDOM INSULTS PROGRAM8N1=NUMBER OF SUBJECTSUN2=NUMBER OF QUALIFIERSm(N3=NUMBER OF VERBS2N4=NUMBER OF OBJECTS.<16384FN180:N280:N380:N480PS$(N1),Q$(N2),V$(N3),O$(N4)Z LOAD THE ARRAYS FROM DATA STATEMENTS d     ) "; A$:A$"1"A$"7"3202 :(4)"PR#"A$H (4)"OPEN PINUP"^ (4)"READ PINUP"h B$""y A$:B$B$A$ A$(13)ĺB$;:186 B$"END"300 190 ,:(4)"CLOSE" 6(4)"PR#0" @: J:(4)"RUN MENU" IS SUPPLIED ON":B d"THIS DISK PURLEY AS AN INTERESTING AND":r n"CLEVER BIT OF COMPUTER IMAGERY. IT WAS": x"NOT INTENDED TO OFFEND.":: "TURN YOUR PRINTER ONLINE AND ENTER THE": "SLOT NUMBER OF YOUR PRINTER CARD": "(0 TO EXIT  ::""+-------------+"9": PINUP NOTES :"P("+-------------+"X2:<"THE TEXT FILE 'PINUP' ON THIS DISK":F"CONTAINS THE SIDE-ON VIEW OF A FEMALE.":P"THE FIGURE IS CREATED ENTIRELY OUT OF": Z"THE CHARACTERS A-Z. IT ɺȧɧčɺ͍ɺɺɺɺɺȺɺɍ͍ͺȺȺɺɺȺɺɺɧɺȠɺȺɠȺȺ͠ɮȺȺ͠ɺȺɮȺͧɺɺ͠ȺȺͧɺȺͧɺȮɺɺȺɺ͠ɺɺɺɺɺɺɺɺͮɺɺɺɺɺȺɺȺɺɺɺɺɺȺɺȺɺɺɺɺͧɮɍɠɺȺȺɺɺɺɺͧɺȧɺͧɺͧɺͧɺȺȍɺȍɺȠɍɺȧɺ͍ɺ͍Ⱥɍɺͧɺ͍ɺ͍ɺͧɺȍɺɍɺͧɺ͍ȍɺȧɺȍȺȧȺɍɺɺȍɺȮȍɺɺɍɺȧɺɺȧɺɧɺȍɺɺȍɺɮȍͧɺɺͧɺɺͧɺɺɧɺɺͺȮͩȺɍɺɮͺɺȬɺͺȮȬɺɺȺɺͺɺȧɺͺɺɺͺɠͺɠɮɺɮͺɺɺɮͮȺȺɮͺɬɮɺȺɺɺɬɺͺɺɧɮȺɺɺɺȺȺɺɺɠɺɺɺȺɺɠȺɠɺͧɺɺͧɺɺɺɺɺɺɺɺɮȺȺɬͧȺɺɠɺɺɮɺȮɬɺͺȺͺͮɺɺͮɺɧɠɍɬͮɬ͍ȺͺȠ͠Ȭɬ͍͠ɮ͠ɺɮȺɺȺͺͬͬͺ͍           "";A$% (4)"RUN PICK-A-BASE" INCLUDED THIS PROGRAM ON THE DISK":U d"BECAUSE IT DEMONSTRATES SOME VERY CLEVER" n"PROGRAMMING TECHNIQUES. I'VE EXPANDED": x"THE PROGRAM LISTING SO THAT THE LOGIC": "IS EASIER TO TRACE."::: "PRESS TO RUN PICK-A-BASE ";&  ::("+-------------------+"E": PICK-A-BASE NOTES :"b("+-------------------+"j2:<"THIS CLEVER LITTLE PROGRAM WILL CONVERT":F"A NUMBER FROM ONE BASE TO ANOTHER. IT":P"WORKS WITH ANY BASE FROM 2 TO 36.":% Z"I'VE NOUTB%:V%NJ%OUTB%1:KK19 ,OUT$OUT$(TAB$,V%,1)L 6NJ%:N0290e @C%C%1:C%23C%4x JC%1:1:39) TC%:1:39):C%:1 ^O$;:T1%:NUM; hT2%:IK11 r(OUT$,I,1);:::160 |:::(4)"RUN MENU" 160$"" IN$"/"60% IN$"."3806 (IN$)160D NUM0:K0T I1(IN$)p J%((IN$,I,1))("0") J%9J%J%7 J%0J%INB%270 KK1:O$O$(IN$,I,1):NUMNUMINB%J% (O$)ĭINB%16(IN$)4160  K0:NNUM "J%SE (2-36) >";OUTB%: ZINB%2INB%36OUTB%2OUTB%3660B d:n n"TYPE '.' TO EXIT, '/' FOR NEW BASE": x:" BASE "INB%" "; T1%:" BASE 10 "; T2%:" BASE ";OUTB%;" " ::C%(37):34,C% 34,23:24:"ENTER NUMBER ";IN$:O$"":OUT3 PICK-A-BASE. BY VAL J GOLDING & DON WILLIAMSiALL BASE NUMBER CONVERTER FROM BASE 2 TO BASE 36s390(TAB$"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"2T1%13:T2%T1%12<F:"ENTER INPUT BASE (2-36) >";INB% P:"ENTER OUTPUT BAUghȘeeȑ eiikmjlnLz@0/ . . : . . :/0`HH)hJJ hhhi .i .i nhi) ih(`hh`=================== PROGRAM DESIGNED BY PETER STUBBS NEWCASTLE NSW 17-6-84 ===================Z)::D$"PR#3":310::10:30:" ":30:" PRINT MORE LABELS (Y/N) ? ":30:" "::16384,128:A$:A$"Y"330:(27)(17)1016:DELETE THIS LINE IF YOU AREN'T USING PLEN$(Z)AN$(Z)PAD$AN$:AN$(BLANK$,(19(AN$)2))AN$:(37):1403,42:AN$:(37):1403,79:"|":19:(11):22:"ARE THE LABEL LAYOUTS CORRECT (Y/N) ? ";:16384,128:A$:A$:(A$"Y"A$"N")410:A$"N"330D$"PR#1":(14)AN$(1):Z27:AN$(K$,(19(AN$)2))AN$:(37):2:AN$:8:"|":8:1403,42:FL18:20:AN$(1)AN$(1)(BLANK$,(10(AN$)2))AN$:AN$(BLANK$,(19(AN$)2))AN$:(37):1403,42:AN$:8:1403,41:"|"bFL36:Z27:7Z:1403,42:20:PAD$(BLANK$,((39(AN$))2)):A36 LETTERS"r8:2:FL18:20:AN$(1)(BLANK$,(10(AN$)2))AN$:AN$(1)AN$(1)(BLANK$,(20(AN$(1)))):AN$(BLANK$,(19(AN$)2))AN$:(37):2:AN$:8:"|"/|FL36:Z27:7Z:2:20:PAD$(BLANK$,((39(AN$))2)):AN$(Z)PAD$AN$PAD$:AN$(BLAN;:[^"|_____________________________________| |_____________________________________|" h20:"ALL LINES WILL BE AUTOMATICALLY CENTRED, WITH LINE 1 PRINTED IN ENLARGED LETTERS":"SO LINE 1 CAN ONLY CONTAIN 18 LETTERS,BUT ALL OTHER LINES CAN CONTAIN ":310N J6:12:"L A B E L O N E"25)"L A B E L T W O":7T" _____________________________________ _____________________________________":I17:"| | | |"SH$"================================================================================":DASH$;::" DISK LABEL MAKER ( EPSON PRINTER ) - BY PETER STUBBS ";::DASH$: @D$(13)(4):D$"PR#3":BLANK$" I$(AN$,1)I$:JJ1$ J0AN$""8 JAN$(AN$,J)@ 40n P141AN$AN$I$:I$;" "::* RETURN KEY P14940:*FORWARDARROWKEY (I$)40 AN$AN$(I$,1):JJ1:(I$,1); (I$)1I$"" "(I$)I$(I$,(I$)1) ,40 6DAP159P255ĭJ(I$)FLĭNAN$AN$(P128):JJ1:(P);:40Y P255190:DELETE KEY Jĺ" ";:36,L:1403,L:M1:(136);:JJ1 J0AN$"" JAN$(AN$,J) 40 P136240:* BACK ARROW KEY Jĺ" ";:36,L:1403,L:M1:(136);: CURRENT HORIZ POSITION WITH//E 80 COLUMN CARD TURNED ONI <"_";I$;" ";v FN1:(37)(35)1ĭL(I$)(33)3N0 P36,L:1403,L:M1 ZII1:I0K1K:I5:(3263K); d36,L:1403,L:M1 nP(16384):P12890 x16368,0:K0:I0= w:"TURN ON PRINTER & PRESS A KEY":16384,128:A$::"PR#1":1657,80:(27)(71)(27)(69):(4)"PR#0":320 MAGIC MENU INPUT ROUTINEI5:J0:K0:L0:M0:I$"":AN$""AN$;:J(AN$)(M(37)8 2L(36):L(1147)L(1403):FIND          ϠԠ٠ˠՠԠ̠ŠŠˠĠ̠ԠŠנӮˠ٠ĠҠΠĠӮ٠ȠҠˠٯΩΩ2Ӯ٠ĠӠΧԠŠŠϠĠӠΠŠӠƠΠĠˮӠΠϠԠΠˠΠŮϠҠٯΩ /       (/):ŠӠΠ٠ӠΠ:150nA$"I"H5:150/xA$")"H6:150D}A$"O"H7:150YA$"H"H8:150nA$"E"H9:150A$"M"H10:150:A$:D$;"CLOSE":HX,Y:YY3:60232,0:233,96  D$(4)=D$;"BLOAD SHAP (24576)"D4K3`D$;"OPEN PINUP"u(D$;"READ PINUP"}2X37Y189:Z(0)<A$:A$(13)XX3:55FA$" "H1:150PA$"'"A$"."H2:150_A$","H3:150dA$":"H4 UUQTUQU?/// # # #/?_w]u]UUnU;U*U*Q***("*"  " "("*"**********D**D*U*U*U*U*U*  ""*"*"*"*"*"**"""""""* *@****@**@**D**D**U**T*P(@"""""****(*?;;n*.w*]*W*U*U UUUDD@@@DDDDDEQUUUUUUUUUU UU"U(U"U*U"U*U*]DDDDDU*"*"*"*"~{}~xU`}jQ*W]+n:_W;UW*]*W UUED@DD@DQDUTUTUEU UUUU"UU*UT P@@DQDDUDUDQTUD\~~]~t{UkU+@bU;P"E **"UUUUQUEUUUUU"U*U"](T P@ @@DDTDUUUUU?UzW+w??_??]?w]UUnUUnU;U*U:Q*D**** """"  " "**********E**T:P(@   "(" "@@DDEUTUUUD}wUuUU{U~U;UnU;U~U:*U**U::U;UnU:U*U**E**@***** *(*****E**U*P`@" " """"* "(***{o;n**W***_*W*]*U*U UUUUUEUUUU@@`@`P`pxpxpx|xt~|~|~}~ww_W]W]W?UoU?UoU]~UUnU:UjU+Q*@*"*" "("****D+*U;P, "" "(" "***"*"~~ {o{j+.+_*+_*+_**_*w*]**_*w*U*w*U*w*}**]*w*U(U*U U"UUUUTUDQTUEUUUUU"TPDUDUDUTUE2 p~~~ _W?UnU*U*T**(" ""(*@**D*Q*U:Q"# """"**(**(**@@@@@@ p`p phpx}~>~???//+_ W*] UUEDDDUUUU*U*U"U@@DDEDETUQ"u*u*}*u*}*u*]*_*]  ]*WU@@@@P T Q U(U(U(UUU8Go WUU+U+E+*** * "("("****D:     *.*****.** "***"6> /_/+_*W*] U*UTTDQDUTU"UU*U*w*P%@DQD*W+U*W*U*W*U*u*uhu*u*u*u(u*}(u @DUDU"DEQD;@xp~ _w?U.U**** * * *****@( @"*:>U??W?U/W/U/W++E++E+Q*E*Q*U**@(" " *D*"** *(:Ac {~:jw"U(U UQUEDEUUUUU(UUU"U*U*U*U**U*U UT*]>>>../_/+_/W+_+W+W+W"U*U"UUD @UUEU TUUUA@```p`ppp`pxxx| W]U?U/U**  *Uju{Uzu{u~u{}~u]~U>]>U?]?U?].U/U/E(****" "**@}++_+w+W+W+W W*_ _*](u(TQ PP @W+W W+WU;U/E;U+U+U* "***"D********P+**]*U"UU*U*wz}zz}zz}z:}>:>:].>_._._ UUUU UUEUUUUQU ]wUU:U*D*" "*/W?UoW+UoU+UkUkUoU{U~UzUnuzUzuzQj@ "(******@(**PTn ;nN+] wUWUjD**"*U*UoU{uu{uzu{u~uzu~u{U~u?]~U>]>]>*"**** *@(***(***@*N{n**U"UDE W*_+w+/w+_+W**w*]ju*}jw*}juj}ju*u DDQUUU UUUQUU UUP+w]U{UjD***:U.U]_?_oW_oW?WoWUoUQDDUUUUUTUUUUUUUUL] WU~U:U*@*  *E+/W;U/U;U/U;UkU+UoU{UjU{UjU{UjUzU"* *@**@**("*"***"**M n:**U(U DU(u*}::}.>_.._._/_.+_+w+_+w+U*W*UQQEUUUEQDUUUUUUU U:}*:_**_**_*w*_*w+jwjujw*UUDUUU"UU"TQDDUTUEUUUUS@``xpxtxTnT***+ /w]]}]}]~]W?UoW?UW?UU;UU:Q*("* *D** "**(***@** Npx|~o*}*u"UQDD U*W*jw*}jw*jw:}z:}z:}::>*_.*T**@(*""":**.U**U*****.*"* "(* ******d*UEEUUUUUU"TUUUUUQUUUU{@@ @`@`@`@`@hP`Q{T*@("  *@*****"("*****"***"b@`t8|(|:|h}:|*U*U*U*U*U*U*U*U"]*uDDUUUUUUQUUY]jU?U*T**( @+U*U:U*U:U*E*U*T*U*T*UoU("*"**********\/{*U*U*U"UUDW*UU*]*w*]*U*U(U*U*U*U*(DDUEUUUUUUU UU"U`?jU;UnL *]**_*:jw*UU TUDQU*UU*U(U*U(U*U*U*UU*_*uDDQDEUUUUU"UUUS}uzUjT**""   **U*U.U*UjU*U.U**U*UT"*"(******@**D*V_:.w*U(UUPDD@*U*W**** *(***@*@ *n**w**u*]*U"U(U UQTDD@ "U*U"]*U*U*U"U*U*U U*jUDDEUQUUUUUUUUUG /_UnU;U~U{UnUzUjT*Q**"(+U*D:U*T*U*T*U*T*U*E+U~P""*" "********@4 *]*U"U(}*]*w*U*w*U U*U(U"UU TUDQ@U*U U*UU*UU*UU*UU*(Q@DDUDUDUUUUUUU U; ~U;UnU{U~U:UnU*UnT*P*D**@*** "" *UjU*Q*U**E*Q*U*Q*U+]~@"""            >?U**]*U.u+U**"(/U*U@*U:U.u*WzU.u*"T D w*U*U@*UT*U("D*U**D@>W*U*U* *]*E(D*QD |jj?"U*p+(]*E*T( Q"U(Q**U;w];uU:/"U*U{w];U U*@~{*U*p{W/U*U(Q"D*@@jU:U+U*W>U+u*U""Up(U*U x]|+U"E Q"T(U*U*@Q*U*]jE.U+Uh*P*~oU*U*"_w/}{w.U* U*E*U*U(U*U**U*Q"E*U*U(Q*E*"D*U"D*T("D"U ~~};"  _?k_{Wo}+zW?U@*U*U*U*U*U*U*U*U"U U*U*U*U**D("E*"D"D*p_{Wn_+wnDU*U;| D*Uj]:U*T*"T*U*U"D"D"D"D"T *U*Q"@*D"@"D"];W*] U* D(|W*U@(U*U:T*U*T U*D"E*U(U*D"D(U"U*D Q.D"D"D"~?}/T*Un_xW*Q*T T +U*U*U*U**_zU.u*_@_?]~@Q*Uz*u~_ "D"T(QD @uoU*U*U *@(W  `/U{`_?WjU*U*U*U*`?j_{uo}k~U/UU*U*x#U*wnp+x?w+]*"U*U*U*U*U*]**U:jU>u/]zW>u+u*U*~U*U :}jU:U+U*@*"("p]*U@*WzU.u+_zW>U+U@ @D" @`+U*U:U.U(U*U8 D*U*U*(@"~]*U*U*E*Q@:* @*UP"E@ |{_` D*U*`+*U U*U*U*U U.u*]*E*+wo]]Q*uT*U:w]*T*U* @*@*U p/W U*U*U*U*@+W:U+ujW:U/}*W**D(Upx*U*U]xwjU*T"@*E*U*U*U*T*U.U+UjU:U+]*E*T*U~?w*U*U*U( @"};o_:U""`U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*U"U U*T*U"U*U*T*Uxw:U D"};z_?o{W>U P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Q*U*U*U*U*U*U*U*pk D(U*U?Ujt+D*Uj{*u*E(U*U*U*E "D("E*D"T*U*U*U*D@*"D"D"D}wn_;W"U*""D(U*}U "D"TP*U*U*U;U*U*U*U*U*U *U*U"U**T(Q*U*U*U*"T**D("D *U*~?UU*]{`w*U*"DU*U"DU*U*U.U*U*E "DQ*u+_zU?u*] D@W~Q*U*wn}W*E "D(Q*U "D"Du]*U*U**UD(u*]" @"D/wn`_:w*EUjU+U`w}{~]?k_{W/U U*U*x? Unx+W*U*U*UU*U*U.U:U*U{w_{w~};~_>u+}@@*U*p?W**D*]*W:U*P" (*@c?U*@*]:U.u+_zU>u  E w*U*UnU*U*U*`@(U*U*U*U("@xW*U*UP*Uh] Q"U toP*U*@+ Q*T*U*E**U.U"U*Q*.}{\;w Tj}T*WnW P*U"T*@E( @W~*U`_+U*U U"@*U:U.u*WzU/u*U*@"Dpw~ U*_p_:U*U@ *T(U*U*QjU*U+]*U>U+U**"U _:U*UU*}w/}*W*UP@*U*T*U*U U*U*U*U *T(U"U**U*UD*U*D("E U"DQ"]AooU:U*E"_w/_{w}?jW:T*U*U*U*U*U*Q*U*U*U*U"U*U*U(U"E *T(Q"U*"T(Q"@_{"T*wj?@*Q*U/] "D(U*E"@"D"DD*U*U*U*E@.@" @"p_;nU;W*P*U*|*U*UP*U*U*U*U**DQ"DQ"D("E "D*E U*U(P*D"D"D"x#U*u~]_*U*U("U*@U*U*U*U*]*"D(Q"U>u+_zW?u+u~D*UjxW *T"D U"D"U~_*U*U*U*UU/}* z/];`n]:"DU*`_?o_zwo}+~U?U(U*U*`#U:/`_*U*U*"U*U*U*W*U:`u;j_?wo{W~U+uP*U*~]*U*Q :}j*U @(*U@ D(*GU*U*jU>u/]zW>U+( @"@ @@@+un]+tn] T.]{U*Wn]wnU*("Dh_*U*U;U*U"T:w"D  "D*|{"T*U*~+Un+U(**U*U*U*U*UU*]jU>u+]*E*@}+*_@(U:to+@jU*U*U*@U*U ~U*U@/U*U*@*WzU/u*_zU.u+W*P"DP*Unp~U+U Q*E*U*U*U*U*PjU>U+ujU:U/]*W* U*U~]:W*U* D*+u*E  U:w"P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*E*U*U*U*E *U*U*U*?w*U*"D* "~;w/]*W*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U *U*U*U*U*U*Q*U*@~*T*Uj*U:?_*D(Q"U*U*U "D"D"D(.U*U*U Q* "U*"D"D"Dp~Wb];"DQ"U*Un|/D*U*U*U Q*U*U*U+U*U*Q"E*U*U*Q"U*U*U(Q"U*U*U*"@@*Q"E "T(Q"U*x Un;|+T.U+U*E*U*U"@U*U*UjU:w.E(U*UzW>};nW?u+}@"(] @~?Q?U*Uz_xW*U  DU*U"DQ~+U*U*U*U D"DUjU/u*] @""D ??}~}nU@U @`wo}+_~o{W?U :U*U*`+} w~ pn]+U*U@U*]:U*U+Whw{w~}o_W/u T*U*                     ,P p``@#g"g !g !g -g !g !g -g@"g#g`HH)[gJJ [g[gh\g .\g .\g n[g\g) \gh (`hh``hh`??????????????7---------------------- ) -- )--------------------5??????????????????????????????????????????????????7--------------------------------------------------5_?B@C , f< =>??B@C ,Ʌ` ,R,T,W---------------5??????????????????????;?;?????????????????????7---------------------- )--- --------------------5?????????????????????;??;?????????????????????7---------------------- )--- --------------------5??????????????????????;?;???????????????????????7----------------- -- -- -- -- - - )---------------5???????????????????;??????????????????7--------------------------------------------------5??????????????????????????????????????????????????7---------------------- ) -- )----------------------5????????????????;??;??????????????????7----------------- -- -- -- -- - - ----------------5?????????????????;??????????????????????????7----------------- -- -- -- )- )----------------5????????????????????????????;?;????;????????7--------- )---- )- )- ) ) )- ) ) )--- ---------5??????????????;;?;??;;?;?;????;????????7--------- ) ) - )- ) )- ) )- )-- ---------5??????????????????????????????????????????????????7----------------------------------------------------5??????????????????????????????????????????????????7--------- )--- ) - -- )- - )- )-------5????????;?;;?;???;?;;?;?;????;????????7--------- )---- )- )- ) )- ) )- ) )- )- - --------5?????????;??;;?;?;?) i )8jjjj)e jjjjjj)i'i'i'ee`'`'Ց`` `i  ` P`Ѧ ` \`L` ``-------------------------------̀  g  w ՀϏϯϯϏ w w Ϗ  gՀǀ g ʊ ʊ  g Հ  g ⰸ  g ՁՕ Ąッà )Օ Ȥ  *$  -'Ϫ ǃԅՀǀ  g   g ՀĂ  , &  * ぁz Հ  g ɉ  g Ձãϯ g 燧 gY} Lf ₊Š ՀÃԔǎ x జw Հw          =========================="- FZ1750:Z,IN D$(13)(4):D$"RUNMENU":} 23:6::Z$::16368,0:16384,128:A$: D DCREEN ":I04:A$:1::J1192:A$;::A$;::J:1000 ;" ================================= PUT NO. CODE AT $0 & CALL TEXTRIX =================================" <0,I:1 E" ============================== WAIT A WHILE THEN DO NEXT WIPE ====RUN TEXTRIX " ("TO SET UP THE PROGRAM.TO USE TEXTRIX AT ANY TIME POKE 0,X FOR X BETWEEN 1 AND 4 & THEN CALL 1 TO WIPE SCREEN.VALUES OF X GREATER THAN 4 GIVE THE STANDARD WIPE.":Z$" PRESS ANY KEY TO START DEMO ":10008 2Z$" PRESS ANY KEY TO WIPE SX":; 1::" TEXTRIX - FANCY SCREEN WIPE DEMO ": "THE TEXTRIX ROUTINE IS $155 BYTES LONG AND IS FULLY RELOCATABLE.ITS NORMAL LOAD ADDRESS IS $6000, BUT IT COULD JUST AS EASILY BE RUN AT SAY $8000 OR $4000 ETC. TO USE THE ROUTINE SIMPLY B" USING 0 GIVES THE SLIDE DOWN WIPE "," USING 1 GIVES THE SLIDE LEFT WIPE "," USING 2 GIVES THE SQUEEZE IN WIPE "," USING 3 GIVES THE MIDDLE OUT WIPE "," USING 4 GIVES THE DOVE TAIL WIPE " D$(13)(4)::D$"BRUNTEXTRI(` &(ȑ(ȩ((((  ȩ ``ULx XʽX(e`Ej`\LX ()ʊ '('(`( ȱ(('(`s8 (ȑ(((('󩠑(`( (('󩠑( (ȑ(HTB:B:(A$,A,1)2 E12:E,B:HTB1:VTB1:A: o ============================== FOR ALL THE SUBROUTINES: VTB = NO. OF ROWS FROM TOP HTB = NO. OF COLUMNS FROM EDGE ==============================A::(A$,A,1);:DLY19:DLY,A:~ =========================== SUBROUTINE TO SHOOT UP TEXT =========================== HHHTB:VVVTB:L(A$):LHTB39L39HTB A1L:(A$,A,1)" "ĂA B22VV1 HTB:VTB:" ":VTBB:HTBHHA TB(37)1:HTB(36)1:VTB:HTB:(A$,I,1);:VTB1:HTB:"_";:VTB::255:  =========================== SUBROUTINE TO UNSCROLL TEXT =========================== VTB:L(A$):LHTB39L39HTB A1L:HTBA::(A$,A,1);! DLY19:HTBE THEM IN YOUR OWN PROGRAMS!":2000- 23:  ============================ SUBROUTINE TO UNDERLINE TEXT ============================ 200:I1(A$):VTB(37)1:HTB(36)1:VTB:HTB:(A$,I,1);:VTB1:HTB:"_";:VTB::255:L I1(A$):V7::"THIS PROGRAM CONTAINS THREE SUBROUTINES":6n "THE FIRST WILL ";:A$"UNDERLINE":1000:" TEXT."VTB10:HTB5:A$"THE SECOND WILL UNSCROLL TEXT":2000VTB14:HTB7:A$"THE THIRD SHOOTS TEXT OUT":3000# 2:VTB20:HTB1:A$"YOU CAN US    JJJJ ɺih) ɺiHJJJJ ɺih) ɺi ?`̠ŠӠĠҠϠōϠΠ٠ĠˮӠΠϠ̬àϠ̠ ɍɛL ܸ< =M> ? BC ,Lhh HH`Hi@h0 F2pF2i I` L `I` JHF, X  /     -   Ӡ͠ӠӠϠԬӠˠӠĬŠˠĠҍǠĠ̠ŠĮӍӠ̠ҠǠԠӮԠϠҠӠˬԠ:"COMMAND AND LOADS AT $6000.":R Z:"ONCE THE PROGRAM HAS BEEN RUN, IT CAN"k d:"BE OVERWRITTEN." n:"DO NOT USE SPEEDOS WITH PRONTODOS, OR" x:"ANY FAST DOS PROGRAMS."  ::$" SPEEDOS NOTES ":Q:"SPEEDOS IS A GREAT LITTLE FILE THAT"(:"WILL SPEED-UP THE LOADING AND SAVING OF"2:"FILES. TO ENABLE THE ROUTINE YOU JUST"<:"NEED TO 'BRUN SPEEDOS'."F:"THE ROUTINE DISSABLES THE 'INIT'"# PLZLݵܵߵ޵ ^`8ܵ i B8` LֵȱB׵` DȑB׵Bֵ յյ``y¹?`wa_LʬOˬ̬čPQ` H hBLµ* `Loõĵֵ׵ Rĵµѭ H hBLL B ڬ L -յյµ% `õĵֵ׵ Rĵµ˭ B ڬ A  0#i#i# \qLp`뷩 `뷩L`px p %p fp p`t` @q `#i#i#L%p݅si#Lp i#֠#З`t p  21::E16Ė9:"DISK IS WRITE PROTECTED":::"REMOVE TAB THEN PRESS RETURN TO RESTART":16384,128:A$: E64Ė3:"I/O ERROR PRESS RETURN TO RESTART"::16384,128:A$: 169,0,141,21,3,24,32,227,3,32,217,3,144,6,173,245,183,141,21,3,96 ONE OF THE SECTORS ABORTING ATTEMPT.PRESS RETURN ":16384,128:A$:20 47085,0:170:E020:BUF125,B1:BUF124,B2:47092,2:170:E020 47092,1:47085,N1:170:E020:BUF1,0:BUF2,0:47092,2:170:20 768:E(789):E0ım OM FOR "7(15N)" FILES"[ P19:9:"PRESS CTRL-P TO PROCEED";:16384,128:A$:A$""80| ZI07:NII0B1B1(2I) dN8II7B2B2(2I) x:47084,17:I1N:47085,I:170:E020:(BUF11)0140 :150P :22:5:"FILES EXIST ONFREE SPACE. NORMAL DOS HAS ROOM FOR 105 FILENAMES. THE MORE SECTORSYOU FREE, THE LESS ROOM FOR FILE NAMES."::"ENTER THE NO. OF CATALOG SECTORS TO FREE"; 212:"OR ENTER 0 TO EXIT => ";:"";N$:N(N$):N0N1450 <N0Ā F16:6:"THAT LEAVES RO I768788:A:I,A:B10:B20::::" D I S K E X P A N D E R ][ "::13:"BY PETER STUBBS":13:"==============="::47092,1:47083,0:47091,0:BUF16384:47088,0:47089,64 ("THIS PROGRAM TURNS 1-14 OF THE CATALOG SECTORS INTO  (' KL% K  p  橠(Ʃ(о` (H h(` (H h(` ȱ((` (ȑ(`:H40Č198:20Q 13:20:"VTAB POSITION ";V$:V(V$):V030:V24Č198:30v #LOC128VH(984((V1)8))895 (:"EQUALS A POKE OR PEEK AT LOCATION ";LOC::"GIVE ANOTHER VALUE ?";A$:(A$,1)"Y"10 ::"THIS PROGRAM WILL CALCULATE THE MEMORY LOCATION CORRESPONDING TO A GIVEN HTAB AND VTAB POSITION - THIS IS USEFUL FOR DIRECTLY POKING TEXT ONTO THE SCREEN FOR AN EXAMPLE LIST ROTATE ON THIS DISK " 13:"HTAB POSITION ";H$:H(H$):H020TO CONTINUE INSTRUCTIONS."016384,128:A$:6 <==================== PROGRAM DESIGNED FOR MICRO-ED NEWCASTLE BY PETER STUBBS 8-OCT-85 ================================(I);" ";B$(I1);" ";B$(I2);" ";B$(I3):;I:LI1200::]W110::W"WHEN YOU HAVE FINISHED READING EACH PAGE""OF INSTRUCTIONS PLEASE PRESS THE SPACE""BAR LOCATED AT THE BOTTOM OF THE ""KEYBOARD 400:P:1020".XYAX:XY:YA?8(X4)(X8)(X12)1060IBSS1pLT$B$(X):B$(X)B$(Y):B$(Y)T$:720{V::4`"THE VERY LEAST YOU COULD HAVE DONE WAS "jt"TO HAVE PLAYED THROUGH ONE GAME !!"~:I11342" ";B$* SORRY ONLY ONE 'SPECIAL' PER GAME !":P1400:P:" ":520k22:" EXCHANGE WHICH TWO POSITIONS ? ";X,Y22::XY1XY110601070 $" ILLEGAL MOVE ! ":P1MMG);" MOVES PER GAME":R13000:R:34,0::A110::A:"*** THANK YOU FOR PLAYING WITH ME. ***":vI1134:33,25:32,10::" ";B$(I);" ";B$(I1);" ";B$(I2);" ";B$(I3):I:32,0:33,40::4::eS1Ĺ32,0:33,40::"*:"* YOU ORDERED THE BOARD IN ";M;" MOVES. *":M1M11:GG1h:"** DO YOU WISH TO PLAY AGAIN ? ";A$:A$(89)ė:410G01110:::::"** YOU PLAYED ";G;" GAMES AND ORDERED THE":MMMMMf"BOARD IN AN AVERAGE OF ";(13P(1)1245:P(2)125054X14P(1)1250:P(2)1255S>X15P(1)1255:P(2)1260HSW(1)(P(1)):P(1),(P(2)):P(2),SW(1)R22:" "\I116f(I64)B$(I)520pI;z32,0:35,24:33,40:34,18::1677:P(2)1682,X2P(1)1682:P(2)1687IX3P(1)1687:P(2)1692fX5P(1)1205:P(2)1210X6P(1)1210:P(2)1215X7P(1)1215:P(1)1220 X9P(1)1717:P(2)1722X10P(1)1722:P(2)1727 X11P(1)1727:P(2)1732*Xz #ҠӠΠβР έˠР˭Š˭ŠӠ Р" РӠҠȠȠ ؠؠϠŠ Ƞ" Ȯà γ Ϡ̠Ҡ  ΠҠנҩҠҠ ԠǠ ӠӠӠԯӠ٠ȠԠ٠Ӡ ӺˠҠ ӺР! ˠ! ŠҠ!נà" ŠΠΠҠ ӺԠԠ ӺˠӠӺˠҠӺӭŠӺРӠ ӺҠҠ ӺԠǠ  ӠҠРӠ٠Рԭ͠ŭ͠ՠ Ϯà"ӺԠҠ ˠҠ!ˠӠӭŠ РΠϠРӠ¯ӭ͠ ϠԠҠ ԠԠ Ǡ, ǠҠŭ͠ˠӠ  ˠР ."-H" FONTS INCLUDE N.L.Q., PICA, ELITE,"[R" PLUS ALL THE STANDARD EPSON CARACTERS"A$" PRESS RETURN FOR PRINTER MENU "36103920500 ================ EXECUTIVE DT-130 ================ 3160:" PRINN GX-80 ":; :"PRICE - $580.00 (INC) $540.00 (EX)"X:"FEATURES INCLUDE:":} " 100 C.P.S. IMPACT DOT MATRIX"*" BIDIRECTIONAL/LOGIC SEEKING PRINTWHEEL POSITIONING"4" AVAILABLE WITH EITHER COMMODORE ">" OR APPLE //C INTERFACE16A23:2">"(8);0PAUSE13::":";@RKEY(KB)176gKEY1KEY6640rCLR,0KEY740,940,1130,1540,1690,100 =========== EPSON GX-80 ===========  EPSON GX-80 3160 :" PRINTERS - EPSO80 FOR COMMODORS & APPLE //C";; &:"2: EXECUTIVE DT-130"W 0:"3: LOGITECH FT5002"w D:"4: PRINTER ACCESSORIES" N:"5: PRINTER INTERFACES" X:"6: RETURN TO MENU" bA$"TYPE NUMBER FOR MORE DETAILS AND PRICES" lVT22:3610 v:A"O"2600 A$"N"2980* A$"Q"4803 310L  ==== EXIT ==== ^ :23:958:  ======== PRINTERS ======== 3160 :" PRINTERS ": :"WE HAVE THREE TYPES OF PRINTERS." :"1: EPSON GX-:" (Q) FOR QUIT TO BASIC"7 "::"SELECT :"(8);E ,:":";:K 6:V @A13` J3:1s T(DASH$,A,39)y ^ hA120: r(KB)128320 |A$: A$"P"500 A$"V"1880 A$"D"2080 A$"C"2300 A$"S"2800 A$S"/ :" (P) FOR PRINTERS AND ACCESORIES"S :" (V) FOR VIDEO MONITORS"n :" (D) FOR DISKS" :" (C) FOR CARDS FOR YOUR SLOTS" :" (O) FOR ODDS AND ENDS" :" (S) FOR SOFTWARE" :" (N) FOR NEW PRODUCTS" PCLICK(X)(49200)(49200)' Z120P d ========= MAIN MENU ========= Z n3160 x"_______________________________________" " MICRO EDUCATIONAL AUTUMN CATALOG 1986 " 200 (DASH$,1,39) 255 34,3 :"PRES'  :CDASH$"==-==-==-==-==-==-==-==-==-==-==-==-==-==-==-"vDOT$"......................................."(SP$" "2STAR$"\ ! / - \ ! / - \ ! / - \ ! / -"<KB49152:CLR49168FSPEAKER49200           ΍  ` H`:`  "`΋`)Ѕ<Ѕ=<ɀe<<=<ɀ Lq Lhh LHH`  ҁ` ɀ " .LP:-"͏ GɭɁ к ҁ` ҁ `  L / // P L8PʁPQˁQP}ʁPQ}ˁQ`'d ,Ƀ,,ɠɃ,`L X - /    . ĠԠϠȠԿԩ" ɰ0ɷ0 :LWH X ̭àӬŠӠȠǍ"h g:h;:i;j(:ȱ::Pȱ:Q :ȱ::;L " ,L r     Lȱȱi 80 ɫɰޅ ڥPQ0 ְ0 ڥ $LɰL :ۥ $ ,𳥹ƹƸL* GOTO " GOSUB " THEN "DD BOX 10"1 " $60.00 (INC) $50.00 (EX)"O "3 1/2 INCH DSDD BOX 10"u " $80.00 (INC) $70.00 (EX)" A$" PRESS ANY KEY TO RETURN TO MAIN MENU " 3610 3920 100  ===== CARDS =====  3160! :" PERIPHERAL CARD":$p"8 INCH DISKS SSDD BOX 10"Lz" $42.00 (INC) $38.00 (EX)":l"8 INCH DISKS DSDD BOX 10"" $56.00 (INC) $50.00 (EX)":"FOR OTHER DISKS AND FOR QUANTITY (>100)""DISCOUNTS THEN PHONE FOR PRICES": "3 1/2 INCH SS ===== DISKS ===== *3160<4:" FLOPPY DISKS ":g>:"5 1/4 DISKS CONTROL DATA/VER?????"H"REINFORCED HUBS, 5 YEAR WARRANTY"R"SINGLE SIDED, DOUBLE DENSITY"\"SOFT SECTORED - $1.80 EACH BULK"f" $2.00 EACH BOXE"0" SIGNAL - COMPOSITE VIDEO 0.5-2VP-P NEG"U" WEIGHT 7.5KG - POWER=30WATTS"~" DISPLAY SIZE 210(W)MM X 150(H)MM"" DIMENSIONS 323(W) X 330(H) X 345(D)MM"A$" [ PRESS ANY KEY ] [ PRESS ANY KEY ] "3610 3920100 $220.00 (INC) $195.00 (EX)":J:" WE HAVE TWO TYPES OF MONITORS":t" YJE AMBER - 20MHZ - SWIVEL BASE"" ANTI GLARE SCREEN":" YJE GREEN - 20MHZ - SWIVEL BASE"" ANTI GLARE SCREEN":"SPEC'S OF BOTH MONITORSRE C-64 - CALL":B0A$" TO RETURN TO MENU, PRESS ANY KEY "L:3610VD3920_N500X ======= SCREENS ======= b3160l:" VIDEO MONITORS ":v:"ALL OUR VIDEO MONITORS ARE THE SAME""PRICE - D ON THE MARKET IS THE"F" NEWCASTLE AUTOMATIC ICE PARRALLEL I/F"p" $110.00 (INC) $99.00 (EX)":" GRAPPLER INTERFACE (STANDARD CARD)"" $110.00 (INC) $99.00 (EX)":" XETEC PARALLEL I/F TO SUIT VIC-20 &"" COMMODOL INTERFACE FOR PRINTERS"E|" PHONE FOR AVAILABILITY AND PRICE":vA$" <=- P R E S S A N Y K E Y -=> "1850 ========== INTERFACES ========== 3160:" PRINTERS - INTERFACE CARDS ":::" THE BEST CAR6" RIBBON'S FOR FT5002/P88-2 ETC"I@" $15.00 (INC) $12.00 (EX)":T" PRINTER STANDS - 10 INCH $35.00 15 INCH $50.00"^:" TRACTOR FEED 10INCH PAPER 2000 SHEETS"h" $40.00 + $10.00 FREIGHT":r" RS232C SERIA12A$"PRESS RETURN TO RETURN TO PRINTER MENU ";<1850i =========== ACCESSORIES =========== s3160:" PRINTERS - ACCESSORIES ":":" RIBBON'S FOR DT80/BX80/DT100/DT120 ETC"," $12.00 (INC) $10.00 (EX)":#TIONAL OR 22 CPS"<" IN NEAR LETTER QUALITY MODE."f " BIDIRECTIONAL LOGIC SEEKING PRINT"" BOTH FRICTION AND TRACTOR FEED"" PRINT HEAD LIFE 100 MILLION CHARACTERS"(" RIBBON, BLACK CLOTH. APPROX 3 MILL CHAR WEIGHT APPROX 6.5KG"L CHAR, 64 BLOCK";" GRAPHICS, 132 IBM-PC CHARACTERS"e" 80 CHARACTERS/INCH DRAFT & N.L.Q."" 96 CHARACTERS/INCH ELITE CHAR SET"" 137 CHARACTERS/INCH CONDENSED PRINT"" SPEED=120 CPS IN DRAFT & ELITE OR"" 75 CPS PROPORRS- LOGITECH FT/5002-AMUST P88/2 ":Q"PRICE $580.00 (INC) $540.00 (EX)":j"FEATURES INCLUDE:"" 4 PRINT MODES INCLUDING NEAR LETTER"" QUALITY AND PROPORTIONAL SPACING"" 96 ASCII CHAR, 96 ITALIC CHAR"" 32 INTERNATIONAAM BUFFER 2K-4K OPTIONAL"68" 8 BITS HEX DUMP MODE"dB" RIBBON - CARTRIDGE MYLAR CARBON BLACK"L" 2 TYPES OF SELF TEST MODES"VA$" PRESS ANY KEY TO CONTINUE "`1850j ======= FT/5002 ======= t3160$~:" PRINTE0 (NORMAL), 96 (ELITE)"D" 40 (ENLARGED), 142 (CONDENSED)"n" BIDIRECTIONAL LOGIC SEEKING PRINT"" BOTH FRICTION AND TRACTOR FEED STANDARD STANDARD PARALLEL CENTRONICS INTERFACE"$" WEIGHT - 5 KG, POWER - 40WATTS"." EXPANDABLE RTER - EXECUTIVE DT-130 ":I:" PRICE $479.00 (INC) $440.00 (EX)"d:"FEATURES INCLUDE:":" 192 ASCII CHARS, FULL IBM GRAPHIC CHAR"" 103 SEMI GRAPHIC CHARS, 91 OTHER CHARS"" 130 CPS (CHARACTERS/SECOND)"" COLUMNS/LINE - 8=== 0$0.VT0VT23A08((1)41)3650,3690,3730,3840P0BA2011[0LVT:Aq0V(A$,A,(20A)2){0`38700jA39010tVT:10~(A$SP$,A1,39);038700A13920VT:A0(A$,A,1);0PAUSE110:PAUSE1BEEPйCLR,0/dA18/n24:103/x(STAR$,A2,16);F/(KB)127A8L/`/(KB)1283940l/24:10/" * * * * * * * *";/CLR,0:======= DOTS & CLICK ============ / DOT$/BEEPCLICK(SPEAKER)/0 ======== PRINT A$ =====BEEPCLICK(SPEAKER).+.A38126.VT:AF.(A$,A,1);].PAUSE110:PAUSEg.3870v.A3911. VT:A.(A$,40A);.BEEPCLICK(SPEAKER).(.2.<23:39:.F.P ============ TWIRLY STARS ============ /Z$ ======== -$#-.VT0VT23H-8((1)41)3650,3690,3730,3840W-BA2011b-LVT:Ax-V(A$,A,(20A)2)-`3870-jA3901-tVT:1-~(A$SP$,A1,39);-3870-A1392-VT:A-(A$,A,1);-PAUSE110:PAUSE.20, 32,A:, 32,39A%, 3520E, *** CLEAR BOTTOM->TOP T, A2301^, 34,Ad, j, , PAUSE130:PAUSE, :, , ============ DOTS & CLICK ============ , DOT$,BEEPCLICK(SPEAKER), - ======== PRINT A32,A+ PAUSE110:!+ 3520@+ *** CLEAR RIGHT->LEFT J+ 33,1Y+ A3901c+ 32,Au+ PAUSE110:+* 3520+4 *** CLEAR TOP->BOTTOM +> A022+H 34,A+R 35,A1+\ 3520+f *** CLEAR SIDES->MIDDLE +p 33,1,z A0============= CLEAR ROUTINES ============== 3*b b*l ((1)61)3190,3260,3320,3380,3430,3490*v *** CLEAR FROM MIDDLE * 33,1* A1911* 32,A:* 32,39A* 3520* * *** CLEAR LEFT->RIGHT * 33,1* A039+ IATEL PAGES STRAIGHT AWAY."B) :"* HAYES MICROMODEM COMPATIBLE") :"* AUSTRALIAN DESIGNED, MANUFACTURED AND SUPPORTED ") :" ALL FOR THE PRICE OF $250")0 A$" <*=- PRESS ANY LETTER KEY GENTLY -=*> "): 3610)D 3920)N 100-*X =":-( :"MAESTROTEX DIRECT CONNECT MODEM "( :"FEATURES INCLUDE-"::"* AUTO-DIAL, AUTO-ANSWER,AUTO DISCONNECT":"* EITHER 300 OR 1200/75 BAUD FULL DUPLEX") "* FULL SUITE OF VIATEL SOFTWARE INCLUDEDWHICH WILL ALLOW YOU TO LOAD, SAVE AND PRINT VPLE. REQUIRES 80 COLUMN CARD & SERIAL"G'r "CARD - $140.00 (INC & EX)"x'| A$"(PRESS RETURN KEY) "' 3610' 3920' 100' ============ NEW PRODUCTS ============ ' 3160( :" NEW PRODUCTS THAT WE DO SELL.":>&" "SANDY'S WORD PROCESSOR - BEST WORD"j&, "PROCESSOR FOR THE APPLE II, II+, //E"&6 "//C, DICK SMITH CAT AND ALL COMPATIBLES"&@ " PRICE $195.00 (INC) $179.00 (EX)":&^ "TERMINAPLE - TERMINAL PROGRAM FOR THE"&'h "AP - $45.00 $38.00"F% A$"[...PRESS ANY KEY TO RETURN TO MENU...]"P% 3610Z% 3920c% 100% ======== SOFTWARE ======== % 3160% :" SOFTWARE ":% :"WE DON'T SELL MUCH SOFTWARE. BELOW ARE"& "THOSE"DX85 DISK STORAGE BOX - $35.00 $35.00"Y$ "JOYSTICK //E & //C - $45.00 $45.00"$ "JOYSTICK ][+ & IBM - $50.00 $50.00"$ "REXEL BOX HOLDS 35 - $17.00 $15.00"$ "APPLE POWER SUPPLY - $110.00 $110.00"% "R/F MODULATOR ============= ODDS AND ENDS ============= 9#2 3160l#< :" ODDS AND ENDS ":#F :"PRICE - INC EX":#P "SUPER 5 DISK DRIVE - $265.00 $240.00"#Z "SUPER 5C DISK DRIVE - $285.00 $260.00"*$n 60.00 $150.00"=" "DIGITEC 80 COL CARD ][+ $200.00 $190.00"J" 16:1:h" A130:BEEP(SPEAKER):{" PAUSE1100:" A130:BEEP(SPEAKER):" 16:1:" A$" RETURN FOR MENU *:*:*:*:*:*:*:*:*:*:*:"" VT22:3610" 3920" 100/#( DS ":L! :"FOR MORE DETAILS ON CARDS, PLEASE PHONE"{!$ :" PRICES - INC EX"!. !B "Z80 CPM CARD - $90.00 $80.00"!V "16K LANGUAGE/RAM CARD - $90.00 $80.00""j "EXT 80 COL CAARD (//E) $1,`hh L HH`,  [ PRESS RETURN ] % ɍ` `$ Ld  L/$  LL/, ,ɘL $ 0  % `$ 0  PT LEN START BLEN NAME TOR  L  T L/ ȱ ȱ eiɠ$ 0!8i L{   ɠ $ 0 @ɀ@@ iL iH)`hIHh и #L  *L %(!" L,,DȑD eL  L% ȱȱ0 L@ )  T L@   IN SUB DIRECTORY  L  ȱ ȱ  ]  T L@   BAD POINTER L    IN DATA SECD DDD D   6  IN VTOC L 8 Ɛ$ 0 X"Lj !!  VOLUME=D / T  FREE SECTORS= /  (effff /  K)0 $    IN DIRECTORY  L START = BINARY STARTING ADDRESS BLEN = ACTUAL BINARY LENGTH NAME = FILE NAME ( = ABBREVIATED)TYPE CTRL-X TO EXIT, CALL 2051 TO RESUME *  DECIMAL OR HEX BASE? ע  CRT OR PRINTER?   L  DL ` DE X  IMPROVED CATALOG PROGRAM MODIFIED 1-APR-85 : PETER STUBBSABBREVIATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) ? = DELETED FILE LEN = SECTORS USED ON DISK$;A$;" ";P$;NAME$% nD$;"CLOSE" ==================== PROGRAM DESIGNED FOR MICRO-ED NEWCASTLE BY PETER STUBBS 8-OCT-85 ====================PACES ";N$:N(N$):N16ĺ"":60h F23:"ENTER MESSAGE";:23:(31N):"<-END HERE";:23:15:"";NAME$ PN0āI1N:P$P$" ": Z(TYPE$,1)"A"ĺD$;" OPENA";A$;A$;A$;A$;A$;A$;A$;" ";P$;NAME$ d(TYPE$,1)"D"ĺD$;"DELETEA";A$;A$;A$;A$;A$;AM WILL INSERT SPECIAL CATALOG HEADINGS IN YOUR DISK CATALOG. NUMBER OF LETTERS IN MESSAGE PLUS NUMBER OF SPACES MUST NOT EXCEED SIXTEEN." 217:"DO YOU WANT TO ADD OR DELETE (A OR D) ";TYPE$ 7TYPE$"A"ĭTYPE$"D"ĺ"":50! <20:"ENTER NO. OF S D$(4):A$(8):P$" "33,40:34,0::"========================================";::" MICRO-ED CATALOG HIGHLIGHTER ";::"========================================"12)"BY PETER STUBBS":12)"---------------":8 ("THIS PROGRA    2dA182n24:10,2x(STAR$,A2,16);?2(KB)127A8E2Y2(KB)1283940e224:10~2" * * * * * * * *";2CLR,0:* * * *";2CLICK(SPEAKER)1$1A3812/1VT:A?1(A$,A,1);V1PAUSE110:PAUSE`13870o1A3911z1 VT:A1(A$,40A);1BEEPCLICK(SPEAKER)1(121<23:39:1F1P ============ TWIRLY STARS ============ 1ZCLR,0"I "$ V2NA$(N)NA$(N)B$"A "C V4NA$(N)NA$(N)B$"B "b V8NA$(N)NA$(N)B$"S " V16NA$(N)NA$(N)B$"R " V64NA$(N)NA$(N)B$"L " NA$(N)NA$(N)("000"((23)),3)" " E1NA$(N)"" NA$(N)NA$(N)TN$. (NA$TN$ MUST BE 1ST VAR & LENGTH 30) 23820; n MOVE NAME[ x(28)0150:(28)255ġ: :"DISK ERROR"::K12000::4000 NN1 NA$(N)V$ V(27):B$" ":V127VV128:B$" *" V0NA$(N)NA$(N)B$"T " V1NA$(N)NA$(N)B$O :(13)(4)"MAXFILES1":37978:19:TN$"DISK MASTER 1.8 - PETER STUBBS"J(37979):I3836239552595:K030:JJ(IK):K,I:D$(13)(4):D$"NOMONICO":J12691(1013)76(1014)131(1015)150Ĺ1013,76:1014,131:1015,150:3800            ҠРҠˠŠED B  $ ԠҠàˠΠՠ͠ Šҍ` Šҍ$ % " ŠϠԬϠ ɍɛнLL,L hh HH` Ν  X!` I X!`!$ $    } $ $   }  $  ͠LL, ưư` ` ˯Ű L L  .` ȹ. Ȅ    e LS𲍃  LG      } $   ͠LL  ȴ)  紅D贅E B ƴ ɠi`   0./` ƴ.ȽǴ.Ȅ ` ` ` ` & & & &eee i`  $` ` KLMNOPQRSTUVWXYZpqrstuvڰަܻڰ` ` X ܫ    ǠƠˠŠED B   hƴ^0U ] ȴ鯍h L X ԠˠϠРӠ ɍ  X %$ "       X LLưҠҠڰ 0123456789ABCDEFGHIJŬϠ ɍL ɛ X            ԠϠȠԠΩ ɍɰɸ 鯅 ̠Ҡؠ٠įȩ ɍ ŠȠſ ɍɱɲ ̠˩ĠĠ˩ӮҠ̠Ӭˠة̠ŠΠӠ͠ҠΠĮŠ͠ӠŠǠӺԠϠ΍ԠΠ̍РˠΠŠ ŠϠȌ h X  -       Ӡ̠͠РˠǍ̠ˠӠԠΠӮՠΠРȠ    ɍ `)L­"ȱ`ɩw| wɰ$0 $` d'حLԗлΚȉPs}Sچm۷۬,݂rxݬަR`HT) LDȑD D D   `DȑD` D .ɀA  (DRIVE ERROR) `  (WRITE PROTECTED) `  (VOLUME MISMATCH) `  (READ ERROR) `   /  /  ݍ`  ENTER PRINTER SLOT OR HIT RETURNFOR DRIVER AT $300 3 jJ". "F$(J)zH:"WANT MORE DETAILS ON FILES ";:480:A$"N"2200K1J:21:D$"OPEN"F$(K)"":D$"READ"F$(K)"":768:A$:768:B$:K2:27:" "A$;:41(B$):B$:20:D$"CLOSE":JJ4:J23J23?NI:E0::J:958:"ENTER FILE NUM3620:28,0:IN:E1:39329:NN1:4402HKI2NjR(NA$(K),1)" "NA$(K)(NA$(K),(NA$(K))1):2130q\Kf::J0:"FILENAME DATE NUM":KI2N:(NA$(K),1)(246)2170:JJ1:F$(J)(NA$(K),(NA$(K))1):J10ĺ" "; p4000)A$"ENTRY STATUS":3700:LN1M:"COMPUTING FREE MEMORY -";:37989::"TOTAL NO. OF ENTRIES = ";L:"ROOM FOR APPROX. ";((((111)(112)256)((109)(110)256))22);" MORE"1510:216,0::1:%4A$"LOAD FILE":3700:A1:DN0N1:D$"DELETE"F$::"FILE NOT FOUND"::K12000::4000O&1860c0D$"DELETE ";F$m:1890D216,0:E(222)NE61890Xb37987,34:D$"OPEN";F$lD$"WRITE ";F$vT$:NK0NNA$(K)K(4)"CLOSE"|SRT#(NA$,0,N,6,6,A,12,40,A,1,3,A).4000B SAVE CATALOGoN14000:A$"SAVE FILE":3700:E1:360528,0:39329:" THIS DISK HAS "(29)(30)256" FREE SECTORS.YOU NEED ABOUT "(N10.2)2" SECTORS FOR STORAGE,PROCEED?";:480:A$"N"40000cA$"ERASE A FILE":3700:E1:3605:" YOU ARE ABOUT TO WIPE THE CONTENTS OF THE FILE "F$" PRESS 'CTRL-Y' TO WIPE OR 'M' FOR MENU ";:1645hA$:A$"M"4000:A$(25)1640:D$"DELETE"F$m216,0:4000r SORT BY TYPEw:"SORTING"$ ";A$:A$"M"ġ:40001A$(13)1550:R"MLL1:L2C10ĺL$:3500X,u6 SORT BY PROGRAM NAME;:"SORTING"@SRT#(NA$,0,N,12,40,A)E4000J SORT BY VOLUME NO.O:"SORTING"TSRT#(NA$,0,N,1,3,A,12,40,A)Y4000148015400:11:"NUMBER OF PROGRAMS"W"INT FP TEXT MACH TOTAL"qI7)F14)T21)B28)ZT0:B0:I0:F0:Z0:D$"PR#0":"TYPE OPTION ['M' GIVES MENU] "M0:4060(37)22M01570"'RETURN' FOR MORE. 'M' FOR MENU:H1:LL1:1390ddHH1:(NA$(K)" ",40);:MĭH1ĺ:H1nB$(NA$(K),6,1):B$"I"II1:1430xB$"A"FF1:1430B$"T"TT1:1430B$"B"BB11530KZIFTB(37)18Mό768:NA$(N)1240;4145:E5NN1:N01820:1300A RMĹ37987,34b:D$"PR#"Mz(I0:F0:T0:B0:Z023500<N01450:K0NF37979:958PM0(NA$(K))40H1ĺNA$(K):H1:LL1:1390ZM0(NA$(K))40ĺ:NA$(K).768:NA$(K)"337979:868c8X0(NA$(K),1,3)B$1070:X1(NA$(K),12,B)B$1070:1060~V4145:E5NK1:1820j LIST CATALOG:34,3:::M0N01300:12703600D$;"READ ";F$:768:A$:768:A$NN1 D HIT RETURN ";(A$:A$(13)910:228,0E READ CATALOGN400X4000{X0:A$"REMOVE A VOLUME":3700"VOLUME NUMBER? ";B$(B$)3B$("00",3(B$))B$3600:1110D$"READ ";F$768:A$:768:A$:K1$KK12:8807H:"O.K., I'LL ASSIGN THEM FOR YOU. PLEASE"}R:"INPUT A STARTING VOLUME # (0-900) ";O:O0O900850:D1:890fD1OO1:890p:"VOLUME # (0-900)? ";O:O0O900880zV$(O):(V$)3V$("00",3(V$))V$:"INSERT DISK ANURN ON PRINTER & PRESS RETURN"H A$:A$(13)720:MP:H1:G1:1210 A$"REMOVE A PROGRAM":3700:"PROGRAM NAME? ";:768:B$:B(B$):B04000:X1:1030 A$"ADD A VOLUME":3700:D0870:"DO YOU WANT TO ASSIGN VOLUME #? (Y/N) ";:480:A$"Y"DS = "((29)(30)256)! 1207  GET NEXT SECTORB 39332K 120T 450j A$:A$"N"ĺA$: A$"Y"480:A$: A$"PRINT FILE":3700:"READY TO PRINT LISTING"::"ENTER CTRL-Y TO PRINT, RETURN TO CANCEL" A$:A$(25)4000::"T(N),3)" "NA$(N)(NA$(N),(NA$(N))3):280B 6E1V0NN1[ @37979:958:28,0:u | READ CATALOG & PUT  PROGRAM NAMES IN NA$(XX)  READ FIRST SECTOR 39329:NN1:::"ADDING VOLUME ";V$: NA$(N)V$" FREE SECTORS RETURN FOR MENU OR NO. (0-9) =>";::" ";::16384,128:A$:VTB:38:A$ FA(A$):A$(13)80:(A$)48(A$)K49Č198:60 PA$(13)ė:D$"RUNMENU": D$"RUN NOTES: "A$(A)S  "UNFP","SORT CATALOG","DISK MASTER","DUMP 80 COLS","A/SOFT PT= K9::::" MICRO-ED LIBRARY DISK 3 - DISK NOTES ":WVTB7:I0K:A$(I):(D$(13)(4):D$"NOMONICO":VTB:3:"WHICH PROGRAM DO YOU WANT NOTES ON :-":VTB3:I0K:(37)1:9:"(";I;") ";A$(I):2VTB(37)3:16368,0J <VTB:"PRES"":I0:K0:B0:J0:F0:E0:@'1216,0:E(222):E5ĺD$"CLOSE"F'2'================================= PROGRAM WRITTEN BY PETER STUBBS 22 JULY 1984 BASED ON A PROGRAM BY ALAN HILL =================================(A$)8(A$,3,1)"/"(A$,6,1)"/"ıp&B$(A$,2)(A$,4,2)(A$,7):J1(B$):F((B$,J,1))48:F0F9ı&:K((B$,2)):I((B$,3,2)):B((B$,5)):K1I1I12B80ı&"J(I4I6I9I11):K(28(I2B(B4)4)(I2)(2(J)))ı',B$58:"OPTION: ";:A$%A$"M"4000:A$"X"750:A$"A"800:A$"R"1000:A$"D"1200:A$"P"700:A$"N"1595:A$"V"1615:A$"Y"1655:A$"Z"1635:A$"T"3000:A$"F"2250:A$"E"2000%A$"Q"2040:A$"L"2100:A$"S"1810:(37):4060'&E1:A VOLUME X - REMOVE A PROGRAM D - DISPLAY FILE P - PRINT FILE N - NAME SORT V - VOLUME SORT Y - TYPE SORT"$"Z - ERASE A FILE T - TRIM OR SPLIT FILES F - FIND A PROGRAM E - ENTRY STATUS CHECK L - LOAD A FILE S - SAVE A FILE Q - QUIT"%37987,1::9#216,0:Z0:E0::::"========================================";::" MICRO-ED DISK MASTER BY PETER STUBBS ";::"========================================"##4:12:"*** OPTIONS ***"j$33,33:32,7::"M - MENU A - ADD A VOLUME R - REMOVE T$:D$"CLOSE":3930+"PD$"DELETEDATE-DM"l"ZE0:216,0::"CURRENT DATE IS":T$::"IS THIS OK (Y/N) ";:"d480:A$"N"Ģ1:868:"ENTER NEW DATE":768:A$:4100:E1ĺ"":3930"nA$"Y"T$A$:D$"OPENDATE-DM":D$"WRITEDATE-DM":T$:D$"CLOSE"!B8!t:34,3:::5:20((A$)2)::" "A$" ":::g!D$"BLOAD GARB/RWTS-DM":D$"BLOADINPUT-DM"!J0:T$"DD/MM/YY":L$(12):P1:C66:N1:39326!(28)1ĺ"TN$ ERROR":!NA$(1100),F$(20)!<3920"FD$"OPENDATE-DM":D$"READDATE-DM":-------";: : E0L K0:A0::"FILE NAME? ";F$:(F$)0ġ:4000g ((F$,1))63ġ:4000 $:"INSERT STORAGE DISK AND HIT RETURN OR HIT 'M' TO RETURN TO MENU "; .A$:A$"M"ġ:4000 8A$(13)3630:F$F$"":A1EĺD$"OPEN"F$OL TP SEC PROGRAM ";:34,5 Mĺ" [ PAGE "G" ]";:J1(G100)1:" ";:J:"VOL TP SEC PROGRAM DATE: "T$:"--------------------------------------------------------------------------------":GG1: :"--------------------------------- NOT PRESERVE THE FILE CURRENTLY IN MEMORY. IF YOU WANT TO KEEP THIS FILE YOU MUST SAVE THE FILE BEFORE YOU USE THIS OPTION. " "PRESS RETURN TO CONTINUE OR 'M' FOR MENU"; A$:A$"M"4000:A$(13)3020:D$"RUN MAINTENANCE-DM": L0:4:"V 768:FI$1 Z1:B$(FI$,12,B)ĺFI$:1530; 2310T$ 34,3::3500:K0Ny. B$(NA$(K),12,B)ĺNA$(K):15308 K:1510B 4145:Z14000:E5ĴN01820:1510V  A$"TRIM/SPLIT FILES":3700::" WARNING "::" USING THIS OPTION DOESA$(K):37979:958:(NA$(K),1)" "(NA$(K))02245:NN1:K:D$"CLOSE":NN1:4000o4145:E5NK1:4000uA$"FIND A PROGRAM":3700:"PROGRAM NAME? ";:768:B$:B(B$):B04000N02340:3600:M0:34,3::3500:2370D$"READ ";F$BER OR 'M' FOR MENU ->";A$:A$"M"4000:A(A$):A0AJ42220J:958:"REPLACE OR APPEND (R/A)? ";:A$:A$"R"A$"A"2230:A$"A"2240:N1:2246NN1:F$(A)F$(A)"":D$"OPEN"F$(A):D$"READ"F$(A):768:A$:768:A$:KNN(A$)T768:NSTER 1.8 H ޘhB%  , ʽ$L  g RPޥQ g RP8ޅQ߅YG  Lޠ ʬ 欝 D0Ȍ ),л Т!ʥ!"!" B@A?b`a_֦!"B^a_bAe^^__``B8oBopp!"oA)JȽabopȑB"L A001 A 033 DISK MA[Kp8n`s Lg     % stopmnU^_R -ij^_lk 󅔆nmLȕ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ -^0ȱ^0Lȱ^ȱ^oȱ^p"#hmn  ,$% ()ɀUɠi@ xTɠi@ x( з$%LH$ [hL100:B$(32)ĺD$"RUNMENU"84,128:A$( D$"BRUNHIRES LAYER DROP"u (I1900:::15:"PRESS ANY KEY TO SEE THE STICKY DROP":16384,128:A$ 2D$"BRUNHIRES STICKY DROP" <I11000:: d23:"";:16384,128:B$:B$(13)B$(32).D$(13)(4):D$"BLOADMICRO.PIC,A$4000"h 16368,0::::5:" HI-RES DROP DOWN DEMO ": ::"THERE ARE TWO DIFFERENT DROP DOWN FILES ON THIS DISK - HIRES LAYER DROP AND HIRES STICKY DROP. PRESS ANY KEY TO SEE THE LAYER DROP":163 `ϭĠӠŠ٠ЮӠíŠӠŠӠΠĠ͠ӍˠȠ - -٠ЮӍŠԠˠԠӠӠŠĠӠ٠٠ϠŭԠPnSTUBBSqsmqrmxrxr ٠ϠӠŠנĠ͠ˍŠӠ͠Ҡˠ٠ҠΩˠҠŠϠŠŮ X  p   p ɂ(`q  p oiؐ' ʊ ` :L  p `+ X'  LϠՠԠϠ٠ҍŠƠŠˠӠĠٯΩŠΠŠŠөԠˠϠŠĠΠŠčŠ̭ ϠΠӠ̠Ҡō٠Ҡ  ( z U   8 <  XL ` :Q  p L` ` - -        RETTYLIST","A/SOFT CHECKER","DISK DETAILS","TRACK ADDER","SECTOR ADDER","DOS-PURGE"" ":V127VV128:B$" *"; V0NA$(N)NA$(N)B$"T "t NA$(N)NA$(N)("000"((23)),3)" ":E1NA$(N)"" NA$(N)NA$(N)TN$ (NA$(N),3)" "NA$(N)(NA$(N),(NA$(N))3):10 E1V0NN1 37979:958:28,0: 4 3933 Z0:E0::::"========================================";::" MICRO-ED DISK MASTER BY PETER STUBBS ";::"========================================": (28)06:(28)255ġ: :"DISK ERROR"::K12000::73 NN1:NA$(N)V$:V(27):B$,O(13)(4)"MAXFILES1":37978::19:TN$"DISK MASTER 1.8 - PETER STUBBS"J(37979):I3836239552595:K030:JJ(IK):K,I:D$(13)(4):D$"NOMONICO":J12691(1013)76(1014)131(1015)150Ĺ1013,76:1014,131:1015,150:6869     4: ީ ߢ u 9ե R ȥoȥp`I`L`@_ >) i )8jjjj)e jjjjjj)i'i'i'ee`'`'`` `i  ` \`Ѧ ` h`L`Ly` ``,T,R,W,PL`-_L`) i )8jjjj)e jjjjjj)i'i'i'ee`'`'`` `i  ` P`Ѧ ` \`L` ``,T,R,W,PLp`-(4)"BRUN SPEEDOS"m (13)(4)"BRUNTITLE":232,201:233,96:1:0:193,85: DRAW DISK LABEL 16368,0:I1200:X(16384):X128I200I((13)(4)"RUNMENU"N L#LD ȩ  hh`车)0i车``T FOUND 001 001001 *A 030 DISK MASTER 1.7 - C 001 *A 030 DISK MASTER LLۙLAiTȱiȱi`ȱiȱi ``ȑ c8 Ȑ0车ȑ c 0/$车 `i!L(ȭܐ@ L6 ޘ윙и8ޥ߰ LߗLL痠Hȥؑȥّڥݑօوܑօ؈ڑh`Н^(klP`^(klP`PJ TuVTvP`SRT#(VARIABLE NOгk͎ȱk͏+kekHȱkellhkmlnLZQLkiRliSޅP߅QTU $PХQFf `8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]⽖0 ܰ L:A$"L"A$"T"79:A$"L"N1+PA$:958:(37):"OPTION: ";:A$:A$"M"75:A$"Q"23:A$"S"19:A$"T"37:(37):74uK216,0:D$"RUNDISK MASTER":L216,0:E(222):E5ĺD$"CLOSE"MN"THERE IS A FILE PRESENT IN MEMORY. TYPE 'T' TO TRIM IT OR 'L' TO LOAD ANOTHER ->";!OA$(1100),F$(20):72KGD$"OPENDATE-DM":D$"READDATE-DM":T$:D$"CLOSE":73bHD$"DELETEDATE-DM"I216,0:3::7:8:"FILE MAINTENANCE OPTIONS":33,33:32,7:10:"M - MAIN MENU T - TRIM DUPLICATE ENTRIES S - SPLIT A FILE Q - QUIT"TJ37987,1:::A$:A$"M"ġ:73AAA$(13)64:F$F$"":A1EĺD$"OPEN"F$GB{C:34,3:::5:20((A$)2)::" "A$" ":::DD$"BLOAD GARB/RWTS-DM":D$"BLOADINPUT-DM"EJ0:L$(12):P1:C66:T$"DD/MM/YY":N1:39326:(28)1ĺ"TN$ ERROR":FNA$----------------------------":GG1:Z;:"----------------------------------------";:b<:=E0:K0:A0::"FILE NAME? ";F$:(F$)0ġ:73>((F$,1))63ġ:73?:"INSERT STORAGE DISK AND HIT RETURN OR HIT 'M' TO RETURN TO MENU ";@F$,23)"-TRIM"(22):A0:BN:CN:SRT#(NA$,0,N,1,3,A,12,40,A):17:73%:L0:4:"VOL TP SEC PROGRAM ";:34,5:Mĺ" [ PAGE "G" ]";:J1(G100)1:" ";::"VOL TP SEC PROGRAM DATE: "T$:"----------------------------------------------------))79T1h518:958:2:NA$(E):(7):TĢ21:"OVER 80 LETTERS IN FILENAME - CHANGE?";:15:A$"N"566TĢ18:1:"]";B$:18:1:958:B$:21:"O.K.?";:15:A$"Y"NA$(E)B$:B$"":567T538NA$(F)"":T0:46E9216,0:NE:E0:F0:E$F$:F$(/M0JJ5:J746:(NA$(F),12,1)" "ĭ(NA$(F),6,J)(NA$(E),6,L)50137979:868:EE1:12:11:"....."NF" ":422NA$(E)NA$(E)"^"(NA$(F),3):J(NA$(F)):R1J:((NA$(F),R,1))94NA$(E)NA$(E)"^"(NA$(F),JR):523 4(NA$(EA,6,10,A):T0:E0:FE::12:" TRIMMING ";::57R*NA$(E)NA$(F):FENA$(F)""+L(NA$(E)):L1245:R12L:((NA$(E),R,1))94LR1:45,-LL5:L742.FF1:FN57:(NA$(F))1248:J(NA$(F)):R12J:((NA$(F),R,1))94JR1:481İ24:3:A$"TRIM DUPLICATES":67O&12:958:K0N:12:" WORKING ......"K'37979:958:R$(NA$(K),1):R$" "NA$(K)(NA$(K),(NA$(K))1):39(R$(118)R$(246)NA$(K)(NA$(K),(NA$(K))1)"v"1):12::" SORTING ":SRT#(NA$,0,N,12,40,$(A)F$(A)"":D$"NOMONICO":D$"OPEN"F$(A):D$"READ"F$(A):768:A$:768:A$:K0(A$)"768:NA$(K):37979:958:(NA$(K),1)" "(NA$(K))034:NN1::D$"CLOSE":NN1:#76:E5NK1:$"%F$E$:A$"TRIM DUPLICATE ENTRIES":67:N078:N:21:D$"OPEN"F$(K)"":D$"READ"F$(K)"":768:A$:768:B$:K2:27:" "A$;:41(B$):B$:20:D$"CLOSE"::JJ4:J23J23NI:E0::J:958:"ENTER FILE NUMBER OR 'M' FOR MENU ->";A$:A$"M"73:A(A$):A0AJ431 F$F$(A):35W!N0:F" "NA$(K)(NA$(K),(NA$(K))1):25:::J0:"FILENAME DATE NUM":KI2N:(NA$(K),1)(246)28:JJ1:F$(J)(NA$(K),(NA$(K))1):J10ĺ" ";J". "F$(J)::"WANT MORE DETAILS ON FILES ";:15:A$"N"30jK1J(K),12,1))7622  A0:BK1:CK:E$F$:F$(F$,23)"(A-K)"(22):TEMPN:NB:17:NTEMP:F$(F$,(F$)5)"L-Z)"(22):AK:BN:CNK1:TEMPN:NC:17:NTEMP:73 :216,0::1: A1:63:28,0:IN:E1:39329:NN1:13:KI2N%(NA$(K),1)D$"OPEN"F$:D$"WRITE"F$:T$:C:IAB:37979:958:NA$(I)::D$"CLOSE": F$E$:A$"SPLIT FILE":67:N078:N1İ24:3:A$"SPLIT FILE":67 12::"SORTING"::SRT#(NA$,0,N,12,40,A):12:958:K0N:12:"SPLITTING ......"K:37979:958:((NA$2:4:14 A$:A$"N"ĺA$:4 A$"Y"15:A$: 37987,34:3:A$"SAVING TO DISK":67:8:"FILE: ";::F$::28,0:39329:" THIS DISK HAS "(29)(30)256" FREE SECTORS.YOU NEED ABOUT "(N10.2)2" SECTORS FOR STORAGE,PROCEED?";:15:A$"N"73L {W*@U* PQ*@"U*U*w }+}Q;}};wn];wo:WnU* P~uo_:(U*u*@|"D* UjW}+k?u/}*;wn];w(U*];W  @ T*U*UUb#Ej?ukq?U`*}@"@*U*"(U"U*(}@(U*w P ~*u U~UW>{? /Q *U*U*UjP*U(" @j}U"}~G?U"j](U"EQ|?j]**U**T* *]W.T/?T("U* "Uz`U*_U (Q*Eqk+U*U*"D* U(U* U*u*U*z/~ *D*j}* ]}oW*E@*U*un_*UT/@*Q*U*Q*UWzU?u/}/o_.U*}/_*qDQ"U*+P*] "@"D(U*U*U}o?U*(U*T*un pW"T;D*U*U*"U**T*~}W#Dp?|Q"E**Uz~_**U{;~U*"D@U*U*wW*U*UjWjU*U*U{wwk~ Q*uU*U*U*/@w*E(U*@*@(U"@:w"Q*U*u~_*U*UzT*U*U*un}+u?}}{?U.DU*U*Q"U*}/(t~?( U*@*"D*U* "D(U*U*"DD*U*U:/U**U*uWjG(}z}{w*Ep]~_*U*U*U*T(U*U{" @("T*U*]Wn} "}_ D(U*U @*U*U:wU:W*U*wnE(U~_~{{_*Ap_xW*U*U*~};wDxw*EU*U*D"U(Uj          K$(64M2))ī430&F$F$((K$)64):FT((F$,2,1))IL$(F$,1)ZK$"E"ĉ:{D$;(F$,2,1);"RUN";(F$,29) CATALOG"C22:"TYPE ";(91);"LETTER] TO RUN, TO EXIT"p4:"OR TYPE FOR FULL CATALOG ";16368,0:16384,128:K$K$(32)ĺ::D$"CATALOG":K$(13)Ģ23:K$"V"Ģ23:958:D$"RUN CATALOG"(K$"A")(RGE "E ,F$(21)" DISK NOTES "r 6F$(22)" MICRO-ED CATALOG "y @9 JN1M TN11Ģ9 ^N10Ė20 hLN14 |(91);(64N);"] ";(F$(N),3,LN) N 20:"[U] DISK NOTES [V] MICRO-ED "7 F$(15)" CATALOG HIGHLIGHTER "d F$(16)" BDISK DETAILS " F$(17)" BTRACK ADDER " F$(18)" SECTOR ADDER " F$(19)" BDISK MAP " "F$(20)" BDOS-PUF$(9)" SCREEN LOCATION FINDER "V F$(10)" ROTATE " F$(11)" RAINBOW MUSIC " F$(12)" BA/SOFT PRETTYLIST " F$(13)" TWO LABEL PRINTER " F$(14)" BA/SOFT CHECKER " TEXTRIX DEMO "M F$(4)" BTEXTRIX "y F$(5)" BSCREEN TWIRLER (SLOW CLEAR) " F$(6)" TEXT DISPLAY SUBROUTINES " F$(7)" BT/S DISPLAY PATCH " F$(8)" DISK MASTER ") 2:33,I:24:S(16336)::1 2I1300::170c <I15312:32,I:33,33I:24::S(16336):p F255::| PF$(23) ZM20:D$(13)(4):16368,0 dF$(1)" DROP DOWN DEMO " nF$(2)" PICTURE PACKER "! xF$(3)|L ::33,25:32,10::9::" ":" ";:21:" ":" ";:" M I C R O - E D ";::" "::" ";:21:" ":" ";::" LIBRARY DISK #3";:21::" ";:21:" ":" ";:21:" ":" ":200:I1500: (I3115     ?zU" U*u P@q"T*U*Uj_k*}/}u ;wn];wn(U*U*W*P@(zW~}@Q*U/"}D U*E]#jzo?U*P*E;wn]; U*U*D@*U*WPz#u }o}8\}/`/p*U*U*U*@(**U* P"@*u T*U?uo?w/"?u:U*U;wn@:W*P*D@ U*|*E} U*Dq*?*U* T*"U*U"U:_jW>b? *T*"U* }{U*WjuDp/u+U*U*"D"U*U**ET*U.DA z"Dt*T U{u?U*D"U*U~ UT"D:"U*U*U*Q*T*U*}+_#D q?|]@*T*P*UP*"U*w.U*U*{/U U*E*U*Up"];P*U*"T* @ U*}W#Dp/"T*/"UzxWj}wo_?*EU*U*uW*U*Uz?U"P*U*U:w~?uu~+"T(uU *U*/@|o/]*(@ DQ*U*_?_P*U*u~_*U"U~Q"@(U*U*U*]zu?u?}?:UhbUQ*T*U*_Pj}""U* D*T*"D(U*U"@@(U*U+/UzW*U*}WjEu/~_*p_x_*U*U*U*U*U*]? DP*T*U*DQ*U T*U*EQ*T(U*U*U*U*U*wzE(Uj}_~o_ U uW**U* @ _*"P*U*U@DjU*:*(~P"E @"U PPzA@n] U@*U*U*Un];wT:`Wj?D}| U*u U*U*]:wn];wxU?}~U D*U?TD (A*P{ zW(n];u*U@(PwoU*p*U(Uz `~n]; UP*U Q*UjU*U>U*E T*} @p Q*U*U:~EzW~}u?}?@~.]*uj];(U*U*@/}zW T(u+|"U*}:G~UuoU P+Qn];wn];U*Un*UjUTx U(}o}Q?|n_ `+t/ Q*U*Tz T*UD~*qU*wb#?w_?h*U*U*U+@*U* A TU*}W (W Ut ~/D(U*(U*E(Q*D(Un_:`c?"DQ*Un wU _z/*p/w+D*U*@"E@T U*U+U*~~@:_(@> U~\~w}+(U*U{"UT h@(U*U**]+UjUzW~w_ .u/]"D"@*u~P*U*U"Ez_  U*Q*U*pWu.@"U*U*DP"*U8W p?|"D"/Ujx.U*u~o_?_*ED*U*UW*U*UjU P*U*Un}xw{{~ @z"D(Q"/|o}+* *@T*"?~}D*U*U{W*UU~E*U*U*U*u}}z~~{UzW8D "DQ"T:w P**"D*"U*Q"D"U*Uj;UjE(U*uUj u_{_z?U pW~_*T*U*U*U*U*Un T*U Q*U*UQ~/U D""U*U*}*U*U*_j"Tz?}?]?UT"*D(Q*_n}P`;U"T*U*QP U~8c_*P 8|_P*U@(@*U zG?>UP*U;Wn];wnU*} `GzE U*A(Q||T*] @*U;wn}{n_(z*E(Q*u/@@"TU+@U"Uj_zz/:.(?~};T*U uow_+ *U~`(U"D(t~# ~;w(Ut*@(U:ujU K YOUR PROGRAM." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"AT IS BRANCHED TO BY A GOTO OR A GOSUB ACTUALLY EXISTS IN THE PROGRAM. TO USE THE CHECKER, LOAD THE PROGRAM BY " 2"TYPING ";::"BLOAD A/SOFT CHECKER";::", THEN LOAD THE APPLESOFT PROGRAM YOU WANT TO CHECK AND TYPE ";::"CALL 768";::" TO CHEC' D$(13)(4):A$"A/SOFT CHECKER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:s ("THIS PROGRAM WILL CHECK YOUR APPLESOFT PROGRAM TO MAKE SURE THAT EACH PROGRAM LINE TH.w_`Qz"@@ T*P"Up|/@.*U @*UjU*wn];wA@j?}W~A `_*? U*@(U*@zT*U*U U*U+wn];wU_?U(U:` U @*Qz z n];"UU U*U*Uz} TUx_@*U" *u h~n]; TP*U*U*U.]:ukW>u* D*U+@p?*T(U*w/PxW~U?qW.U:Wn];(U*U*U@ T>u+ D*U/ Q"WjU*E*Q?uu?@** j];wnQ*U"T*UP x*uU|?}_{W `/p*U*U*U*P" Tz*"E*}D@*qQ*Uj}_`?owG*?z*U*U*];.U*U @(U*_/P D  pk/E*U**U*UU*U(u*_x/x@P* (un u~Uj"{*Up?U*T*U*DD(U*U+P*U*ph? `]{UjUz*E DQ*Uz"Dp_P.*U*U"DT"T(Uj}{}WP?|"D"?@(Un@:@U*]?W*U*?U(P**U @|?E(U*@(U*E(P* (uG | D*/Uj(~}{w{w/] T*U*UW*U(UzUP*U*U*U;wG~}zz~{?E"D:Q"D"/T{?U U@ "D(U*_oW@(U*Uz_"UU~?D T*U*Q*U?uj_z_~_.(] U*@ D"?P*uo*"D""D*"@"T*U*]?UjU(U*}Wj T~~W~w/Up_xW*D**U+U*U:D(UU*U D(U*Tz}*U@ T*U*]*U*UjUj"U*u~/w_/UDj"D*+w.U(U*A@*t""<?E(`qT*Q@(U*T~W:p(U@*U;wn];wn] DP/`_j?Q*E"T w~P*Uj] @(U*wn_~} k_.*U>@?U"DD zq{/ |*kwn]@(UUU*U*Dz} U"Dx*UD Tj} (~_;wnUP*U*UjU;wn]   "OU WILL NO LONGER BE ABLE TO BOOT DOS FROM THESE DISKS, BUT IN ALL OTHER RESPECTS THESE DOSLESS DISKS ARE IDENTICAL TO NORMAL DOS DISKS." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU" D$(13)(4):A$"DOS-PURGE"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$" ": ("THIS PROGRAM WILL REMOVE DOS FROM YOUR DISKS TO ADD 32 EXTRA SECTORS OF DISK STORAGE. Y"PRESS A KEY TO RUN "A$:L(21(B$)2):B$(" ",L)B$:B$;:16384,128:B$::20:D$"RUN"A$UR DISKS. THE PROGRAM WILL TELL YOU WHEN TO PLACE EACH DISK INTO THE DRIVE SO THAT YOU CAN ADD ITS FILES TO YOUR MASTER CATALOG." 2" THE PROGRAM ALSO USES THE FOUR PROGRAMS CALLED MAINTENANCE-DM, INPUT-DM, DATE-DM AND GARBAGE/RWTS-DM."f d23:B$g$ D$(13)(4):A$"DISK MASTER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L1):::B$::34,2 ("THIS PROGRAM WILL AUTOMATICALLY CREATE A MASTER LISTING OF THE FILES ON ALL OF YORAM, THEN INSERT THE DISK TO CATALOG AND THE PROGRAM WILL TAKE IT FROM THERE." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU" CATALOG COMMAND. IT GIVES THE LOAD ADDRESS AND LENGTH OF ALL BINARY FILES, THE LENGTH OF ALL APPLESOFT FILES"N 2"DISPLAYS ANY DELETED FILES AND SHOWS HOW MANY FREE SECTORS YOU HAVE ON YOUR DISK. TYPE ";::"BRUN DISK DETAILS";::" TO START THE PROG% D$(13)(4):A$"DISK DETAILS"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:p ("THIS PROGRAM WILL GIVE YOU MORE DETAIL ON THE FILES ON YOUR DISKS THAN YOU GET WITH THE   CANCELS THE LISTING AND PRESSING "R <"THE SPACE BAR STOPS AND STARTS LISTING." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"HOW EACH NESTED PROGRAM LINE ON A SEPARATE LINE AND SHOW THE NESTING OF ALL FOR-NEXT LOOPS IN YOUR PROGRAM."# 2" TO USE PRETTYLIST, LOAD THE APPLESOFT PROGRAM YOU WANT TO LIST AND THEN TYPE "::"BRUN A/SOFT PRETTYLIST";::" TO BEGIN. TYPING CTRL-C# D$(13)(4):A$"PRETTYLIST"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:n ("THIS PROGRAM WILL PRINT A LISTING OF ANY APPLESOFT PROGRAM TO SCREEN OR PRINTER. IT WILL S!!! "v d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"ORS. IT WORKS WITH ALL BUT SOME VERY OLD APPLE DISK DRIVES. ONCE YOU HAVE RUN THE PROGRAM IT WILL MODIFY ANY DISK YOU INSERT IN THE DRIVE." 2" WHEN YOU HAVE FINISHED RUNNING THE TRACK ADDER, ANY DISK YOU INITIALISE WILL ALSO CONTAIN AN EXTRA TRACK.w$ D$(13)(4):A$"TRACK ADDER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$" ": ("THIS PROGRAM WILL ADD AN EXTRA TRACK TO EACH DISK TO INCREASE DISK STORAGE BY 16 SECT    TYPE ";::"CALL 28762";::" TO BEGIN THE SORT"; 2:23 d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"HE PROGRAM YOU SHOULD FIRST TYPE ";::"BLOAD SORT CATALOG";::" TO LOAD THE PROGRAM "1 -"FROM DISK. REMOVE THAT DISK AND INSERT THE DISK WHOSE CATALOG YOU WANT TO REARRANGE - MAKING SURE THAT YOU DON'T HAVE A WRITE PROTECT TAB ON THE DISK. LASTLY% D$(13)(4):A$"SORT CATALOG"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:W ("THIS PROGRAM WILL SORT THE FILES IN YOUR DISK CATALOG INTO ALPHABETICAL ORDER. TO USE T   23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"T GIVE YOU MORE FREE SPACE ON YOUR DISKS. IT WILL NOT FREE UP ANY DISK SECTORS THAT ARE IN USE. " 2"TO USE THE PROGRAM, TYPE ";::"RUN DISK ADDER"::"AND THE PROGRAM WILL PROMPT YOU WHEN TO INSERT YOUR DISKS."p dq% D$(13)(4):A$"SECTOR ADDER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:c ("THIS PROGRAM WILL ALLOW YOU TO SHORTEN YOUR DISK CATALOG SIZE TO FREE UP ITS SECTORS TO S IN SLOT 1.FOR OTHER SLOTS TYPE ";] <:"POKE785,N";::" (SLOT N) BEFORE CALL 768."::23 d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"0 COLUMN MODE IT WILL PRINT THE 80 COLUMN SCREEN. IF YOU HAVE A ][+ OR ARE IN 40 COLUMN MODE THE PROGRAM WILL PRINT"# 2"THE 40 COLUMN SCREEN. TO PRINT THE SCREEN TYPE ";::"CALL 768";::" ONCE YOU HAVE LOADED THE PROGRAM. IT ASSUMES THE PRINTER I% D$(13)(4):A$"DUMP 80 COLS"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$::34,2v ("THIS PROGRAM WILL PRINT THE SCREEN TO YOUR PRINTER. IF YOU HAVE A //E OR //C IN 8..................? :D$:S1(125):S2(126):S0S1S22561n D$:D$:A1(125):A2(126):A0A1A22561z #D$:70 (:250,A1:251,A2:S0: 2169,1,133,249,164,249,177,250,201,255,208 3 1,96,133,252,200,177,250,133,253,166,253 ) 4164,2X ========================= DO NOT MODIFY LINES 15-20 =========================~ :"PLEASE WAIT - COMPOSING TUNE"1,................................................................................. 2,.................................!!""ERROR TYPE "ER" ENCOUNTERED"::216,01)D$ĉ::NA$:A$:16304,0::22:310> TNA$""A$"":110[ ^D$"BLOAD"NA$".C,A$4000"f c216,0u h:768:70 :21::ER(222):ER6ĺ"FILE "NA$;:A$"D"ĺ".C"; ER6ĺ" NOT ON DISK":70 ER8ĺ"I/O ERROR":70 ER255ĝ:% ""Y"ė:703 "UNDER WHAT NAME ('.C' IS APPENDED"D 5:"> ";NA$w (NA$,1)D$ĉ::NA$:A$:16304,0::22:250 NA$""A$"":110 "D$"BSAVE"NA$".C,A$4000,L"LE ,70 6"COMPRESSED PICTURE ('C' IS APPENDED)" @5:"> ";NA$' J(NA$,110 D$"BLOAD"NA$",A$2000") 24579H LE(LO)(LO1)25616384p "LENGTH OF COMPRESSED PICTURE: "LE "NUMBER OF BYTES SAVED: "8192LE "PERCENTAGE DIFFERENCE: "100(LE8192100)"%" "BSAVE THIS COMPRESSION (Y/N)? ";:A$: A$::400 PA$"Q"ĉ::: ZA$"C"A$"D"A$"Q"60C d120h nNA$""ĉ::D$"CATALOG":A$:60x xA$"D"310 24:"ENTER NAME OF HI-RES PICTURE TO COMPRESS" 5:"> ";NA$ (NA$,1)D$ĉ::NA$:A$::16304,0:130 NA$""A$"":&  ::!D$(4)::230,32J21:10:"PICTURE PACKER":34,21::x(22:"PLEASE WAIT WHILE I LOAD THE FILES"2D$"BLOADPACK":D$"BLOADUN-PACK"<LO24828:: F:16297,0:16300,0:16304,0:23:"COMPRESS/DECOMPRESS/QUIT (C/D/Q)?";:A$!!!!!!```L B `'a La`@` A`Šṳ̃`BL a aaa` `aa)```@aaLY` a aaaи@@``` `H)`JJ ``h` .` .` n``) `$00 ` `(&H ` ` `h` `! ! UR ACCIDENTALLY LOST PROGRAM WILL BE IN MEMORY FOR YOU TO SAVE IT TO DISK OR FOR YOU TO CONTINUE TO EDIT IT."::23 d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"DER AN ";::"FP";::" OR A ";::"NEW";::" COMMAND." 2" TO USE IT YOU SHOULD INSERT THE DISK THAT CONTAINS THE UNFP PROGRAM AND TYPE ";::"BRUN UNFP";::" IMMEDIATELY AFTER YOU TYPED FP OR NEW BY MISTAKE. AFTER THE PROGRAM HAS"u <"BEEN RUN YO D$(13)(4):A$"UNFP"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$::34,27 ("THIS PROGRAM WILL ALLOW YOU TO RECOVER A PROGRAM THAT YOU HAVE ACCIDENTALLY WIPED WITH EITHI10P(1)1727:SW(1)(1722):P(2)1255:SW(2)(1727):P(3)1250:SW(3)(1255):P(4)1722:SW(4)(1250)I11P(1)1732:SW(1)(1727):P(2)1260:SW(2)(1732):P(3)1255:SW(3)(1260):P(4)1727:SW(4)(1255)I14:P(I),SW(I):I860X1P(1)722:SW(3)(1727):P(4)1210:SW(4)(1722)I7P(1)1220:SW(1)(1215):P(2)1732:SW(2)(1220):P(3)1727:SW(3)(1732):P(4)1215:SW(4)(1727)I9P(1)1722:SW(1)(1717):P(2)1250:SW(2)(1722):P(3)1245:SW(3)(1250):P(4)1717:SW(4)(1245)e2:SW(1)(1687):P(2)1220:SW(2)(1692):P(3)1215:SW(3)(1220):P(4)1687:SW(4)(1215)I5P(1)1210:SW(1)(1205):P(2)1722:SW(2)(1210):P(3)1717:SW(3)(1722):P(4)1205:SW(4)(1717))I6P(1)1215:SW(1)(1210):P(2)1727:SW(2)(1215):P(3)1UTINE =====================bI1P(1)1682:SW(1)(1677):P(2)1210:SW(2)(1682):P(3)1205:SW(3)(1210):P(4)1677:SW(4)(1205)lI2P(1)1687:SW(1)(1682):P(2)1215:SW(2)(1687):P(3)1210:SW(3)(1215):P(4)1682:SW(4)(1210)WvI3P(1)169:I0:32,0:33,40:35,24::900>I1Ĺ32,0:33,40:1000I4I8I12ĺ" ILLEGAL MOVE ! ":P1500:P:520&MM1:T$B$(I)0B$(I)B$(I4):B$(I4)B$(I5):B$(I5)B$(I1):B$(I1)T$X ===================== SCREEN POKE RO I116#T$((16(1)65)).J1I@B$(J)T$440GJWB$(I)T$:Ij32,0:33,40:CC1Ģ1:17:"R O T A T E":16:"-------------":34,3S0::10:970!Z(0):34,20:35,21:33,29:32,9:22:" POSITION TO ROTATE ? ";I:ONLY ONE 'SPECIAL' PER GAME *"N|"****************************************"::"* TO GIVE UP AT ANY TIME, TYPE A ZERO *";A$:A$(32)400MMMMM:M0::Q111::Q:16);"GOOD LUCK !!!":15);"---------------"I116:B$(I)"0":IANGE ANY TWO ADJACENT LETTERS IN A ROW."/ T ^" TO MAKE THIS MOVE PLEASE INPUT A '-1' AS YOUR MOVE AND YOU WILL BE ASKED FOR THE POSITIONS OF THE TWO LETTERS TO BE EXCHANGED." h:"****************************************"r"* REMEMBER BOARD WOULD THEN BE:-"< I116:B$(I)(I64):I:1160Z ""AND YOU WOULD WIN !!!";q ,A$:A$(32)230 6:" YOU ALSO GET ONE 'SPECIAL' MOVE PERGAME WHICH YOU MAY OR MAY NOT NEED. " @) J" THE SPECIAL MOVE ALLOWS YOU TO EXCH 1, 2, 3, 5, 6, 7, 9, 10 AND 11.";N A$:A$(32)230T " CONSEQUENTLY, IF THE BOARD LOOKED LIKE THIS:-" I116:B$(I)(I64):I:B$(2)"C":B$(3)"G":B$(6)"B":B$(7)"F":1160 "AND YOU ROTATED POSITION 2, THE" THE OBJECT OF THE GAME IS TO ORDER THE LETTERS BY ROTATING ANY FOUR LETTERSCLOCKWISE ONE POSITION."o 7 " YOU SPECIFY THE UPPER LEFT POSITIONOF THE FOUR YOU WISH TO ROTATE, THAT IS,VALID MOVES WOULD THEREFORE BE........ x1200A " IN THIS GAME THE BOARD IS LAID OUT ASFOLLOWS:-"W I116:B(I)I:Ig :I1134 2);B(I);8);B(I1);14);B(I2);20);B(I3): I " BOARD POSITIONS ARE OCCUPIED BY THELETTERS A TO P IN A RANDOM FASHION." i   ::M0CC1:*(B(16),B$(16)X25:16:"R O T A T E ":16:"-----------"F8:10:"A GAME OF LOGIC AND SKILL"dQ17::Q:" WOULD YOU LIKE INSTRUCTIONS.....?";nA$:A$(78)ė:::::" ..... ONE MOMENT PLEASE .....":420" " " " """""""""     15, 8,107,4,113,2,143,2,127,4,113,4,107,1b : 100, 8,215, 8,127,12,143,4,100, 8,254, 8,161,4,171 ; 2,215,2,192,4,171,3,161,1,100,4,192,2,229 < 2,215,4,192,4,171,16,215,255 FN080:D:S0N,D:N KN052:D:A0N,D:N:53,136,169,32,133,254,169,255,133,255,202_ 5 208,11,165,253,201,100,240,3,173,48,192,166,253 6 136,208,12,165,253,201,100,240,3,173,48,192,164 7 253,136,198,255,208,223,198,254,208,215,198,252 8208,207,230,249,230,249,24,144,179) 9 8,2