' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q ` ϭà@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` d£àĠˣ٠Ơ͠ԡ# u`΍ԍ͠ӠҠ͠ŠԠӺӍҠΠϠĠкŠάкԍ   " " && " " " " " 5 " I& P& " W& " "  "  " ^& " % " # " $# +# 5 " @# j#  G#   # } % # e&LF " q#j" ꢦ +멫  5 " "LLFo" &  # "  %LbG # l& % s& e& #y" &  %&& x# c " ] }   LqD " X$ # f$ m$  M%  " X$ # f$ m$  -&  " X$ # f$ m$  f$  " X$ # x# c   Lz, 4&  -&  ;&  &  B&  &  Lb $ $ } &e" $ } && " $ " 4&  -&  ;&  &  B&  &  Lb& &     "P   "  "  R   کx   ک   ک5   Lb x# c " ] E   {$ ] E $ ] b   {$ ] & & E % ] x# c j   Et   "  "  ${  '$LE " & "   " c#  L0C X " & " LlC ک0   " " T% " " 5 "Lb $  $  X ک   ک   کɠ   ک   ک   ک3  C  " " " # " " 5 " c# j#  & "  +LA " ] % % c    " ] % % c " % & % +  5 & }   " " % # LB " %LC' % %LA " & " ] # c # c " ]    s w ) !   " " % " " 5 " c#  ! کˠ   ک͠   ک   5$LC' " ] $ c    $  x#  "! + G# + " + G# + $ c " ] n   " ] % c    b%  $  X ک   ک   LC' " % % } ! L B " " # " X$ # % f$ m$  %   L@ f$ m$  $     ک   ک   ک   ک   $  ک   $  ک   $  ک   $  $ " f$ m$ " " 5 " }   "   $  کɠ   # } # 2# } # $ " XLH $  t$  X # c    "  "  #   کC   کK   5$P  $LC' X کR   w $ Xc   $ n   i $@v   $  ک}   $    5$  $LC'   ک   w $ ک*   $ 2   " $ . X # c <   5$LC'Lz> X کS   کb   کv   ک   "  "  5$LC' X # c    " " w% " " 5 2 %L= ک   L=  %L[= ک   w & $ ~%  %  L= ک   w )   % $ ~%  %  # 9# #Ƞ +͠  5 $ c Ġ   "L9 {$ c " ]    5$  $L= {$ c " ]  #5  #L" 5  %L+< # %Y  %L< % c " ] [   w 0 "0  # " % %L$?> $  $  $ c /   کW   "  "  X " + " +멐  5 "u +멆 9! z +  5 2# } $ " X $ c    " # c    $  '$L,# #L/* " q# # L/* " q# 2# } # 2# } # 2# } # # # 2# } # # 2# } # 2# } # # # 2# } # 9# G# #L* " # q# " L* # q# # #L*LS) "  "  s G# # q# " " # " " 5 Π   کߠ   ک   ک   ک   ک   " N# " ] # c s G# .+   w # c " ] G# # .-   # N# "  "  # } # # #L) # # #! #L) "  "  BLC'    " c # ]    " " # " " 5 " # # $# +# 5 2# } 9# " @#   G#   " N#! U# \# 5 " " " c# j#  "   s # c # ]    " q# # ] x# c    ک   ک   H!  "  o " " " " " 5 " " "W!  "  " " e XΠ  " " " "堕 + "  "  ٠  ڠ   ک   ک*   i HR   # c # ] u! ez   " e w # c # ] !LL+LL+蠔LL+蠔L+LV"L["L`"LꩱLliL1iLAL+&L&Lt"LꩬLꢧL+뢋LLL i H " } 4! LH  " " " " " 5 " " ">!  "  "C!  "  "L:L+멣L L5L+:L5L LL"L꩜L"L"LꩣL))"L."L0L+8"L0L5L="LԠLB"L꩗L0LLiLG"LiLL&L&L+Q"L L+L Lꩉ!LꢗL+멻!L!LŠ!LꩡL LpL+멟L Lʠ!L꩗L٠!L꩜L穡LLޠ!L!L!LàL!LpLnL!LULޠ!LDL"L "L꩗LL穥L)LLL?L+?Lk!Lp!Lz!LԠL+!L٠L+ޠL !LàL+ԠL驉!LꢲL+뢷L+멼L L驥LL+멓!LꩲLꩡLꩡL穘!LꢜL+멝!L꩜L!L꩜LԠL!LnL+iL+iLnLiLnL穱!Lꩶ0>Ht#}H ?@p?`8H@K@ @d~/!L4!LL+9!LL+L L` ꠕL LꠕLL M!LR!L\!LꢥLa!LꠕL+f!L]]KEN1SERPENTRULES]?SYNTAX ERROR]@?||@Gph@ @H`~((P @ xP60?@8@A GOOBER GEEK AWARD.^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^- ANY KEY PLEX^(%%: SOUND.....P(???) L(???) ...CHECK::..OK?N !/-\!/-\!???***]LIST10 :=-> SERPENT RULES <=-:ASTED,DOS,212 ALLIANCE,WARE LORDS,SHOCK,1200 CLUB WELCOME. CALL:6/2,68/,8776:^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^AGENT ORANGE, THE JAILOR, MASTER BYTE, THE WIZZARD, GAME MASTER, SIR-KNIGHT, WARE-WOLF,COPY-CAT AND WISE CAT ALL WIN THE 1984 US PASSWORD?U?PC+QA?TCLECPYOU LIVE IN A BOX IF YOU DONT EVEN KNOW THIS PASSWORD DUDE. FIND THE BACK DOOR.CALL THE SERPENT FOR NEW MODS NOW.---------------------------------- TRADE DISK FER ONLY! DO NOT GIVE OUT PHONE NUMBER! WK,L MOVEMENT::SPACE=START (%): :(%) < > FORW. < > FRON < > OPTION (%): :(%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%)::(%) < >+ < >- < >-W < >DISK < >MD (%)::(%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%):NOT READY IN THIS VERSION. CALL ME. ANY KEY WAS PUT IN TO ENABLE YOU TO DO THIS1) CHANGE NON-UNI. TO UNI. FILE2) EXITHMM?1ORIG FILE NAME?:==> FILE: : <===OPEN READ CLOSE FILE READRESAVING.OPEN DELETE OPEN WRITE CLOSE  DONE, GOD THAT TOOK A LONG TIME!ANY-KEY:(%) I,J,ANT TO SAVE THIS?YYEPSAVING UNDER NAME:BSAVE ,A$6000,L DONE,ANY KEYDISK NOW READS=-=-=-=-=-=-=-=-=-=CATALOGEND, ANY KEY(> LATER ON! <)YOU MAY HAVE FOUND THAT FILES MADE WITH OTHER PROGRAMS WILL NOT LOAD IN ON UNI- VAC. THIS FUNCTION /%%%%%%%%%%%\YER CHOICE?Q*EJ* *NEW WIDTH?JJUMP TO CHR#CANT DOECHAR$() OR ASC()CHANGE:'L' LETTER,'N' NUMBER VALUE:NOT CHANGEDNASC=STR$= ARE U DONE?NDO U W%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%):1) BLOCK SHEET2) GLOBAL EDIT3) EXITFORMAT?122NAME OF BINARY FILE:BLOAD ,A$6000PREFORMING SCANERROR FILE::::::::::::::::::::::::::::::::::::::::::::::::\^/:::::::::::::::::::::::::: B@/()\ ?31NAME OF BINARY:NAME OF TEXT :BLOAD ,A$6000OPEN WRITE NAME OF TEXT :NAME OF BINARY:OPEN READ BSAVE ,A$6000,L FILE HAS BEED SUCCESFULLY CONVERTED (=----------> ANY KEY <----------=) :(%) KEYS:ARROWS,*,E)DT,Q)UIT,J)MP (%)::(%PR#0NNAWHAT-EVER DUDENNBOPEN READ (=---->> FILE READS <<----=)BLOAD ,A$6000(=-----> FILE READS <-----=)YPR#1 PR#0(=-----> END OF FILE <-----=)UNI.DEMO1) CONVERT BINARY TO TEXT2) CONVERT TEXT TO BINARY3) BACK TO THE MENUCHOICETEXT OR BINARRY FILE (T/B):NAME: BBSAVE ,A$6000,LTOPEN WRITE CLOSE =) FILE HAS BEEN SAVED, ANY KEY: (=NAME OF FILE:TYPE (T/B) :SIMULATE AE?:YVEIWING SPEED:WILL THIS BE TO THE PRINTER?NNOYYEPYMABYNYSMALL TYPE?NYEPPR#1 160N) CATALOG DISK7) FILE FORMAT8) END UNIVAC)):(%) KEYS: ^X=\ ^Z=[ ^V=_ ^Q=DONE (%)::(%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%):SHOULD I GRAB BACKSPACES?SHOULD I GRAB BACKSPACES? NNONYEP!/-\!/-\!* IGNORE SOUND CHARACTER GARBAGE IF ANYSAVE AS )::(%%%%%%%%/^-^-^-^-^-^-^-^-^\%%%%%%%%)::(%%%%%%%/ \%%%%%%%)::(%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%):PRESENTS PRESENTS!/-\!/-\!! VERSION 2.21) MAKE A FILE2) VIEW A FILE3) VIEW THE DEMO4) CONVERT FILES5) EDIT FILES6 L! L9<<Iis    fL&0,169,1,141,0,3,76,102,213,160,16,174,16,16,202,208,253,141,48,192,136,208,244,160,16,238,48,192,141,48,192,174,16,16,202,208,253,136,208,241,96, UNIVAC ][:(#%#%#%#%#* THE SERPENT *#%#%%#%#%ȑ` ^_ } SՠZȑZ L   VW {, 6,A" 湱 :,Z목Z"ȱ :,L e B `Z^[ȑ^L*+` P J ' # f ] X$*umoswRxc Ii [Z䢐š eȨ̣̏ͦ͢`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪoo` | \` S80 `   - L'  L L L Lȱ[Z`  i` $ { PZ` $ { 8PPL.` $ { P L8PPPL.  H S L `hL9 Lo` Z[5ŝ ȅ`^_^ȑ^` ^_ ^^( eZZ[`_^  { _^  Z%ﭨ Z[` ` |ȱL- |L7 4  }L  |L LJ  |``` L L Ϫ$IQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuHpHoHTHSHop_H^HLhohphuhvhh` PL GL  ` $l Q\%,`\]hhHH &L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q La L ` 0` ee`   f`  j %`hh &HH & &hhlHH / hh , qL- lL aL PL4 GL4 ߚLphh : ȱ T+,'E -+.Я JϦΥ +L. ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL- " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` б^`PQ`^_^^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & G # " 3` :` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^ȦA4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з                             Q 18:": "DF$;:868:20:"";E$:E(E$):E$""Ģ(37):20:DF$:E$DF$:E(DF$)W NONE":170E DF$F$:"MODULE NAME";:1000:E(E$):E65Ģ(37):150O F$E$b :"VERIFY: ";v A$:A$"Y"60 :13:"SAVING CONFIGURATION...":D$"OPEN"CF$:D$"WRITE"CF$:SL:HB$:R$:F$:D$"CLOSE":D$"RUNBLACK BAG/RAMCARD CRACKING KIT" HB$@ Z"HI-BYTE OF TARGET";:1000:E$""(E$)2Ģ(37):90 dHB0:T12:U116:(E$,T,1)("0123456789ABCDEF",U,1)HBHB1 n::HB2Ģ(37):90 xHB$E$:DF$R$ "EXTRA MODULE";:1000:E$"Y"E$"N"Ģ(37):130 R$E$:R$"N"F$""LOADING CONFIGURATION...":8192::D$(4):CF$"BLACK BAG/CONFIGURATION":D$"OPEN"CF$:D$"READ"CF$:SL:HB$:R$:F$:D$"CLOSE" <:"ENTER NEW VALUES OR TO KEEP:"::DF$(SL) F"RAMCARD SLOT";:1000:E$"0"(E1E7)Ģ(37):70 PSLE:DF$XH :13:P$"PRESS TO CONTINUE OR TO ABORT...":P(P$)1:(P$,39);:(16384)128P$(P$,P1)(P$,1):20K$((16384)128):16368,0:K$(13)K$(27)20(K$(27)ĺ:(4)"RUNBLACK BAG/RAMCARD CRACKING KIT" 2:13:    2 VZ:0"DEFAULT - "DF$25);:":";NU$:PX111:ADR:767X,ADR::z72,173,166,192,41,4,141,255,2,104,96'CC1: NCC((1)9)1:0uC((1)((CF$)(C$))(C$)):uTRTR1Du10:M,J:CD0:Y11200@768:(767)0CD1:16219,0:R:16219,0:o*CARRIER FOUND ROUTINE*"CARRIER DETECTED "C:VZ(37)1DIĺD$"APPEND"F$:D$"WRITE"F$:"CODE :"C:D$"CLOSE"PRĢ(37):1:1:"CARRIER DETECTED "C:0:100TM0550:M5VC(CF$)TR((CF$)(C$))350>Y270o^34,0:35,5:1::"DONE!":X110:(7);::h16219,128841r16237,32|M1500:J1(S$)ND(((S$,J,1)))16221,NSPK:M120::16221,N16SPK M1) "(8)(8);:A$:A$"N"SPK32<5:958:34,4:6:34,5HC(C$)g(INC$)10000,20000,30000VT(37)1:5:14:"ATTEMPTING :";::C::VT"S$(((1)(Q$))(N$)):360,M13000:6S$(C):390@S$T$:390:430JCD1İ470C$ DI0:"OUTPUT TO DISK? (N)";:A$::(37):A$"Y"DI1:D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:"THE CODES ARE:":D$"CLOSE" PR0:1:"OUTPUT TO PRINTER? (N)";:A$::A$"Y"PR1:1:0:1002 SPK0:(37):"USE THE SPEAKER? (YRMATION CORRECT? ";:G$:G$:G$"N"90, U "WHICH INCREMENT TYPE DO YOU WANT:" "1-CONSTANT INCREMENT OF -1-":"2-RANDOM INCREMEMNT [1";:INC$ (INC$)1(INC$)3Ģ(37)4:1:222 INAL AUTHORIZATION CODE":DF$LA$:510:CF$NU$? CF$""CF$LA$\ (CF$)5Ģ(37)1:180 :"BASE MCI PORT NUMBER :"N$:"AREA CODE & DIAL NUMBER :"T$:"FIRST CODE"14)":"C$:"FINAL CODE"14)":"CF$:F$"CODE"C$"-"CF$"'"N$& :"IS THIS INFO r(Q$)1Ė1:112 tQ$:S x"INPUT CARRIER TONE NUMBER ":DF$IN$:510:T$NU$e T$""T$IN$ (T$)10Ģ(37)1:120 "INPUT FIRST AUTHORIZATION CODE":DF$FA$:510:C$NU$ C$""C$FA$ (C$)5Ģ(37)1:150+ "INPUT FIN0000":LA$"99999"= FD$(4):(27)(17):D$"PR#2":D$"PR#0"{ PD(Z)Z17(Z42)25(Z35)4(Z64)10(Z48)16(Z68) Z::"INPUT BASE MCI PORT NUMBER":DF$MC$:510:N$NU$ dN$""N$MC$ n(N$)790 p"INPUT # OF PORTS TO USE :";:Q$  :150U"THE UNDERGROUND PRESENTS...":9:6)"THE MCI CODE HACKER V3.1AA":p13)"WRITTEN BY...":14)" ________\/":14)"/ DE BUG OO":14)"\_\_\_\_\_>":14)"/ \ / \ / \"#255(9992MC$"2819736":IN$"4125789703" <FA$"1      :D$(4):D$"NOMONCIO"::2:"BLACK BAG PRESENTS...":13:4:"THE BLACK BAG RAMCARD CRACKING KIT":23:"BY THE CHIEF SURGEON AND THE INTERN 1983";:22::D$"RUNBLACK BAG/MENU/LOADER" BOOT DISK: ";$ dA$:A$(13)1001 x:13707 | H$H$" ND9C6G":H1(H$):511H,((H$,H))128::72,0:144:TO SLOT "SL:BL1,0:BL1,0:H$"D000 LOAD RAMCARD"::"<2> CONFIGURE SYSTEM":T1200::(16384)12820 (1636    @嬍䮠ٻ󮍍󺠠ĠԠȭŠl  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`LЍLYˠǧӠĠǠԠ`YE <Šӭpd`HVTQ PS 6" (!#%L" X'`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#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(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,--&    砠򠱹󠤰󮍍ɮ宠󠤠株ݮԠź٭宍󠤰箠Ƭ栤䬠Ʃ򮠠ĠĬ䠨婠䮠䮍䬠ﬠ𩮠͠Ԡź蠤砤򮍍ƠԠƍŠ٠΍ŠŠӠ卍宠嬠嬍䮠ٻ󮍍󺠠ĠԠȭŠ宠ō鮠宠㩠讍䬠䮠ŠŬ䮍򮠠砼þ󮠠䬠󮠠嬠ɠ嬠Šͮ嬠򮠠򮍍֮ΠˠǯĠǠԮ堨庍ˠǯ΍ˠǯōˠǯİˠǯӮ׍ˠǯưˠǯկҍˠǯĠǠԍ֮뮠󮍍ɮ卍ɮ󮮮􍠠򠱹ɮ           `0 4(Ȅ / X 67  ALˠǧӠĠǠԠ٠ŠƠΠĠŠΠנ٠ĺ ΍ō :(4)"EXEC AE.OBJ"6368,0:A$(K)g:10:" ASCII EXPRESS PRO SYSTEM DISK":" NOT RECONIZED IN S6,D1":" PRESS ANY KEY TO CONTINUE":16368,0:16384,128:6201790I12:K15:ZZ(16336)(16336)::K150:::16368,0: :L1A$(13)ĺ:,TL1A$(8)L0:1510B^L1Č1052:1600Lh1480XrCUCU1|CU0ĺ"*";A$;A$;"*";A$;:W1:1680CUCU1:(F$)2F$"":F$(F$,(((F$)1)))(95);(8);K(16384):K128ī1720KK128:10:L0(95);(8);!1710)W0>A$(13)ĺ" ":](A$)8İ1650:A$"":1480p(A$)211480(A$)6(A$)32Ğ:((A$)64);:W1ī1480(A$)71480A$;"F$F$A$,CUCU16CUL(1)L1@L1İ1710J8Z "No error",8235,86d "No such file",8282,12Yn "Volumn mismatch",8300,15 yx "Write protected",8249,15 "Wrong file type",8382,15 FILES "AE.WELCOME",6104,30 "EXECAEX" ,7607,8"@AE.NOACCESS",10847,30 CU Waiting to connect.." ,4520,251 "(>",6299,2@  ERRORSa "Buffer overflow",9637,15{ "Disk full",8336,9( "End data" ,8268,8 2"File exists!",9174,12< "File locked",8351,11F "I/O error",8321,9P "No buffs",8368,300,6  "Overwrite?",9197,10> "Recieve: " ,6699,9 \ "RETURN/New: ",10757,12x "Remote-->",5912,9  "Send: ",6677,6  "Successful write",6893,16 "View: ",6916,6 "AE: Awaiting ring...",5591,20 "AE:nnect?",3367,11*` "Entry: ",6988,7 Fe "Fatal error",7342,15cj "Goodbye...",6446,10t "Hang-up? ",6420, 9~ "ID: ",6973,4  "Help on: ",5317,9 "Nothing found",5405,13  "Number? ",3864, 8 "Online",5rminated" ,3471,21 :$ "Continue anyway?",8994,16 T. "Copy: ",6725,6 3 "Current : " ,10701, 12 8 "AE: Dialing: ",3975,13 B "Dialing aborted",4327 ,15 L "Directory",6935,9V "Disco A$"N"PP1:X(PM)1:8807A$"X"ČDING:120jN(A$)10:A$:A$;:NN(A$):NXNXSPī880p "Access gained..",6137 ,15  "AE: Auto searching",4725,18 "AE: Calls: ",5556,11 "Connection te0"("I"). ";=T1ĺT$(I)::"NOW-->";::TS$(I):950iT2ĺE$(I)::"NOW-->";::ES$(I):950T3ĺF$(I)::"NOW-->";::FS$(I)I:"N=NEXT PAGE-----------------X=EXIT MENU":34,0"ENTER NUMBER OR CHIOCE: ";:A$:A$;:34,22I*4I13:AL1ī8405>FS$(I)F$(I)ī850G?X1(F$(I))_@A((FS$(I),X,1)))wAA32A127AA128CL$"POKE "(FP(I)X)","(A):L$:L$"":XRI\f120p34,0::XLIP0:X1zIXXSPI10ĺ"(0"I"). ";:9227:AL1ī740$TS$(I)T$(I)ī750rX1(TS$(I)):L$"POKE "(TP(I)X)","(((TS$(I),X,1))):L$:L$"":XyII112:AL1ī790 ES$(I)E$(I)ī800X1(ES$(I)):L$"POKE "(EP(I)X)","(((ES$(I),X,1))):L$:L$"":X OBJ":D$;"OPEN AE.OBJ":D$;"WRITE AE.OBJ":"NEW":"?CHR$(4);"(34)"BLOAD AE"(34)eS(1)1İ720vS(2)1İ770S(3)1İ820"?CHR$(4);"(34)"BSAVE AE,A$0807,L$5600"(34):"PR#6""CLOSE"::"PLEASE WAIT":1770 I1DI13:S(I)1I3:600&NI:120X:" INSTALL ASCII EXPRESS PRO SYSTEM DISK":(16):"IN S6,D1":" PRESS ANY KEY TO CONTINUE":16368,0:16384,128b1750l::(4);"VERIFY AE"v216,0TD$(4):D$;"OPEN AE.OBJ":D$;"DELETE AE."::"< >";(8);(8);:A$:A(A$):A1AL14:n"SAVE TOKENS ":"SAVE ERRORS ":"SAVE FILES "&I13:(7I):17:"<=SAVE? (Y/N)";:A$:A$"Y"S(I)1:(7I):17:"YES ":5700(7I):17:"NO ":S(I)0:I:(5I):17:"YES ":470N(5I):17:"NO ":R(I)0UIyR(1)1āI130:TS$(I)T$(I):IR(2)1āI112:ES$(I)E$(I):IR(3)1āI13:FS$(I)F$(I):I120,:::"(1) SAVE JUST THE CHANGED":"(2) SAVE ALL FL(N)1:1460:FS$(N)F$:F$"":(FS$(N))(F$(N))āI1((F$(N))(FS$(N))):FS$(N)FS$(N)" ":Ij380:2:16:"RESTORE":::"RESTORE TOKENS":"RESTORE ERRORS":"RESTORE FILES "$I13:(5I):17:"<=RESTORE? (Y/N)";:A$:A$"Y"R(I)1ES$(N)F$:F$"":(ES$(N))(E$(N))āI1((E$(N))(ES$(N))):ES$(N)ES$(N)" ":I[r330~|LI1:X1:P0:SP2:T3:M1:88034,0::"WAS: "F$(N):" IS: "FS$(N):"MAX. CHAR. = ";FL(N):::"ENTER-->";:I1FL(N):(42);:I1780a(6):9:L(1)(T$(N))(TS$(N))):TS$(N)TS$(N)" ":0 6270L @I112:ES$(I)E$(I):Io JLI7:X1:P0:SP5:T2:M6:880 T34,0::"WAS: "E$(N):" IS: "ES$(N):"MAX. CHAR. = ";EL(N):::"ENTER-->";:I1EL(N):(42);:I ^1780Rh(6):9:L(1)EL(N)1:1460:A$"X"ČDING:: DING:120D LI21:X1:P0:SP9:T1:M10:880 34,0::"WAS: "T$(N):" IS: "TS$(N):"MAX. CHAR. = ";TL(N):::"ENTER-->";:I1TL(N):(42);:I "1780' ,(6):09:L(1)TL(N)1:1460:TS$(N)F$:F$"":(TS$(N))(T$(N))āI1(15:"(T) TOKENS":15:"(E) ERRORS":15:"(F) FILES":15:"(S) SAVE CHANGES":15:"(R) RESTORE":15:"(X) EXIT":20:19:"< >";:20:20 1780 (95);(8);:A$ A$"T"ī270 A$"E"ī330 A$"F"ī380 A$"S"ī520 A$"R"ī430 :":22:":";38);":";9 I321:I:1:" ";:40:" ";:b CR$"(R) REVISIONS 1985, 1200 Club " 1:15:": :":15:" AE BOSS 4.5":15:": :":::::5:CR$::(12):"For A.E. Ver. 4.20" 5:11:"By Mr. Krac-Man " 12:/ PI130:T$(I),TP(I),TL(I):TP(I)TP(I)1:I_ ZI112:E$(I),EP(I),EL(I):EP(I)EP(I)1:I dI13:F$(I),FP(I),FL(I):FP(I)FP(I)1:I nI132:TS$(I)T$(I):I:I113:ES$(I)E$(I):I:I13:FS$(I)F$(I):I x:: 2:":";12):28:12);"%DING947:IDING975:J:I,J:I 32,74,255,160,150,152,32,200,3,73,234,32,200,3,136,208,244,3,63,255,96,170,202,208,253,44,48,192,96#X1(TS$(32),ES$(13),FS$(13)2T$(32),TP(32),TL(32)<E$(13),EP(13),EL(13)FF$(3),FP(3),FL(3)           ,208,242,200,192,196,144,232,96----------"R:5:" SECUSE":" SECFRE":5:" ";U:9:" ";R::: 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142,150,3,160,56,185,0,149,162,8,10,144,8,238,149,3,208,3,238,150,3,202V)XT$T$(XN)::6:I896960:P:I,P:^AE149(157(978)):905,AE:938,AE|D(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR 3:35:32,37:33,3::"-----------------C10TSC0SPSP1!SP21850'`MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSC10N32>BSC11N48pX015:H,CT14T$RU$ SCT10T$BR$1 SCT2T$EX$h JX21VSEL1:J:1:" ";::VSEL:1:958 I21:1::" ";:2:T$;: JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1 |BSC10TSC0SP0BS33609 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253::: A$"#"İ5000:1:1::"PLEASE RECATALOG BEFORE MAKING SELECTION"::1060 A$MAX$A$"A"1060 I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360  PSCT3,I):SCT13S"N$" "VSELV21:1060g " ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"."o : $VSEL0VSEL24 VVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)1VX442::V21:17 0LOCK$" ":0,V)10LOCK$":"N b1,V)1FILE$"]"e 1,V)2FILE$"*"| 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$" 74,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0W 6MEM1463,0:MEM1464,3{ hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ 1:1::"=CATALOG <#>=DISK SPACE =END": X1452:(5,X)11)ĂX LTR64:XX1: ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"~nMEM((978)((978)127)256)2562947:AE174(157(978))xNS40393((MEM2925)16)360MEM1313,24:MEM1466,23; 768,32:769,12:770,253:771,201:772,141:773,208:7 CHARACTER WILL GO TO FLASHING,"N"INVERSE, AND NORMAL MODES DEPENDING ON"q"HOW MANY TIMES YOU PUSH IT.":"PRESS WHEN DONE.";A$10OVER THE OLD. TYPE TO END"L~"ENTRY. WORKS ANYWHERE ON"t"THE LINE AND DOES NOT REMOVE ALL""CHARACTERS AFTER IT. TO GET INVERSE""FLASHING LETTERS, JUST POSITION '^'""UNDER CHARACTER AND PRESS , AND" "THE"YOU MAY HAVE/HAVE NOT THE ACTUAL "OB"VOLUME NUMBER PRESENT. TO REDEFINE A"zL"MESSAGE JUST USE THE ARROWS TO MOVE"V"THE CURSER, '^', TO WHERE YOU WANT"`"THE CHARACTERS. JUST TYPE IN YOUR"j"CHARECTERS AND THEY WILL BE INSERTED"#t" USE 'DOS HEADER CHANGER'" M"THIS PROGRAM ALLOWS YOU TO CHANGE THE"w"DISK VOLUME MESSAGE ON THE CATALOG""TO SAY WHAT YOU WOULD LIKE, SAY LIKE"$"YOUR NAME. IT WILL ALLOW A GROUP OF"."UP TO 12 CHARATERS TO BE RE-DEFINED."#8"R$"Y"ĀM(F$(DN),1)" "F$(DN)(F$(DN),(F$(DN))1):930hD$;"- "F$(DN);"/";SF$n:"FOR INSTRUCTIONS ON CONVERTING DOS 3.3""TO PRODOS, SEE THE HOTCIDER BOOKLET OR""YOUR APPLE MANUALS.""HOW TO&4L4$""DN0ĺ"END OF FILE.":850;>L4$""DN0860IHDN0860~RDN0ĺD$;"CLOSE "F$(DN):DNDN1:PRNT$"NO":570\L5$:L5$: READ BLOCK COUNTf:L4$:D$;"CLOSE "V$pSF$""ĺ:"FILE "SF$" NOT FOUND!"zPS$"ON"ĺD$;"PR#0"RUN THIS FILE NOW? (Y/N) ";<R$:R$"Y"R$"N"730IR$:900e(L4$,18,3)"DIR"810D$;"CLOSE "F$(DN):LFO$(DN)L4$:DNDN1F$F$(DN1) (F$,1)" "F$(F$,(F$)1):780F$(DN)F$"/"(L4$,2,15) 570*L4$""630LFO$(DN)PRNT$"NO"630FL4$LFO$(DN)PRNT$"NO"PRNT$"YES":630l1(2DN):(L4$,C): READ FILES|SF$""750(L4$,2,15)SF$750:(7);:(7);" >>>GOT IT!<<<":" PATHNAME FOR "SF$:" IS":" "F$(DN)::D$;"CLOSE "F$(DN)Ė1(2DN):(L1$,C): READ NAME zbL2$:F$(DN1)""Ė1(2DN):(L2$,C): READ TITLE lL3$:L3$: READ BLANK LINEvL4$(L4$,6)"BLOCKS"870(L4$,2,15)(F$(DN),(V$)2,15)630LFO$(DN)""L4$ D$(4)%A$"Y"ĺ(27);(17)+MA$"Y"ĺ:D$;"PR#1":PS$"ON"dF$(100),LFO$(100)r&F$(DN)V$0PRNT$"YES":A1C:"*";:::1(2DN):">PATHNAME: ";F$(DN)DD$;"OPEN "F$(DN)",TDIR"ND$;"READ "F$(DN)1XL1$:F$(DN1)"":A$"N"460) " NAME OF FILE? ";SF$O (SF$,1)"/"SF$(SF$,(SF$)1)u (SF$,1)"/"SF$(SF$,(SF$)1) (SF$)15SF$SF$" ":450 :"DO YOU WANT TO DIRECT" "OUTPUT TO YOUR PRINTER? (Y/N) "; A$:A$"Y"A$"N"480A$"/"V$(V$,(V$)1) @G J"DO YOU WANT 80-COLUMN OUTPUT? (Y/N) ";Y OA$(9)1000s TA$:C63:A$"N"C30 ^A$"Y"A$"N"340 hA$ r |"DO YOU WANT TO SEARCH" "FOR A SPECIFIC FILE? (Y/N) "; A$:A$"Y"A$"N"400 A$HIT TO CONTINUE5 16:"HIT TO QUIT"Q 20:KL$:KL$(13)250d KL$(27)960m 220s 5:16:"OPTIONS" 9 "WHAT IS THE NAME OF THE" ""VOLUME YOU WANT TO CATALOG? ";V$ ,(V$,1)"/"V$"/"V$ 6(V$,1)) d n7:17::"PROCAT":2 x11:19:"BY"R 13:12:"VIKTOR RUBENFELD"p 20:13:"COPYRIGHT 1985" 22:12:"INCIDER MAGAZINE" RR12000: 10:16::"WARNING": 12:"THIS PROGRAM DOES NOT RUN UNDER DOS 3.3" 14:" * *2 8 * VIKTOR RUBENFELD *N 9 * *j : * COPYRIGHT 1985 * ; * * < * INCIDER MAGAZINE * = * * > ******************** FP46010:C1 PA(P) ZA$(A  MAX12>:"DOS HEADER CHANGER":"BY GREG SCHAEFER":g23:"PRESS CTRL-I FOR INSTRUCTIONS"n(42 ********************3 * *4 * PROCAT *5 * *6 * BY * 7     35,228,32,12,4,0,9,14,23,28,55,14,53,54,55' 118,33,100,32,28,7,0,76,141,22,149,214,22,214,31,7,193,193,4,193,7,193,193,68,7,0,137,50,0,0,0,0,132,157,76,253,170,76,181,183,173,15,157,172,14,157,96,173,194,170,172,193"' 23,45,45,30,63,14,5,0,41,117,31,31,46,45,245,63,30,13,13,5,0,9,30,14,62,23,118,50,110,36,28,36,141,228,4,193,4,0,9*' 30,13,30,62,23,182,18,5,193,100,36,45,158,21,54,6,0,9,30,13,30,46,21,182,18,7,193,228,36,63,86,23,54,6,0,9,30,14,12,53,30,55,54,53,190,231:P:768N,P:' 2,2,174,0,3,173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,5,3,96,0,12,0,32,0,42,0,51,0,62,0,75,0,92,0,110,0,128,0,144,0,160,0,179,0,182,0,184,0,5,0,5,0,54r' 54,45,45,36,36,63,119,50,0,9,30,54,14,36,44,54,6,0,9,14,63,6ĺ"UNANTICIPATED DOS ERROR":"BE SURE SLOT AND DRIVE NUMBERS":"ARE CORRECT":630sl"UNANTICIPATED BASIC ERROR"v"PROGRAM WILL START OVER";(7);(7);(7):N13000::3288:30' POKES FOR MMMM SUBROUTINE AT ADDRESS:768-999. 232 BYTES'N00HX$"":DECDC:N301:A(DEC16N):DECDECA16N:H$((A48)(A10)(A55)(A9)):HX$HX$H$::"HEXADECIMAL ADDRESS $";HX$:: ERROR MESSAGESD:"INVALID ENTRY":N"PLEASE RE-ENTER";(7)::XE(222):E254610:580:Rb:E0E1z#  îɠC ͠®Ӯؠ ˮǮİ ˮǮӠ ˮǮƸ ˮǮծ ˮǮ ҮɮŠ ˮǮƲ !ʠ"ɮ͠" ˮϮŠ ϮԠ Π ŮӠ ˮǮɠ ӮҠ  α*α βB β γ ! ζ Ϡ ԮȠB ԮϮȠŠˮ® ԮҮͮͮҠ pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp  0000000@@@@@@@PPPPPPPP````````````ppppppppppppppppppppppppppppppp````````````PPPPPPPP@@@@@@@0000000 OPYRIGHT 1982 DON'T ASK - ALL RIGHTS l buffer to disk, XON sent to resume. :͜ - TrEEsfer ASCII file to remote :: ’5͜ - Send local control character to remote 5͜ - Next character will be used for local control ͫ Default DriveALIAE)ʽA LbI8 ALIA5ʼAE)LIALI*LQI,LbIʽC DFLIE9LIʼA蹚E))AE)CALIAE)LGA`E)@AE) C0ʘCLIO"Z L "CANC A DFLIOPۨE)+C&A AE)C DFLIA0ʽAE*ALAI9,ALJI蹚E)LIALIʼA蹚E)LIALI ʽA<LI&ALIHAʹE) LIKALI<AʹE) LI?A`AC 0 WBL!G0XBLG`A`E)L*G),C0X DF0X DFL*GALGE)2$,%(C0X DF0X DFL*GALG`E)CE)  DFL#I @$ $$ $ `` 6FʈAABBCCABC =F`C@ n@D IE*Q ALFIE*DQ ALFD @ /e`CLF-IIEAAAAUAIEUORLWYWRLWYMNNDQSSFT//ZZVDC*J***EAOAOUB**D**G**G**P**T**K**K**UUU*****YHHEAHOHXXRXHXXXXH******XX**H*HHX*H*HH*****YYYWWW*********X***********X**LMNDDDDDLLLHL@@@@@@DDDDH@LDNNNNNNNNNNNNKKKKKKKKKKKK*123456789 .?,             options followed by the speed e.g., 300, 1>>0. EXAMPLE: SBO1T.600 will set the modem to run at EFG1&1EFG KLM(4(2  9:;&78!  678*+ # 1&  9:; ?@A KAEN NAW4 OW4N YOHR OW3N KAA4PIY AHV SAE5M. YOH4R KUMPYUW3TER IHZ REH4DIY TUX TAOK." 490 GOSUB 5 500 END CS 2:SETCOLOR 2,0,0:?# FACTOR !* "Щ&6A7 @@ @`@HH@) @@@, @ hh@` @ @ @ @ Ȭ@@, @ , @ ALIA fLIA _ @ vF @7 G I G c &G @b @?`APA /cB cL_678 EFG )@@LALALfF*BAH7T, AH4DHER TAYMZ AY TAO5K VEH4RIY LOW. TIXN WER7DZ. THAHSAYZER-AA5N AH DIH2SK. Jü;r :R: ʼʋ!ʼR!ʼʋ>SR{ozg!~4ʧͦ !6 ! **̈́**̈́\iͩ !w#H USE                     0"PR#3" "CATALOG"/"BRUNTYPE" ̞!CdƐ[^,0ACP$.|L, >p0t@?C 49AG d`e `Á 0&8&@ B2&`@(@4pLi#ƚ vX1qf? t'q:&@߀!<@~?>>~??8| c8<8{< spD&$>NT%PF!kckqc5 3lNF!(.00g1fY,SgP 0b0cb(3ֵLb)J18Kegc#R"nb4bc#X֣PBTJJ%kdJc9#1*ꢩDB4bcHf1D3F1Ʊ 2sscX<<||xp  zq yaC  ӻ|r8kcsƱ110F15 1 !$i1qJ"IjIQ2Rl"                             \        ,CCCCTIC?(,%-I1$3%E2S.6V6CIOBI%3B(/OOBOnH'+"BBBnnnTTTBBBmVmTTT[[[[n][XYWXRY]>RX>nP]Z>>>>>>>L[jyyyyyyncXXXXXXXXYYZ[[\]]]]]WQQQQQQW]]]]\[ZYXXXXXXXYYZ[[\]]dkryyyyyyyyncXXXXXXXXXXYZ[\]^^^^^^^[WTPLLLLORUX[[[[[WSOKGC>>>>>DKRY`gnnnnnnnnnjfa]XXXXXXXXWVUTSRQPPPPPPPPRUX[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[<ͫNOT ͫsent afte0, 1,,,,,,,,,,,,,-.//////01111111159=BBBBBB90'''''''*.269=AEEEEE:......033331/,*''''''*.269=AEEEDCBBBBBBBB7+'09BKTTTTTTTLC:1((((-28=CCCCCA?=:86333337)= GREY4TER DHAE(?)=(@)= AE6(^)= KAE4RIX] (A.)=EH4Y.(A) =A (ARE) =AA (AR)O=AX(AR)#=EH4 ^(AS)#=EY4(A)WA=A(AW)=AO :(ANY)=EH4NI(A)^+#=EY#:(ALLY)=ULI (AL)T(#)= NAH4MBE($)= DAA4LE(%)= PERSEH4N(&)= AEN(')(*)= AE4STERIHS(+)= PLAH4(,)= (-) =(-)(.)= POYN(/)= SLAE4S(0)= ZIY4RO (1ST)=FER4S (10TH)=TEH4NT(1)= WAH4 (2ND)=SEH4KUN(2)= TUW (3RD)=THER4(3)= THRIY(4)= FOH4 (5TH)=FIH4FT(5)= FAY4(6)= 5eHL|g5eCSL|g h)Խ5eHL|gT CSL|gL`i h) L|gL`i5eEIYL|g h) L`iL`j)=@$LfLujy 0q2\nŠMlnnooqqqrssssttwwwwxzzz{{|d\i`(A)(!)=(") =-AH5NKWOWT(")=KWOW4EF5eʹMf)5eRL`iSDL 5eY,F&5eU5eLI5eN5eGL|gLojMf)5eL|gL`i Li#Li.Li&Li@Lj^LB ^?x? do~?x"wpvg|;? $a ?7??@?8~~ )EFG1&1EFG KLM(4 AE) C0ʘCLI>>?`??w~p|8 x|>>ۇq? pxy? LJðqp| >8pLJ 3pxa|xp<|!9!%>G ?)=APS(YCH)=AY#:^(Y) =I#:^(Y)I=I :(Y) =A :(Y)#=A :(Y)^+:#=I :(Y)^#=A(Y)=I] (Z) =ZIY(Z)= (YOU)=YU (YES)=YEH (Y)=F(Y)=Aive/user no. (specify drive/user) and reset disks. e.g. LOG A0, LOG B (user # unchanged) SPD - Set sp*123456789 .?,WA(WA)T=WA(WHERE)=WHEH(WHAT)=WHAH(WHOL)=/HOW(WHO)=/HU(WH)=W(WAR)#=WEH(WAR)=WAO(WOR)^=WE(WR)=(WOM)A=WUH(WOM)E=WIH(WEA)R=WE(WANT)=WAA5NANS(WER)=E(W)=] (X) =EH4K (X)=(X)=K] (Y) =WAY(YOUNG)=YAHN (YOUR)=YOH (YOU)=YU (YES)=YEH (Y)=F(YA=CHU (TWO)=TU&(T)EN (T)=] (U) =YUW (UN)I=YUW (UN)=AH (UPON)=AXPAO@(UR)#=UH4(UR)#=YUH4(UR)=E(U)^ =A(U)^^=AH(UY)=AY G(U)#G(U)%G(U)#=#N(U)=YU@(U)=U(U)=YU] (V) =VIY(VIEW)=VYUW(V)=] (W) =DAH4BULYU (WERE)=WE(WA)SH=WA(WA)ST=WE(WA)S=DHEH(THER)=DHE(THEIR)=DHEH (THAN) =DHAE (THEM) =DHEH(THESE) =DHIY (THEN)=DHEH(THROUGH)=THRUW(THOSE)=DHOH(THOUGH) =DHO(TODAY)=TUXDE(TOMO)RROW=TUMAA(TO)TAL=TOW (THUS)=DHAH4(TH)=T#:(TED) =TIXS(TI)#N=C(TI)O=S(TI)A=S(TIEN)=SHU(TUR)#=CHE(TU)=ZHU#(SSU)#=SHU#(SED) =Z#(S)#=(SAID)=SEH^(SION)=SHU(S)S.(S) =#:.E(S) =#:^#(S) =U(S) = :#(S) =##(S) = (SCH)=S(S)C+#(SM)=ZU#(SN)'=ZU(STLE)=SU(S)=] (T) =TIY (THE) #=DHI (THE) =DHA(TO) =TU (THAT)=DHAE (THIS) =DHIH (THEY)=DHE (THERE)=#:^(OM)=AH(O)=A] (P) =PIY(PH)=(PEOPL)=PIY5PU(POW)=PAW(PUT) =PUH(P)P (P)S (P)N (PROF.)=PROHFEH4SE(P)=] (Q) =KYUW(QUAR)=KWOH5(QU)=K(Q)=] (R) =AA5 (RE)^#=RI(R)R(R)=] (S) =EH4(SH)=S#(SION)=ZHU(SOME)=SAH#(SUR)#=ZHE(SUR)#=SHE#(SU)#K)=UH5F(OOD)=UW5L(OOD)=AH5M(OOD)=UW5(OOD)=UH5F(OOT)=UH5(OO)=UW(O')=O(O)E=O(O) =O(OA)=OW (ONLY)=OW4NLI (ONCE)=WAH4N(ON'T)=OW4NC(O)N=A(O)NG=A :^(O)N=AI(ON)=U#:(ON) =U#^(ON)=U(O)ST =O(OF)^=AO4(OTHER)=AH5DHER(O)B=RA^R(O):#=OW(OSS) =AO5S) =ER(OR)=AO (ONE)=WAH#(ONE) =WAH(OW)=O (OVER)=OW5VEPR(O)V=UW(OV)=AH4(O)^%=OW(O)^EN=O(O)^I#=OW(OL)D=OW4(OUGHT)=AO5(OUGH)=AH5 (OU)=AH(OU)S#=AW(OUS)=AX(OUR)=OH(OULD)=UH5(OU)^L=AH(OUP)=UW5(OU)=A(OY)=O(OING)=OW4IHN(OI)=OY(OOR)=OH5(OO] (M) =EH4 (MR.) =MIH4STE (MS.)=MIH5 (MRS.) =MIH4SIX(MOV)=MUW4(MACHIN)=MAHSHIY5M(M)(M)=] (N) =EH4E(NG)+=N(NG)R=NX(NG)#=NX(NGL)%=NXGU(NG)=N(NK)=NX (NOW) =NAWN(N)(NON)E=NAH4(N)=] (O) =OH4(OF) =AH (OH) =OW(OROUGH)=ER4O#:(OR) =E#:(ORIS)%=AYI^(I)^#=I+^(I)^+=A#:^(I)^+=I(I)^+=A(IR)=E(IGH)=AY(ILD)=AY5L (IGN)=IHG(IGN) =AY4(IGN)^=AY4(IGN)%=AY4(ICRO)=AY4KRO(IQUE)=IY4(I)=I] (J) =JEY(J)=] (K) =KEY (K)N(K)=] (L) =EH4(LO)C#=LOL(L)#:^(L)%=U(LEAD)=LIY (LAUGH)=LAE4(L)==/HAE6 (HERE)=/HIY (HOUR)=AW5E(HOW)=/HA(H)#=/(H)] (IN)=IH (I) =AY(I) =A(IN)D=AY5SEM(I)=I ANT(I)=A(IER)=IYE#:R(IED) =IY(IED) =AY5(IEN)=IYEH(IE)T=AY4E(I')=AY :(I)^%=AY :(IE) =AY(I)%=I(IE)=IY (IDEA)=AYDIY5A(I)^+:#=I(IR)#=AY(IZ)%=AY()=IY (EYE)=AY(EY)=I(EU)=YUW(EQUAL)=IY4KWU(E)=E] (F) =EH4(FUL)=FUH(FRIEND)=FREH5N(FATHER)=FAA4DHE(F)F(F)=] (G) =JIY(GIV)=GIH5 (G)I^=(GE)T=GEHSU(GGES)=GJEH4(GG)= B#(G)=(G)+=(GREAT)=GREY4(GON)E=GAO5#(GH) (GN)=(G)=] (H) =EY4C (HAV)4RI(ERI)=EH4RI#:(ER)#=E(ERROR)=EH4ROH(ERASE)=IHREY5(ER)#=EH(ER)=E (EVEN)=IYVEH#:(E)W@(EW)=U(EW)=YU(E)O=I#:&(ES) =IH#:(E)S #:(ELY) =LI#:(EMENT)=MEHN(EFUL)=FUH(EE)=IY(EARN)=ER5 (EAR)^=ER(EAD)=EH#:(EA) =IYA(EA)SU=EH(EA)=IY(EIGH)=EY(EICREA)=KRIYE(C)=] (D) =DIY (DR.) =DAA4KTE#:(DED) =DIH.E(D) =#:^E(D) = (DE)^#=DI (DO) =DU (DOES)=DAH(DONE) =DAH5(DOING)=DUW4IHN (DOW)=DA#(DU)A=JU#(DU)^#=JA(D)=] (E) =IYIY#:(E) ':^(E) :(E) =I#(ED) =#:(E)D (EV)ER=EH4(E)^%=IY(ERI)#=IY=A (AT) =AE (A)T=A(A)=A] (B) =BIY (BE)^#=BI(BEING)=BIY4IHN (BOTH) =BOW4T (BUS)#=BIH4(BREAK)=BREY5(BUIL)=BIH4(B)=] (C) =SIY (CH)^=^E(CH)=(CHA)R#=KEH(CH)=C S(CI)#=SAY(CI)A=S(CI)O=S(CI)EN=S(CITY)=SIHTI(C)+=(CK)=(COM)=KAH(CUIT)=KIH(#=U(AGAIN)=AXGEH4#:(AG)E=IH(A)^%=E(A)^+:#=A :(A)^+ =EY (ARR)=AX(ARR)=AE4 ^(AR) =AA5(AR)=AA5(AIR)=EH4(AI)=EY(AY)=EY(AU)=AO#:(AL) =U#:(ALS) =UL(ALK)=AO4(AL)^=AO :(ABLE)=EY4BU(ABLE)=AXBU(A)VO=EY(ANG)+=EY4N(ATARI)=AHTAA4RI(A)TOM=A(A)TTI     ܰ8ܰLE +L ޫ %$ " oIUS)LS`hh L/Sl귦+鷎췩𷩰JJJJxLݰ+  "  / X(IU,L `J LJKL LJLTR )SϠӠš,,LP )SҠԠϠӍӠ٠ٍ,,LP $ B )SԠŠ׭ޫޫޫޫޫޫޫޠԠĠСXQ%$ "XQ ,,,ɍ%Ɉ ɕ ɛL%QXQLQXQLQ X /L b RXQ&T )SԠˠΠԠŠĠӠ٠ٍ,,,뷩跍귩`鷩췩JS`JJJJx 9췍𷩶PE / X )S   !Π٠ۭ۠ŠҠݭݍŠĠϠԠōӠξΠōӠþϠԍϠԠΠӠΠˍԠb` p +f uɠ Ƀ LɃ L9TYPōŠé庠Š۬ݠ۬ݠ۬);SA$::230( @ YOUR PROGRAM GOES HERE5 CT$(20)A E":";S$T JSA$T$S$:230] O325^ P=PITCH OF VOICE4 SA$=TEXT TO BE SPOKEN=295V *-* SUBROUTINE *-*c16394,Pt16384:1002(16);SA$:0:1002'(16384)76305,(4);"BLOAD SOFT SPEECH"1P73 6:SA$(20)"TEXT TO SPEECH":13          ,CCCCTIC?(,%-I1$3%E2S.6V6CIOBI%3B(/OOBOnH'+"BBBnnnTTTBBBmVmTTT[[[[n][XYWXRY]>RX>nP]Z"aI11000:sNU(700):NF0:(4);"NOMON I,O,C"505 :(21):"Smartmodem hacker - for the //c or //e" "with Super Serial Card - by The Oracl0: A(A$) " A128ĝ= A64Ğ:AA64:A$(A)F A$;L R X  "HOW TO USE 'DOS HEADER CHANGER'"  "THIS PROGRAM ALLOWS YOU TO CHANGE THE" "DISK VOLUME MESSAGE ON THE CATALOG""TO SAY WHAT YOU WOULD LIKE, S9 N34,8 XX(B$)21/ bA$(B$,X,1); lA(A$)H vPX2,AO Xx :"DISPLAY VOLUME NUMBER (Y/N):";A$ 21056,234:21055,234:21054,234 (A$,1)"N"700 (A$,1)"Y"650 21056,32:21055,66:21054,174 :34,0:1250 A$(B$,P1,1)& PMAX290/ 380B A$(B$,P1,1)N A(A$)f A128AA128:520| A64AA64:520 AA192 A$(A) B$(B$,P)A$(B$,13P) 5:P15:710:250 &P46010 06:1:868 :23:868 D8:868:(8)410 @A$(21)440, JA$(27)470> OA$(9)1000X TA$(32)ĺ(7);:250l ^A$((A$)128) hB$(B$,P)A$(B$,13P) rPMAXİ710:250 |710:6:P15 " ":PP1:250 710:6:P15 P1290 6:P15:" " PP1: NEW HEADER:"; 6:13) "-->";:288 "<--";:5@ 16Q B$B$(160)] X213s A$(B$,X,1):710z X P1 6:P15:"^" 8:16:"EDITING:"; A$(B$,P1,1):710 5:P15 "16384,128:A$ ,A$(13)550 6A$  MAX12>:"DOS HEADER CHANGER":"BY GREG SCHAEFER":g23:"PRESS CTRL-I FOR INSTRUCTIONS"n(4|2B$(160)<"CURRENT HEADER:";FP46010:C1PA(P)ZA$(A)dB$B$A$n710xPP1:CC1C1380 :"   :X::"+++":500:X1300:X:"ATH":500~D$;"OPEN ";TF$:D$;"APPEND ";TF$:D$;"WRITE ";TF$:TRY:D$;"CLOSE ";TF$:CC1:(222)255490"ERROR CODE #"(222)" INCURRED!":D$;"CLOSE":490AI$"ONNECT"HAI$"CONNECT"670IbHAI$"O CARRIER"HAI$"NO CARRIER"ıSlHAI$yvHAI$"ONNECT"HAI$"CONNECT"670HAI$"O CARRIER"HAI$"NO CARRIER"ıHAI$"ONNECT"HAI$"CONNECT"670HAI$"O CARRIER"HAI$"NO CARRIER"ı)X1500PR#0":34,0:&:D$;"IN#";SL:HAI$@HAI$"K"HAI$"OK"ıJHAI$dHAI$"K"HAI$"OK"ınHAI$&HAI$"K"HAI$"OK"ı0D$;"IN#";SL:HAI$:HAI$"ONNECT"HAI$"CONNECT"670DHAI$"O CARRIER"HAI$"NO CARRIER"ıNHAI$XH D";SP;",,";TRY;AR;AC:560*X1100:X=NTIMES:NCALS:" -> RUN COMPLETED <-"::">-----> CODES FOUND: ";C:C0ĺ:">-----> CODES ARE STORED IN TEXT FILE: "::34,0 D$;"PR#";SL:"AT E1 T M1 S7=30 S8=2 S11=70 S12=1 V1":D$;"IMES1TIMESTRYSTNCALS+D$"IN#0"1D$"PR#0":"CODES TRIED: ";NCALS:"REMAINING CODES: ";CALSNCALS:"CODES FOUND: ";C:"CODE ATTEMPTING--> ";TRY:"----------------------------------------":D$:D$;"PR#";SLX1200:X"ATT:" ENDING CODE: ";STCALS1:" ATTEMPTS PER CODE: ";TIMES:"========================================":34,8 J:D$;"PR#";SL TX11000:X ^"AT E0 T M";KR;" S7=";CR;" S8=";SE;" S11=60 S12=0 V1" hX1100:X rNCALS0CALS1 |NTTO MAKE:";CALS; "ENTER NUMBER OF TRIES PER CODE:";TIMESj 23:7:"PRESS [ANY KEY] TO CONTINUE";:X$ ,40286,35:40287,216 6::" -=] SMARTMODEM HACKER [=- RICK ROGERS ":u @" STARTING CODE: ";S";KR$* (KR$,1)"Y"KR$""KR0::240H (KR$,1)"N"KR2::240X (37):200 ::" -=] SMARTMODEM HACKER [=- RICK ROGERS ": :" ENTER STARTING CODE:";ST " ENTER NUMBER OF CALLS (SP),4):M " CARRIER #: ";::AR"-"((AC),3)"-"((AC),4): " WAIT FOR TONE: ";::SE;::" SECONDS" " WAIT FOR CARRIER: ";::CR;::" SECONDS" :"ENTER CODES' FILE NAME :";TF$ " SHOULD SPEAKER BE OFF:ϠƠХԥΠנХԠإ٥Хʹ٥٥ΥϠƠХԥΠנХԠإ٥Х͵٥٥ΥϠƠХԥΠƠХͱΠƠĥΠĥХإ͹̠נԥԠҥҥҥƠҥΠƠХԥΠנХԠإ٥ХͳإإΥϠƠХԥΠנХԠإ٥ХͲإإΥ԰Ԡ̺Πإåɥҥ̥֥Π ХˠƠҥΠ ƠĥΠ ƠΠŠŠԠ̍Ҡ̠ϠĥƠإ̩إĠ٥̩٥ΠŠŠ̠נͥԠإ̩٥̩åå ΠԠ̍Ҡ̠ϠϥƠإ̩إĠ٥̩٥ΠРϠΠΠĥנեԠإ٥Ҡ̠ϠҥƠإ̩إĠ٥̩٥ΠҠ̲ϠРŠ̲Š̠Ԡ̲נ¥Ԡإ̩٥̩ååإ̩ ΠנեԠإ٥ƠĥͳΠإإΥϠƠĥͲΠإإΥϠƠĥʹΠ٥٥ΥϠƠĥ͵Π٥٥ΥנեԠإ٥ƠˠϠƠĥΠƠإ̥إĠ٥̥٥ΠҠ̲ϠРŠ̲Š̠Ԡ̲נեԠإ٥נ¥Ԡإ̥٥̥ååإ̥ ĥΠإ̥ΥϠƠ٥̥Π٥̥٥̥ΥϠƠ٥̥Π٥̥٥̥Υנ¥Ԡإ̥٥̥Ơإ̥إΠƠ٥̥٥Ҡ٥̥٥ΥΠР٥̥٥̥ΥϠƠ٥̥٥Π٥̥٥̥ΥϠΥĠΠΥϠƠإ̥Πإ̥إ̥ΥϠƠإ̥Πإ̥ҩƠإ̥ΠΠנ¥Ԡإ̥٥̥ΥĠƠΥΠϠƠإ̥إΠإ̥إ̥ΥϠƠإ̥إΠإ̥إ̥ΥƠ٥̥٥Π ϠΥĠΠ  ԠåΠҠ̠ԥϠĥРנ̥Ԡ̬ΥԠ̺ΠҠ̠ԥϠĥРנ̥ԠΥ̺Ԡ̺Π̥ҥĠ            10RSE"/"FLASHING LETTERS, JUST POSITION '^'"["UNDER CHARACTER AND PRESS , AND""THE CHARACTER WILL GO TO FLASHING,""INVERSE, AND NORMAL MODES DEPENDING ON""HOW MANY TIMES YOU PUSH IT.":"PRESS WHEN DONE.";A$YOU WANT"2`"THE CHARACTERS. JUST TYPE IN YOUR"^j"CHARECTERS AND THEY WILL BE INSERTED"t"OVER THE OLD. TYPE TO END"~"ENTRY. WORKS ANYWHERE ON""THE LINE AND DOES NOT REMOVE ALL""CHARACTERS AFTER IT. TO GET INVEAY LIKE"3$"YOUR NAME. IT WILL ALLOW A GROUP OF"_."UP TO 12 CHARATERS TO BE RE-DEFINED."8"YOU MAY HAVE/HAVE NOT THE ACTUAL "B"VOLUME NUMBER PRESENT. TO REDEFINE A"L"MESSAGE JUST USE THE ARROWS TO MOVE" V"THE CURSER, '^', TO WHERE ΠԥĥΥ ΠԥĥΥ ΠԥĥΥ ΠϥĠƠϥΠϠҠ̠Ϡϥإ̩ΠԥĥΥ ΠԥĥΥ ΠԥĥΥ ΠԥĥΥ ΠԥĥΥ°Ԡ̲ϠԥĥΥ ΠԥĥΥ ΠԥĥΥ ΠԥĥΥ ĠΥΠԥĥΥ ϠԥĥΥ ԠϠϥԥĥΥ Ҡ̲Ϡ ƠΥΠΠ̲ ĥΥ  ƠΥΠΥΥԥĥΥ ϠԥĥΥ ԠϠϥԥĥΥ  ƠΥ ԠϠϥԥĥΥ  ƠΥΠΥΥԥĥΥ ϠԥĥΥ ԠϠϥԥԠɠźӥ  ԠϢ  ԠҠ̠Ϡϥ̩Ԡ̍Υ ƠΥΠΥΥԥĥΥ ϠԥĥΥԠԠҤңƠǤ٢ΠϠƠåӥΠӥå ϠŠĥҠŠŠ Ԡźå  ԠӺɥ إ٥ԽҠ̠ϠԠ̺ҥɥɥƠɥΠϠŠ  ȠԠŠҢ̠ԠҠŨٯΩԠǤƠǤ΢ΠԠŠ Ҡ̠ϠŠŠ̠ŠŠŠ̠ŠԠ̺ϠҠ̠ϠРŠ̺Š̠Ԡ̺נХԠإ٥ԽנͱԠ٥ΠإϠҠ̠ϠנХԠإ٥נ̥Ԡإ٥ŠŠ̠נ̥Ԡإ٥נХԠإ٥ŠŠ̠Ԡ̺נХԠإ٥ϠϱĠإΠإϠƠϥĠ٥ĠإĠإΠإϠƠϥĠإĠ٥Ġ٥ΠإϠƠϥĠإĠ٥Ġͩ٥Ҡ٥̩٥ΠϠԠ̺ϠŠŠ̠נХԠإ٥נͥԠإ̩٥̩נХԠإ٥åå ϠƠϥĠ٥ĠإΥĠƠΥҥΠϠҠ̠ϠΥנԥԠҥ̠ŠŠ̠Ԡ̺ҥҥΥϠҠ̠ϠĥƠإ̩إĠ٥̨ΠϠҠ̠ϠϥƠإ̩إĠ٥̩٥Ҡ٥̩٥ΠϠԠ̺ϠנХԠإ٥נԥԠإ̩٥̩נХԠإ٥ƠҥΠϠإ٥٥ŠŠ̠ ƠХΠŠ ԠǤנХԠإ٥ХͱנХԠإ٥ϠנХԠإ٥ŠŠ̠Ơˠ퍭͠ҠՍɭ͍ӠҍԠ̠Ġɠſ٠ˠϠ  蠱ҾԠӠנٺԠǤ̲àǤƠ̲Ġ̲Ҡ̲Ҡ̲ΠϠϠԥ̩àǤ  ̠  ̠Ϡ卍ᱰԠ̍  ԠҠϠŬҠŠԠ΢̠ԠϠٺԠǤƠǤҤΠΠ̠̠ǤƠ̠Ҡ̠ΠϠԠǤ   ̠ Ԡ ̠ Ơԥ̩ΠԠ¾ϠƠԥ̩ΠԠϠƠԥ̩ΠԠϠ̲ԥ̩ԠҤ̲Ϡ ̠Ԡ̻ ̠ ĠǤԠǤԠ̍ ԠþӠŠŠ̠ӢԠԠ٠Ҡ٠ӠҠΩҠ̠ϠҠ̠ϠĠԥ̩Ԡ̍ŠŠԠӠ̠ԬԬЬάō Ҡ̠Ե Υӥ̥ԥͥ¥ͱͲͳʹ͵̥եҠ̠ϠĠ̲Š̬̲Ԡ̍ŽԽҽҠ̠ϠĠإ̩Ġ٥̩Ԡ̍Ԡ̍Ԡ̠Ԡ̍إإإ٥٥إХנХԠإ٥ŠΠȠŠȠԠȠŠԠȠҠ̠ϠĠ̲ŠȠ̬̲ذΠϠҠ̠Ϡҥإ̩Ġ٥̩Ġإ̩إ̩٥̩٥̩נ¥Ԡإ̩٥̩Ԡ̍ԠϠϠϠϠҠ̠ϠҥנԠ̠Ϡĥإ̩Ġ٥̩Ġإ̩إ̩٥̩٥̩נͥԠإ̩٥̩ƠˠΠנͥԠإ̩٥̩ϠԠ̍ҥĠƠҥĠ٥̩Ġإ̩إ̩٥̩٥̩נԥԠإ̩٥̩ƠˠΠנԥԠإ̩٥̩ϠԠ̍ĥĠƠĥΠϠҠԠƠԠĠҠŠ̠ҠΠҮӠΧϠԠˠϠΠծŠϠҠΠϠҤΩФΩԠκϠҠϠ ϠԠǠӠՠԠԠϠҮՠŠРϠӮӠΧҠȠŬΠƠՠԠǠΠŠŮԠԠűűűű Š ԠҠǠ̠נŠԠӠŠƠŠӠҠĠΠӠΧנӠΧĠŧ̠٠ήŠϠΠϠŠĠŠ ԠŠŠԢԠԢԠԠԠԠŠҠŠ٠ǠŠһΠӠΧƠĠĠԠΠŠϠŠ ԰ԠèĠɠſԠԠԠԠΠȠĠӢԠΠȠĠӢԠ׬ŬҠŠӢԠԠҠŠΠһĠɠſԠԠèԠǮԠԠèҠӢԠԠèŠŢԠԠèŬĮԠԠԠҺıŠӠנҺפԭӠפԭŠФФФФФФŠԠèȠҠŠıϮƠӠĠıŠӠĠΠĠҺıŠӠĠΠנҺıŠĠҺıŠӠĠҺıŠנıӯέԠҠıӠΠҠҠıŠƠנҠıĠӯέנҠıĠŭΠŠƠĠҢפέԮıϠԠĤŠĢ פŭĠӠפέӠı٧ӠŠıŠı̠ҠĠŭԠҠıŠΠԠҠ͠ıèäĤҤűҠӢűŠŢűŠĮפŭҠӢҠϠ                     àԠҤΠͮ΢卍蠱Ҿ٢  ԠΠҢ  ԠԠ٠ҠŢàƠˠˠàΠŠàŠàԠàŠԠϭ蠱Ҿ堿ٍҾ䍍ŠԠ  ŠԠԠ΢̠  ԠǠà͢  ԠŠҠ٠ՠԠŠĠҠӠԠΠРŠԠΠΠŠ庠󠹠󍭭Ԡנ٠ӠϠՠŠΠҿŠ ԠŠԠĠҠҠҠŠΠԠҮŠ ԠŠԠĠҠҠҠŠӠԠҮŠ ԠŠŠΠԠҠ׮Š ԠŠŠ̠ӠŠŠԠҠӠΠӠҠήŠ ԠԠŠ ԠŠ٧ӠŮԠŠ ԠŠŮŠ ԠŠ̠ҠĠŠƠҨΩ̠ҤΩԠ΍ ԠŠŠϠӬҠӬԠӬҠҠӠԠĠΠǠϠŠӮӠΧϠŮŠӬҢ΍ԠդΩԠ΍ԠĤŠӢΠŠҠΠϠԠפΩèΠФΩФΩèΠդΩդΩԠ΍ΠҠΠϠϠƠ̠Ġ̠ΠԠκ ϠΠΠդԠ΍ԠŠӠ̠ŮϠԠĤΠӬ̱ҠΠϠԠĤԠŠŠŠՠԠϠŠҠפԠդƠĠΠϠ ϠҠΠϠΠդĤդάƠΠԠκ ĠԠΠϠŠ ԠԠӠҠ͠ϠĠӠΧԠԠӠΧϠ٠ήϠŠԠԠԠԠҠƠҠϠŠĠҠĻΠӠήҠ̠ӠŠԬԠӠήƠΠ ŠϠ̠ƠӠçƠՠԠϠŠҠŠӬҠӧҧϠΠϠΠծŠϠŠԠè͢͠ԠԠ ԠԠԠӠŠǠŠҠàҠҩΠӠΧƠҢΠŠϠƠâΠϠƠҢĠâΠŠ ԠԠԠԠŠԠԠ΍ԠĤŠĢΠԠԠԠԠàŠҠŠ͠ҢԠҠΠϠΠբԠԠԠԠŠҠŠ٠ΠԠĤŠĬҢ΍ԠűΩԠ΍ԠĤŠĢΠ ϠĤҤԠĤΠĬ̸ҠΠϠԠĤĠĬҢ΍ԠűΩĤŠӢϠԠĤΠӬ̱ҠΠϠԠĤĠӬҢ΍ԠդΩԠ΍ԠĤŠӢΠĤҤԠĤΠĬ̸ҠΠϷŠϠҠΠϠҤΩդΩԠκϠԠè׬ŬҠŠӢԠԠԠԠè͢͠ҠϠ ԠŠӢŠ ԠՠΧԠΠȠĠӠ̠ՠŠĠͮӠΠϠϠˠϠŠծΠԠΠƠՠԠϠŠĠӮè٬کèج٬کè٬کԠغԠٺԠڍҠ٠Ϡè٬è٬èè٬èèè٬èè٬è٬èè٬کèکèکè٬کԠٍԠڍèèҨޠƠƢΠèڍҠڠϠҠ٠ϠҠؠϠè٬کԠè٬کҨޠ٠è٬کԠè٬کèکèکè٬کè٬Ҩޠ٠Dzè٬Ҩޠ٠DZè٬کԠè٠٠Ҩޠ٠Ҩޠ٠è٬٠Ҩޠ٠ҤΩԠ΍ƠƢΠϠèըè֤èèԠèҠڠϠҠ٠Ϡè٬Ω̠ΩԠ΍̠ҠΠϠΩ̠ΩԠ΍ҤҤҤҤҠΠϠҤΩ  ԠԡǢƠҢΠDZ̠ҤƠ΢ΠDZ̠ҤƠҢΠDz̠ҤƠ΢ΠDz̠ҤҠΠϠӠŠҠƠŠ͠ϠŠĠĠΠӠΧƠΠŠ̠ԠŠҠŠҠıԠŠϠҠϠŠŠϠŠԠӠӠŠҠƠŠՠĮҠΠϠԠλıΩΩԠ΍ԠԠԠƠӠӠˬӠΧƠՠԠϠŠΠͬӠˬӠΧƠՠԠϠŠŬӠŠҠƠŠ͠ϠŠĬĠΠӠΧƠΠŠ̠ԠŠҠŠҠıԠŠԠӠӠ̠ԠƠŠՠԠĺҠΠϠԠλıΩΩԠ΍ԠԠŠĠŠϠӠҠӠΠҠԠӮƠӠҠҠĿŠΠҠҠҠҠΠΠҠĮŠ ԠŠƠӠĠΠנҠҠҠĿŠΠҠҠҠҠΠΠҠĮƠâΠϠŠ ԠҠנ٠Ӡ̠ŠҠŠĿŠŠ ԠŠӠĠΠԠҠŠ ԠŠԠϠŠĠҠҠҠŠӠҠנҮŠ ԠŠҠǠȠҠǮŠàҠȠҠƠҠǠŠ ԠŠĠŭΠŠƠԠҮŠ ԠŠĠԠϠŠĠҠҠҠŠΠנҮΠԠҮŠ ԠŠŠƠĠנҮŠ ԠŠĠӠҠΠҠנҮŢԠϠŠӬűΠԠŠŠҠӠ΢ԠӠԠƠΠĮҬŠӠŠ΢ԠŠϠŠՠĠàӠҠҠΠӠӠӠĠΠԠΠӠƠŠӮŢԠŠӠΧԠŠŠȠŠŠƠҠ٬ĢԠŠŠΧԠ٠͠ΠŠƠŠӠƠӠΠդըԠè̠ԠèΠ֤֤Ԡè̠ĠèΠԤԤԠҤ ԠèźԠèäҤèԠèǠ΢ԠèԠè٠ӢèΠͤͤԠè̠̠èγΠͤͤըԠըդҤըԠԠԩԤҤԩ֨Ԡը֨Ԡ֤֨Ҥ֨èè֨èԠèͨͨͤҤ̠ͨͨͤͨԠͨͨͨͨͨԠͨͤҤͨƠͨΠͤͤƠΠͤԠ΍ѠɠѠɠѠҨҠРҠΠϠԠԠ΍ƠƢΠϠͨͨͨԠͨҢƠ΢ΠԠĢԠèԠĺƠâΠԠȢƠƢΠԠǠӢҠΠϠԠèıΩΩΨıΩΩԠκԠԠנҢԠèıԠèıԠèıԠèӠźƠҢΠԠҠΠϠԠèıΩΩԠ΍ԠèıԠèӠźƠҢΠԠҢƠ΢ΠԠĢҠΠϠԠðԠԠԠèĠҺԠèԠԠԠӺҠΠϠԠèפΩҤΩԠ΍ԠԠԠҺԠԠԠ ҠΠϠԠèΠűΩűΩԠ΍ԠèԠԠԠԠèӠƠǠҢҠڠϠҠ٠ϠҠؠϠèج٬کԠèج٬کäج٬کҤèج٬کԠغԠٺԠڍŠԠĤңԠҤ΢Ԡ΢ԠԪҨޠ٩èکèکè٬کèکԠèکäکҤèکԠٺԠڍΠèèèèèèèè٬کԠٺԠڍҠڠϠҠ٠Ϡè٬کè٬کè٬کԠٍԠڍҠڠϠҠ٠Ϡè٬کè٬کè٬کè٬کè٬کè٬کè٬کèèè٬èԠٍèޠèޠèԠèèԠèҠڠϠҠ٠Ϡè٬کè٬کè٬کƠѢΠԠԢ ĠƠâΠŠϠƠàΠԠҤϠääéԠäԠƠҤΠƠàΠԠҤ؍  Ԡĺ̠ԠàƠҢΠàƠ̢ΠàƠ֢ΠàƠբΠàƠˢΠàƠĢΠàŠŠŠԠҠՠ٠ǠҢԠԠλӠΠˢ ҠؠϠ΍ ؠ ԠҤةԭ蠱Ҿ堿ٍҾ䍍Ѝ٠Š ŠԠ ԠҤǢŠԠΠˠŠҠ٠ՠԠŠĠҠӠԠΠРŠԠΠΠŠ庠󠹠󍭭퍭͠ҠՍɭ͍ӠҍԠ̠Ġɠſ٠ˠϠ      !!! ԠèҠŠԠӢԠԠèӠӠϠϤҠҮҠΠϠԠԠ΍Π卍蠱ҾТŢӤҤҲұƠҲұΠɤӢӤҤұҲӠ̠ӤӠԠϤҤԠèǠנҠ̠ԠӤɤΠǠĠҢ  ֤֤ԠèŢèΠääèΠääԠèŢèΠääèΠäĠҢèנҢԠèèԠèԠŠҠŢèèΠääԠèԢèèΠ΍ԠèԠƠǠĠǠנҢԠèĠȠԠƠǠĠҢԠԠԠèԠҠԠӢԠèԠèҨޠϠŠԠǠӠԠĠٮƠՠӠΧŧ̠ϠˠϠŠΠՠĠՠΠԠҮŠϠҠΠϠԠԠҨޠըͨؠը٨ͨԠͨФӢڠͨҨޠҨΠǠҢԠҮƠƢΠҠΠϠԠԠƠƢΠҠΠϠԠԠԠҤԠĤңĠϠؠҨ"͠ҠլĠĬŠĬŠĬԠРԬԠԍȠԬȠԬŠԍ卍蠱Ҿ Ԡ¨̠ Π֨ʩϠ͠͠Π٠Ơ̠͊͠Ġ͠͠ՠӊΠŠϠԠō ԺԠդʩԠʍϠ  ŠԠϠՠԠϠդʩԠΤΠΤ٢Τ΢ϠդʩԠʍ͠͠ՠԠŊ͠ҠʠϠ͍ Π֨ʩ ԺŠԠդʩ̠ҠŠϠƠˠʺ ԠҤ ԠҤԠʍҠʠϠР ʺ ҠˠϠԠҤԠˬʍ  Ԡ¨̠ҠʠϠ͍ Π֨ʩ ԍԠԠРՊ͠ŠҠʠϠԠҤԠʍ ԠҤ¨Πդդ¨ҤҠʠϠԠҤԠҠʠϠª͠ԠРΠ֠Ϡԍ̠͠Ӡҍ͠ՠӊ͠ƠΠ֨ة͠ؠ͠͠͠͠͠ŠԠԠӍ̠͠ ҍ͠Šՠө͠ԠҠɠϠͺԠԠΠդɩԠɍԠԠ͍ԠԠԠ͠͠ԠРӍ͠͠͠ҠƠՠӍҠɠϠͺĠդɩԠɍҤ͠Ӡ̠ŠŠҠҠ͠͠͠͠٠ՠ͠͠٠٠Ҡ͠͠ԠŠ͠! ! ! !!!!!!!!äΤŠϠä΢äĢä٢äˢäˢäŢΠŠҠՍ卍蠱ҾĠäĢΠäĢ ԠäΤҠؠϠҤΨج٩Ψج٠ԠΤΤԠ؍ Ԡ  ԠҤϠàƠΠΠԠҤϠ٠ҤΨ٬٩Ψ٬٠Ơ¢Ġä΢Πä΢ ԠäƠ¢580:NL:INV1:500'DECDECHD16NC:INVġ:INV0:V50,80b"DECIMAL ADDRESS= ";DEC: DEC TO HEXDEC CONVERSION AND INVALID ENTRY FILTERN1(A$):(A$,N,1)"0"(A$,N,1)"9"ER1:DC(A$):DC0DC65535ER1&ERī580SH BY LISTING NEW POKE SUBROUTINE1D$;"CLOSE"CD$;"EXEC";F$N0,630 HEXDEC TO DEC CONVERSION AND INVALID ENTRY FILTERL(A$):DEC0N0L1HD((A$,LN,1))HD47HD58HDHD48:490HD64HD71HDHD55:490ITH A COMMA#J: END DATA LINE8TLI60JJ59:A^J,IhSLSLLI(I2):SL63999ĺD$"CLOSE":"LINE NUMBERS EXCEED RANGE ( > 63999)":"PLEASE RE-ENTER USING SMALLER":"LINE NUMBER OR INTERVAL";(7)::170rSL;"RETURN"!|"LIST": FINI";EABA1;" BYTES"QSLLI;"FOR N = 0 TO ";L;":READ P: POKE ";BA;" +N,P: NEXT"I0(L60): BREAK UP DATA LINES INTO 60 POKES EACH"SLLI(I2);"DATA ";,J0596(BA(I60J)); @J59I60JLĺ",";:340: SEPARATE EACH POKE WMOMENT, PLEASE":"EXEC FILE '";F$;" 'BEING CREATED":c CREATE EXEC FILE WHICH CONTAINS POKESD$;"OPEN";F$;",S";S;",D";DD$;"DELETE";F$D$;"OPEN";F$D$;"WRITE";F$SL;"REM POKES FOR ";F$;" SUBROUTINE AT ADDRESS:";BA;"-";EA;". İ580:160x "STARTING LINE NUMBER: ";SL:SL0SL63999ĺ:"LINE NUMBERS MUST BE IN RANGE":"OF 0 TO 63999":590:170 "LINE NUMBER INTERVAL: ";LI:LI0LI10ĺ:"LINE INTERVAL MUST BE IN":"RANGE OF 0 TO 10":590:180 D$(13)(4)5:"ONE ; nBA(EA)ĺ:"BEGINNING ADDRESS > END ADDRESS":590:50f xLEABA1:"LENGTH IN BYTES= ";L:LL1l "FILE NAME: ";F$::(F$,1)"A"(F$,1)"Z"İ580:140 "SLOT NUMBER (1-6): ";S:S1S6İ580:150 "DRIVE NUMBER (1-2): ";D::D1D2 65535":P 2"ENTER BEGINNING ADDRESS: ";A$:(A$,1)"$"70:530:ERER0:50:` <BADC::80 FA$(A$,(A$)1):V1:420:BADEC: P"ENTER END ADDRESS: ";A$:(A$,1)"$"100:530:ERER0:80 ZEADC::110 dA$(A$,(A$)1):V2:420:EADEC: ":19  A 24:15:"PRESS ANY KEY TO CONTINUE";:A$:20N 5:T$:X 600e  INPUT (:"ENTER SOURCE ADDRESS":" IN DECIMAL OR HEXADECIMAL":"PRECEDE HEXADECIMAL ADDRESS WITH '$'":"HEXADECIMAL RANGE: 0 TO $FFFF":"DECIMAL RANGE: 0 TO *":197 T$"* *":19b T$"*****************************":19i p w :: T$"CONVERTS A BINARY SUBROUTINE":19 T$" TO A POKE/DATA SUBROUTINE ":19 T$" FOR A BASIC PROGRAM  :65T$"*****************************":19`T$"* *":19T$"* PEEK TO POKE *":19T$"* *":19T$"* BY *":19 T$"* H. PORTNOY " " """""""""   P , Ii S8 vxuw uvwx $ ${{ dɃ HLpL 9 L􂭮)#LxȘȑ 0: k0I LbGF/\,LB.ɛɜ ɬGFLL  L 2L€ + hhLץ HH`Lv ," " s D$(4)! D$;"OPEN FILE"6D$;"WRITE FILE"EI115000P(I;"?"V2k<D$;"CLOSE FILE"qF