8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ύw!x! c&Эb)0I0 ( d!N)Gi/ h!4 CAPTURE$ONELINERPLAINS.L%}(ELECTRIC_&&PLAINStx)$NANO-*FREQ.BLEND$DUMP99&BUGOUTyON.DISK.5.5ƨ8' &PRODOS<) ! !,BASIC.SYSTEM'(- ! o'STARTUP< . !Z&LINKUPG. !R)FORMBUILDJ / !U%VITALQ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-e(eR9B}PBiB  !"#$%@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@%vȱ@Hȱ@Ah@E@c%e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠέԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 0ōҍJJJJ ɺi) ɺiL9Ҏw s)?ef t Ұs Ӱ s  |Ґ `l@Hȱ@I|HXAT^^ȱH ɯ|ȩxz^5H)/@a)_xx .0 :A[8@`,xx^x}z}Б|` Ґ L` א@>)I3|8^_0`1a`K8`@Nȱ@O@ lIiNȽN)/ȩ/N`@[ WHJjjjRhA &'KI0JH) ) )Wв<J8` GR悔0FRZ $ ӭ+j ;ސHR  4Rh8` ߰Q R@`ZWSSZ (RS W )8`)i п`  H  RFG`BH TRFG`H RhHBF  GxDER0r0C а(`(8` L*J R :"L ݢH R : R9` א@ P8`RSB8` RJJJJ=HIH IL9߅FHGI ѭlJkjHIH;7IRJJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬RȢMjJLk)eKM`R)` J FJZk ߰$Z0 ߰ZJFJL8`JGBJ T(`(8`R@`M8`R8@hʈIR)Fk8FF lL|߹ LߠRC8`V)@ iR)Fl8FVzkJ l_ F Lr߹) +V&lJ(b .RFG/8` .lJFd eeQFG`QJJJJi LWݩH8`Qf ݰQfe0 ݰ Q c`e ݰe`fQiygihB0Hf0gFhG ݪh0`שB*xEDr0C [` FG `QJJJJ`\HQ\hn)[N\jN\jN\jbN\.d WݰHi\ ݰ;\Qf ݰ*bNd[ ee`Z8` Wݰ#ddc c 5ݐ`bcG .G .G .G8d*JFG'(`)P P8ʈ` ۰0)i `uv8`QR ܍\FG[ ݰNQFG ݰ< \0 FGLۮQ[0 GF8TU`H8` ܹ ,[F G 8\z Wڭ01 E8`1݊0 iڰ$Q0̩GF ݰ ڰ ڰ`12)1`0Q`ȎQi 0U`z)x8`x`Q ېW }װG =۰A)H Qʈh0)*xzȱHx`Z8eHI ٰSB0 ؠQFXʈ pٌz`z8mz0_`,|{0H {hi LٍxȽxhQ0GF{z8y`FaG ݰ ڰ`Q0{Q8`X*؅IFG ݐ`[[ p8D`F` ilH)HFȍHG ݰ$%X&Y!8* J8` Lע  )I '`8ZiFG`Z*؅IH3H [( [ )WG ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͮͯ)` װ H` /ٰR(*؅IHHЍ@`[8W ؐeXW Y* Y=ȱ@/ȱ@9;<2DE)7I0 '*5 ܰ701FG ݰ( ְLݩI mIH` @= t=0FG ݰ ֬HFG ݰFF@ 0 [ [LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI m IHHyHȘI ݰLԩ` ՠ @/@ 7@Юz)mzʈ@i Q`RC8` @ l3Nz@) Wڎ} ԭziz}`0 iڰ0GF ݰ#Q0 ڰW,u0 Q ۩.H hȑNWȮvNuW8`xzNxz0NN` װG8`h)N$%Rjmkn LL⭚ L l L ;ް  0pnJo )@rNJOK ;ްiKKnnkk llIJo m nJФ̭lJkjHFIH rHIGrxKE а((H hH h8`8m@ȭn@L;ެR8NjNO 8q pjJLm`nRnʱLN.MOklMEKP/nMEKnLCL-qMp Okl,jpmeNNO(`JNKORL ;ް/  0P L8 | ZߠRJ`L@mȱ@nR LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LhhhhIL@Ae P o**ӂӹ]|wKIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠ ]XXKR Ko`V8`no` & on ]I9XX`)HJJJh`OeNeO࿰ ]9XАO`@ȭ@` ON CNJKO`HHHHхЅG ݐ ` ~ qͬ ݰFG ݐ` ~* q% L`FGLݮ 'ܰ8`FHGH] 'ܰ]hGhF`@Bɼ>K@J5 ]9X(KI0F1G ݰ:%&N  ݰ# 'ܰFG ݐ`J HHR hh` 0 @ LFL q[̄T 0̄ȩF𸽒G ݰ 0` ݰF0F1G ݰy &밀L֢ȹLݠ@ȅH@ILҠ,|0` װJ WP8`TU fېH8,=)N 0 [01)@L` b讀 'ܰݩ ݰ L֬Qyy`O Wݰ @LL א=@ 5ȹQP8` &iQ` C0 5B C)yz( ȹ`y8myz8mz@8` װG8`F  װ P=)@N8`)@J 5yy))ꭁJJJJR RȢjI ;ސh(8H Nh(`R@`@Rȱ@ ` אB@8ZTUQ qۮQUT?H>8T2hU3JJJJ)@` װ%I -=) t 0@)N8``N8`  ) NRȢJ@jJjR@ʈLP 簞KIJHRȢjRjjk)lJn 8 ΄R  bH8R Ri ~8`L Ӑ L~ Ӱ )ܹ0 )p )@ )  R0FG ݰ حFG ׬R234 / F) F ְR)f ݰ`H@h~`h`R IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5~R͔ M @BRi ׭~` .R 4#R0 iڮQ)`L@.~R 簪HIFHR  PLnEnʱNLMOklMEKP%nMEKnL2 Okl,jm PjeNNO P(` R  F .AlJFHIGHIR HIHI`  .` .AR HF HG`@Nȱ@OR`RjM}FIF` tJMF t 3 tJF` R` H  ^h)N@ N; L  ;ް$ )bJTU f۰ ) H BhL ) . )lJkjIGLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ à ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| FGV*& .V  JJJJH :h Ei :EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BiJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X` +>ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRESDR$:DR$CR$DR$"1":550,DR$ES$300PDR$"1"DR$"2"ĺ"1";BP$;:520c&DR$:DR(DR$)013:20:"(/ )":15:P$"ENTER NEW VOLUME NAME"::1030::D"(ANY PRODOS VOLUME NAME IS PRECEEDED BY A SLASH AS PROVIDED ABOVE. IT MLOT: (6)":15);"DRIVE:"8 13:" NEW VOLUME NAME:" (64435)6(64448)0C1:21:"THE APPLE IIC'S INTERNAL DISK DRIVE IS DESIGNATED AS SLOT(6), DRIVE (1)." 24:"--PRESS TO ACCEPT: TO EXIT"; SL6 10:23:"(1)";24:;" IN DRIVE ONE AND "::"RUN STARTUP":8 D$;"CAT"@ :K VO$"" ::P$"HOME COMPUTER MAGAZINE":3::1030:P$"PRODOS DISK FORMATTER":5::1030 6:P$"COPYRIGHT APPLE COMPUTER,INC., 1983-84":1030 8:"--FORMAT--":" THE VOLUME IN SEYS":1030:P$"THEN PRESS RETURN":1030o ^KB0:1040:(KB136)(KB138)(KB139)(KB149)(KB141)350 hKB141VT122(VT12):980:350 rVT12430 |:HI256:1170 D$;"PREFIX,D1"* "TO USE THE PRODOS DISK FORMATTER PLACE":PF$E II1:NN$(PF$,I,1):II1:(PF$,I,1)"/"NN$NN$(PF$,I,1)L "I ,:::5:P$"HOME COMPUTER MAGAZINE":1030:1090 67:P$"VOL. "VN$" NO. "NN$::1030 @10:4:"YOUR CHOICE:" JVT12:980) T18:P$"MAKE SELECTION WITH THE ARROW K;=>?@ABCDE (4);"BLOAD FORMBUILD"( 20992Z D$(4):CR$(13):ES$(27):BP$(7):ER$(21)p I221:ER$(I): D$;"PREFIX" PF$ I1(PF$):(PF$,I,1)"0"(PF$,I,1)"9"290 VN$""VN$(PF$,I,1):II1:(PF$,I,1)"."VN$VN$(PF$,I,1)d *******************5n * ON DISK STARTUP *Ox *******************c BY ROGER WOOD COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO VERSION 4.4.1 APPLE II FAMILY - APPLESOFT HI(116):1210 (4);"BLOAD LINKUP"L5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@EUST BEGINWITH A LETTER AND MAY BE UP TO 15 CHAR- ACTERS LONG. IT MAY CONTAIN LETTERS, NUMBERS, OR PERIODS--BUT NO SPACES OR "N"ANY OTHER PUNCTUATION.)";10)X13:22:VO$;15(VO$)):(VO$)22:V$bV$ES$300lV$CR$VO$""ĺBP$;:600@vVO$""(((V$"A"V$"Z")(V$"a"V$"z")))ĺBP$:600PV$CR$730sV$(8)(VO$)1VO$"":600V$(8)VO$(VO$,(VO$)1):600((V$".")(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺBP$;:600 VO$VO$V$:(VO$)FH USE THIS DISK"300-E(222):L(218)(219)256:216,0E6E7E8Ģ12:P$"PLEASE PLACE "PF$" IN DRIVE 1":1030:P$"PRESS [RETURN] TO CONTINUE":10301040:KB1411190390E(222):216,0E12Ĺ116,96:180:12:"YOU NEED TO RE-BOOT TOSLOT 6";BP$;:DE1900::DI:3002`E31140j24:DI13:1:39);:DE1200::1:"NO EXTERNAL DRIVE ON THIS APPLE IIC";BP$;:DE1900::DI:300tE6E7740~E883023:DI13:1:ER$(E);BP$;:DE1100::1:30);:DE1100::DI:AM TOO LARGE,NOT DIRECT COMMAND,SYNTAX ERROR8 DIRECTORY FULL,FILE NOT OPEN,DUPLICATE FILENAME,FILE BUSY,FILE(S) STILL OPENBE(222):L(218)(219)256:216,0LCE31120#V24:DI13:1:39);:DE1200::1:"THERE IS NO DRIVE ";DR;" IN 68,0:1040B$SP1523:1:SP:40);:SP:1:24:39);:.. RANGE ERROR,NO DEVICE CONNECTED,WRITE PROTECTED,END OF DATA,PATH NOT FOUND,PATH NOT FOUND,I/O ERROR,DISK FULL,FILE LOCKED,INVALID OPERATION,NO BUFFERS AVAILABLE,FILE TYPE MISMATCH,PROGR1040:KB141940300-VT141010U12:8::"EXIT TO APPLESOFT BASIC"|14:8::"FORMAT A PRODOS DISK":12:8::"EXIT TO APPLESOFT BASIC"14:8::"FORMAT A PRODOS DISK":20((P$)2):P$:KB(16384):KB127Ĺ1636:1030:P$"CORRECT AND RETRY":17:1030:950(DP)39P$"EITHER DISK IS UNFORMATTABLE":16:1030:P$"OR THERE IS NO DISK IN DRIVE":17:1030:950(DP)51P$"DISK DRIVE MALFUNCTION":16:103018:P$"PRESS [RETURN] TO CONTINUE":10309);:1:P$"FORMATTING"::1030Lp18:1:39);:1::P$"/"VO$"/":1030zBP22842:DP20992:DP,DEVNUM%:BP,(VO$):I1(VO$):BPI,((VO$,I,1)):21505(DP)0P$"FORMAT COMPLETE":16:1030:950/(DP)43P$"DISK WRITE PROTECTED":1";! 1040:KB217KB249860>*KB206KB238DS1:830G4800>1060:1:16:"INSERT DISK TO BE FORMATTED IN DRIVE ";DR::"THEN PRESS WHEN READY"H1040:KB141840RDSDS0:1060:730\DEVNUM%96(128(DR2)) f16:1:31560022:VO$;BP$;HV$:V$ES$V$CR$V$(8)ĺBP$;:700nV$(8)VO$(VO$,(VO$)1):600~V$ES$300D$;"BLOAD TRASH,D";DR1090D$;"PREFIX,D";DRD$;"PREFIX"FD$ 106016:1:"DESTROY ";FD$;"? (Y/N)R U4R JYR`R`Lԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LPROT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >d `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOO)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS jZ)> ":Z100:7:1400:1410LX0BC1((1)200)100940=BCа1320 ((1)50)25830CR1R1((1)10050):R10R11R R13R12z*SOUND,50:SOUND,50:R2AR(R1):13204 LUNG CANCER>LZLZ.04R1:LC0((1)(200LZ))0860HZ1025010:SOUND,Z::5:Z100:1400:1410RLC1:LZ200:1340OX100OX100EPA(50OX)2:TP(A2HR)1.3485(1BC.5)PA`PP(TPP).1:P0P0qP250P2501460:A06ı OPERATING AT RANDOM((1)30)15780SOUND,50:SOUND,50:A1A1((1)10050):A10A11A15A142(OX3)2).0379490:CNT40CNT100TTATTA(A2.00005):640tvTTATTA((A2(CNT1).0005)((CNT100)1.11))TT(TTAT).25:T90T90T107T107CO(((RS8R2(1LC.4))(HR2P2))A2).02TXTXCO:OXOX(TXOX).25:OX0OX028::" OX ";::OCOC1:SCSC40:OC15D2W:SOUND,150:SOUND,150:28:" OX ":D21:33::" TEMP ";::TCTC1:SCSC40:TC15D3NSOUND,200:SOUND,200:33:" TEMP ":X UPDATE VITALSbCNTCNT1:A15A16CNT0@lTTA((250HR)80:768,102X:1P80P170İ540:D01540SOX25OX75İ560:D01540tT94T103İ580:D01540SCSCA0R1:470 BEYOND LIMITS21:22::" BP ";::PCPC1:SCSC40:PC15D1&SOUND,70:SOUND,70:22:" BP ":/021:,76:77,7777,4179,4279,76x65,12665,9067,9067,125:6:46,12546,8760,7862,7848,8748,126:4:50,12450,874:Z76802:Z,50Z,70::1440 MAIN GAME LOOP960:610HR0X(255HR)3:162,80:SOUND,100X:Z1255HR::162,6:X49:Y125:1420:X63:Y40:1420:5:X65:Y126:1430:X79:Y41:1430v 6:X53:Y64:1430:5:Y76:1430:1410 4:63,7963,43:6:60,8160,4162,3962,79:60,7250,6562,7252,65:60,6980,6381,6461,705:50,7567,7982,75:50,7667,8082ZZ,8Z:125Z,8125Z,150:U h232,0:233,8:0:1:5:Z141428:133,Z271,Z: rX13:3:OLD(X)70:S1(X)1,9S1(X)1,149:S2(X)1,9S2(X)1,149 |ZS1(X)S2(X):0:Z,9Z,79:1:Z,80Z,149:Z,X 7:Z35:1400:Z100:1400:5:162,80K 7,RESTING,107.414,NORMAL,121.6,WALKING,152,RUNNING,171.9,SWIMMING,0,RANDOM,1,GOOD AIR,.85,SMOGGY AIR,.70,SMOKE CIG.,.50,SMOKE & SMOG TP125:OX50:TX50:T98.6:HR80:RS10:A02:A12:A2107.4:R21:OD50 ^::2:Z06:Z,8Z278Z,8Z278Z,150ZZ,1505 18:33:A$:A$:A$"Y"A$"N"A$(13)270H A$"N"Ĺ779,0^ " DRAW THE SCREEN ,::SOUND768:AC(6),AC$(6),AR(3),AR$(3),OLD(3) 6S1(X)X42113:S2(X)X42123 @Z06:AC(Z),AC$(Z)::Z03:AR(Z),AR$(Z): J 69.5,SLEEPING,91.PRSTUVWXYZ[\]A :::N810:N:13:19):::9:14:" VITAL SIGNS "T (104)64240i 104,64:16384,0 (4);"RUN VITAL" Z1900:A$:(A$)999Ă Z768786:X:Z,X::Z20482228:X:Z,X: 18:" WOULD YOU LIKE SOUND EFFECTS ?Y (Y/N)";0:Z17:SOUND,255:SOUND,193::23:21:" CLOT FIXED: "C\ GET KEYBOARD INPUTuZ(16384):Z128ı16368,0:A$(Z128):A$"0"A$"4"1070A$"E"RS30RSRS1A$"S"HR0HRHR1A$"D"HR250HRHR1 A$"X"RS0RSRS1)A$"A"HRHR5:HR0HR0LA$"F"HRHR5:HR250HR250A$(8)A10A1A11:A2AC(A1):1320:A06A0A1A$(21)A15A1A11:A2AC(A1):1320:A06A0A1$1380:. CHANGE ACTIVITY8:(A$)1090,1160,1230,BZ0^`abcdefghijklmnopqrPPLE II FAMILY APPLESOFT' :38400:2 29408 :A 310J 450S 510\ 680 M1140,1190,1300,2100,910:270 ::::: " INITIALIZATION ,: 6SD768:IT023:X:SDIT,X:: @ESC$(27):BE$(7):D$(4) JBL$"":IT180:BL$!d *************************An * ELECTRONIC TYPEWRITER *ax *************************v COPYRIGHT 1985 EMERALD VALLEY PULISHING CO  BY RANDY THOMPSON AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 5.5.1 A4,45,45,45,45,45,45,45,45,53,59,63,63,63,63,63,63,63,14,41|!r45,45,45,45,45,53,63,63,63,63,55,9,9,45,45,30,43,5,0,0,0,05,45,45,45,45,45,45,45,45,21,63,63,63,63,63,63,63,63,63,63,46,45 ^45,45,45,45,45,45,45,45,53,63,63,63,63,63,63,63,63,63,55,45,45,45,45,45,45,45,45,45,45,62,63,63,63,63,63,63,63,63,63,55":15801" YOU PASSED OUT FROM EITHER TOO MUCH, OR"AIR 3-EXIT";-1380:1320:1340:1360:9 GRAPHX13:VL((P75)1.4)(X1)((OX25)2.8)(X2)((T94)15.56)(X3):1480::VL0VL0VL140VL140CH(VLOLD(X)):CH0Ē0:Y150OLD(X):Z0(CH)1:S1(X),YZS2(X),YZ::OLP= ";RS:!n SCREEN ROUTINESVxX5.1:Y138:ZX,50YZX,50Y:XX(Y12)::{6:X82:Y64:1420:5:Y76:1420ZY8Y84:X,YX7,Z::ZY8Y84:X,YX8,Z:::21:23:"BP OX TEMP":24:1:"1-CHANGE ACTIVITY 2-CHANGE 21:1:19);:1:"ACT.= ";::AC$(A1):e222:1:19);:1:"AIR = ";::AR$(R1)::1340:1360:<23:1:17);:LC1Ė1::" LUNG CANCER ":FP23:21:16);:BC1Ė21::" BLOOD CLOT ":Z d22:20:868:"HEART= "HR;:32:"RES33:A$:A$"Y"A$"N"A$(13)1240AA$:A$"Y"İ1440:O::10:18:12:"FINAL SCORE = "SC:21:" DO YOU WANT TO PLAY AGAIN ?Y (Y/N)"21:31:A$:A$"Y"A$"N"A$(13)1280 A$:A$"N"ė:300 UPDATE STATUS*(:X204:R1ZĞ.(65Z)") "AR$(Z);::d21:8:"ENTER YOUR SELECTION (A-D) ->";:A$:A$;A$"A"A$"D"R1(A$)65:R2AR(R1)A$"A"A$"D"11801440: END OF GAME22:" ARE YOU SURE YOU WANT TO EXIT ?N (Y/N)"(22:6:X(Z3):22Z3X:X152:A0ZA1ZĞHL(65Z)") "AC$(Z);::eV24:31:"(A-G) ->";:A$`A$"A"A$"G"ĺA$;:A0(A$)65:A1A0:A06A13jA$"A"A$"G"1110tA2AC(A1):1440:~ CHANGE AIR QUALITYZ03:X(Z2):23Z2XBL$" ":C TRM5:LM5:SP2:PR0:MX54:M5:TX$(MX),TP$(MX):LN1} ^FL$(13),FX$(11):IT111:IN$:FX$(IT)((IN$)64): hCN$(3),MN$(6):IT16:MN$(IT): rIT1MX:TP$(IT)" ": |::  32,76,231,134,6,32,76,231,134,7,166,7,164,6,173,48,1NXCNX IN$FX$(5)M5:.S2$(CN)81200OTP$(LN)S$S2$:M5Z:::::m  MENU SELECTCN$"0":13:8:"(ENTER 1-6)"VC13:HC20:2890(IN$" "13702IN$"1"IN$"6"ĺBE$;:1310<CN$IN$:IT16:14IT:3:(CN$)IT$" "S2$;VC2:HC36:2890:(IN$"B")2(IN$"C")3(IN$"D")4(IN$"E")5(IN$" ")6(IN$FX$(11)IN$FX$(5))1220,1220,1230,1220,1220,1270:BE$;:1200S$IN$:S2$"":1200 NX1:S$IN$:N12:N238:N32:CN(S2$):2410:X80RMLM((TX$(LN))):C):880::::::/j INPUT A NEW LINE SETTINGTtNX1:N12:N215:N32:CNLN:2410i~LNCN:LN1LN1zLNMXLNMX840:850:M5:770:::::: INPUT LINE CODE:S$(TP$(LN),1):S2$(TP$(LN),2) 2:36:" "FX$(7)FX$(7)FX$(7)FX$(7);S60(S$)LHXL9204HX1S$" "S$:1060SS$(S$,HX1)" "(S$,HX)m$:TX$(LN)S$:770:920.TX$(LN)S$:PR2140:LNLN(LNMX):770:840:850:91081120:920BTX$(LN)S$:MPX:L:::::V TOGGLE PRINTER SETTING`:PR(PR(S$,HX1)'HXHX1:HXL4İ23002920::WPX0:IT111:IN$FX$(IT)PXIT:PX1090,1090,1090,1090,1090,1080,990,990,1000,1030,1070HXHX(PX8)(PX7):920HX(S$)920HX1S$(S$,2)::1060S$(S$,HX1)(S$,HX1):10R0ĺ"OFF":z"ON"::::::3 INPUT A LINE:VX8:HX1:S$TX$(LN):L80LMRM:C$(TP$(LN),1):C$"D"LL((TP$(LN),2))HXHX(HX1)(HXL):HCHX:VCVX::2890::(IN$)32(IN$)96970HX1S$IN$(S$,HX1):950 S$(S$,HX1)IN$###":::::::+> UPDATE SCREEN VALUESSH:2:15:" ";FX$(7)FX$(7)LN::::::R:2:36:" "FX$(7)FX$(7)FX$(7)FX$(7);:TP$(LN)""TP$(LN)" "\(TP$(LN),1);:(TP$(LN),1)"D"ĺ" "(TP$(LN),2)f:::::p13:36:" "FX$(7)FX$(7)FX$(7);:P ";::"#"_"######################":IT16::"#";::" "MN$(IT)" ";::"#":: :"######################":::::::*12:25::"### ";((FX$(6))64);"#####"413:25:"#";::" PRINTER: ";::"#":14:25:"#############);"######":2:24:"#";::"LINE CODE: ";::"#":3:24:"#################":::::::6:1::"### ";((FX$(5))64);"######":8:1::BL$:8:1:TX$(LN)::::::: 12:1::"### ";((FX$(3))64);"###########":"#";::" MENU 750:840760:850!770*7808810:880C:::::` EDIT SCREEN PORTIONS:1:1::"### ";((FX$(1))64);"######":"#";::"LINE NUMBER: ";::"#":1:"#################":::::::[1:24::"### ";((FX$(2))64N31:N1:N214:868:"LINE SPACING:":2410CXCN1ĺBE$;:590MbSPCNlVC14:HC26:VC:HC25:"IS THIS CORRECT (Y/N)? : Y";v2890IN$"N"520IN$"Y"IN$FX$(11)ĢVC:HC:"Y";FX$(7);:630::::: DRAW EDIT SCREEN : MARGINS AND LINE SPACING"% CN5a N17:N215:N32:N1:N213:868:"LEFT MARGIN:":2410:| CN1CN39ĺBE$;:530 &LMCN:CN5 0N19:N215:N32:N1:N214:868:"RIGHT MARGIN:":2410 :CN1CN39ĺBE$;:560 DRMCN:CN2.NN111:N215:$"ELECTRONIC TYPEWRITER":VX9:HX9j :IT1(T$):VX:HXIT:(T$,IT,1):2290:DI1200(1)35:: VC12:HC34:VC:HC28::" PRESS RETURN TO CONTINUE: ";: 2890:IN$(13)480 :::::  SET MARGINS AND SPACING ::2:3:"SET92,136,208,253,202,208,245,96>  "Q","W","Z","X","T","P"X  "H","U","D","I","M"  "1 - PRINT DOCUMENT","2 - LOAD TEXT FILE","3 - SAVE TEXT FILE","4 - LOAD TEMPLATE ","5 - SAVE TEMPLATE ","6 - EXIT PROGRAM " :::::  TITLE PAGE% :TFMN$(IT)::P13104ZIN$FX$(11)1420GdIN$ESC$1430knPX0:IT15:IN$FX$(IT)PXITx:PX0ĺBE$;:1310MPX:780:(CN$)1460,1610,1750,1900,1990,2060M5:780::::: PRINT DOCUMENT T$" PRINT DOCUMENT ":2330{21:25:"LINE SPACING:";:NX1:N121:N239:N31:CNSP:2410:21:25:" ";:CN0IN$FX$(5)ı:SPCN:21:25:L11:CNL1:N121:N237:N32:"FIRST LINE:";NX1:2410:IN$FX$(5)Ģ21:25:" ";: CNMXĺBE$ BE$;:2450( :D( IN$"":IT1N3:IN$IN$CN$(IT)::CN(IN$)q( CN$(((CN)" "),N3):N1:N2:CN$|( :::::( TURN ON PRINTER( 1:1:""(( D$;"PR#1":(9);"80N";:(2 TURN OFF PRINTER(< D$;"PR#0"::::::)F FILE NAME:' HXN2' HXN2HXN2:' HXN2N31HXN2N31P' HCHX:VCN1:2890l' IN$FX$(5)NX0NX0:' IN$FX$(7)HXHX1:2450' IN$FX$(8)HXHX1:2450' IN$FX$(11)2550' (IN$"0"IN$"9")IN$" "CN$(HXN21)IN$:HXHX1:2450(ER A Y/N: N ":S$"N":VC21:HC38X&B 2890:IN$"Y"IN$"N"IN$FX$(11)ĺBE$;:2370w&L IN$FX$(11)S$IN$:2370&V 21:25:" "::::::&` NUMBER ENTRY&j :CN$(((CN)" "),N3)&t N1:N2:CN$'~ IT1N3:CN$(IT)(CN$,IT,1):::#% VARIOUS SHORT MESSAGESo% :21:25::T$:2310:DI12000::21:25::" "::::::%$ :21:25::T$:DI12000::21:25::" "::::::%. GET A YES OR NO RESPONSE"&8 T$" ARE YOU SURE? ":2340:21:25:"ENT/$(BL$,LM((TP$(LN),2)))TX$(LN);:2240:[$(BL$,80RM(TX$(LN)))TX$(LN);:2240:l$IT1SP::$:2620:22:1:BL$;$:::::$ SOUNDS$:$SD,255,3:SD,255,2::::::$SD,50,255::::::% SD,150,85:DI1100::SD,120,60:::#R PRINT A GIVEN LINE)#\2590E#fTX$(LN)""TX$(LN)" "a#pTP$(LN)""TP$(LN)" "#zC((TP$(LN),1))64:C1C1#C2190,2200,2210,2220,2230#(BL$,LM)TX$(LN);:2240:#BL$;:2240$(BL$,((80(TX$(LN)))2))TX$(LN);:2240:"BYE...."::IT1(T$):(T$,IT,1);:2290:DI1200(1)35::U" 216,0::::::s"* CLEAR ALL TEXT ENTRIES"4:T$"ERASE ALL DATA?":2330:2360:S$"Y"2120">T$"ERASING DATA...":2330:IT1MX:TX$(IT)" ":TP$(IT)" "::LN1:510:680#HM5:LATE FILE":2640:IN$ESC$2040I!15:3::" SAVING FILE "FL$".P ":y!D$;"OPEN "FL$".P,D"DR$:D$;"WRITE "FL$".P"!IT1MX:TP$(IT):!D$;"CLOSE"!RS0:680::::::! EXIT PROGRAM! T$" EXIT PROGRAM? ":2330:2360:S$"Y"ıC"T$LE":2640:IN$ESC$1970C v15:3::" LOADING FILE "FL$".P ":a D$;"VERIFY "FL$".P,D"DR$} D$;"OPEN "FL$".P,D"DR$ D$;"READ "FL$".P" IT1MX:TP$(IT): D$;"CLOSE" RS0:680::::::  SAVE TEMPLATE!!RS4::10:"SAVE TEMP"DR$:D$;"WRITE "FL$".X"*SV:LM:RMOIT1MX:TX$(IT)""TX$(IT)" "^&TX$(IT):m0SV01870:IT1MX:TP$(IT)""TP$(IT)" "DTP$(IT):ND$;"CLOSE"XRS0:680::::::b LOAD TEMPLATE FILE lRS3::10:"LOAD TEMPLATE FI SAVE TEXT FILEJRS2::10:"SAVE TEXT FILE":2640:IN$ESC$188010:3:"SAVE TEMPLATE WITH TEXT? (Y/N) N":SV$"N":VC10:HC35SV$"N":3140:(IN$ESC$)1880SV(SV$"Y")15:3::" SAVING FILE "FL$".X ":D$;"OPEN "FL$".X,D:"^D$;"VERIFY "FL$".X,D"DR$>hD$;"OPEN "FL$".X,D"DR$UrD$;"READ "FL$".X"y|SV:LM:RM:IT1MX:TX$(IT)""C$:C$(13)1690TX$(IT)TX$(IT)C$:1670SV0āIT1MX:TP$(IT):D$;"CLOSE"RS0:680::::::PRINTING... ":21:25:" LINES "L1" - "L2;::SVLNO"LNL1L2:840:2140:,IT2021:IT:25:" "::LNSV:8406:::::@ LOAD TEXT FILEJRS1::10:"LOAD TEXT FILE":2640:IN$ESC$1730T15:3::" LOADING FILE "FL$".X ";:1490721:25:" ";:L1CN:L10ıd21:25:L2MX:CNL2:N236:"LAST LINE:";NX1:2410:IN$FX$(5)Ģ21:25:" ";:CNMX(CNL1CN0)ĺBE$;:153021:25:" ";:L2CN:L20ı420:25::" ENTRY*)P :5:1:IT113:FL$(IT)" ":B)Z "ENTER FILE NAME:"K)d HX1d)n HXHX(HX1)(HX13)r)x 5:HX17) IN$:IN$""(IN$)962690) IN$ESC$ı) IN$FX$(7)HXHX1:2670) IN$FX$(8)HXHX1:2670* IN$FX$(11)FL$(1)" "2770S* IN$"A"IN$"Z"HX1IN$" "IN$","HX1ĺIN$;:FL$(HX)IN$:HXHX1:2670c* BE$;:2690i* :y* IT1311* XTIT:FL$(XT)" "2810* IT* :* FL$"":IT1XT:FL$FL$FL$(IT):* :* DR$"1"* 7:11:"DRIVE: "DR$U+" VC7:HCЂ-A$"1"A$"3"A$"X":(7)A$:ZZ1:BA$:B(Z)(A$):Z16:L(1,Z,1),L(1,Z,2),L(2,Z,1),L(2,Z,2):L(1,Z,4)4:L(2,Z,4)4:L(1,Z,3)99.9:L(2,Z,3)99.9::R(1)6:R(2)6::1:PRNT:Z36:0,Z279,Z:0,Z151279,Z151: *** MAIN LOOP *ITE KNIGHT'S NAME : ";A$:P$(2)(A$,10):A$""P$(1)P$(2)ĺ(7);:400 17:"ENTER MAP ARRANGEMENT USING 1, 2, AND 3. EXAMPLES: 123, 231, 312, AND 212" 20:10:"ENTER ARRANGEMENT : XXX";Z13:20:29Z:A$:A$(8)Z1ĺA$"XX"A$;:ZZ2:(13)350= h15:" LOAD AN OLD GAME FROM DISK ?N (Y/N)";p r15:32:A$:A$:A$"Y"A$"N"A$(13)370 |A$"Y"İ1930:1640:1440:S100:490 N1:11:1:958::7:"BLACK KNIGHT'S NAME : ";A$:P$(1)(A$,10):A$""ĺ(7);:390H 14:7:"WHAPS LOCK KEY IS DOWN *"9 6Z1900:A$:(A$)9999Ăt @Z20482245:K:Z,K::K:K9999ĺ"DATA ERROR"(7): JZ23262374:K:Z,K:Z: T13:" DO YOU WANT SOUND EFFECTS ?Y (Y/N)" ^13:32:A$:A$:2064,48(A$"N"):A$"Y"A$"N"A$)(Q1)40 P1:P22:Q0:M(1)0:M(2)0:PRNT2048:OFF2051:SOUND2054:D$"IMJK"(27)(13):M$(1)"LEFT":M$(2)"MIDDLE":M$(3)"RIGHT" Z123:Z:1:S%(Z)(41)256(40)1: "PD0:(48905)76(48911)0PD1 ,(64435)6Ģ11:4:"* MAKE SURE Csuvwxyz{|}~ APPLE // FAMILY APPLESOFTd :::Z68:Z:6:31):::7:7:" THE PLAINS OF SALISBURY "w (104)64250 104,64:16384,0 (4);"RUN PLAINS" L(2,6,5),P$(2),M$(4),R(2),M(2),S%(24),C%(6):2100 F1(N)L(P,N,1)1:F3(N)L(P,N,2d ****************/n * THE PLAINS *Fx * OF SALISBURY *] ****************r COPYRIGHT 1985 EMERALD VALLEY PUBLISHING CO. BY WILLIAM K. BALTHROP AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 5.5.1 1900,1990.: :::::*.D :VC:HC:IN$""@.N IN$:IN$""3150s.X IN$"Y"IN$"N"IN$FX$(11)IN$ESC$3140.b IN$"Y"IN$"N"SV$IN$:SV$;.l IN$ESC$ı.v IN$FX$(11)3140. DRIVE "(DR$,1)- 3110"- :<- "DISK IS FULL":3110B- :k- "I/O ERROR CHECK DRIVE #";DR$:3110q- :- "ILLEGAL FILE NAME":3110- :- "NO DRIVE 2":3110-& 9:3:"PRESS ANY KEY TO CONTINUE: ":VC9:HC30:2890 .0 RS13130,1610,1750,,r ERROR HANDLER9,| :D$;"CLOSE":3288::7:1F, E(222), ((E5E6E7)2(E9E17)3(E8)4(E16)5(E3))3000,3040,3060,3080,3100, "ERROR NUMBER "E" ";, "AT LINE "((218)(219)256), ::, "'"FL$"'"- " IS NOT ON18:2890:IN$"1"IN$"2"IN$FX$(11)IN$ESC$ĺBE$;:DI1100::18:DR$:2850u+, IN$FX$(11)DR$IN$:2850+6 7:18:DR$::::::+@ GET CHARACTER+J :VC:HC:IN$""+T IN$:IN$""2900+^ (IN$)31(IN$)97ĢVC:HC:IN$;,h :::::**!530:R(1)0R(2)01540?1120:R(1)0R(2)01540mZ15:SOUND,255:SOUND,170:SOUND,125:N1:P2P:P(P3):490 *** MOVEMENT PHASE ***NN6:L(P,N,3)0940&L(P,N,3)L(P,N,3)5:FL1J90L(P,N,3)100L(P,N,3)99.9 :J0L(P,N,3)0940QDS((L(P,N,2)1)40)1:SQQS:1640:1440N21:1:958:"PLAYER = ";::" "P$(P)" ";::26:"MOVEMENT PHASE":"KNIGHT = ";:P2ĞX"#"N::"MOVES = ";J;27)"STRENGTH = ";(L(P,N,3)10); bFL0:L(P,N,5)196:A$:A$:21:958%A$"S"20206A$"E"1540DA$"R"ıN1490::4:" KNIGHT # STRENGTH REMAINING ---------------------------------------"::17);P$(1)29);P$(2)Z16::" KNIGHT #"Z": ";&V12:L(V,Z,3)0L(V,Z(K128):)B(Q1)401:DQ40:ZPcP12:V16:L(P,V,2)BL(P,V,2)DL(P,V,3)01470L(P,V,5)(S%(F1(V))F3(V)):F1(V):F3(V):VV::P::PZ: *** SAVE/EXIT MENU ***21:1:958:22:10:"S)AVE E)XIT R)ETURN ?";ENU ***dXQ:21:1:958yn23:4:"PRESS (1-3) OR ANY KEY TO CONTINUE";:1410:A$"1"A$"3"ė:QX:1640:1440:x:Q(A$)48:1640:1440:21:12:"MAP SEGMENT : ";M$(Q):139016368,0K(16384):K1281420 SOUND,100:16368,0:A$P,N,3)(F1)).5:L(P2,Z,3)01350b2M(P)M(P)50:8:"<<< YOU DESTROYED THEM >>>":R(P)R(P)1<XP:PP2:F1(Z):F3(Z):(L(P,Z,5)):PX:1360FM(P)M(P)10:15:"*** A HIT ***"PZ16:SOUND,255::K16:SOUND,175::1130 Z *** SCREEN M<<< OUT OF ARROWS >>>":1360VK1022020:SOUND,K::L(P,N,4)L(P,N,4)1:C%(N)1 Z16:L(P2,Z,1)YL(P2,Z,2)XL(P2,Z,3)01310:8:"<<< YOU MISSED >>>";:113022:958:23:FL(P2,Z,5)191:F1F51130$(L(P2,Z,3)L(P2,Z,3)((1)L(40F24:1:"DIRECTION TO FIRE (IJKM)";:1410:A$" "İ1370:1200hK16:(D$,K,1)A$Ă:1130XL(P,N,2):YL(P,N,1):K1230,1240,1250,1260,1130,1130YY1:1270YY1:1270XX1:1270XX1L(P,N,4)0Ģ21:958:22:9:""PLAYER = ";::" "P$(P)" ";::28:"COMBAT PHASE"ct23:"CHOOSE UNIT # (1-6) : ";:1410:A$;s~A$(13)ıA$" "İ1370A$"1"A$"6"1130N(A$)48:C%(N)0L(P,N,3)0ČSOUND,150:1130S((L(P,N,2)1)40)1:SQQS:1640:141:1100:Y.(L(1,N,5)):22:10:"<<< BOTHKNIGHTS LOSE >>>":R(1)R(1)1:R(2)R(2)1{81090:K52555:SOUND,K::BK11700::LK25557:SOUND,K::K52557:SOUND,K::V *** COMBAT PHASE ***`Z16:C%(Z)0:5j21:1:958:21:1:958:F1(N):F3(N):L(P,N,3)01050FL(P,N,3)01050]L(P2,A,3)01070hP1ĞA::22:13:"<<< "P$(P2)" WINS >>>":M(P2)M(P2)50:R(P2)R(P2)1:1100:P2Ğ $N::22:13:"<<< "P$(P)" WINS >>>":M(P)M(P)50:R(P)R(P)Z2501015:SOUND,Z::> *** HAND TO HAND COMBAT ***u21:1:958::8:"<<< HAND TO HAND COMBAT >>>"AG48128(P2)L(P,N,3)L(P,N,3)((1)L(P2,A,3).21):L(P2,A,3)L(P2,A,3)((1)L(P,N,3).21)L(P,N,3)0L(P2,A,3)09801JH:L(P,N,3)L(P,N,3)H:P2ĞEfF1(N):F3(N):N::G0İ960Np570izC191C197HC191:}C197H100:(P1C176)(P2C60)H100:GC:CL(P2,C48128(P2),5):HC191:HJHJSOUND,255:Z1400::16368,0:N: >>>":TD11000::; L(P,N,2)U0L(P,N,2)U121570[*F3(N)U0F3(N)U41840i4J0570>QQU:E1:1640:1440HC(S%(F1(N))F3(N)U):G0:890:HJ570RE1ĢF1(N):F3(N):(L(P,N,5))!\E0:L(P,N,5)C:L(P,N,2)L(P,N,2)U:J:HJ570,F1(N):F3(N):(L(P,N,5))L(P,N,5)C:L(P,N,1)L(P,N,1)U:JJH:L(P,N,3)L(P,N,3)H:L(P,N,3)0L(P,N,3)0:R(P)R(P)1:790:940P2ĞF1(N):F3(N):N::G0İ960 57021:1:958:"<<< KNIGHT DIED FROM EXHAUSTIONL(P,N,4)4l14100vA$" "ė:1370:570LK16:(D$,K,1)A$ĂaZ1:U1:K6620K670,680,690,700,710,940U1:720Z18:720U1:800Z120:8001490:570L(P,N,1)Z570 C(S%(F1(N)U)F3(N)):G0:890,3)0:V126::"DEFEATED";::1580C"V127)(L(V,Z,3)10);L,V,Z6::"--------------------------------------- ":"SCORE: ";21);M(1);33);M(2)@:M(1)M(2)Ė13:"*** TIE GAME ***":Z120:SOUND,200:SOUND,140::1620= J7:"*** "P$(1(M(2)M(1)))" IS THE VICTOR ***":Z25555:SOUND,Z:H TOFF: ^ 7,9,5,114,9,9,6,115,9,5,9,117,15,9,12,109,16,9,12,111,16,7,13,113 h *** SHOW A GIVEN SCREEN *** r2:1:B(Q)1660,1750,1840:.!|"BBBBBBBBAAAAAAAAAAAAAABBBBBBAAAAAAAAAB8:1490%.PD1ĺ(4);"PREFIX,D1"+.5.9999.76,106,8,76,112,8,32,76,231,160,32,138,202,208,253,44,48,192,170,136,208,246,96,160,0,36,50,48,2,160,127,132,6,169,7,133,7,165,8,10I/10,10,170,164,36,24,165,40,133,38,165,41,105,24,133,39,24,165,1:958::15:Z4ĺ"WRITE PROTECTED":2180S-RZ6Z7ĺ"FILE NOT FOUND":2180o-\Z8ĺ"I/O ERROR":2180-fZ9ĺ"DISK FULL":2180-pZ15ĺ"IDONTKNOW ERROR":2180-z::"FATAL ERROR #"Z" IN LINE #"D:-Z12000::21:958:N0Ĭ .3282200,(4);"OPEN "A$/, (4);"WRITE "A$e,Z12:X16:Y15:L(Z,X,Y):Y,X,Z:R(1):R(2), P$(1):P$(2):B(1):B(2):B(3):M(1):M(2):Q:P:J:N,*(4);"CLOSE":,4 *** ERROR HANDLING ***,>Z(222):D(218)(219)256:(7).-H21::R(1),R(2)?+P$(1),P$(2),B(1),B(2),B(3),M(1),M(2),Q,P,J,NQ+(4);"CLOSE"+P2(P3):::1:PRNT:Z36:0,Z279,Z:0,Z151279,Z151::FL1:+ *** SAVE GAME ***+22:10:"NAME OF GAME TO SAVE : ";:A$:A$""Ģ21:958:,A$(A$,8):BBBBBBEFEFEFE@@@AAAAAAAAAA@AABBBBBBBBBBBBBBBBBEFEFEFEAAA";:V* *** LOAD GAME ****21:10:"NAME OF SAVED GAME : ";:A$:A$""Ĭ*A$(A$,8):2200:(4);"VERIFY "A$*(4);"OPEN "A$*(4);"READ "A$ +Z12:X16:Y15:L(Z,X,Y):Y,X,ZFEFEFEFEFEFEFEFEABBBBBBABBBBBB@AAAAAAAFEFEFEF";)l"EFEFBBEFEFEABBBBBBABBBBBB@@@@@@@AAEFEFEFEFEBBBBAEFAAABBBBBAAAAABBBAAAAA@AAAAEFEF";)v"BBBBAAAAAAAAAABBBBBBBBAAAAAAAAA@@@AAAAABBBBA@@@@@@@AAABBBBBBBBBBBBBBAAAFE@@@@@AB";>*"@@@@@AAAAA@AABBBBBBBBBBBBBBBAAA@@@@@@@BBAAAB@AAFEFAAA@AAAA";(N"BBBBBABBBBAAA@AAABBBBBABBB@AAFEFEFA@BBBBBBBBBABBA@@@@@AAABBBBBABBB@AAFEFEFA@@BBB";(X"@@@@@@@@@@AAAAAAABBBAADBB@@AAFEFEFEA@@@@AAAAAAAAAAAAAAAAAAAAABBBB@AAAAAFEFEFAAAA";1)b"EFAAAAAFEFAAAAAABBABBBBBB@AAAAAFEFECAAAAAAAAAAAAAAAAAAAA";:t'0"BBBBBBBBBBBBAAAAABBBBBBBBBBBAABBBBBBBBBBAABBBBBBBBBAAAAAAAAABBBBBBBAAAABBAAAAAAA";':"BABBBBBBAAAABAAAAAA@@@@@@@@@@@@@BABBBBBBBABBBAAABBBBAAAAAAA@BBBBBB@AAAA@@@@@BBBB";&(D"BAAAAABBBBBBAAAAAAA@BBBBAA@AAAAAAAA@BBBBAABBBA@AAAAFEFEF";g&"EFEFEFAAA@AAA@@@@@@AC@CA@ABBBB@AAAAFEFEFEFEBEFAAA@CAABBBBB@AC@CA@ABBBB@AAAABEFEF";&"BBBBAAAAA@@@@@@@@@@@@@@@@CCBBA@CAAABBBBBBBAAAAAAC@BBAAAAACC@CCAA@@@@@@@@@@AABBBB";'&"@@@@@@@@@@BBBAAACCDCAAAAAAAAAAAAA@@@@@@@AAAAAAAAAABBAAAAACA;\%"BBABBBBBBAAAAAAAAAAA@CAABBAAAAAAAAAAABBBBAAABBBBAAAAA@@@@@@A@CCAAACCAAAAA@@@@BBB";%"@@@@@@@@@@@@@@CCCC@@@@@@@@@@@@@@@@BB@@@@AFEAAAAAA@CAA@ACCA@AAAAA@BBBBB@AAAEFAAAA";&"EFEFAAAAA@AAA@ACCA@ACCCA@BBBBB@AAFEFEAEFEFEFEFAAA@AAA@CCCC@AC@CA@@@@CBBBBBBBAAAAAAAAAAAAABBBBBBBBBBAAABBBBBAABBBBBBAAAAAAAAAAACDCABBBBBBBBBAAABAAAA";$"BAABBBBBAAAAAA@@@@@@@@@@@@@@BBBCAAABABBBBBAABBBAAAAAAA@ABBBB@CCAAAA@@@@@CAAAABBB";%"BBBABBAABAAAAACABBBB@ABBAAABBBACABBBBBBBAAAAAAABBAAAAAAAABBA@AABBBBBBAAAAABBAAAA"BBBFEBBAAAA@@@@@@@@@@@EFEFEFEFEAAAABBBBBBBBBBBAAAA@@ABBBBBBBAFEF";#"BBEFEFEAAA@@@@@@@@@@@@@@@@@BBBBBBABBBBBBBAAAAAAAAA@AAAAAAAAAAAAAAABBBBBBC@@@@BBB";#"@@@@@@@@@@@AAAAAAAAAAAAAABBBBBBBAABB@@@@AAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB";:Q$"BBBBBBAABBBBBBBBBBB@AAAAAAEFEAEFEAEFEAAAAA@@@@@@BBBBBBBB";""@@@@AAAAAAAFEAEFEAEFEAAAAAAAAAA@@@@@@B@@AAAAAAAAAAEFEAAAAAAAAAAAAAAAAABBBBAA@@@A";""EFEFAAAAAAEFEFEFEFEFEAAAAAAAABBBBBBBA@AFEFEFEFEF@FEFEFBBBFEFEBBAAAAAAABBBBBBB@EF";D#"EFEFEFEF@FEFBBBBBBAAAABBAAAA@@@@@@@@@@@AABBBBAAAAAAAABAAAA";!"BBBABAA@@@@AAAAFEFEA@AAABBBABAAAAAABBBBBBBBABAA@AAAAEFEFEFEF@@@AABABBBBAAAABBBBB";!"BBBABAA@AFEAAFEFEDEFAA@AAAABBBBBBBAAAAABAAAAAAA@AAEFAFEFEAEFAA@@@@@BBBAABBBBBBBA";9""BBB@@@@@AAEFAFEFEAEFAAAAAA@39,105,4,133,39,189,142,8,69,6,145,38,232,198,7,16,237,96,133,69,134,70/132,71,201,160,144,11,201,207,176,7,41,31,133,8,32,23,8,165,69,166,70,164,71,76,240,253,160,76,169,8,208,4,160,240,169,253,174,9,191,224^076,208,12,174,15,191,208,7,140,48,190,141,49,190,96,132,54,133,55,76,234,3,213,170,213,170,213,170,213,170,16,0,2,0,4,0,32,0,8,28042,8,62,73,8,0,0,8,28,62,127,50,50,50,0,107,107,127,127,62,62,62,213,215,213,213,213,245,213,213,170,175,170,170,170,250,170,17009999w18,12,8,8,8,8,2,76,231,134,6,32,76,231,138,41,3,170,189,187,8,141 105,8,165,37,32,34,252,32,60,8,169,160,32,240,253,198,6,208,244,96,169,7,133,7,160,0,36,50,48,2,160,127,132,9,165,8,10,10,10,170D164,36,24,165,40,133,38,165,41,105,24,133,39,24,165,39,105,4,133,3CHAR,31,"7F7F7F7F7F7F7F7F":CHAR,0,"081422223E2222"=::K "Q","W"f 0,13,0,17,0,21,0,25 0,13,0,17,0,21,0,25 0,5,0,9,0,13,0,17,0,21,0,25,0,29,0,33476,151,8,76,157,8,76,194,8,32,76,231,134,37,32,76,231,134,36,32,76,231,134,8,32CHAR,22,"1C22201820221C":CHAR,23,"101814123E1010"lCHAR,24,"3804021E22221C":CHAR,25,"1C22221C22221C"CHAR,26,"0000007F7F3E3E3E":CHAR,27,"3E3E3E7F7F000000":CHAR,28,"001C2222221C0000"5CHAR,29,"94D5D5D5D5D5D594":CHAR,30,"003E3E3E3E3E3E00":2221E020202":CHAR,13,"1E22221E0A1222":CHAR,14,"1C22021C20221C"CHAR,15,"3E080808080808":CHAR,16,"2222222222221C":CHAR,17,"222222222A3622":CHAR,18,"22221408080808"4CHAR,19,"1C22322A26221C":CHAR,20,"080C080808081C":CHAR,21,"1C22201804023E":02221C":CHAR,3,"1E22222222221E":CHAR,4,"3E02021E02023E"CHAR,5,"3C02020232223C":CHAR,6,"2222223E222222":CHAR,7,"1C08080808081C":CHAR,8,"0202020202023E":CHAR,9,"22362A2A222222"BCHAR,10,"2222262A322222":CHAR,11,"1C22222222221C":CHAR,12,"1E2M$",":BL$(7), :K20482336:P:K,P:; DI768795L NIN:I,IN:Ia XSOUND770:TP769 bTN%(31):I031:TN%(I)::P:P9999ĺ"DATA ERROR": lPRNT2048:OFFPRNT3:CHAROFF3:HCHARCHAR3 v:;CHAR,1,"1E22221E22221E":CHAR,2,"1C220202DT(IT,JI)::7 ::: ADDRESS LAMPS WITH POSITIONSc AL(7,1):IT07:JI01:AL(IT,JI)::v ::: OUT LAMP OT0 AD0: ADDRESS POINTER NB(3),A(3),B(3) &D$(4) 0:ET$(30):ESC$(27):LF$(8):RT$(21):CR$(13):A$"A":Z$"Z":C ::: ROTARY SWITCH5 RS(1):RS(0)2:RS(1)2F ::: MEMORYh AD(255):IT0255:AD(IT)0: ::: SWITCHES WITH SCREEN POSITIONS SW(3,1):IT03:JI01:SW(IT,JI):: ::: DATA LAMPS WITH POSITIONS DT(3,1):IT03:JI01:CCESSD h:LG$"EPBIRHL<,>.1234":IT12:X$:LG$LG$((X$)64): r::: FLAGS FOR POWER, BUSY, BEGIN, INC, RUN, HALT, LOAD, CARRY AND ZERO |FG(8):IT08:FG(IT)0: ::: 'A' (OR ACCUMULATOR) AND 'B' REGISTERS RG(1):IT01:RG(IT)0:   :38400:* 3360:= (104)64290Y 104,64:103,1:16384,0n (4);"RUN NANO"t :} "360 ,880 62760:310 @ J:::::::::: T INITIALIZATION ^::: LEGAL CHARACTER SET INCLUDING CONTROL KEYS FOR DISK Ad *****************1n * NANOPROCESSOR *Ix *****************^ COPYRIGHT 1985 EMERALD VALLEY PUBLISHING CO. BY ROGER WOOD AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 5.5.1 APPLE II FAMILY APPLESOFT 8,0,28,34,32,24,4,2,62,0,62,32,16,24,32,34,28,0,16,24,20,18,62,16,16,0,62,2,30,32,32,34,28,0,56,4,2,30,34,34,28,0,0,09,189,25,9,69,9,17,38,145,38,232,198,7,16,235,96,141,191,8,142,192 8,140,193,8,201,160,144,11,201,191,176,7,41,31,133,8,32,60,8,173,191,8,174,192,8,172,193,8,76,240,253,160,115,169,8,208,4,160,240,169W*253,174,9,191,224,76,208,12,174,15,191,208,7,140,48,190,141,49,190,96,132,54,133,55,76,234,3,145,49,81,17,0,0,0,32,76,231,134,8,324190,222,165,8,10,10,10,170,202,160,255,132,6,165,6,73,255,133,6,208,6,232,169,0,157,25,9,32,177,0,201,34,240,31,73,48,201,10,144,8a>105,152,201,16,144,2,169,0,36TEMP)RG(0):TEMP25318906"NTEMP253İ2400:1890N"XTEMP2532420,2430\"b1700:::s"l TRANSFER A TO B"v:RG(1)RG(0):1700:::" TRANSFER B TO A":RG(0)RG(1):2190:::" ROTATE 'A' RIGHT THROUGH CARRY5#:TEMP8FG(7):FG(7)(OAD ACCUMULATOR IMMEDIATE=!:1700:RG(0)AD(AD):2190:::`!& LOAD ACCUMLATOR FROM MEMORY!0:1700:TEMPAD(AD):1700:TEMPTEMP16AD(AD):RG(0)AD(TEMP):2190:::!: STORE ACCUMULATOR TO MEMORY"D:1700:TEMPAD(AD):1700:TEMPTEMP16AD(AD):AD(1320 2760:K2K6ıy AD(AD)11800,1820,1840,1860,1910,1930,1950,1970,1990,2010,2030,2050,2080,2110,2140,2170 2980:2900:1750 :::::  ADD ROUTINE :RG(0)RG(0)RG(1):FG(7)(RG(0)15):RG(0)RG(0)16(RG(0)15):2190:::! L:1400:AD0:2980:2900:FG(2)0:14002^:::::Ch INCREMENTZr:(FG(0))FG(4)ır|FG(3)1:1420:17002980:2900FG(3)0:1420:::::ADAD1:AD255AD0::::: RUN((FG(0)))FG(4)ı FG(4)1:1440:FG(1)1:1340:FG(0)İ2880:2980:2900::IT0255:AD(IT)0:vM07:AL(M,0)0:FG(M)0:1220::FG(8)0:OT0:AD(253)0"1200:1320:1340:1400:1420:1440:1460:1480,D03:DT(D,0)0:1360:6:::::@ BEGINJ:(FG(0))FG(4)ı'TFG(2)1 INDICATE RUN6HCHAR,14,33,31FG(4),1,0::::::M INDICATE HALTrHCHAR,16,33,31FG(5),1,0:::::: INDICATE LOADHCHAR,18,33,31FG(6),1,0:::::: END:FG(0)ı:::::::::: POWER!:FG(0)(FG(0))::F DATA LAMPSBPHCHAR,11,DT(D,1),28DT(D,0),1,0::::::SZ SWITCHESdHCHAR,15,SW(S,1),26SW(S,0),1,0::::::n INDICATE BEGINxHCHAR,10,33,31FG(2),1,0:::::: INDICATE INCREMENTHCHAR,12,33,31FG(3),1,0:::::: 28,8420,89:$28,8218,78:731,8031,70:J33,8246,78:] 33,8442,89:t11:5:"<":::::: BUSY LAMP(HCHAR,15,7,28FG(1),1,0::::::2 POWER LAMP AND SWITCH<HCHAR,17,7,28FG(0),1,0:HCHAR,19,7,26FG(0),1,0:::::4:::::: OUTPUT LAMP7HCHAR,0,1,28OT,1,0:K MEMORY LAMPSvHCHAR,4,AL(M,1),28AL(M,0),1,0:::::: SHOW ROTARY SWITCHRSRS(0):0:RS11250,1260,1270,1280,1290:RSRS(1):3:1300:RS11250,1260,1270,1280,1290:RS(0)RS(1)::".1'/";(34);"&$."+L11:36:"!$%'*"CV13:36:"'*";(34)V`15:36:"-0*"jj17:36:"& (/"~t19:36:"(+ #"~::::: DRAW BOXES:3 8B14,7B247(B3B1)4,7B247(B3B1)4,7(B2B4)48B14,7(B2B4)48B14,7B2Ȣ10:1:"&";:9:" ":13:1:"(";:9:"!"51240N20,9616,10020,104g44,9648,10044,1041320:16:1:"!0.2"$1340:18:1:",+1$-".10:14:"9";:18:"7";:22:"5";:26:"4";8IT14264:15:IT:"4":17:IT:"3":B19:165:B318:B47:1170'S03:1380:I1400:1420:1440:1460:1480sPRNT:1:13:"* *+,-+";(34);"$..+-"2:1:"+0/"3:5:"459";:10:"87";:14:"65";:18:"48";:22:"9";:26:"7";:30:"5";:34:"4";6:19:" ##-"+8:5:")":,159,166,172,177,182,187,192,197,202,206,210,214,218,222,225,228,231,234,237,241,243,246,248,9999{f DRAW FRONT PANELp::z1200B12:B23:B333:B44:1170M07:1220:B110:B211:B316:B43:1170D03:1360:B19:B21,6,208,4,10,10,10,10,29,25,9,157,25,9,76,213,8,232,138,41,7,240,7,169,0,157,25,9,240,243,76,177zH 0,0,0,0,0,0,0,0,0R 8,0,172,1,3,174,1,3,232,208,253,169,4,32,168,252,173,48,192,136,208,239,206,0,3,208,231,96c\ 74,85,95,105,115,125,134,143,151(RG(0)2)RG(0)2):RG(0)(RG(0)2)TEMP:2190:::Y# ROTATE 'A' LEFT THROUGH CARRY#:TEMPFG(7):FG(7)(RG(0)7):RG(0)2RG(0)16FG(7)TEMP:::# 'A' WITH 'B' #:2210:IT03:RG(0)RG(0)A(IT)B(IT)2(3IT)::2190:::$ 'A' WITH 'B'T$:2210:IT03:RG(0)RG(0)((A(IT)B(IT))0)2(3IT)::2190:::n$ 'A' WITH 'B'$:2210:IT03:RG(0)RG(0)(A(IT)B(IT))2(3IT)::2190:::$ BRANCH ON ZERO$:FG(8)1İ2170:$ 1700:1700:1700:::% BRA2N :2X IT151152b XTIT:ET$(XT)" "3200=2l ITC2v :i2 FL$"":IT1XT:FL$FL$ET$(IT):o2 :{2 DR$"1"2 14:10:"DRIVE: "DR$2 14:17:IN$:IN$""32402 IN$"1"IN$"2"IN$CR$IN$ESC$ĺBL$;:32402 IN$CR$DR$IN$ 3 IN$:IN$""(IN$)963080.1 IN$ESC$ıI1 IN$LF$HZHZ1:30601& IN$RT$(HZ1(ET$(1)A$ET$(1)Z$))HZHZ1:306010 IN$CR$ET$(1)" "31601: IN$A$IN$Z$HZ1IN$" "IN$CM$HZ1ĺIN$;:ET$(HZ)IN$:HZHZ1:30602D BL$;:30804):1220:::::::I0 CONVERT FROM BINARY ADDRESS DISPLAY TO ADDRESS{0 AD0:IT07:ADADAL(IT,0)2(7IT):::::::0 FILE NAME ENTRY0 :10:1:IT115:ET$(IT)" ":0 "ENTER FILE NAME:"0 HZ10 HZHZ(HZ1)(HZ15)0 12:HZ31D03:DT(D,0)NB(D):1360:::>/h NB16(AD16(AD16)):P/r NB(AD16):`/| NBAD(AD):o/ NBRG(0):/ NBRG(1)::::::/ CONVERT ADDRESS TO BINARY AND DISPLAY/ 2930:2820:M03:AL(M,0)NB(M):1220:0 2920:2820:M47:AL(M,0)NB(MRT BINARY ARRAY TO NIBBLEK., NB0:BI03:NBNBNB(BI)2(3BI):::::::f.6 RANDOMIZE REGISTERS.@ :RG(0)((1)15)1:RG(1)((1)15)1:AD((1)255)1:AD(AD)((1)15)1::::::.J DISPLAY DATA.T RS(1)12920,2930,2940,2950,2960:2820!/^ 40,1610,1650,1730,2230,2280,2470,2470,2500,2500,2530,2530,2530,2530,2560,2650Z- :::::l- DELAY LOOP- :DI1300:::::::- CONVERT NIBBLE TO BINARY ARRAY- BI03:NB(BI)0:X2(3BI):NBXNB(BI)1:NBNBX- - :::::." CONVE.."",x D$;"OPEN ";FL$;",D";DR$7, D$;"CLOSE ";FL$V, D$;"DELETE ";FL$;",D";DR$s, D$;"OPEN ";FL$;",D";DR$, D$;"WRITE ";FL$:IT0255:AD(IT):, D$;"CLOSE ";FL$, 880::::::, RESPONSE TO KEYPRESS, K0:3300:K0ıO- K1500,15RIFY ";FL$;",D";DR$2+( D$;"OPEN ";FL$;",D";DR$Z+2 D$;"READ ";FL$:IT0255:AD(IT):o+< D$;"CLOSE ";FL$+F 880::::::+P SAVE FILE+Z (FG(0))FG(4)ı+d ER2:::1:5::" SAVE A MEMORY FILE "::3030:IN$ESC$İ880:,n 14:20:"SAVING.4):RS(1)RS(0)1240:FG(0)2900.* :::::@* SWITCHES d* SK12:SW(S,0)(SW(S,0)):1380o* :::::* LOAD FILE* (FG(0))FG(4)ı* ER1:::1:5::" LOAD A MEMORY FILE "::3030:IN$ESC$İ880:* 14:20:"LOADING..."+ D$;"VETP,TN%(AD(254)):SOUND:C)~ 768,8:TP,TN%(AD(255)16):SOUND:f) M03:NB(M)DT(M,0)::2860:q) :::::) ROTATE SWITCH LEFT) RS(1)RS(1)(RS(1)0):RS(1)RS(0)1240:FG(0)2900) :::::) ROTATE SWITCH RIGHT#* RS(1)RS(1)(RS(1),2370:3010( FG(6)0:1480'($ ::T(. M47:AL(M,0)DT(M4,0):1220::3010:(8 M03:AL(M,0)DT(M,0):1220::3010:(B 2440:AD(AD)NB:AD253ı(L AD254İ2400:(V AD2532420,2430:(` AD(253)0OT1:1200:(j OT0:1200:)t 768,8:T'(FG(0)FG(4))ı1'FG(5)1:1460:2800W'FG(1)0:FG(4)0:1320:1440:2800v'FG(5)0:1460:2800::::::' LOAD':(FG(0))FG(4)ı'FG(6)1:1480'IT03:DIT:DT(D,0)SW(D,0):RS(1)3İ1360' ( RS(1)12350,2360,2370,2370MPAD(AD):1700:ADTEMP16AD(AD):::I& CHECK ZERO FLAG AND RETURNk&:1700:FG(8)(RG(0)0)::::::& SET UP FOR LOGIC INSTRUCTION&:NBRG(0):2820:IT03:A(IT)NB(IT)::NBRG(1):2820:IT03:B(IT)NB(IT)::RG(0)0:FG(7)0::::::' HALNCH ON NOT ZERO'% :FG(8)0İ2170:A%*1700:1700:1700:::\%4 BRANCH ON CARRY SETr%>:FG(7)1İ2170:%H1700:1700:1700:::%R BRANCH ON CARRY CLEAR%\:FG(7)0İ2170:%f1700:1700:1700:::%p UNCONDITIONAL JUMP'&z:1700:TE DR$;3 :::::>3 KEYBOARD SCAN FOR LEGAL CHARACTERSX3 :X(16384):X128ıv3 16368,0:X$((16384))3 K0:J117:(LG$,J,1)X$KJ3 3 :::::3 ERROR HANDLER4 X(222):3288:(X4)2(X5X6)3(X8)4(X9)5(X10d *********************9n * FREQUENCY BLENDER *Ux *********************j COPYRIGHT 1985 EMERALD VALLEY PUBLISHING CO. BY WILLIAM K. BALTHROP AND ROGER WOOD  HOME COMPUTER MAGAZINE VERSION 5.5.1 APPLE II d ***********%n * BUG-OUT *7x ***********L COPYRIGHT 1985p EMERALD VALLEY PUBLISHING CO. BY THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 5.5.1 APPLE II FAMILY APPLESOFTD$(4):CR$(13):SP$(32) ::15R 3430:"TOO MANY FILES ON DISKETTE.";:3440Z5\ 3430:"THE FILE IS LOCKED.";:3440:5f D$;"CLOSE"::20:1:" DISK ERROR - ";::BL$;BL$;::::5p :23:1:"PRESS RETURN TO CONTINUE...";5z 23:29:IN$:IN$CR$34505 ER2570,2660:::::)3380,3390,3400,3410,3420e4* ::10:1:"ERROR NUMBER "X" ";:"AT LINE "((218)(219)256)::::44 3430:"WRITE PROTECT TAB";CR$;" IS ON DISKETTE.";:3440:4> 3430:"FILE NOT FOUND.";:3440:5H 3430:"DISK DRIVE DOOR OPEN?";:3440:169,48,32,237,253,169,78,32,237,253,169,0,141,109,3,173,109,3,10,168,185,111,3,133,26,185,112,3,133,27,169,0,141,110,3,172,110,3,177,26,201,224,176,8,41,63,201 n#31,176,4,9,64,41,127,32,237,253,238,110,3,173,110,3,201,40,208,224,169,13,32,237,253,238,10 INITIALIZE SCREEN DUMP ROUTINE? 2# TO USE ENTER: CALL 768^ <#I768926:D:CCD:I,D: F#C15518ĺ"ERROR IN DATA STATEMENTS": P#(48905)76(48911)0Ĺ869,75:873,184 Z# d#169,0,133,54,169,193,133,55,169,9,32,237,253,169,56,32,237,253,********************";3 I121:"*"40)"*";:d "****************************************"; 8:4:"===HCM SCREEN DUMP DEMO===" 9000 5:12:"PRESS RETURN TO PRINT THE SCREEN" K$:K$(13)250 768::"THAT'S ALL FOLKS":" (#d ***************-n * SCREEN DUMP *Cx ***************X COPYRIGHT 1985| EMERALD VALLEY PUBLISHING CO. BY RANDY THOMPSON HOME COMPUTER MAGAZINE VERSION 5.5.1 APPLE II FAMILY APPLESOFT :"********************10OF:I 6J4 @TA0:I14:TATA(AMP(I)): J0,130:I0279:I,(FQ(1,I)(AMP(1)TA)FQ(2,I)(AMP(2)TA)FQ(3,I)(AMP(3)TA)FQ(4,I)(AMP(4)TA))25130: TK$: ^20J:"FREQUENCY #";J;"=";FR(J);" AMP=";AMP(J); hJ4ĺ rHOW MANY CYCLES OF THE LOWEST FREQUENCY DO YOU WISH TO SEE DISPLAYED: ":"CYCLES: ";CY:CYCY2.28571429 F(F)(I(FR(F)(.01(FMCY)(AMP(F))))) "::3:J14 ,FR(J)0İ350:OF20(25(J1)):0,20(25(J1)):I0279:FQ(J,I)F(J):I,FQ(J,I)FAMILY APPLESOFT% (104)64230A 104,64:103,1:16384,0\ (4);"RUN FREQ.BLEND" ::FQ(4,279):I14:"ENTER FREQUENCY #";I;:FR(I):"ENTER AMPLITUDE:";:AMP(I): FR(I)0FM0FMFR(I):260 FR(I)FMFR(I)0FMFR(I) i :"10);"HCM BUG-OUT PROGRAM"::"BEFORE USING, LIST PROGRAM TO DISK WITH"::"CAPTURE";::" PROGRAM -- ALSO INCLUDED IN THIS ISSUE" 8:1:"PLACE DISK IN DRIVE 1, THEN ":"INPUT FILENAME: ";:"";FL$:FL$""210 380 D$;"VERIFY ";FL$;",D1" ER MAGAZINE 190 REM VERSION 5.5.1 200 REM APPLE // FAMILY APPLESOFT 210 TEXT : HOME : FLASH : FOR Z = 6 TO 8: VTAB Z: HTAB 6: PRINT SPC( 31): NEXT : NORMAL : VTAB 7: HTAB 7: PRINT " THE PLAINS OF SALISBURY " 220 IF PEEK (104) = 64 THEN 250 230 100 REM **************** 110 REM * THE PLAINS * 120 REM * OF SALISBURY * 130 REM **************** 140 REM COPYRIGHT 1985 150 REM EMERALD VALLEY PUBLISHING CO. 160 REM BY WILLIAM K. BALTHROP 170 REM AND THE HCM STAFF 180 REM HOME COMPUT9,3,173,109,3,201,24,208,189,169,189,133,54,169,158,133,55,96,0,0,0,4,128,4,0,5,128,5,0,6,128,6,0,7,128,7,40,4,168,4,40,5,168,5,40,6 x#168,6,40,7,168,7,80,4,208,4,80,5,208,5,80,6,208,6,80,7,208,7 L80:I010::3::J0805:LL((1).5)(L((1)160)):K160L:J,80K,K80,JL,K160J,80L,L80,160JK,LJ,80:J:23:"PRESS ANY KEY";:A$:I LOSE ";FL$" "*** DONE ***":d D$(4)s:"PLACE DISK IN DRIVE 1":"LIST TO WHAT FILE NAME (NOT SAME NAME AS PROGRAM FILE NAME!)":FL$D$;"OPEN ";FL$;",D1"D$;"CLOSE ";FL$D$;"DELETE ";FL$;",D1"D$;"OPEN ";FL$;",D1"D$;"WRITE ";FL$100 D$;"CI,1)):C1C1CH/ I2(I2)CKCKCHK:530< CKCKCHe I:CK(CK)C1:I(CK26):CKCKI26x OT$(65CK):60$ FL$" IS NOT ON DISK":470F "I/O ERROR-CHECK DRIVE":470i "ILLEGAL FILE NAME-TRY AGAIN" 3288:"PRESS ANY KEY TO CONTINUE":K$: "ERROR #";EN;" DETECTED AT LINE ";EL:"TRY STARTING AGAIN."  CK0:C10:I1(A$):CH((A$,$,1)SP$A$(A$,(A$)1)6 hLN(A$):B$(LN):500U rSP$B$SP$OT$:A$"":290 |216,0:EN(222):EL(218)(219)256 EN5430 "*** DONE *** WITH ";FL$ D$;"CLOSE ";FL$ D$;"PR#0": ((EN5EN6)2(EN8)3(EN16))440,450,4D$;"OPEN ";FL$;",D1"_ 11:1:"OUTPUT TO: 1. SCREEN":" 2. PRINTER IN SLOT 1"z K$:K$"1"K$"2"260 K$:K$"1"290 D$;"PR#1" "D$;"READ ";FL$ ,C$ 6C$""300 @C$CR$340 JA$A$C$:300 TA$""300 ^(A POKE 104,64: POKE 16384,0 240 PRINT CHR$ (4);"RUN PLAINS" 250 DIM L(2,6,5),P$(2),M$(4),R(2),M(2),S%(24),C%(6): ONERR GOTO 2090 260 DEF FN F1(N) = L(P,N,1) + 1: DEF FN F3(N) = L(P,N,2) - (Q - 1) * 40 270 P = 1:P2 = 2:Q = 0:M(1) = 0:M(2) = 0:PRNT = 2(N): PRINT CHR$ (L(P,N,5)) 750 L(P,N,5) = C:L(P,N,1) = L(P,N,1) + U:J = J - H:L(P,N,3) = L(P,N,3) - H: IF L(P,N,3) < = 0 THEN L(P,N,3) = 0:R(P) = R(P) - 1: GOSUB 780: GOTO 930 760 VTAB FN F1(N): HTAB FN F3(N): PRINT N: NORMAL : IF G < > 0 THEN GOSUB U = - 1: GOTO 720 680 Z = 18: GOTO 720 690 U = - 1: GOTO 790 700 Z = 120: GOTO 790 710 GOSUB 1480: GOTO 570 720 IF L(P,N,1) = Z THEN 570 730 C = PEEK (S%( FN F1(N) + U) + FN F3(N)):G = 0: GOSUB 880: IF H > J THEN 570 740 VTAB FN F1(N): HTAB FN F310); 610 FL = 0: IF L(P,N,5) = 196 THEN L(P,N,4) = 4 620 GOSUB 1400 630 IF A$ = " " THEN HOME : GOSUB 1360: GOTO 570 640 FOR K = 1 TO 6: IF MID$ (D$,K,1) < > A$ THEN NEXT 650 Z = 1:U = 1: IF K > 6 THEN 620 660 ON K GOTO 670,680,690,700,710,930 6700 VTAB 21: HTAB 1: CALL - 958: PRINT "PLAYER = ";: INVERSE : PRINT " "P$(P)" ";: NORMAL : HTAB 26: PRINT "MOVEMENT PHASE": PRINT "KNIGHT = ";: IF P = 2 THEN INVERSE 600 PRINT "#"N: NORMAL : PRINT "MOVES = ";J; TAB( 27)"STRENGTH = "; INT (L(P,N,3) / ,N,3) < = 0 THEN 930 550 L(P,N,3) = L(P,N,3) + 5: IF FL < > 1 THEN J = 9 560 IF L(P,N,3) > = 100 THEN L(P,N,3) = 99.9 570 IF J < = 0 OR L(P,N,3) < = 0 THEN 930 580 S = INT ((L(P,N,2) - 1) / 40) + 1: IF S < > Q THEN Q = S: GOSUB 1630: GOSUB 1430 59 0 OR R(2) = 0 THEN 1530 500 GOSUB 1110: IF R(1) = 0 OR R(2) = 0 THEN 1530 510 FOR Z = 1 TO 5: CALL SOUND,255: CALL SOUND,170: CALL SOUND,125: NEXT 520 N = 1:P2 = P:P = ABS (P - 3): GOTO 490 530 REM *** MOVEMENT PHASE *** 540 FOR N = N TO 6: IF L(P,Z,2):L(1,Z,4) = 4:L(2,Z,4) = 4:L(1,Z,3) = 99.9:L(2,Z,3) = 99.9: NEXT :R(1) = 6:R(2) = 6 470 HOME : HGR : HCOLOR= 1: CALL PRNT: FOR Z = 3 TO 6: HPLOT 0,Z TO 279,Z: HPLOT 0,Z + 151 TO 279,Z + 151: NEXT 480 REM *** MAIN LOOP *** 490 GOSUB 530: IF R(1) =+ Z: GET A$: IF A$ = CHR$ (8) AND Z < > 1 THEN PRINT A$"XX"A$;:Z = Z - 2: NEXT 440 IF A$ < "1" OR A$ > "3" THEN A$ = "X": PRINT CHR$ (7)A$:Z = Z - 1: NEXT 450 PRINT A$:B(Z) = VAL (A$): NEXT 460 FOR Z = 1 TO 6: READ L(1,Z,1),L(1,Z,2),L(2,Z,1),L(2 IF A$ = "" OR P$(1) = P$(2) THEN PRINT CHR$ (7);: GOTO 400 410 VTAB 17: PRINT "ENTER MAP ARRANGMENT USING 1, 2, AND 3. EXAMPLES: 123, 231, 312, AND 212" 420 VTAB 20: HTAB 10: PRINT "ENTER ARRANGEMENT : XXX"; 430 FOR Z = 1 TO 3: VTAB 20: HTAB 29 S = 100: GOTO 490 390 N = 1: VTAB 11: HTAB 1: CALL - 958: PRINT : HTAB 7: INPUT "BLACK KNIGHT'S NAME : ";A$:P$(1) = LEFT$ (A$,10): IF A$ = "" THEN PRINT CHR$ (7);: GOTO 390 400 VTAB 14: HTAB 7: INPUT "WHITE KNIGHT'S NAME : ";A$:P$(2) = LEFT$ (A$,10):AND A$ < > CHR$ (13) THEN 350 360 VTAB 15: PRINT " LOAD AN OLD GAME FROM DISK ?N (Y/N)"; 370 VTAB 15: HTAB 32: GET A$: PRINT A$: IF A$ < > "Y" AND A$ < > "N" AND A$ < > CHR$ (13) THEN 370 380 IF A$ = "Y" THEN GOSUB 1920: GOSUB 1630: GOSUB 1430:NT "DATA ERROR" CHR$ (7): END 330 FOR Z = 2326 TO 2374: READ K: POKE Z,K: NEXT Z: RESTORE 340 VTAB 13: PRINT " DO YOU WANT SOUND EFFECTS ?Y (Y/N)" 350 VTAB 13: HTAB 32: GET A$: PRINT A$: POKE 2064,48 * (A$ < > "N"): IF A$ < > "Y" AND A$ < > "N" THEN PD = 1 300 IF PEEK (64435) = 6 THEN VTAB 11: HTAB 4: PRINT "* MAKE SURE CAPS LOCK KEY IS DOWN *" 310 FOR Z = 1 TO 900: READ A$: IF VAL (A$) < > 9999 THEN NEXT 320 FOR Z = 2048 TO 2245: READ K: POKE Z,K: NEXT : READ K: IF K < > 9999 THEN PRI048:OFF = 2051:SOUND = 2054:D$ = "IMJK" + CHR$ (27) + CHR$ (13):M$(1) = "LEFT":M$(2) = "MIDDLE":M$(3) = "RIGHT" 280 FOR Z = 1 TO 23: VTAB Z: HTAB 1:S%(Z) = PEEK (41) * 256 + PEEK (40) - 1: NEXT 290 PD = 0: IF PEEK (48905) = 76 AND PEEK (48911) = 0 950 770 GOTO 570 780 VTAB 21: HTAB 1: CALL - 958: PRINT "<<< KNIGHT DIED FROM EXAUSTION >>>": FOR TD = 1 TO 1000: NEXT : RETURN 790 IF L(P,N,2) + U = 0 OR L(P,N,2) + U = 121 THEN 570 800 IF FN F3(N) + U > 0 AND FN F3(N) + U < 41 THEN 830 810 IF J < = 0 THEN 570 820 Q = Q + U:E = 1: GOSUB 1630: GOSUB 1430 830 C = PEEK (S%( FN F1(N)) + FN F3(N) + U):G = 0: GOSUB 880: IF H > J THEN 570 840 IF E < > 1 THEN VTAB FN F1(N): HTAB FN F3(N): PRINT CHR$ (L(P,N,5)) 850 E = 0:L(P,N,5) = C:L(P,N,2) = L"*** A HIT ***" 1350 FOR Z = 1 TO 6: CALL SOUND,255: NEXT : FOR K = 1 TO 6: CALL SOUND,175: NEXT : GOTO 1120 1360 REM *** SCREEN MENU *** 1370 X = Q: VTAB 21: HTAB 1: CALL - 958 1380 VTAB 23: HTAB 4: PRINT "PRESS (1-3) OR ANY KEY TO CONTINUE";: GOSUB / (F + 1)) * .5: IF L(P2,Z,3) > 0 THEN 1340 1320 M(P) = M(P) + 50: HTAB 8: PRINT "<<< YOU DESTROYED THEM >>>":R(P) = R(P) - 1 1330 X = P:P = P2: VTAB FN F1(Z): HTAB FN F3(Z): PRINT CHR$ (L(P,Z,5)):P = X: GOTO 1350 1340 M(P) = M(P) + 10: HTAB 15: PRINT F L(P2,Z,1) = Y AND L(P2,Z,2) = X AND L(P2,Z,3) > 0 THEN 1300 1290 NEXT : HTAB 8: PRINT "<<< YOU MISSED >>>";: GOTO 1120 1300 VTAB 22: CALL - 958: VTAB 23:F = L(P2,Z,5) - 191: IF F < 1 OR F > 5 THEN 1120 1310 L(P2,Z,3) = L(P2,Z,3) - ( RND (1) * L(P,N,3) = X - 1: GOTO 1260 1250 X = X + 1 1260 IF L(P,N,4) < = 0 THEN VTAB 21: CALL - 958: VTAB 22: HTAB 9: PRINT "<<< OUT OF ARROWS >>>": GOTO 1350 1270 FOR K = 10 TO 220 STEP 20: CALL SOUND,K: NEXT :L(P,N,4) = L(P,N,4) - 1:C%(N) = 1 1280 FOR Z = 1 TO 6: I;: GOSUB 1400: IF A$ = " " THEN GOSUB 1360: GOTO 1190 1200 FOR K = 1 TO 6: IF MID$ (D$,K,1) < > A$ THEN NEXT : GOTO 1120 1210 X = L(P,N,2):Y = L(P,N,1): ON K GOTO 1220,1230,1240,1250,1120,1120 1220 Y = Y - 1: GOTO 1260 1230 Y = Y + 1: GOTO 1260 1240 XR A$ > "6" THEN 1120 1170 N = ASC (A$) - 48: IF C%(N) < > 0 OR L(P,N,3) < = 0 THEN CALL SOUND,150: GOTO 1120 1180 S = INT ((L(P,N,2) - 1) / 40) + 1: IF S < > Q THEN Q = S: GOSUB 1630: GOSUB 1430 1190 VTAB 24: HTAB 1: PRINT "DIRECTION TO FIRE (IJKM)"58: PRINT "PLAYER = ";: INVERSE : PRINT " "P$(P)" ";: NORMAL : HTAB 28: PRINT "COMBAT PHASE" 1130 VTAB 23: PRINT "CHOOSE UNIT # (1-6) : ";: GOSUB 1400: PRINT A$; 1140 IF A$ = CHR$ (13) THEN RETURN 1150 IF A$ = " " THEN GOSUB 1360 1160 IF A$ < "1" OURN 1080 FOR K = 1 TO 1700: NEXT : RETURN 1090 FOR K = 255 TO 5 STEP - 7: CALL SOUND,K: NEXT : FOR K = 5 TO 255 STEP 7: CALL SOUND,K: NEXT : RETURN 1100 REM *** COMBAT PHASE *** 1110 FOR Z = 1 TO 6:C%(Z) = 0: NEXT 1120 VTAB 21: HTAB 1: CALL - 9< "P$(P)" WINS >>>":M(P) = M(P) + 50:R(P) = R(P) - 1: GOSUB 1090: RETURN 1060 PRINT CHR$ (L(1,N,5)): VTAB 22: HTAB 10: PRINT "<<< BOTH KNIGHTS LOOSE >>>":R(1) = R(1) - 1:R(2) = R(2) - 1 1070 GOSUB 1080: FOR K = 5 TO 255 STEP 5: CALL SOUND,K: NEXT : RET = 0 THEN 1060 1020 IF P = 1 THEN INVERSE 1030 PRINT A: NORMAL : VTAB 22: HTAB 13: PRINT "<<< "P$(P2)" WINS >>>":M(P2) = M(P2) + 50:R(P2) = R(P2) - 1: GOSUB 1090: RETURN 1040 IF P = 2 THEN INVERSE 1050 PRINT N: NORMAL : VTAB 22: HTAB 13: PRINT "<<2 + 1):L(P2,A,3) = L(P2,A,3) - ( RND (1) * L(P,N,3) * .2 + 1) 980 IF L(P,N,3) > 0 AND L(P2,A,3) > 0 THEN 970 990 VTAB 21: HTAB 1: CALL - 958: VTAB FN F1(N): HTAB FN F3(N): IF L(P,N,3) > 0 THEN 1040 1000 IF L(P,N,3) > 0 THEN 1040 1010 IF L(P2,A,3) < TO 10 STEP - 15: CALL SOUND,Z: NEXT : RETURN 940 REM *** HAND TO HAND COMBAT *** 950 VTAB 21: HTAB 1: CALL - 958: PRINT : HTAB 8: PRINT "<<< HAND TO HAND COMBAT >>>" 960 A = G - 48 - 128 * (P = 2) 970 L(P,N,3) = L(P,N,3) - ( RND (1) * L(P2,A,3) * .ETURN 900 IF (P = 1 AND C > 176) OR (P = 2 AND C < 60) THEN H = 100: RETURN 910 G = C:C = L(P2,C - 48 - 128 * (P = 2),5):H = C - 191: IF H < = J THEN H = J 920 RETURN 930 CALL SOUND,255: FOR Z = 1 TO 400: NEXT : POKE - 16368,0: NEXT N: FOR Z = 250 (P,N,2) + U:J = J - H:L(P,N,3) = L(P,N,3) - H: IF P = 2 THEN INVERSE 860 VTAB FN F1(N): HTAB FN F3(N): PRINT N: NORMAL : IF G < > 0 THEN GOSUB 950 870 GOTO 570 880 IF C > 191 AND C < 197 THEN H = C - 191: RETURN 890 IF C = > 197 THEN H = 100: R 1400: IF A$ < "1" OR A$ > "3" THEN HOME :Q = X: GOSUB 1630: GOSUB 1430: RETURN 1390 HOME :Q = ASC (A$) - 48: GOSUB 1630: GOSUB 1430: VTAB 21: HTAB 12: PRINT "MAP SEGMENT : ";M$(Q): GOTO 1380 1400 POKE - 16368,0 1410 K = PEEK ( - 16384): IF K < 128 THEN 1410 1420 CALL SOUND,100: POKE - 16368,0:A$ = CHR$ (K - 128): RETURN 1430 B = (Q - 1) * 40 + 1:D = Q * 40:Z = P 1440 FOR P = 1 TO 2: FOR V = 1 TO 6: IF L(P,V,2) < B OR L(P,V,2) > D OR L(P,V,3) < = 0 THEN 1460 1450 L(P,V,5) = PEEK (S%( FN F1(V))AB 21: CALL - 958 1490 IF A$ = "S" THEN 2010 1500 IF A$ = "E" THEN 1530 1510 IF A$ = "R" THEN RETURN 1520 GOTO 1480 1530 TEXT : HOME : VTAB 4: PRINT " KNIGHT # STRENGTH REMAINING ---------------------------------------": PRINT : PRINT T + FN F3(V)): VTAB FN F1(V): HTAB FN F3(V): PRINT V 1460 NEXT V: INVERSE : NEXT P: NORMAL :P = Z: RETURN 1470 REM *** SAVE/EXIT MENU *** 1480 VTAB 21: HTAB 1: CALL - 958: VTAB 22: HTAB 10: PRINT "S)AVE E)XIT R)ETURN ?";: GET A$: PRINT A$: VT