' +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`OT TO TRANSLATE ALL LOWER CASE INTO UPPER CASE WHER OR NOT TO DELETE FROM  (IF YOU DO NOT DELETE  , EVEN  BACKSPACES WILL BE KEPT IN ) * >SET  DELAY (IF ANY) AFTER A CAR- RIAGE RE (LINEFEED INSERTION MUST BE ON TO GET ANY DELAY) 300 OR 11(!L.%(!8!8! `% 8%e (`HJ) )h)i( ((`8! `% n%e (`HJ) )h)i( ((`ӠϠנŠӠ "H 0%(*)+!hi# H 0%(*0 (!L.%(!e!ie! i L.%8#H 0%(*)+!h"0 H 0%(*0 & ԠĠ͠Ǡ&ŠǠϠĠŠӠŠ̭àϠĠĠҠŠנ&٠̠ˠΠӠ& ٠ΠĠ˭Ӡ&  Π̠ӠΠ̠ӠΠҠˠǠӠŠҠ̠ΠȠΠРҠנĠ& ӠΠΧԠ͠ӡ& ٠Ԡ٠Ӡ̠ҠĠȠΠҢŮǮƲӲɵӠ͠ΠӠƠ&̠Ҡ٠Ơ&ҠàϠؠΠŠ&ҠؠϠàΠŠ&ҮԠŠ& ˠӠбϠŠˠŠ& ˠĠŠвб& ٠̠ҠΠŠ&ΠԺ& ˠ̠͠ӠϧîŠϠӠԠԠ&ĠˠŠ٠ˠŠĠΠӠϠԠŠŠӠŠӠΠĠϠ٠נӮԠƠՠŠũ-- --&  ŠĠˠϮϠ͠ӠŠϠź& Ġ͠٠& && ̯Ġˠ& ԠĠ͠Ǡ& Ԡ٠Ӡ&ү& Ӡ&Ġ͠&&دàԠӠ ROUTINE **** CTRL-C RESETS PAGE AND DISK NO. TO 1 AND FORCES A FORM FEED ================================ 34,11:PK(222):PK255Ĺ9,1:64,0:65,(LN$):P$"": D$"PR#0" !:7::"ERROR TYPE ";PK;" ENCOUNTERED."::115,(254):116,(255)::===========N%N;&SRT$"NO"įSRT#(NA$,0,N%,2,2,A):j0SEC$"YES"įSRT#(NA$,0,N%,2,3,A,8,36,A)::SEC$"NO"įSRT#(NA$,0,N%,2,3,A,4,36,A)?DCS3801:32,CS:33,40CS::CS:j  ================================ **** ERROR HANDLINGR$:LG$;"TEXT FILES":LG$;"----------":IN1N(8):P$(PD$,LE4(NA$(I)))P$:NA$(I);P$;:P$"":CC1:(CA)P$CR$:C0:65,(65)1(8)0C1İ130(8)0Ă34,10::N1:1040  ===================== DO THE SORT ON NA$(N) ==========CR$:LG$;"LISA FILES":LG$;"----------":IN1N(7):P$(PD$,LE4(NA$(I)))P$:NA$(I);P$;:P$"":CC1:(CA)ĭIN(7)1P$CR$:C0:65,(65)1(7)0C1İ130(7)0Ă:N(4)(5)(6)(7)P$""(8)0:C1:65,(65)4:130:CR$:LG$"INTEGER PROGRAMS":LG$"----------------":IN1N(6):P$(PD$,LE4(NA$(I)))P$:NA$(I);P$;:P$"":CC1:(CA)ĭIN(6)1P$CR$:C0:65,(65)1(6)0C1İ130(6)0Ă:N(4)(5)(6)P$""(7)0C1:65,(65)4:130:30:CR$:LG$"BINARY PROGRAMS":LG$"---------------":IN1N(5):P$(PD$,LE4(NA$(I)))P$:NA$(I);P$;:P$"":CC1:(CA)ĭIN(5)1P$CR$:C0:65,(65)1|(5)0C1İ130(5)0Ă:N(4)(5)P$""(6)0C1:65,(65)4:130:C(65)4:130:CR$:LG$"APPLESOFT PROGRAMS":LG$"------------------":I1(4):P$(PD$,LE4(NA$(I)))P$:NA$(I);P$;:P$"":CC1:(CA)ĭI(4)1P$CR$:C0:65,(65)1T(4)0C1İ130^(4)0Ă:N(4)hP$""r(5)0C1:65,(65)4:1+"65,(65)3:(65)(LN$)6Ĺ65,(LN$)4'130I,I1W:"-";::6DN$"DISK NUMBER "((9))" : "FR$:I1(W(DN$)LG)2LG:" ";::LG$;DN$:9,(9)1:I1W:"-";:@N0:C1:P$"":PD$" "J(4)0Ĺ65,12:11::" PRINTING CATALOG ":6D$(13)(4)PFF$(12): FORM FEEDa34,23:24:s D$;"PR#"SLT$1656(SLT$),W1: ==> DELETE THIS LINE IF NOT <== ==> USING AN EPSON PRINTER <== ==> TURNS OFF SCREEN ECHO <==PRNT$;(13)Č198:1030a$28,0::12:12:"ANALYZING CATALOG"::(48717)189DRV48717: DOS 3.3)(48729)189DRV48729: FDOS.DRV,96:500:DRV,189:340968XX1:X(X5)50F(0)B1810 ============= PRINT CATALOG =============$1,SI)ALUE BIT LENGTH BIT BITS (HEX   J L ( NONP ( ODP ( EVE΢ J L ( ( ( Щ  RETO MENU 8 L Ӡ٠٠ 5000 O1:D$;"OPEN";F$(0,SI);F$(H@+0@+H hh0 h0L*ehhiHH`PRINTERMEMORYTURMODEMTERMINAL MODREMEMBER ][APPLESAVFILBINARYINSTRUCTIONSAPPLE WRITER 1PROGRATH CHANGECHARACTERS >SELECTBACKSPACED-OVEROO THIS . *IF YOU HAVE ANY QUESTIONS ABOUT THIS , CALL  WASHINGTON PI ABBS AT (301) 657-4507 AND LEAVE A MES- SAGE FOR  SYSOP. *L* * CTRL-C TO RE TO MAIN MENU ANY OR KEY FOR NEXT PAGE ɃhhLL XhhHHH ɠ+Ɏ'鍪0 BAUD >SET   LENGTH, PARITY OR NUMBER OF STOP BITS *DISCLAIMER: NEITHER  AUTHOR NOR WASHINGTON PI SHALL BE LIABLE FOR ANY INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING FROM  USE OF THIS . NO EXPRESS OR IMPLIED WARRANTIES ARE MADE WITH RESPECT T XX":A$[! A$" XX XX":A$!A$" XX XX":A$!A$" XX XXXXX XX":A$"A$" XX XX XX":A$[ A$" XX XX":A$ A$" XX XX":A$ A$" XX XX":A$! A$" XX XXXX":A$PA$" XX XX":A$A$" XX XX":A$A$" XX XX":A$ A$" XX XX XX XX XX":A$A$" XX XX XX XX":A$A$" XX XX XX XX":A$ A$" XXXX XX XX":A$aA$" XX XX XX XX":A$A$" XX XX XX XX":A$A$" XX XX XX XX":A$9A$" :A$HA$" XX XX XX XX":A$A$" XX XX XX XX":A$A$" XX XX XX XX":A$A$" XX XX A$" XX XX":A$A$" XX X XX XX X XX":A$A$" XX XX XX XX":A$A$" XX XX XX XX" XX":A$FA$" XX XX":A$A$" XX XX":A$A$" XX XX":A$A$" XXXXX XXXX":A$> XXXX":A$SA$" XX XX":A$A$" XX XX":A$A$" XX XX":A$ A$" XX XX XXX":A$A$" XXXXX XXXX":A$A$" XXXXXXXXXXX XXXXXXXX":A$A$" XXXX $" XX XXX XX XX XX":A$A$" XX XXX XXX XX":A$A$" XX XXXXX XXX":A$?A$" TINE%R(20):(1):40):40):40)LR(20):(1):"THIS IS A TEXT FILE "d&RPAUSE1200:PAUSEj0R0u END OF PROGRAM1u A BRAND BRAND PROGRAMPGT((G$,2,1))+P(G$,2,1)"T"ī207406P21000AP20500IQ:O QrQ(4);(G$,2,1);"RUN";(G$,29)Q(F$,2,1)"T"ī20800"Q21000,Q20500@Q:EQJQ(4);(F$,2,1);"RUN";(F$,29)Q(4);"RUN HELLO"R TEXTFILE SUBROU)xPFT((F$,2,1))$PL$(F$,1)7PL$"A"ī20760XP(20):(1):40):40):40)P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? ";PM$PM$"Y"ī20760PM$"N"ī20690P20650PG$F$((L$)64)ܖ(1):40):40):40)EP(20):(1):"TYPE ";(91);"LETTER] TO RUN"j(P"TYPE FOR FULL CATALOG"2P"TYPE TO EXIT ";D3$" $" # 'WWWWW'' ** ', WWWWW,'> WWWW WWWWWWWWWWWWWWWW"XZ4$;C8$C9$" #### **** 'WWWW'' WWWWWWWWWWWW##"Z3$;C9$D0$" ## **** WWWWWWWWWWWWWW # WWWWWWW";Z4$;C5$C6$" # ,,=, 'WWW WWW WWWWWW WWWWWWWWWWWW"Z4$;C6$C7$" # <''',,,,,, ,> * <-'''''',. WWWWW WWWWWWWWWWWWWWWW"Z4$;C7$KC8 **** ##"0lZ4$;C2$uvC3$" # ***** ##"Z4$;C3$C4$" #***** *****WWWW ## WW"Z4$;C4$.C5$" # WWWWWWWWWWWWWWWWWW " # * * ****** #"E0Z4$;B9$:C0$" # * ********* #"DZ4$;C0$NC1$" #******************************** #"XZ4$;C1$#bC2$" # **** * * #"JZ3$;B6$B7$" ##### ***** * * #"Z3$;B7$B8$" #####**** * * **#"Z3$;B8$8&B9$ * * #"BZ3$;B3$B4$"# * ****** * * #"Z3$;B4$B5$"# * ******** * * #"Z3$;B5$=B6$" ## * * ##"0 |Z3$;B0$ B1$" ### * * ####" Z3$;B1$ B2$" ## ******* * ####" Z3$;B2$5B3$"## ** #"& @Z6$;A8$i JA9$" ##### #"v TZ5$;A9$ ^A0$" ########### * * ##" hZ4$;A0$# rB0$" ###### ##" Z7$;A4$M A5$" ## **** ***** ##"Z Z7$;A5$ A6$"## ** ** #" Z7$;A6$ "A7$" ### **** #" ,Z6$;A7$ 6A8$" #### "c A1$" ###########"p Z8$;A1$ A2$" ##### ####" Z7$;A2$ A3$" #### ###" Z7$;A3$ A4$" ## ******* "U Z5$" " Z6$" " Z7$" "H Z8$" 7&  :0"PRINTER SLOT ";SL$:(4)"PR#"SL$Z(9)"132N": ALLOW 132 CHAR PRINTOUT|((15): SET 132 COLUMN MODE2<ZZ1$" "dZ2$" "nZ3$" " xZ4$"               A$TA$" XXX XX XXXX XXX XXX":A$A$" XX XX XXXXX XXXXX XX":A$A$" XX X XX XXXX XXXX XXXX XX":A$MAXXX XX":A$aA$" XX XXXX XXX XXXX XXX XX":A$A$" XXX XXXXXXXXX XXXXXXXXX XXX":A$A$" XX XXXXX XXXXXXXXXXX XXXXX XX":XX ** XXX XX":A$nA$" XX XXXX **** XX XXXX **** XXX XX":A$A$" XX XXXX **** XXX XXXX **** XXX XX":A$A$" XX XXXXX ** XXX XXXX ** XXXXXXX XXXXX XX":A$tA$" XX XXXXXXX XXXXX XXXXXX XXXX XX":A$A$" XX XXXXXX XXXX XXXXX XXXX XX":A$A$" XX XXXXX ** XXXX XXXXXXXXXXXXXXX XX":A$uA$" XX XXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XX":A$A$" XX XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XX":A$ A$" XX XXXXXXXXXXXXXXX XXXX XX":A$pA$" XX XXXXXXXXXXXX XXXXXXXXXXXXX XX":A$A$" XX XXXXXXXXXXXXX XXXXXXXXXXXXXX XX":A$A$" XX XXXXXXXXXXXXXX XX X":A$fA$"XX XXXXXX XXXXXXXX XX":A$A$"XX XXXXXXXX XXXXXXXXXX XX":A$A$"XX XXXXXXXXXX XXXXXXXXA$[A$"X * * * * * ** X":A$A$"X * * * XXXX * X":A$ A$"X * XXXX XXXXX* X * * X":A$A$"X * * * * X":A$A$"X * * * * * * X": XX":A$ A$"X X X X":A$ A$"X X * * X":A$PA$" XX XX":A$ ~A$" XX XX XX XX XX":A$ A$"XX X X XX XX":A$E A$"XX X X X XX":A$ xA$" XX XX XX XX":A$ zA$" XX XXX XX XX":A$: |A$" XX XX XX XX":A$ rA$" XX XX":A$ tA$" XX XX":A$3 vA$" XX XXXX XXXX":A$ lA$" XXX XXX":A$ nA$" XX XX":A$4 pA$" XX * :"PRINTER SLOT ";SL$:(4)"PR#"SL$idA$" XXXXXXXXXXXXXXXXXXXXXXX":A$fA$" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":A$hA$" XXXX XXXX":A$A jA$"           * *** #" $G6$$G7$" # * ** * ***** * * * * * * #"$G7$?%G8$" #*** ***** * G5$" # * * * * * * *** * * ** ******#"#G5$$G6$" # * * * * * * *** * * * * #"k"G3$"G4$" # * **** * * * *****#""G4$#O"4 CALCULATE DATA AS 2 BYTES SUBROUTINEMH%D256:L%DH%256S LENGTH IN 00,01 *DIST:910040,L%:1,H%X>::" SAVE SHAPE TABLE"::vH" ENTER SHAPE NAME ";N$RAD(233)256(232)\LE(1)256(0)f(4);"BSAVE ";N$;",A";AD;",L";LEp(20):" DONE"z:(13)(4);"RUN HELLA$"Q"ī890610I:(21):" SCALE = ";SC:SC1SC255ī730u(22):" ROTATION = ";R:R0R64ī7403:SC:R:N140,80PAUSE1500:PAUSE(23):" NEXT ? ( TO DISPLAY )":660 0:N140,80680  STORE TABLE%NNSĺ" TYPE N FOR NEXT SHAPE"" TYPE E TO ERASE SHAPE":" AND START AGAIN":" TYPE S TO SAVE SHAPE TABLE"" TYPE Q TO QUIT"A$A$"N"NNSī160A$"E"NN1:SS2:160A$"S"ī800A$(13)ī730LAST 2 BYTES OF CURRENT SHAPEXDA255AI(A64):I,AAI64:I1,AI:I2,0:II3:600nNI,A:I1,0:II2X DISPLAY SHAPE IN HI-RES MODEb:l" VIEW SHAPE IN HI-RES MODE":v" INSTRUCTIONS":" TYPE FOR DISPLAY":0AI(A64):AMAAI64*AM8ī470RI,AM8:I1,24:AAI:J2:II2:480pI,AM:AAI:J2:II1:480 PLOT CURRENT POSITIONH0Ġ3H0XL,YL)15Ġ7H1Ġ15XL,YL3X,Y)15Ġ5&X,Y0270: COMPILE "N"H1H0:AA((8J)2):3808 ^A$"P"A$"N"ī380O hA$(13)H0:580k rAAC8(J1)H(8J)2{ |A512ī480 AH(A512):ALAAH512 AL255ī440 AL63ī430 I,AL64:I1,24:AAH:JJ3:II2:480I,AL:AAH:J1:II1:48FROM KEYBOARD AND INTERPRET# A$N A$"I"A$"J"A$"K"A$"M"XLX:YLYn "A$"I"Y0YY1:C0:JJ1 ,A$"J"X0XX1:C3:JJ1 6A$"K"X39XX1:C1:JJ1 @A$"M"Y39YY1:C2:JJ1 JA$"P"H0H1:AA((8J)2):380 TA$TABLE IN E8,E91 232,L%:233,H%:ST,NS:ST1,0@ :4:NN1S :"SHAPE # "Ni PLOT 40*40 GRIDw K1372 0,38K:0,38K: 3 X19:Y19:X,Y DIST:910:SS2:S,L%:S1,H% J0:H0:A0:C0 XLX:YLY  GET COMMAND I̠ЍΠύ ,141:772,128:773,19528774,76:775,3:776,224FB(4);"EXEC FP"L254): $C082OHHHLt'N ~'*N MENU3/N CREATED BY MENU WRITER;4N:G>NF$(26)VLOL(DT$)2}VO:L)::(32);DT$;(32):L)::`OjON1MtON14Ģ(5)~ON13Ė(20)OLN29OM13LN13O(91);(64N);"] ";(F$(N),3,LN)ONP(20):MW/TEXTFILE")(4);"EXEC MW/TEXTFILE"/M' DISPLAY LIST SUBROUTINEU':d.'L(DT$)28':L)::(32);DT$;(32):L)::B'L'N1M5V'N14Ģ(5)`'N13Ė(20)b'LN29d'M513LN13j'(91);(64N);"] ";(G$(N),3,LN)(4);"OPEN MW/TEXTFILE,D";D8T(4);"WRITE MW/TEXTFILE"Z^"20100 DT$=";(34);DT$;(34)mh"20110 M=";M5yrN1M5|20200N;"F$(";N;")=";(34);G$(N);(34)N"DEL 0,19999""SAVE MW.HELLO""DELETE MW/TEXTFILE" (4);"CLOSE (1):40):(19):(26):P1$,P2$r((P1$)1)((P2$)1)(P1$"A")(P2$"A")(P1$(64M5))(P2$(64M5))ī1480N11(P1$)64G$(N11)P2$(G$(N11),30)"ANY MORE? ";1430@ CREATE MW/TEXTFILEB(19):(1):40):40)EJ0) DISPLAY AGAIN!10000:x DEPENDENT PROGRAMSI(19):(1)t"DO SOME PROGRAMS DEPEND ON OTHERS?";|K$K$"Y"ī1480K$"N"ī160014301480(19):(1):(91);" ] DEPENDS ON ";(91);" ] (X,Y) ":(20):(N7)G$(N8)tG$(N8)""!~N7.N91M5@G$(N9)F$(N9)NF$(N9)""VN9dN101M5}FT((G$(N10),2,1))FT$" "(FT0)(FT128)FT$"T"(FT4)(FT132)FT$"B"G$(N10)(G$(N10),1)FT$(G$(N10),29)N10X(W ";(91);(64N7);"] IS OLD ";(91);" ]? ";:(21):K$a(K$"A")(K$(64M5))ī1030q$N8(K$)64.G$(N8)""ī11308(21):(1)B"YOU HAVE ALREADY ALLOCATED THIS FILE"LPAUSE1400:PAUSEV(21):(1):40)`1030 jF$1):40)  DISPLAY LIST&*100009 REORDER LISTH(19):(1)n"DO YOU WANT TO REORDER LIST? ";vK$K$"Y"ī970K$"N"ī1200930N61M5F$(N6)""N6X(0)1030N71M5(19):(1)?"NEOOSE bN41lN519v(1):(11):" ";(F$(N4),29);AK$RK$"Y"ī690kK$"N"N4N41:720t640zG$(N5)F$(N4)N5N51N4N41N4M3ī750N526Ė(1):(12):" MENU FULL":750630M5N51(1):(1N3N31 N2N21 440) M3N314 &X(0)U 0(3):" DISK TITLE: ";DT$: :" PROGRAMS ON THIS DISK WILL BE":" DISPLAYED ONE BY ONE":" TYPE ";(91);"Y] TO INCLUDE IN MENU":" TYPE ";(91);"N] OTHERWISE":X DISPLAY FILENAMES AND CHILENAMES AS STRINGS6 (3):" ";::" WORKING "::? N21H N31 BASE1638410256((N21)7)(N21((N21)7)7)35 (BASE1)0ī540 (BASE1)255ī520 F$(N3)" " I332 F$(N3)F$(N3)((BASEI)) I X(0) 38392,3:38393,32:38394,217:38395,3:38396,96m 47083,0:47084,17:47085,15:47088,0:47089,64:47092,1x 38390 T(16385N1256) T0ī400 47084,T "S(16386N1256) ,47085,S 6N1N11 @47089,64N1 J250  STORE F>"; ZK$. [K$"1"K$"2"K$(13)ī90> \K$"1"D1N ]K$"2"D2c dK$(13)ĺ:70} n(3):(1):40):40) x F$(70),G$(26) READ CATALOG AND SAVE FILE NAMES LOAD CATALOG N10 47082,D0 38390,32:38391,227:OF ANOTHER PROGRAM B, BOTH MUST APPEAR ON THE MENU. IF A IS REQUESTED, THEN B IS AUTOMATICALLY RUN FIRST.q (:| 238389 <13);"MENU WRITER": =D1 F3:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")" P" DRIVE MAY BE CHANGED, PRESS ? A$ $? $ LL .% "$  g RPQ $$ $ PQ A L;@0/ . . : . . :ɠ7 q . 3 Ġ %L c%b$ "  3 `HH+ +hiHL h h` dɠɍ8鰐 H eheL3`8`ȈL JLKMMLILLILLLLy 2L,PQ܅x݅yL   3 Š L 3 ŠĠĠϠōҠŠˠӠ 8` 3 6 $  (`巬 H (/췩$  `л`LZ $b  %cb$c% " b$c% " ɍ; ɱɲhH )hH h` 3 ٠ο  `HHh 3  hH h 3 `h 3 ` "(!#`hD hE D E H D E h0lD 3 3 3 3  3 ˠŠ L LQ ᷭ ͥ J 3 Š  3 NL 3 E 3   L=  3 L= 3   L LQ 3 ο   (LLq H귝 h`s8gt em Σ `v eH 3 ŠҠŠΠ˧  3 Šҿ 뷭  뷩ᷭͥ 1 3 ŠԠΠ    LQ 뷍 "췍    p  ΠŠ٠ĠȠ٠ħӠԠӮ 귝   3 ŠƠŠ˿D ~ 3 ŠƠΠ˿D 귍 3 %""%% B  3 ſ L 3 ۬,݂rxݬަR`HT) / X 3 ԠˠҍӠ͠ӠŠˠ٠ΠӠӠƠՠԍŠԠ˩Š͠ӠĠ ݍ`  ENTER PRINTER SLOT OR HIT RETURNFOR DRIVER AT $300 3 jɍ `)L­ LM`st`ɩw| wɰ$0 $` d'حLԗлΚȉPs}Sچm۷ĠٍŠӮӠӠՠҠӠĠӠҠӳŠՠŠҠŠӬՠΧԠԠӠˠҠՍԠӠήӠ٠٠ϠΠϠŠ 9LXLٮӠ̍ŠŠˠϠҠŠ̠΍Ԡ٠ӮؠҠԠӍŠΠĠΠōǠϠԠŠîԠˠӠĠˍΠĠԠˠӠŠϠՠΠŠŠ` s~`؍ؠҠԠ٠ҠҠκ̠ԠˍĠԠˍĠӍԍԠӠӠԠӠΧԍŠŠàiuh r)r L p /r čŠϯɍӠӠԍϠƠԠōƠӠs i8us'8s jH9} hY}}`h8`sکsrLuJJJJ u) uJJJJ u) dr ` ,uss~ss rLr u~0vLqs~sss r srD uuBss sr!uuڭssLBq *:r lui#L"qu usL q}ssss rE u u8uu} Huiuupª srȱ sr u 9s iu ɵɱ LCpuɴLɳ" us  Lpss}ss rLruɲ<,Dp}7p}up}p}}}|}}}  ӠԠ٠ԠˠȠҠӧӮӠΠϠԠΠ ɍ ˠΠŮϠҠٯΩ L-$ﳍ :ŠӠΠ٠ӠΠϠԠ٠ˠՠԠ̠ŠŠˠĠ $ ,𳥹ƹƸL* GOTO " GOSUB " THEN "/#Sb c g h j k ' X     -   Ӡ͠ӠΠˠϠˠϠŠŠ٠ӮԠ̠ˠȠӠϠӠ̤ghȘeeȑ eiikmjln ͠čL  Lȱȱi 80 ɫɰޅ ڥPQ0 ְ0 ڥ $LɰL :ۥaLY` a aaaи@@``` `H)`JJ ``h` .` .` n``) `$00 ` `(&H ` ` `h` ````L B `'a La`@` A`Šũ͠ӠԠԠǮȠӠĠŠ͠Ӡ Xa P `ĠԠ٠Ӻ L a aaa` `aa)```@a` )` ` )`8``L=`y` `ӥ ` )`a ``'d a `h `g ` .` `+a `t `s ` .` `8gh?a ` a8s寅t尅Sa ` aL ` ` .`L`͠ӠԠԠP}aPQ}aQ`5d ,Ƀ,,ɠɃ,`L`bɂ΍bbb bb b` H`bb:b` b b b"`΋b`b)Ѕ<Ѕ=<ɀe<<=<ɀ Lqb bL aL`LHJJJJ `h) ɺiL` `L`L:ȱ::Pȱ:Q `:ȱ::;L` " ,L rabb b a` abɀ b b" .bLPa:-"͏b GbbɭbɁb bк a` a b`  bbL a/ a// P bL8PaPQaQ/0`HH)hJJ hhhi .i .i nhi) ih(`hh` X -     .  - ĠԠϠȠԿԩ" ɰ0ɷ0 :LW`H X ̭àӬŠӠȠǍ"h g:h;b:i;j(`PJ TuVTvP`0i``ӭà٠ҠӠҠˠǠҠ͠L L=LiTȱiȱi`ȱiȱi ``ȑ ń8 Đ0ȑ ń 0/# `i!LȭLL ȭ  hh`) $ O`LmL8Hȥؑȥّڥݑօوܑօ؈ڑh`Н"klP`"klP`SRT#(VARIABLE NOT FOUNDUR!N$HT HIT RIKSLAY POUR EATDEVOUDRINKRUBLсLukiRliSޅP߅QTU P֥QLEe֥iנօȱօeڥiiiLzeڥi۠څȱڅݠRLȃ0 ܰ L݂ܐ/ L݂% ޘ΃иߥԥՐH ,hr%  , ʽ$L  g RPޥQ g RPiQiYw  OLޠσ ʬσ σ D0ȃȌσ ),л΃ гk͸ȱk͹+kekHȱkellhkmlnpHɍ $'hLhH HH%ʊ G(&)L#  hhh`lSmT`6S7T`   0=L <00L<03 3 <00 3s73@4L3s73O L@3s73|333;3     A$):LE(N$)F:13)"BY PETER STUBBS":13)"---------------":34,7TW(W$)134,7::8:10:"ENTER CTRL-X TO EXIT"10:6:"INSERT DISK AND PRESS RETURN"I48:I,0::(13)(4)"PR#0":16384,128:AN$:AN$(24)::1860:AN$ѭSRT$"YES"SRT$"NO"Č198:880915:SRT$;:868:m17:"";TEMP$:TEMP$SEC$TEMP$""SEC$TEMP$(SEC$,1)"Y"SEC$"YES"(SEC$,1)"N"SEC$"NO"SEC$"YES"SEC$"NO"Č198:93017:SEC$;:868:720 :34,4:A($TEMP$>9:SLT$DH11:"";TEMP$:TEMP$A$TEMP$""A$TEMP$PR11:A$\13:"";TEMP$:TEMP$N$TEMP$""N$TEMP$f13:N$p15:"";TEMP$:TEMP$SRT$TEMP$""SRT$TEMP$z(SRT$,1)"Y"SRT$"YES"(SRT$,1)"N"SRT$"NO""RNT$ IS USED FOR YOUR PRINTER INITIALIZATION STRING.CHR$(14) SETS ENLARGED PRINT & CHR$(15) SETS 132 COLUMNS ON MY EPSON ============================== 7:"";TEMP$:TEMP$LN$TEMP$""LN$TEMP$*7:LN$49:"";TEMP$:TEMP$SLT$TEMP$""SLTW$(13)Č198:730)ANSW$(13)990F:34,20::33,10:32,29u5:"";TEMP$:TEMP$W$TEMP$""W$TEMP$ PRNT$"":LG$"":LG1:5:W$:(W$)80A$"4":N$"28":PRNT$(15):LG$(14):LG2:11:A$:13:N$ ============================== PH: ";N$315:"ALPHABETICAL SORT: ";SRT$Z17:"PRINT FILE LENGTHS: ";SEC$:19:"========================================"8:21:" = ACCEPT PARAMETERS"::9:" = CHANGE PARAMETERS"16384,128:ANSW$:ANSW$"C"ANSALOG PRINTER ";::"========================================"S33,33:32,7w5:"PAGE WIDTH: ";W$7:"PAGE LENGTH: ";LN$9:"PRINTER SLOT: ";SLT$11:"FILES ON LINE: ";A$ 13:"FILENAME LENGTN5704X ============ PROGRAM MENU ============<b:lSLT$"1":W$"80":A$"2":N$"30":LN$"66":SEC$"YES":SRT$"YES":PRNT$"":LG$"":CR$(13):LG1:9,1:64,1:65,0:N1Bv"========================================";::" MICRO-ED DISK CATAND S TYPE FILES AS TEXT FILES$S ============= READ CATALOG =============l33795: 1ST SECTORw26,VNNN1FS%(29)(30)256:FS$(FS%):DF$((FS%4))&FR$FS$" FREE SECTORS"0150:33798: LOOK FOR MORED150TNA$(N)NA$(N)(TN$,LE)S ^TYPE$(NA$(N),2,1):SEC$"YES"NA$(N)(NA$(N),283)l hTYPE$"A"Ĺ4,(4)1 rTYPE$"B"Ĺ5,(5)1 |TYPE$"I"Ĺ6,(6)1 TYPE$"L"Ĺ7,(7)1 TYPE$"T"Ĺ8,(8)1TYPE$"R"TYPE$"S"Ĺ8,(8)1: COUNT R 4NA$(N)NA$(N)L$"B "7 TY8NA$(N)NA$(N)L$"S "X TY16NA$(N)NA$(N)L$"R "~ "SEC$"YES"NA$(N)NA$(N)SC$" " ,(TN$,3)" "340 6L(TN$)3:I1L @(TN$,I,3)" "NA$(N)NA$(N)(TN$,I1):NA$(N)(NA$(N),LE3):350 JI DRV,189:34096:. NN1:NA$(N)"":TY(27)R SC$((23)):SC$("000"SC$,3)v L$" ":TY127L$"*":TYTY128 TY64NA$(N)NA$(N)L$"L " TY0NA$(N)NA$(N)L$"T " TY1NA$(N)NA$(N)L$"I " TY2NA$(N)NA$(N)L$"A " TYк" ";:Z:LG$;"PAGE ";(64):Z1W8LG:" ";:Z:LG$;"-----";:Z1(((64))):"-";:Z:` ======================== PLACE FILENAME IN NA$(N) ======================== (28)0190 (28)255ġ: ::"UNABLE TO READ CATALOG":198::BLOADRWTS-DC" P33792: Z(28)1ĺ"TN$ ERROR":198:H dNA$(105)Q n600 x ========================= SEND FORM FEED IF DUE AND PRINT NEXT PAGE NUMBER ========================= Z (65)(LN$)3ĺFF$;:65,3:64,(64)1:(64)1āZ1W8LG:  2000+1013,76:1014,0:1015,129 ================================ TN$ MUST BE 1ST VAR. & LENGTH 30 ================================(TN$"DISK CATALOG PRINTER: P.STUBBS"2D$(13)(4)<32512: F(33793)9(33794)132ĺD$"      :808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&RM" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM 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,96TING 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 21::E16Ė9:"DISK IS WRITE 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 ON ONE OF THE SECTORS ABOROR 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 ROOM FOR "7(15N)" FILES"[ P19:0: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 FREE SPACE. NORMAL DOS HAS ROOM FؠϠ̠΍̠Ϡؠ΍ ҠĠҠŠҍ ԠŠŠƠŠĩ ԠĠ͠ҬĠҠŠӍL I768788:A:I,A:B1ӠΠōΠƠ̠ҠٍŠˠŠ٠Ӎ ٠Ԡ٠Ӎ ˠ͠ӠŠčŠǠŭӠӍ ˠӠŠҠō -  ˠĠŠвбҠ̠͠РҠ  ٠ĠˠǍ ŠĠٍ͠٠̠ˠΠé ٠ΠĠˠΠé נ̠̠ԠӠנӮ"L#췅D뷅A >(EV @췩뷩 $4 H` /       (/)LU  ` X -    9.3   !:@B;BA"!?Ds"3fw 3`p"9f} "3˦s"3˦"3`p"3`p$1ex!YMJIZؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDĴt(ntJrtttrDh2r"r&&rr&HDDttv24:`hh ؑHH`Hi@h0 F2pF2i I`H h)  9 X ð ԩ ɰɸH h鯍 Ԡ ? Ġ ? L X     z # ! Ӡ РǠ,Ǡ  Ġį͠ "Ҡ͠Ҡ ̠Ҡ Ƞ ĠԠ ˠŠ ՠҠà2Ԡ٠ ԠƠ(үĠϠ  Ġ5 !̠͠Ӡ"Ҡ۠ԠðˠǠҠӭà ؠҠԠɠ Ԡà ӺҠ۠ӺðӺӠӺˠŠ͠ɮʱɠ ͠ĠՠŠˠӠӺՠҠӺҠӺĠѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͒0 ґ >&eee膝JJJJ)ŝƝLpƞ ML#gL )WHLC L , ɒ ɀL  , ґLзLgş堰G L & & & .ee'Lk #t ԧةl=>v?C à[ke [ $ LOADING`RAMPERSANDϠح͍č<0=څ>c?B`C8 é=3LL   9.3B ŖLC ,,`ĠˠҍW?B, Ŗik jlLF<=E>,L+<х=҅>,LЅ<=>,L<=>,Lʅ<=C>,L LW67LɍɈɀ ɠ H58@LL<Ѕ=k>,Ll<Ѕ=*>,L?B` ŖL`?B ŖL?PLWIPADCTROFMALSە1mYr+ !K?ELީF<=Ʌ>?B, ŖL;F<=Ʌ>,L<Ѕ=E>,LD<=υ>,LF<=E>,LF<=E>?B, Ŗ# $ﳍЖLL܅<օ=م>ۅ CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0hh LHH`L  Lԧ:)":=Ӆ<Ӆ=ۅ>,LȘe::֔Hʽ֔H`DEHEDISCHFIKOPCOPREUNFPAUNPA 26-2-84 =============================IO$"RUN"!JIO$"T"IO$"EXEC"9TIO$"B"IO$"BRUN"H^:IO$;XX$nh"";IO$;XX$:IO$"EXEC"ĺ"FP":vr:|216,0:LC  #=================== PROGRAM DESIGNED BY PETER STUBBS NEWCASTLE NSW RAMPERSAND =====================Z 2404:D$(13)(4):D$"BLOADINSPECTOR PATCH,A$D6DC"f LC2061p 380z LC3 "CATALOG":16368,0:A$ 2 LC3:"";IO$:LC  "216,0 ,XX$(IO$,6) 6IO$(IO$,1,1) @IO$"I"IO$"A" LOADER":4093:2102 X210ĺD$"BRUNRAMPERSAND"E (2403)5210 :"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED...": :! 220: ===================== DELETE LINE 211 TO INSTALL THE INSPECTOR PATCH IN 68,0 X2011608 X210ĺD$"BRUN RAMPERSAND":210 1:"LOAD INTEGER OR RAMPERSAND UTILITIES INTO RAMCARD (I/R) ? ":958:120 2404:(2403)1190 D$(13)(4):X201ĺD$"BLOAD RAM======================== TEST TO SEE IF R IS PRESSED - IF YES RUN RAMPERSAND - IF NO LOAD INTEGER IF NOT ALREADY IN CARD =========================== sD$"BLOADID TEST":724:(975)128X201:D$"BRUNRAMPERSAND/AUXMEM":160 xX(16384):163% 5e% 97 E8 L0 $( f fh5hh`(` E 9LQ&( E8 d 35:AHhH4 #J c h`AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA dD$(13)(4) k===$ 100:LL; LH ϠڠϠԬŠϠŠ Qh6h7` Qh8h9`hhhqhrmqmrHHB HHH`= ELQY (HH5H%H ( ( f詠((hH%hʠ%((5     %;HSd+2EQTktŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LŠźe h RRRRR=JWdv&dsK/М LHHH@!>?ABI JL>L?Mhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  STRzmWWX` `EF^_ 0^/_ F̞`EF `HHH0/0+>1jj/9hhh`( 12 1㎓0%` f`ST`LȱM`LȭM`EFST ` ` I,`EF^ȹ^Ȍ  F`,0 0S/TEF$-0 ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)   : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % fɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆ $U+  # ? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` SSTT`S T8`STEF  `iiiRLk SLk H m hLk T%SRsU o00Щ莢ɽదɬUɽ̢ʎ!  : Lm  ɛhhL%H% h%L ,  `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; `  ɱɸ" L; )   ɱɳ# L_ )`   ɱɸ" L )  ɱɳ# L ) ##` L 03 D   , b Y L> b @   Lvم38t0` X L !   - `" X    i( ! , и` X $i( " X ,                         (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"iȑLe&1 && &!ee)ei `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`tRLgӒhԒsՒt֒stsưƯsgůh尐giihijg` LӒ Ԓ8stijRLghLABCՒ>֒?s&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƎLڎiiij8stijRLgh #Lѥȥ&eee膝JJJJ)ŝƝLpƞߥ ,LLtRL LƞƠeEgiEh8iejegeheeȪi LT >L & & & .ee'Lѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͒0 ґ >=څ>c?BЅC,, ,=3LL   9.2 ML#gL )WHLC L , ɒ ɀL  , ґLзLgş堰G j: X#t ԧl=>v?C?3C, Ŗ3kLk [ $ LOADING`RAMPERSANDϠŠčč<0=>W?BЅC,, , TO EXIT"4:"OR TYPE FOR FULL CATALOG ";16368,0:16384,128:T TWEETY "GF$(10)" PRINT CHEF "tF$(11)" INTEGER/RAMPERSAND HELLO "F$(12)" FPLOADER ",F$(13)" DISK NOTES "6F$(14)" MICRO-ED CATALOG "@ PRINTER ">F$(4)" BFIX SECTOR COUNT II "jF$(5)" BRECONSTRUCT VTOC "F$(6)" BDISK COMPARE "F$(7)" MENU WRITER "F$(8)" SHAPER "F$(9)" PRIN(16336)::"2I1300::170T<I15312:32,I:33,33I:24::S(16336):aF255::mPF$(23)ZM12:D$(13)(4):16368,0dF$(1)" REMEMBER ][ START "nF$(2)" BDISA-65C02 "xF$(3)" DISK CATALOGL ::33,25:32,10::9::" ":" ";:21:" ":" ";:" M I C R O - E D ";::" "::" ";::" LIBRARY DISK #4";:21::" ";:21:" ":" ";:21:" ":" ":200:I1500:(I31152:33,I:24:S        ,P p``@#g"g !g !g -g !g !g -g@"g#g`HH)[gJJ [g[gh\g .\g .\g n[g\g) \gh (`hh`--------------------------------------5-- )--------------------5??????????????????????????????????????????????????7--------------------------------------------------5_?B@C , f< =>??B@C ,Ʌ` ,R,T,W???????????????;;?;????????????????????7---------------------- )- - )-------------------5?????????????????????;????????????????????7---------------------- )--- )-------------------5????????????????????;???;?????????????????????7-----------7---------------- - )- - )- )--------------5?????????????????????????????????????????????????7-------------------------------------------------5????????????????????;??;?????????????????????7---------------------- )-- )-------------------5?????------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       PLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL           " " " " " "=>Lnʅ<=C>L L067LɍɈɀ ɠ H58@LL<=k>Ll<=*>L?B` L`?B L?B LC `ĠˠҍF<=Ʌ>?B L;F<=Ʌ>L<`=E>rL|D<=υ>LnFL|F?B # $ﳍLL܅<=م>?B ik jlLFzL|+<=҅>L|Ѕ<=>Ln<hh LHH`L  Lԧ:):=Ӆ<=ۅ>LnȘe::ӔHʽӔH`DEHEDISCHFIKOPCOPREUNFPAUNPAPLWIPADCTROFMALSÕ\([JK !ԕ$9LޥNO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&RM" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0)ei `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶h尐giihijg` LӒ Ԓ8stijRLghLABCՒ>֒?sȥ Ȫ͒0 ґ >&C02","COMPRESS","DISK COMPARE"RESS RETURN FOR MENU OR NO. (1-6) =>";::" ";::16384,128:A$:VTB:38:A$ FA(A$):A$(13)80:(A$)48(A$)K48Č198:60 PA$(13)ė:D$"RUNMENU": D$"RUN NOTES: "A$(A) "SHAPER","MENU WRITER","RAMPERSAND","REMEMBER ][","DISA-65= K7::::" MICRO-ED LIBRARY DISK 4 - DISK NOTES ":WVTB5:I1K:A$(I):(D$(13)(4):D$"NOMONICO":VTB:3:"WHICH PROGRAM DO YOU WANT NOTES ON :-":VTB3:I1K:(37)1:12:"(";I;") ";A$(I)::2VTB(37)3:16368,0M <VTB:"P  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALD$"RUNMENU"::"WARNING";:x K": MENU WRITER MODIFIES ITSELF TO MAKE YOUR NEW MENU SO YOU MUST RERUN IT FOR EVERY MENU YOU MAKE"~ P U"AUTHOR:FERG BRAND" d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)N RUN, YOU WILL BE ASKED IF INTBASIC HAS ALREADY BEEN RUN."; <"IF IT HAS, GAME WILL BERUN IMMEDIATELY. IF NOT, INTBASIC WILL BE RUN FIRST. (INTBASIC, IN THIS CASE, MUST BE ON YOUR DISPLAYED LIST)" A:"5";::":YOUR MENU IS THEN SAVED TO DISK" F:"2";::":LETS YOU CHOOSE WHICH FILE NAMES WILL BE DISPLAYED (UP TO 26) AND THE ORDER INWHICH THEY APPEAR" 2:"3";::":LETS YOU RUN A PROGRAM WITH ONE KEY"< 7:"4";::":IF ONE PROGRAM, FOR EXAMPLE GAME,NEEDSA SECOND PROGRAM INTBASIC TO HAVE BEE $ D$(13)(4):A$"MENU WRITER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:("THIS PROGRAM CREATES A MENU AND:"::"1";::":LETS YOU CHOOSE A TITLE FOR YOUR DISK"m -    ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  APPEAR IN THE PROGRAM"::"FERG BRAND":"MAY 1982" d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"N USING THE LO-RES SCREEN. THEY MAY BE EXAMINED IN HI-RES AND, OF COURSE, THE SHAPE TABLE MAY BE SAVED TO DISK " 2"THIS PROGRAM IS A CORRECTED AND IMPROVEDVERSION OF A PROGRAM THAT APPEARED IN PRACTICAL COMPUTING, SEPT 1980, PAGE 98"3 <"INSTRUCTIONS D$(13)(4):A$"SHAPER"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:p (:"WITH THIS PROGRAM YOU CAN MAKE A HI-RES SHAPE TABLE OF UP TO 256 SHAPES. THE SHAPES ARE DRAW  Ԡ& & Ӡà& &̠ҠΠҠԠ&ŠǠŠ  &ˠөϠˠ& ĠӠԠƠ̠ĠӠ̠ŠĠƠՠԠŠΠҠƠΠĠĠӠĮΠ٠ӠԠŠàӠՠŠŠȠΠĠ̮ĠĠŠį͠ŠĠӠ̠٠ˠΠӠȠˠƠ٠Πάՠ̠ԠŠŠϠŠŠĠӮŠӠΠŠΠȠŠΠҠԠנӮǠ̭àԠ٠Š̠ԠŠӠĠĠĠΠŠĠӠŠՠΠ̠ŠӠРŠΠȠŠРҠԠנӠĠΠ̠-  -ϠĠȠŠӠΠǠ ŠРҠԠӠϠ̠ Π ٠ҠӠ TEGER/RAMPERSAND HELLO":(13)(4)"FP" ĠӠ ! "16368,0:K136K138330N 6(6)256(7)BEāU124:9422:U:270^ JK187390{ ^(6)256(7)BEČ9422 r270 K149K139430 (8)256(9)ENāD124:9327:D K131270( 216,0:103,P1:104,P2:(13)(4)"RUNIN 2:500-n10,4:11,1:EN9322:BE2602RLBBE(BE256)256:HB(BE256)b8,LB:9,HBwI125:9327:I6,LB:7,HB:9422P1(103):P2(104)AD(121)256(122)1:103,AD(AD256)256:104,(AD256) K(16384):K127270           ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0/MICRO-EDUCATIONAL MODEM. TO START THE PROGRAM YOU SHOULD TYPE "::"EXEC REMEMBER START": d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"% D$(13)(4):A$"REMEMBER ][ "B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:] (::"THIS IS A TERMINAL EMULATION PROGRAM WHICH CAN BE USED WITH MODEMS LIKE THE MAESTRO i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4٠ĠàH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠĠϠ :0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLȌd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp O+4 XL DLl` d` 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ `J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)JeNU"TO YOUR PRINTER OR TO THE SCREEN. THE PROGRAM WILL CORRECTLY DISASSEMBLE PROGRAMS WRITTEN FOR BOTH THE 6502 AND THE 65C02 MICROPROCESSORS." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNME# D$(13)(4):A$"DISA-65C02"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$: (::"THIS PROGRAM WILL PRINT A DISASSEMBLY OF A PROGRAM IN MEMORY. YOU MAY SEND THE OUTPUT   :" (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          !!!!!!!!""""""  TO RESTART":16384,128:A$:" IS NOT ON THAT DISK"A ER8Ė9:" DISK ERROR-CHECK DRIVE ":l ER4Ė8:"WRITE PROTECTED-REMOVE TAB" ER9Ė10:"DISK FULL-USE ANOTHER" $ER10ĺD$"UNLOCK"F$:D$"DELETE"F$ .ER10Ė11:"ERROR "ER" ENCOUNTERED" B:22:9:"PRESS ANY KEYRL-P TO SAVE INSPECTOR PATCH TO IT. NOTE: INTEGER/RAMPERSAND HELLO & ID TEST SHOULD ALSO BE ON THAT DISK" Z1000:D$"BSAVEINSPECTOR PATCH,A$46DC,L$924" d (37):16384,128:A$:A$(16)1000  20::ER(222):ER6Ė11((F$)2):F$v <" NOW INSERT A DISK CONTAINING RAMPATCH AND PRESS CTRL-P TO PROCEED":1000:F$"RAMPATCH":D$"BLOAD"F$",A$46DC" FI13:I18433,234::I13:I18441,234::I13:I18449,234:k P5:958:" DONE. INSERT A DISK CONTAINING AUXCARD & PRESS CTAMPERSAND COMMAND &RED IS DISABLED. "X "DO YOU WANT TO PROCEED? ";A$:(A$,1)"Y"Ā (5:958:" OK, INSERT A DISK THAT HAS A COPY OF INTBASIC WITH THE INSPECTOR INSTALLED AND PRESS CTRL-P TO PROCEED":1000 2F$"INTBASIC":D$"BLOAD"F$",A$4000"| D$(13)(4)::::" R A M P E R S A N D V E R 9.2 "::13:"BY PETER STUBBS":13:"===============":1020% " THIS PROGRAM WILL PATCH RAMPERSAND 9.2 TO ALLOW USE OF THE INSPECTOR IN THE LANGUAGE CARD.IF THIS PATCH IS INSTALLED THE R   YOU REBOOT A DISK." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"RY SO THAT IT USES LESS SPACE ON DISK. TO COMPRESS A FILE JUST TYPE & AND THE PROGRAM WILL DO THE REST." 2:"TO SET UP COMPRESS THE FIRST TIME YOU WANT TO USE IT JUST TYPE ";::"BRUN COMPRESS";::". YOU WON'T NEED TO SET UP COMPRESS AGAIN UNLESS! D$(13)(4):A$"COMPRESS"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:j ("ONCE THIS PROGRAM HAS BEEN RUN, YOU CAN COMPRESS ANY APPLESOFT FILE THAT YOU LOAD INTO MEMO  RS- 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."-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-TCH." F#;:::" D I S K E X P A N D E R ][ ":: "THIS FUNCTION HAS BEEN DELETED TO ALLOW SPACE FOR THE INSPECTOR IN THE LANGUAGE CARD. TO USE THIS FEATURE RUN THE FILE FROM DISK OR BRUN RAMPERSAND WITHOUT INSTALLING THE INSPECTOR PA  PARE PROCESS." d23:"";:16384,128:B$:B$(13)B$(32)100:B$(32)ĺD$"RUNMENU"PARTICULARLY USEFUL TO CHECK IF A DISK YOU HAVE JUST COPIED IS A GOOD COPY. TO USE DISK COMPARE YOU SHOULD TYPE" 2::"BLOAD DISK COMPARE";::", INSERT THE DISKS TO BE COMPARED IN DRIVES 1 AND 2 THEN TYPE ";::"CALL 28672";::"TO START THE COM% D$(13)(4):A$"DISK COMPARE"B$A$" - PROGRAM NOTES":L(20(B$)2):B$(" ",L)B$(" ",L):::B$:t ("THIS PROGRAM CAN BE USED TO COMPARE TWO DISK TO SEE IF THEY ARE IDENTICAL. THIS CAN BE   STATUS REPORT ALLOWS YOU TO EXAMINE ANDTHE STATUS OF  AND  FEATURES. YOU CAN: FULL OR HALF DUPLEX *WHETHER TO SEND A LINEFEED AFTER EACH CARRIAGE RE WHER TO SEND AND RECEIVE CONTROL ( 'TRANSPARENCY' DESCRIBED IN  MICROMANUAL) *WHER OR NR  IS ON. *BY EXITING WITH   ON, YOU CAN CREATE TEXT,  OR ASCII S OF ANY OUTPUT, INCLUDING DISASSEMBLIES OF MACHINE LAN- GUAGE CODE, FOR LATER ANNOTATION AND STUDY. OVERWRITING OR THE *ITSELF WILL CAUSE UNPREDICTABLE RESULTS. *P. DEVICE IF  IS ALSO ON, OUTPUT WILL GO TO BOTH  AND  SCREEN. P.  OFF DOES THAT. *Q. QUIT RES YOU TO BASIC.  , AND WILL BE SET ON OR OFF ACCORDING TO IR STATUS WHEN YOU EXIT , ALTHOUGH YOU CANNOT HAVE  ON FOR OUTPUT AT  SAME TIME EIR  OT PAGE. *M.  ON WILL SET   FOR INPUT OR OUTPUT, AS INDICATED ON  DISPLAY, WHEN YOU EXIT . N.  OFF WILL ALLOW YOU TO CLEAR  STATUS  WILL HAVE UPON EXIT FROM . *O.  ON DOES THAT. IF  IS ON AND  IS NOT, OUTPUT WILL GO ONLY TO  .XT TO  (ASCII) TO S. LOAD   YOU WANT TO CONVERT, N 'SAVE' IT IN  FORM YOU DESIRE. *L. LISTS THIS . IT ALSO ERASES  . TO MAKE A PRINTED COPY OF SE , EXIT ,  ON YOUR AND 'BRUN REM II.OBJ1'. PRESS *A KEY PERIODICALLY TO PRINT  NEXD  ALLOWS YOU TO LOAD A TEXT ,  OR  . YOU MAY ALSO TRANSMIT   AS ASCII OR AS A SERIES OF HEXADECIMAL FOR DIRECT ENTRY TO ANOTHER COMPUTER, OR YOU MAY TRANS- MIT A LISTING OF A BASIC . YOU *CAN USE  SEND AND  COMMANDS TO CONVERT S FROM TE*J.  TO DISK ALLOWS YOU TO   AS A STANDARD DOS TEXT , AS A  FOR   WORD PROCESSOR OR AS A  WITH ALL BD IN IR ASCII *FORM. NOTE THAT A DISK ERROR MAKES YOU EXIT  . RE-ENTER WITH 'CALL 2051'. YOU MAY ALSO    BY PRINTING IT. *K. SENLT  LISTING. BE ALERT BE- CAUSE  GOES BY FAST! H. ENTER TEXT INTO ADDS WHAT * EVER YOU TYPE TO  . YOU CAN CREATE TEXT TO BE TRANSMITTED OR TO BE SAVED TO DISK I. CLEAR ERASES  . SENDING A  OVER  OR LIST * ING SE ALSO ERASES  . *ARE 'ERASED' UNLESS   IS TOLD ORWISE. *F. OFF S  OFF. IF  IS OFF,  WORD 'OFF' APPEARS IN INVERSE. G. DISPLAY LISTS  CONTENTS OF  ON  TEXT SCREEN * CTRL-C WILL STOP  LISTING. IF YOU HAVE AUTOSTART ROM, CTRL-S WILL TEMPO- RARILY HAAND THROWS YOU INTO . D. HANG UP PHONE DOES JUST THAT. *E. ON S ON  . IF IT IS ON,  WORD 'ON' WILL APPEAR IN INVERSE.  NORMALLY BEGINS AT $1901 (DECIMAL 6401) AND ENDS AT HIMEM. WHEN  IS ON, >> ALL << CHAR- ACTERS WILL BE STORED IN  . PHONE NUMBER YOU WISH TO DIAL. YOU MAY USE STANDARD INPUT EDITING FEATURES SUCH AS  LEFT-ARROW;  LINE WILL NOT BE SENT TO  'S DIALER UNTIL YOU *HIT RE. YOU WILL N BE PLACED IN . C. ANSWER PHONE & GO TO  WAITS FOR  PHONE TO RING, ANSWERS IT TRL-A> . YOU MUST N PRESS A KEY TO RE T *  MAIN MENU. TO PRINT  CONTENTS OF  TEXT SCREEN, TYPE CTRL-P. NO WILL BE D IN   OR PRINTED TO YOUR WHILE YOU LOOK AT ANY MENU. *B. DIAL PHONE NUMBER & GO TO TERMINAL MODE WILL ASK YOU FOR  E SLOT NUMBERS IN  BYTES INDICATED ON  STATUS REPORT. TOSE, BLOAD AND INDICATED *BYTES WITHOUT RUNNING  , N RE WITH: B REMEMBER II,A$803,L$10FD HAS 16 FUNCTIONS: A.  IS  MICRO'S STANDARD . YOU EXIT IT IN * NORMAL WAY WITH  BACKSPACED-OVER ) >   P )   BAUD RATE xJ ( 30Li ( 11  CHANGE LENGTH, PARITY, OR OF STOP BITS HH P `i LIxLtILILI LtIL  H h - A ( )  H h ( NO A ( ) LOMEM IS SET FROM G A ( H A ( (LO.HI%  DUPLEX: P H ( FUL ( hH0 ( HAL  hH) >  PASS ALL CTRL-CHARS (TRANSPARENCY) hH) >  LOWER CASE TRANSLATLOADREM II.OBJ1,A6401 NOMONCL8  h)H > ( hH > ( FOR:  INPUT $ >  OUTPUT @$ > ( )  ON OR OFF INDICATES HOW WILL BE SET UPON EXIT FROM L=(荽=L@  60718f0F$ L   , - ( #  L8 ( *IJ LL| L| 8  e z *) L gJhK67 LOA  X8 !!  KL膸L::2051  I00 MONC Bi` ɠ 0IL  OVER  LOAD A:  ASCII   LISTIN  PROGRAM LISTING HH$ ( NOWD AND G `'%=C    @ؘvZȩ e z   ( FULL - L Lޥ RITP REAP BLOA( z (` ȱ o ( o o ee(` BSAV( z ( ,L8( z z L ( TEXT ( ( ,A e ( z (` CLOSE` ` e ( !0!(` I(`0 z ܱ(8@)0I`ɠ $!6H7H0617$H h$h7h6hhh`HHHL   SAVE AS:  D TEXT lHkH`r   8 e z  Ƀ( L8 (  JL ( ENTER NAME: () oڊLv` OPE L WTER TEXT: ( TO EXIT) Ɂ ɘ L'  IЭ ( THIS WILL THE -- O.K.? ( (Y/CR) hhLGH e `HHH$bɈ!JOIG;)#6H7H 2 ( `FUL h7h6  H hɐ4 / %H%% ( ( %h%L L ( DIAL WHAT ? o W  x )&L Ɂ ) W xFL 0 8(f` X ( CTRL-C TO STOP LISTING  } ( ɍL X ( ENCARRIAGE RETUR FOR MAIN MENMODEMINSTRUCTIONSSAVEIN SLOT PHONESEND STATUS REPORLINEFEED INSERTION  `  ` ( (` )6H7H h7h6` 8fL L $PL $ 76L$2L $ L L P x H Xh J ( P ( -hhHHH ɠ+Ʌ'鄪H轇 0轇 H hh0 h0L4 ehhiHH`BINARY CHARACTER ERASňNUMBE APPLEFILEPRINTER FORMA (NOWMEMORYTURNREMEMBER ][TERMINAL MODDELAY AFTER A E:  ɍ)? 8 ` -%Я  0  ( OP ( OFL x`H P )xhL`` e ` mLA `  TEXT  WRITER FIL   (ASCII` 3 v ( P/  g ( HI:  $ 7  DISPLAY  ENTER TEXT INTO  CLEAR      q  @ q  G y 0 y 7  QUI  DEVICE H H` B A;! P x {L ( PRESS THE KEY FOR YOUR CHOIC /ة3 Ƀ8  ) ) JآsL (MICROMODEM) COPYRIGHT 1982 WASHINGTON PI WRITTEN BY THOMAS S. WARRIC   DIAL & GO TO TERMINAL MOD  ANSWER& GO TO  HANG UP  $ 0  ( -         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 PROPORxЍԍ؍@060'0"*L*hL=@L= L=8LLL(`   8L ĠɍŠ˨̭Ǎ ":-( :"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) $1LZLݵܵߵ޵ ^`8ܵ i B8` LֵȱB׵` DȑB׵Bֵ յյ``y¹?`wa_LʬOˬ̬čPQ` H hBLµ* `Loõĵֵ׵ Rĵµѭ H hBLL B ڬ L -յյµ% `õĵֵ׵ Rĵµ˭ B ڬ ! !蠢;ΠĢ宠堢Σ砢̭̭Ȣ砢̭̭Ѡ蠢;ǠҢ̭̭Ơ̭̭Ѡ̭̭ڠ̭̭ؠ卍嬠󮍍Ϡ̠͠Ӎ󠺍Σ̭̭Ƞ!! ! ! 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 UDSƄu|Apqy>DŽp'.\Ag > oL3M ̢-@|3"q?6 ʳA~4pm}ILЅ@.炅`gX:ȐTN$H>z ǺFTOP 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 =oL(49345)L(49345)' :C12);"LOADING FPBASIC"RL(49345)L(49345): WRITE ENABLE SOFT EMULATOR(4);"BLOAD FPBASIC,A$D000"L(16254): WRITE PROTECT RAM768,141: ADDR $300769,128$770,192.771" b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f :::/ "WHICH SLOT IS MODEM IN ";A$G(A$)0(A$)710V258,(A$)g(4)"PR#"A$w((4)"PR#0"2(4)"EXEC REM""