"/|(L$,23)3)" ":1000EAN$:AN$""1670S882:225t ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)"" (L$,16)1)""Q1(L$,23)3)" ":1000x6I15:(L$,8I)3)""IN$(H,I):@AN$:AN$""4160JAN$(13)882:204TH3H4H5H6H21H23882:1550^AN$(32)ROM ALE UPERT'S COLUMN OEBIUS"  "LOTTER DRAWS A STRIP WITH THREE "H "HALF TWISTS. "l " " " " PROGRAM #6 "NOTHER UPERT'S PROGRAM. UNCTION" < P$(13)"ASCAL ABELS"F P$(14)"ARC-"3P P$(15)"INE ANYON OOT"PZ P$(16)"OGCATCHER OOT"md P$(17)"AST INJA OOT"n P$(18)"RAPPED"x P$(19)"PEECH64" P$(20)"ULTI AM" P$(21)"UEL-UMP 128" P$(22)"ATCHBLOCKS" NTUROUS" r "READERS WHO LIKE TO TYPE IN THE".s "PROGRAMS FROM OUR MAGAZINE."8t " "Iy PROGRAM #2sz "HIS IS HOY!'S CHECKSUM PROGRAM."{ "SE IT FOR MISTAKE PROOF TYPING"| "OF HOY! MAGAZINE BASIC PROGRAMS."} "  EPS"! "TRACK OF THE NO. AND POSITION." " PROGRAM #104""HOY'S OMMODARES. HIS IS A SIMPLE"[""ADJUSTABLE METRONOME SIMILATION"""WITH SOUND AND GRAPHICS. HE SPEED"""IN BEATS/MINUTE ARE DISPLAYED."""  L$,6)11)"EE NSTRUCTIONS"2(L$,7)11)"UN ROGRAM "X(L$,8)11)"ANCEL INDOW "~ (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55 882:230h4160I828935:A:I,A::- 160,0,185,0,4,153,0,192Q 185,0,216,153,240,195,185,250u 4,153,250,192,185,250,216,153 234,196,185,244,5,153,244,193 185,244,217,153,228,197,185,238 6,153,238,194,185,238,21 "LOTTER ALLOWS YOU TO DEFINE A " "FUNCTION IN LINE 530 AND PLOT "? "ITS GRAPH. "c " "t PROGRAM #7 "HOY'S OMMADARES. HE PROGRAM" "ALLOWS THE USER TO ENTER A LINE" "NO. A P$(23)"ARIABLE GR 128" P$(24)"COMAL 64 BOOT"" S CL819:(L$,CL)14)" ":l (L$,P)10)" ":657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTORE " ~ " " PROGRAM #3G "HIS IS HOY!'S CHECKSUM PROGRAM"o "FOR THE C-128 COMPUTER. SE IT " "FOR MISTAKE-PROOF MAGAZINE BASIC" "PROGRAM ENTRY. " "  "" PROGRAM #11#"HOY'S OMMODARES. HE PROGRAM "-#"CALCULATES LARGE OBJECTS. HE"W#"PROGRAM RUNS RATHER SLOW. IVE IT "{#"SOME TIME. "#" "# PROGRAM #12#"ROM HERYL ETE587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160zbH3 H4 H5 H6 H21 H23 882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP." P$(8,153 222,198,200,208,205,96,160,0& 185,0,192,153,0,4,185,240J 195,153,0,216,185,250,192,153n 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,218ND ANY KEYSTROKES. HE PROGRAM"  "CONVERTS IT TO A PRINT STATEMENT "=  "AND ADDS IT TO THE PROGRAM."N  PROGRAM #8v  "HOY'S OMMADARES. HE COMPUTER"  "SELECTS A 4 DIGIT CODE WITH NO"  "NUMBERS ALIKE. HE USER TRIES TO"  "L$"":PT$"=>":828W(L$,8)1)""I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",( " PROGRAM #4 " I-ES 128 DEMO FROM ARK"= "NDREW'S COLUMN. T CONTAINS 2 "g "ROUTINES,1 FILLS THE SCREEN WITH " "COLOR,THE OTHER DRAWS A BOX. LOAD" "'DEMO.O'-THEN YS 4864 OR 4867" PROGRAM #5 ""RSON'S COLUMN."#"HIS IS A COMAL VERSION OF LAST"%$"MONTHS LABEL PROGRAM. HE OMAL"O$"SYSTEM SUPPLIED ON THIS DISK MUST "x$"BE LOADED FIRST. "$ PROGRAM #13$"ROM HERYL ETERSON'S COLUMN."$"HIS IS A COMAL3)"128 UG EP." P$(4)"DEMO.O"- P$(5)"OEBIUS LOT 128"J P$(6)"UNC LOTTER 128"b P$(7)"RINT AKER"} P$(8)"ENERIC AME 1" P$(9)"ENERIC AME 2" P$(10)"EAT EEPER"( P$(11)"ARGE RODUCT"2 P$(12)" ABELS" 200,208,205,96 ---------------------------8 ** MAX OF 33 CHRS IN LENGTH **Z ---------------------------} I124:X15:IN$(I,X):::o PROGRAM #1p "HIS IS HOY!'S MACHINE LANGUAGE "q "ENTRY PROGRAM FOR OUR ADVEGUESS THE NUMBER. HE COMPUTER KEEPS"! "TRACK OF THE NO. AND POSITION."+! PROGRAM #9S! "HOY'S OMMADARES. HE COMPUTER"z! "SELECTS A 4 DIGIT CODE WITH NO"! "NUMBERS ALIKE. HE USER TRIES TO"! "GUESS THE NUMBER. HE COMPUTER KE00!!$$bbHHO <FEDpp C!!! <:4000*P P$(25),IN$(25,5):5000Sd53280,2:53281,0:(14):2500:5900\x800yH1:G0:L8:LC55590:P8I819:GG1:(L$,I)14)""P$(G):F(P$(H)):I0F:LCI,7::1000(L$,P)10)PT$AN$:AN$""206 AN$( DĎb@? ఘ333? `` "4 f(L$,4)10)""U p10)" "v z10)""|  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: (L$,P)10)" | !! '%   ?17)1250 AN$(145)1300/ AN$(13)2000O AN$(32)G243000:140{ AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(34);",8" eg DD((DDDD K!BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0#(L$,20)2)" ?(L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"TT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)")4)""P"(L$,14)4)" HIS IS A 128 ROGRAM.T MAY ",(L$,15)4)" NOT BE LOADED IN THE 64 MODE."6(L$,16)4)" OU MUST SWITCH TO THE 128 "@(L$,17)4)" MODE IN ORDER TO LOAD THIS " J~~33 ``  Ƈ0xxx "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr??{3?IIIIIy$$$ ?>< ??? ```8``|8a`????????8I#qXHHςpHHp!! PcefRSWX @|>|>><||?qa'$$$'  ? ``??????8xx"6*"""HIHHH1""??????!! ?aaa```aa`8????????0IIx Xq  >> ?~ >???????xxxxxxxχ?" "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8|x????????H PHE8@8??HI ~ ??????xxx????????8,$$, qIIqQ$$D0$y? !!!ఘ```ILENAMESDIVIDE'FILENAMES MAIN'MENUSELECT'AND'LOAD'PICPARTOVERXNUMNAMESLIMITMOVE'BAR CURSOR'RIGHTSELECTEDLOADITNAMEROWLOADEDPAGECRGNDSOPTIONGRID SHOW'NAMESCURSORMSGMAXMOVE'IT DIRECTIONNEW'ROWREVERSE SAVE'SCREENSAVE'CRG SCREENDUMP BY OLIN HOMPSON AND AVID TIDOLPH NE LOOK IN ALMOST ANY CLUB 64 DISK LIBRARY WILL REVEAL A MULTITUDE OF PICTURE DISKS. ANY OF THE DISKS CONTAIN "". ITMAPS ARE MONOCOLOR (BLACK AND WHITE) PICTURES 8000 BYTES LON"?ݟw? ?{{??g|> ឲ ^ߟ%? Ǐ??U**QUUU9f3LSe0x/TB92dɒ%J%#PUTR&&L3? UU*0TTC񠮭,y1a*U2g4H# 1gϞ8ATTPC?G??? ES. F A SINGLE BYTE 254 IS ENCOUNTERED, WE CODE 254, 254, 1. ANDOM PICTURES WILL NOT SHRINK MUCH, BUT MOST FILES ARE REDUCED BY 40-80% (MAKING THEM SMALLER AND FASTER IN LOADING). HIS PROGRAM ALLOWS YOU TO CONVERT OR BITMAPS TO COMPACTED  U),qU*>988?!*U*UULSTUd5MmD*U*U*TUUTUe5]M,~*U*U8<p??ߟUUUUUUUU,&WUUJ%UUUUUUUU&VVV PRINTSCREEN SAVE'COMPACTCKROIPRINT'ATM LOAD'COMPACTTOTALALPCOLSTRINGINIT'HIRES'SCREENSPACEMEMNUMDIVIDE'FILENAMES'INTO'3'PARTSINIT'VARIABLESSEQ DUMP'1525OLDZONECHAR'TO'PRINTERMLPOKERSASDAT INIT'PRINTERFREEJ%%%%%%%%%%%&&&&&& G (32 BLOCKS ON DISK). ORMALLY THEY TAKE 30 SECONDS TO LOAD INTO MEMORY. N OLUME 6, SSUE 4 OF THE RANSACTOR, HRIS AMARA PUBLISHED A MACHINE CODE PROGRAM TO SHRINK BITMAP PICTURES BY CODING THEM. E TOOK HIS IDEA AND WROTE A 0.14 MACHI|Ϟ0GƟ???ǟ??~))??Ù?ߟ?O3~>??+#'??߿Ϗgw߿|? ?? Ȓ%H?fKK`Α$JU$f3L'UQ$C C8eŔPf a?f1%JT! 8?'}fg? +o} { HOR CUR POS   BITMAPS, VIEW THE COMPACTED BITMAPS, AND UPDATE THE TWO FILES NEEDED BY THE PROGRAMS. AKE SURE TO UPDATE THE DIRECTORY FILE BEFORE TRYING TO COMPACT NEW BITMAPS. HERE ARE THREE 0.14 PROGRAMS ON THIS DISK THAT WORK TOGETHER TO ALLOW YOU TO CO\\\?PC`?*T$ϐd2~pUU 0UUUT VV5d͘e0p\\[ ~m Ѐ~CSSGGORTUc2N&%JUJTUU8cFT>\''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaNE CODE ROUTINE THAT DOES THIS. EMONSTRATION PROGRAMS, SAMPLE PICTURES, AND THE MACHINE CODE ARE ON THIS HOY DISK. HE IDEA OF COMPRESSION IS SIMPLE. UCH OF ANY PICTURE IS BLANK SPACE (ALL BYTES ON). O SHRINK THE BITMAP, THE BYTES ARE ENCODED. HEN Ċ*TU#iߟo/(O??ϟ?Rr*UUUQRI&NIД$J|>>?ss'?/mmuUQQ@?É*UU9g3aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaMPACT BITMAPS, VIEW COMPRESSED PICTURES, AND MAINTAIN A DATABASE OF THE PICTURES ON A GIVEN DISK. HE FILES " DIRECTORY" AND " COMPACT PIX" HOLD THE NAMES OF THE PICTURES ON THE DISK. RG('  )}$ p{ _Kefa1_(8f7lْ4%jIlv pCF| /:+T@A$B +B/B=+$ h/vj2i_ ERROR IN DATAeg/d`an_ PRINTER OKe`ao.ѡ @ H I. ȭAЭM  X`ě  /:  IF PEEK(680)=169 THEN RETURN "(ۅ ,0 6 (0 @/0= J( T h/2j ^_ REVERSE OKe`a h} r | p"{  }"  p`r1 ­­x),­ HX «dЭɭЭ֭ɭ@ЭЭ ԭ«"Ḽ­ͫԞ,­Э «6Эέ JJ8i!BʭLӫ:L)VVer`)j8t ~ -`ܥH PH e`a B,_# & COLIN THOMPSON e`a L*_! e`a V_`a `   j)_ INSERT THE COMPACT PIX DISK ANDefa t,$ PRESS THE SPACE BAR TO BEGIN  ~ K1  3 4,  $  t~ pJ|/:7B:B END 49946+aBC8 +8/8=+1h/s2i_ DATA ERROR!eg/d`ao_ COMPACT OKe`a  ADDR = 49664L ­L`­«( H " ɭ;*T4p>mH 𫥢R  \mڢfpr2{ 1) 11)G($': 1& 1% 2) }  p,Ҙrr3t4| ) )G($': & % &3) 0 _4e`a :}, D N p { X_KefKefa b ! l FG  ­L @­` ­ɭ(JЭ í`ɫDTЭ í `^í «|h` ҭr­ ҭ |­ ҭП ­`­ɫЭ xI*Xh`}C L0ݫcۘ&   0 lث  /' PLEASE WAIT WHILE THE CATALOG IS READ  }  ptu| .  C: }  p{  COMPACT PIX  < h00-iA  ):  ]76 (*/ 2E( 4 h]i 5 6 7o <ƭ2 ϭ4<ɭЭ ϭPF­ ϭlP ­«Z H­έ d­ЭL­n H­Lܜx­ЭɭЭڭzi ҫ(iD`ɭ@ЭyɭЭ ҭiʣɭ˭L# v}  p.t| hBL2i5  o  .CRG(  < ! FG   5 +"8PRESS F1 TO RETURN TO MENU# S h00-i B * B 4n > H R \o fҭ ҭ $ҭ` LAST ADDR = 49946} p<ʠ|>K_ K K(efa_Kefa @>K>K&}<0: p> t(r@{D@N_ixSӠ INIT'REVERSE INIT'COMPACTINITIALIZE'VARIABLESDISPLAY'TITLE'PAGE GET'F *E A )= FE P*ӕ ZǕ d nn x  -%THIS IS NOT A COMPACT PIX DISK   o }  pߗ| x) ז I ȭЭʭЫɭЭ ɭ@Эh0hḼ`L­ ɭhx)­ X؝ ­hh`ǫͭ4`MiJJJ𫂤i@櫷ʭLФ$Jj.AVE'COMPACTSPACEROWTOTALMEM SELECT'PICPIC'NAMEPICS PIC'NAMESEXTRAAATOPINFOLITQUIT LOAD'BITMAPLOAD'OBJ CHANGE'DISKSTARGET UPDATE'FILECOPEIS MORE POWERFUL VERSION OF 2.0 IS AVAILABLE IN A CARTRIDGE, WHICH WORKS WITH THE 64 AND THt DELETE "0:CRG14.FILEWRITER"? ML & DIR BY DAVID STIDOLPH COMAL BY COLIN THOMPSON SAVE "0:CRG14.FILEWRITER"(2<F  P Z dn p1{x < :} pيt{  &G0'K(~`njj U1: 2 0 18 0'K(~to~ < h -j34$'':3&4%}  p _r| : \7! ! =  ƭ-( ϭ t  DELETE "0:CRG14.VIEWER": BY COLIN THOMPSON & DAVID STIDOLPH SAVE "0:CRG14.VIEWER"(2_ WORKING...e`a<FPC 1525 PRINTER DUMPZ:dn po{  :  :  E NAMES OF BITMAP PICTURESe`ab1_( OR THE  COMPACT PIX FILE THAT HOLDSe`al/_& THE FILENAMES OF COMPACTED PICTURESe`av_`a_ ef(c`a3_* NSERT SOURCE DISK AND PRESS OR e`a_ ef(c`a7_. IRECTORY OR O  )-j:XD:bD:lD:v  Vu!CU h0i !):C:ou ՌCD h*i !':C:nь !:C:o u C: u C:* u4> u#H R6REVERSE wPKwSiSAVE CRG  w(2 <F p%{P hiZ"d<n"xo}% p${0:  )(.CRG('  )}$ p{ _Kefa1_( : q6: hi =  q'<oN h7iՊ_NO PIX ON THIS DISKe`a"o,}6@ p?t {J 0: (T  ^0h _ e`ar_ e`a|}3ȭЫI2 ̭`<} ϐ:HSEQDISKIDENTRYBAMCOUNTDIRX DISK'GET'INIT :    9 hj =hj  )D}" p:{,6@ !J FGT h r  |  :  :  : D:}: p{_efKefMPACT PIX e`a_ ef(c`a <CD6m hC-i .CRG<  COMPACT PIX<n׎ .HRG<  DIRECTORY< o_ef efe`a }*4puz|>  H  R: :B\I0~fR u6\"f uIp%z u\# u o$u hi  !_ef  )ef  'cfa ! &_ef  !)ef  'cfefa!:n  !_ef  )ef  'c`ao e`a(n$_ e`a(:1_(e`a _Kefa} p{ h*,i'+),+'   +&o0 h*,i[:(+, p{   ! FG  _Ke`a3_%  0.14 OMPACT IX YSTEMef(c`a_ ef(c`a5_' AVID TIDOLPH AND OLIN HOMPSONef(c`a_ ef(c`a$_ 14.ef(BLOCKDSSECTORSETBLOCK GET'ENTRIESTRACKPOSSECSTARTF'NUMAGOUTBIINITSEPARATE WRITE'FILEOUT4INIT'DIRTITLETYPEFILENAMEBYTEɭ@ЭhhL̫` ɭ#x)Ke`a  $_ݞREVERSE F5 SEE PIC efa&_F1 MENU SAVE PRINTe`a7_.SELECT WITH CURSOR KEYS RETURN LOADSe`a 0_'efa& _Kefa0}:D pcr r{Nh #2p <zh 00-i    0fo} p {  I:  I: h K1i =  '<o$.}8B p Ɛr{L h 0iKV U1: 2 0 18 1hi_$  .._ef  )ef  'cfaERASE CURSOR8oB}LV {{` <j twCD~  wCU !w KюRETwCRwF5wF1w+'   +D++)),+'   +NoX h*,ib(+,+'   +l(+,+'   +v++)(),+'   +o} { HOR CUR POS   c`a2_) SE THIS PROGRAM TO UPDATE THE FILESe`a&_ REQUIRED BY:e`a0_`a:3_*  14.  e`aD3_*  14.  e`aN3_* T UPDATES THE  DIRECTORY FILE THATe`aX/_& HOLDS TH( _ h*0iM 13n[o  h*0i 26 n*4o>H  :R\f pz {h *0j :h *,j)G*)G$G)13h **j14  pCtE 128. T COSTS $74.95 PLUS $2.00 SHIPPING. OU CAN OBTAIN THESE ITEMS ALONG WITH 18 OTHER BOOKS FROM . HE STANDARD REFERENCE BOOK FOR IS THE ANDBOOK BY EN INDSAY. O, TO ANSWER THE ORIGINAL QUESTION, IS THE BEST FI&zp  DELETE "0:CRG14.COMPACTOR"; BY DAVID STIDOLPH AND COLIN THOMPSON SAVE "0:CRG14.COMPACTOR"(2" THE PROCS IN THIS PROGRAM ARE<# EXPLAINED IN COMAL TODAY # 10.F# THIS PROGRAM IS A COMPANION OFP$ THE CRG14.VIEWh00-ijV@ FILE #` @jot~}. p-Ԑ|R /( /(<0͐"0$/#0}- p,ĕ|h@@'W,j1:2@:B \7<  2 (2=1 = \L ] ^*N.HRG,P(4Z>NH}>R\ p?Nr@{f h@iŗpz1_(INSERT THE TARGET DISK AND PRESS SPACEe`anA2_)INSERT THE SOURCE DISK AND PRESS SPACEe`ao K1  K3 _Ke`a ER NUMBER TO CONVERT (1-ef9)df)e`aD_ OR ENTER 0 TO QUITe`aN' MAKE YOUR SELECTION NOW:  X !0 5'.8)b h ,iލlC:vn 4 6 <o}3 p#{ ! FG _Ke`a6_- 7^ɭ@ЭЭ ԭVhḼͭurЭ Э|έ L`" ɭЭ Ք`ɭЭ   ` ҭ2aRST COMPUTER LANGUAGE, BUT IT MAY BE THE ONLY COMPUTER LANGUAGE THAT YOU'LL EVER NEED TO LEARN. J*_!RESS THE ^ KEY TO STOP PRINTING.e`aT0_'(RINTING STOPS AT THE END OF THE PAGE)e`a^}@hr p?t {|  h i} _ ER, WHICH IS ALSOZ$ FOUND ON COMAL TODAY DISK # 10.dnx"D: 7#3 h7i h 92i= 4?C. 4?Doo<", p {6 !@ FGT_KefKefKefa^5_, COMALB2<h112ioF_ DATA ERROR!e`aPZdonx"L L` ƭԑ ϭɭЭ ϭ  ϭ +"h@j_  WRITING:eg4.CRG(e`a}? pAr{ COMPACT PIX)_  UPDATING THE COMPACT PIX FILEe`a  < h00-i̘ _4e`a $ .n 8 B COMPACT PIX L_4e`a V `o j COMPACT PIX t _e`aF$ʎ_ ##b$ga _ 6$efa h$*iƎ _##b$'ga_ 6$'e`a o*$a4 7:>FH5$:Rh&j_`a\1_(efaf _Ke`ap_e ҭ Qҭ `pɭЭ ҭ ҭ ҭ`}, p"{ DIRECTORY <h00-i? :&0 =: 6D]ݐ}{W LOAD'FONTNAMEDSSOBJ'LOADFILENAMEDEVICEIA MOVE'SCREENNUM TEXTSCREEN SETTEXTDPROC ST 0.14 COMPACT PICTURE SYSTEM e`ah_ ef'c`ar2_) DAVID STIDOLPH AND COLIN THOMPSON e`a|_ ef'c`a#_ CRG14.COMPACTORef'c`a_`a0_' INSERT THE SOURCE DISK WITH BITMAPe`a-_$ PICTURES AND THE " DIRECTORY" FILE HJέ ЭLi" HLЭɭЭ ƒɭ@ЭhhL̫` ɭ#x) e`a ~  : ]7g  4 _ dg4e`a  = 7  }A͕`az#&G'1_(e`aA}# p=t{ _Ke`a ! FG  -S> }= p.vt|$0:(.CRG(. 8.CRG(B <L.,9 NXn}bl,_# DIRECTORY FILE IS NOT ON THIS DISKe`avo}" p<{ _Ke`a)_ THIS PROGRAM AND IT'S PROCS AREe`a&_ EXPLAINED IN COMAL TODAY #10e`a}< p>rt|  Z [ ATUSONTRESTORE'SCREEN LIMOVE'SCREENSET'TEXTINITVEIWFONTWAIT SELECT'FONT FONT'NAME VIEW'TEXTDONE END'MESSAGEFONTS FONT'NAMESCOUNTPAGEX LOAD'INITCHECKSUMPRNT GET'NAMES DISPLAY'NAMESZLZGASKYESPRGSEQ LOAD'COMPACT INIT'COMPACT CLEARSCREEN Se`a+_" PRESS SPACE TO CONTINUEe`a  K3*_! PLEASE WAIT.........e`a+_" READING FILE: " DIRECTORY"e`a, 5:65  4 } p3{ 9':&0 _Kefa:5_ ENTBa X" ,x)6ݓ@" X JЭTɭЭ֭ ER HOY! ISK OMPACT IX *END* CRG14.COMPACTOR CRG14.FILEWRITER CRG14.VIEWER :#ARTICLES        & RP 2:%  BY OL ATZ QUESTION THAT ALWAYS COMES UP WHEN TALKING WITH NEW COMPUTER OWNERS IS "HAT LANGUAGE SHOULD LEARN?" OR THE 64, THE ANSWER MUST BE . (MON LGORITHMIC ANGUAGE) IS THE MOST USER FRIENDLY LANGUAGE W15,8,15, ETC.) BEFORE YOU CAN USE YOUR DRIVE. OU CAN LOOK AT YOUR DIRECTORY USING (FOR ALOG) WITHOUT DESTROYING A PROGRAM IN MEMORY. OU CAN EASILY , , OR A PROGRAM, ALL WITHOUT THE ",8" SUFFIX, AND/OR WITHOUT OPENING THE COMMAND C GRAM. FREES YOU FROM DEALING WITH MANY OF THE S AND S THAT REQUIRES. F YOU WANT TO CHANGE THE BACKGROUND, BORDER, OR TEXT COLOR, HAS COMMANDS TO DO IT. F YOU WANT TO USE REGULAR OR HIGH RESOLUTION GRAPHICS, HAS THE COMM TO READ YOUR PROGRAMS, SO IT TAKES OUT EXTRA SPACES IN EACH LINE AND AUTOMATICALLY INDENTS WHENEVER YOU USE STRUCTURED PROGRAMMING. IS A STRUCTURED PROGRAMMING LANGUAGE, JUST AS ASCAL, , 77, AND ARE. NCE YOU LEARN , IT IS ONL CAPABILITIES. OR ADVANCED USERS, HAS USER DEFINED FUNCTIONS ALLOWING FOR MULTIPLE STATEMENTS AND MULTIPLE RETURNS, DEPENDING ON THE CALCULATED VALUES. OMPARE THAT WITH WHICH ALLOWS ONLY ONE STATEMENT. PROCEDURES ALLOW LOCAL AND GLOBA IBUTE PUBLIC DOMAIN PROGRAMS ON DISK. O THE BEST OF MY KNOWLEDGE, THERE ARE NO NATIONAL SUPPORT GROUPS FOR 64 ASCAL, , , , OR IMON'S . ALSO MAINTAINS ELECTRONIC BULLETIN BOARDS () ON SEVERAL OF THE COMMERCIAL TELE RITTEN TO DATE. F YOU READ OMPUTE'S AZETTE, EVERY COUPLE OF ISSUES, THERE ARE PROGRAMS TO IMPROVE . F YOU'RE LUCKY ENOUGH, SOME OF THEM WORK TOGETHER. HAS MANY OF THESE IMPROVEMENTS BUILT IN. HE MOST USER FRIENDLY FEATURE OF IS ITSHANNEL. IS ALSO USER FRIENDLY WHEN ENTERING OR EDITING A PROGRAM. HE COMMAND AUTOMATICALLY SUPPLIES LINE NUMBERS. [DITOR OTE: USES LINE NUMBERS ONLY FOR EDITING PURPOSES. HEY ARE NOT USED AS ADDRESSES AS IS THE CASE IN ]. HE SANDS TO DO IT, AND IF YOU WANT TO USE THE TREMENDOUS GRAPHICS CAPABILITIES OF THE 64, HAS SPRITE COMMANDS. HESE COMMANDS LET YOU DEFINE, IDENTIFY, MOVE, AND HIDE SPRITES. F YOU WANT TO WRITE GAMES, HAS COMMANDS TO DETECT COLLISIONS BETWEEY A SMALL STEP TO PICKING UP OTHER STRUCTURED LANGUAGES. (AND OLDER VERSIONS OF ) DEPEND ON STATEMENTS FOR BRANCHING, WHILE STRUCTURED LANGUAGES ONLY USE FOR VERY ADVANCED LEVEL PROGRAMMING, AND RARELY AT THAT. HE STRUCTURES OF L VARIABLES, AND ALSO ALLOW PASSING OF ARRAYS AS PARAMENTERS. F YOU DON'T KNOW WHAT THIS MEANS, THAT'S SINCE DOESN'T ALLOW IT ANYWAY, BUT , , AND ASCAL USE PROCEDURES EXTENSIVELY. ALLOWS YOU TO CREATE NEW COMMANDS USING PROCEDURECOMMUNICATIONS SYSTEMS. F YOU'RE WONDERING WHY THE (IN ) IT IS BECAUSE IS THE OFFICIAL EDUCATIONAL PROGRAMMING LANGUAGE FOR 5 UROPEAN COUNTRIES. INCE IS A "STANDARDIZED" LANGUAGE, PROGRAMS WRITTEN ON ANY COMPUTER WILL WORK ON  SYNTAX CHECKER. FTER YOU ENTER A NEWLY TYPED LINE, IT CHECKS IT FOR MISTAKES. T WILL POINT TO WHERE IT THINKS YOU MADE THE MISTAKE AND TELLS YOU WHY IT ISN'T HAPPY. ESSAGES LIKE "XPECT A COLON HERE" OR "NBALANCED PARENTHESIS" HELP YOU FIX YOUR MISTYNTAX OF THE COMMAND TELLS WHAT LINE NUMBER TO START WITH AND WHAT NUMBER TO INCREMENT THE LINE NUMBER WITH. O, IF YOU LIKE YOUR PROGRAMS TO START WITH 2468 AND TO GO UP WITH 3'S, YOU CAN DO IT. F YOU WANT TO DELETE A RANGE OF LINES YOU DO IN SPRITES, AND COLLISIONS OF SPRITES WITH TEXT. OW WE COME TO USER SUPPORT. HAS A NATIONAL USERS GROUP, AND SMALL SPECIAL INTEREST GROUPS ATTACHED TO MOST OMMODORE CLUBS. PUBLISHES A MAGAZINE THAT DEALS ONLY WITH . HEY ALSO DISTR INCLUDE: ............ ........... ...... ... ...... INCLUDES ITS OWN DISK OPERATING SYSTEM SO YOU NO LONGER HAVE TO OPEN CHANNELS TO THE DISK DRIVE (EG. S. HEN TOO, HAS OGO-LIKE URTLE RAPHICS. F YOU'VE READ ABOUT OGO AND WANT TO TRY IT (OR WANT YOUR KIDS TO TRY IT) YOU CAN HAVE IT WITHOUT GETTING STILL ANOTHER LANGUAGE DISK. N ADDITION, ALL THE OGO COMMANDS CAN BE USED WITHIN ANY PROANY OTHER COMPUTER THAT SUPPORTS , INCLUDING THE . IS AVAILABLE ON THE 64 IN TWO WAYS. HE DISK LOADED VERSION 0.14 IS ON THIS HOY DISK. MORE POWERFUL VERSION OF 2.0 IS AVAILABLE IN A CARTRIDGE, WHICH WORKS WITH THE 64 AND THAKE AT THE TIME YOU TYPE IT. S SOON AS YOU CORRECT THE MISTAKE LETS YOU CONTINUE. N OTHER WORDS, WILL NOT ACCEPT A LINE WITH A SYNTAX ERROR. HE NEXT REALLY USER FRIENDLY FEATURE OF IS AUTOMATIC FORMATTING. WANTS YOU TO BE ABLET WITH: LINENUMBER-LINENUMBER. OU CAN ALSO LIST A RANGE OF LINES THE SAME WAY, AND TO BE USER FRIENDLY, ALSO LETS YOU STOP AND START THE LISTING BY HITTING THE SPACE BAR. ALSO ALLOWS YOU TO USE THE EXISTING OMMODORE SCREEN EDITING  TO READ OR ^ TO QUITe`a*_! e`ahM^-9j4C: }3 p5t {Bޓ Qh BK1iړ B BI)K<o B  h i* 4> LP: )"  _7 ?   _Y @6:B *5  4_ > HM R \}, f pp- z'rA{ z"  &  BĚA _cf 'Be`a B :  #$A)G#%'  }-  p.6z MjNc:\NРf hNc*igp 6:  B DS:LI0~Vo`oj}LbsG:0զxhPI¶zNϬʬŬ $_`a |}>  p1]{ K3 K- }1  p+{{ "/B 0_' ELCOME TO DISK LOADED 0.14 !!e`a 1_(OU MAY LOAD THESE 0.14 PROGRAMS:e`a _`a  $) _CHAIN "ef $ef"e`a $ KefKe`a & 4D: h]7ic _ efe`a3np4C:o 41n!&o0I:}?DN pI{Xb DS:l v_ RESS ANY KEY. e`a 1"B}I p/{  _efa0_'R'EOF LINE'COUNT PAGE'HEADER PRINT'LINE PAGE'FOOTERFILE'TO'SCREEN LINE'UP'PAPER MAX'FILESXZEXITSTRINGCHARNUMT CLOSE'FILESLIST3333V PRINT'ALLSTOPPEDI2 NUM'ARITCLESTESTLIT INFO'TEXTL) s )   ) ) sL) s ) ) sL) s )  `4C: jo t 479 ~}8  p9I{ < h4iy $;_ $e`a n? =:  h]7i ==   hK =6iՕ _ =ef+cfe`a n _ =ef)cfe`a o (: 2n, <4C: F$%=' P _ $e`a `2_) READ AND PRESS THE KEY efajot~  ' N hCi  )<n  ).TXT(<oBܜ QK BBI:hK0j BBK)K<Bh) *i2 h i" hCi n ?fz:ٔHxRsݖܞҝ}n    &-_$R, YOU MAY ENTER LIKE THIS:e`a 0  :_BASICe`a D  N X}+ b l p"{ v_KefKefa }"  p,qt { "  &  $_cf $e`a :       e`a_ef'cfe`a0_'e`a _e`a }/ pLo{ @ 6: 5 COMAL ARTICLE* hM7ik4N)>@N'6'H5 N.TXT(R hl5 5 1 13 6 HOY! ISK EPTEMBER HOY! ISK OMPACT IX *END* CRG14.COMPACTOR CRG14.FILEWRITER CRG14.VIEWER :#ARTICLES        & RP 2:%  Z$ do n=,49 xo > }9  p<Ԗ{ %-O _efGcfeg6d`a 9_:eg eg1986ef,cfRTICLE ILENAME:eg e`a %-O _`a _`a }<  p>1{ $4;)_`a $_=efa 0_' OR MO , (o2n.<!FoPoZ}.dn p#wtEt {x/%_ egEegFOReg ef&cfe`a}# p%ɝtFrG{ hG2*j_`aHG_Fefa_`a }% p@Ӟ{"  & ._%LIGN THE PAPER NEAR THE  DIM'VARIABLESINITIALIZE'SYSTEMMENUMOVE'BARMENSELECTEDEXECUTE'OPTIONROWMAX DISK'NAMEMONTHNAMEARTICLESPROGRAMS PRINT'OR'VIEWTEXT MAX'LINES LEFT'COLUMNOPTIONSHEADER PROMPTCOLOR MENUCOLOR OPEN'FILEBACK'BOR' EXTRACOLOR NUM'PROGRAMS NUM'ARTI D UP)e`a_`a_`a._%OW READING ERROR MESSAGES FROM DISK.e`a_`a_ LEASE WAIT ...e`a_`a  _HANGING ERROR ROUTINE.e`a  >: \7& 0   :  =DNXT&bT%lT LE HAVEe`a0_'WRITTEN MACHINE CODE ROUTINES TO EXPANDe`a/_&THE LANGUAGE AND OVERCOME MINOR FLAWS.e`a_`a/_&NE FLAW IS THAT KEEPS ITS ERRORe`a"*_!MESSAGES ON DISK IN A FILE CALLEDe`a,._%"COMALERRORS". HIS SAVES MEMORY, BUTe`a6#_MA * BY C THOMPSON(2< 'F uPZDkdn p{x :#ARTICLES        & RP 2:%  O ҭƭ+kЭ`íЭ$`.8B_KefaCLEAR SCREENL_OING TO MAIN MENU...e`aVP!&`_NEWe`aj_ CHAIN "MENU"e`at  Z*dn pr{x )R i+ |L , COMAL ARTICLE  - #EATURE RTICLES .   "/B0_'  ROGRAMS ON THIS ISK e`a & N nU!  *o4}>H pj{R"\ #  f$_cf $e`ap z$%' &  7_. EWSLETTER ON ISK e`a/_&SE THE CURSOR UP/DOWN KEY TO CHOOS &vT%K$'T$ ' '   SETMSG+n͍ SETMSG-o p ǎ| READ'ERRORS BY PHYRNE BACON ܅     ƭ ϭ KES SHOWING ERRORS SLOW.e`a@_`aJ0_'UILT INTO THIS PROGRAM IS A ROUTINE TOe`aT._%BRING THE ERROR MESSAGES INTO MEMORY,e`a^,_#WHERE SPRITES 16 AND UP ARE STORED,e`ah1_(BUT CERTAIN PROGRAMS MAY OVERWRITE THEM.e`ar+_"F THIS HAPPENS, YOU MUST RU   ( EAD RTICLES< UN ROGRAMS<" EARN BOUT <, RINT RTICLES<6 UIT HIS ENU<@}JT p{^  ROPER ISK<h :r :| ~ w  x  _Kefa pw{hI(2is33'{  ; D2 I( UI _  `( h2 p'< p7F uP   "$],_cf $e`a6$=@#$)G#%'J :T. ^hr}| t0{ N0 <N 00-  p!{ "/B_ : efe`a &  E Ae`a/_&SUBMENU. HEN PRESS RETURN TO EXECUTE.e`a}pz'r({ D:)D:B *!h0j):)C:B  h(*i':)C:Bn$:)C:B.o8 BC:LV`j h)it & F í _*)@Э ɭЫ~4ʭЭ`Ў>H 0:COMALERRORSR\f} pz-ح$ԭ Jԭ"ԭ; N THISe`a|-_$PROGRAM AGAIN TO RESTORE THEM. O DOe`a,_#THIS, ISSUE THE COMMAND: CHAIN "HI"e`a}ՍcREPLYERROR INTRO'SCREENFREQPULSEATTACKDECAYSUSTAINRELEASEWAVE  NAMES.DATNNNNNN N N  ! FG ::BN h *END*3i =&  <0o: *END*-D N]7S Zd BOOT CALLEDn x o} p{ ! FG _KefKe`a(_ ELCOME TO 0.14e`a_`a0_'INCE THE RELEASE OF VERSION 0.14e`a-_$(OVEMBER 1983), SEVERAL PEOP _UTeg eg IN THE DRIVEe`a & &_AND PRESS ANY KEY TO CONTINUEe`a1}!&0 p&rr2|:2)D)G($'G&N)G($'G%X)b}&lv p3{ 7478*_!RESS ~_ eg ')efcfa &_ eg ')efcfa:n &_ eg ')efc`ao} *1{ < ԏ -   - !(- K 'K2<-FP ʭЭW.Эԭԭ kí ɭ)ŭ-܏ i+ ƭ+Э 0+ +READ'ERRORSPOSITIONAI EXPAND'RAMADDR5*   L  L   L~ JJJJ+~ JJJJ+   L , L   L    i  L L  Jii   `   JL* N =XN b-l =v  UIT ENU< =  < DS: EAD ON THE CREEN< RINT ON THE RINTER< ETURN TO THE ENU< <::BD:B} pYt{ h iA 73,123,27) 253,30,27,141,123,27,200,2087) 227,152,202,240,17,201,176,240W) 3,141,124,27,44,124,27,48v) 5,173,41,27,240,5,41,127) 32,42,27,202,16,196,96,1)  0,10,0,100,0,232,3,16)( 39,32,72,169,0,141,0,255)0 104,32,210,25 ,157"P 78,27,232,76,97,25,104,157:"X 78,27,232,169,40,157,78,27]"` 232,140,115,27,236,61,27,240}"h 3,76,109,26,202,189,78,27"p 221,62,27,240,3,76,109,26"x 224,0,208,240,173,58,27,208" 3,76,59,26,165,250,133,36# 165,251,133,  FORMAT ERROR SYNTAX ERROR TYPE CONFLICTFUNCTION ARGUMENT ERROR%STATEMENT TOO LONG OR TOO COMPLICATED SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW ERROR IN STRUCTURED STATEMENT ERROR IN GOTO STATEMENT STACK OVERFLOW UNKNOW &@ 221,111,27,208,5,202,16,245/&H 48,35,173,114,27,141,112,27R&P 174,113,27,142,111,27,32,215s&X 26,169,32,32,42,27,206,116&` 27,208,10,169,6,141,116,27&h 169,13,32,42,27,173,118,27&p 208,3,76,219,24,24,238,115&x 27,173,115,27 01) `B01 SIZZLE OFF SIZZLE ON $ķ LM-W … o nok  iii i д o U C )i.) TED;NOT IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATESQ2Q$CDADCQ5,169,63,141,0)8 255,96 144,19,173,117,27,240,8,169D( 0,141,117,27,56,176,6,169e( 1,141,117,27,56,104,96,141( 122,27,142,123,27,162,9,142( 124,27,160,176,173,123,27,221( 30,27,173,122,27,253,31,27( 144,15,141,122,27,1 37,173,16,18,133$# 38,173,17,18,133,39,172,115F# 27,173,119,27,240,1,200,174j# 61,27,136,202,208,252,140,125# 27,132,13,132,109,173,120,27# 41,127,141,121,27,173,120,27# 208,3,76,37,26,48,52,56# 173,115,27,237,121,27,141,1 N VARIABLE PROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRING ERROR-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICESSTRING ASSIGNMENT ERRORFUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECT ,101,250,133,250' 144,2,230,251,76,180,24,169=' 0,141,0,255,32,135,175,162]' 128,169,1,141,0,255,108,0' 3,141,172,26,142,173,26,162' 0,200,185,0,2,240,10,201' 44,240,6,157,255,255,232,16' 240,96,72,201,34,240,11,173( E***x ,0NæĥĮĄ l 0- jđĐđ wHhX`,8đei`,p8)M**M**M**M***л`X$0xN 2301 oPP 8G" :# `iD :DL uLEEEE 4Z P$` ЪЍ!,,0`T OF RANGE:EXPRESSION EXPEC I  DELETE "0:HI" BY DAVID STIDOLPH SAVE "0:HI"(2 <F P 0Z 1d n x_`a K33(O YOU WANT ERROR MESSAGES IN MEMORY? ٝ hY--9i _Kefa 15$ 27,24,173,121,27,101,13,1336$ 13,198,13,198,109,169,0,141W$ 0,255,32,192,93,169,63,141x$ 0,255,173,16,18,56,237,121$ 27,141,16,18,176,55,206,17$ 18,208,50,24,173,115,27,109$ 121,27,141,115,27,24,173,121% 27,101,10 STEP = 0ARRAY REDEFINEDDIMENSION ERROR CASE ERROR END OF DATAFILE ALREADY OPENFILE INPUT ERROR END-OF-FILE FILE NOT OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT 117,27,240,3,56,176,22,24$( 144,19,173,117,27,240,8,169D( 0,141,117,27,56,176,6,169e( 1,141,117,27,56,104,96,141( 122,27,142,123,27,162,9,142( 124,27,160,176,173,123,27,221( 30,27,173,122,27,253,31,27( 144,15,141,122,27,1 B x <`;;ɂ*0?;!حǩ :XLE¢bB";;ȱ;  -:`JJJJ,, )) )й`   ( 6o@ !J FGT ^_*****************e`ah_*** ***e`ar_*****************e`a|_`a/_&ITH THE RROR ESSAGES IN YOUR EMORYe`a_`a*_!YOU MAY USE SPRITES 0-14 !!!e`a_`a*_!(IE, DON'T USE SPRITES 15 AN C: HIGH C (C6)::B:B: :B  : COMALERRORS <h003iH"_ILE "COMALERRORS" IS NOTe`a#_ON THE DISK. LEASE INSERTe`a _DISK WITH THIS FILE ANDe`a"_ THE PROGRAM AGAIN.e`a, 9,133,109,198,13,198#% 109,169,0,141,0,255,32,215D% 93,169,63,141,0,255,173,16e% 18,24,109,121,27,141,16,18%  144,3,238,17,18,162,0,172%( 125,27,236,94,27,240,9,189%0 95,27,145,250,232,200,208,242%8 76,109,26,162,1,189,113,27 INPUT FILE'DEVICE NOT PRESENT(NOT OUTPUT FILE)STRING NOT DIMENSIONED*LOCAL VARIABLE ERROR4TOO MANY NAMES5FUNCTION VALUE NOT RETURNED6NOT A STATEMENT7!NOT A COMMAND OR SIMPLE STATEMENT8 ',' EXPECTED9NUMBER OUT OF RANGE:EXPRESSION EXPEC & ""4)"M A T C H B L O C K S"pCR(55),UL(55),UR(55),LL(55),LR(55),R(99),T(55),S(25),BK(3),PLA,MATCH HF(6),LF(6),DR(6):FL1:TD720:TRN1:198,0(:A127:CR(A),UL(A),UR(A),LL(A),LR(A):2A16:HF(A),LF(A),DR(A):. <" C:PT41,SC:214,21::211,0:Z135:" ";:I214,20::211,1:Z140:" ";::"";:01,233,223,95,105,13,122,76,80,79,07,108,123,124,12610,77,78,78,77,10,91,91,91,91,03,32,160,160,3207,118,117,118,117,07,76,122,103,101,13,233 5 N1M:R(N)MIR(N)R(N)MI:I3R(N)18R(N)R(N)18; ` V53248:V21,4:2042,13:V41,1 N18453:832N,1:833N,255:834N,128: V4,124:V5,111 BLK23:X124:Y111:BK(2)0:BK(3)99:PLAPLA1:PLAPPLA1:TRNTRN1 "FL  VARIABLE MANAGER LOADERySUM0:15:I61446969:J:I,J:SUMSUMJ::SUM88448"ERROR IN DATA STATEMENTS":6144 120,173,4,3,141,59,27,173 5,3,141,60,27,169,25,141 4,3,169,24,141,5,3,88 96,160,0,185,0,2,201,64 K:X124:Y111:BLK23:BK(FL)23X124:Y135:BLK32a(BK(1)23BK(2)32)(BK(1)32BK(2)23)X124:Y87:BLK14rFLFL1:340R(BK(1))R(BK(2))580I3R(BK(2))R(BK(3))580S54272:S5,15:S6,0:S24,10&A16:"  M A T C 9,6,141,116,27,1690 255,141,111,27,141,112,27,169Q 0,141,58,27,165,45,133,250t 165,46,133,251,160,0,140,117 27,140,118,27,24,177,250,208 1,56,200,177,250,144,5,208 3,76,135,26,200,177,250,141 113,27,200,177,250,141, ";:" SCORE":A15:90Y F"":A:90 P"ñ":100 ZB12:" ":: d690:"HOW MANY PLAYERS";P$:P(P$) n(P1)(P10)640:"SORRY, 1 ,121,95,120'10,63,63,63,63,10,85,73,74,75,03,127,32,32,127]01,102,102,102,102,01,90,90,90,90,00,65,65,65,6510,83,83,83,83,13,13,13,13,13,10,79,80,76,12203,32,255,255,32,13,121,223,120,105,13,2,2,2,205,36,36,36,36,03,121,121,10 1:690:"ROUND NUMBER";TRN:MATCHMI330X ,"GAME OVER":"PRESS FIRE BUTTON TO PLAY AGAIN."t 6A(56321)16:A16310z @ J"IT IS YOUR TURN, ";N$(PLA);" " TV21,4:V4,X:V5,Y:JV255(56321) ^JV1YY24:410 hJV2YY   240,3,108,59,27,169,63,141<( 0,255,200,185,0,2,201,67]0 240,9,201,70,240,84,162,11~8 76,145,26,169,62,162,27,32@ 153,26,201,0,240,240,224,0H 240,236,142,61,27,169,95,162P 27,32,153,26,201,0,208,222X 224,0,240,218,142, H ":S1,HF(A):S,LF(A):S4,17I0B1DR(A):B:" M A T C H ":S4,16:C150:C,AR:610sD690:"  NO MATCH "NA130:54296,5:54296,0::690XSC160:A1I:BBBK(A):650::280bS(PLA)S(PLA)1:214,(1PLA2)::211,37 114,27  140,115,27,162,0,142,119,27D  238,115,27,172,115,27,177,250d  208,3,76,117,26,32,178,26  176,233,201,65,144,229,201,91  176,225,157,78,27,232,200,177  250,208,3,76,47,25,32,178  26,201,34,240,28,201,36,240! 3  TO 10 PLAYERS ONLY":100E x680:A1P:"TYPE NAME OF PLAYER";A:N$(A) N$(A)(N$(A),9):L(N$(A)):" "N$(A);:B126:C1L "";::" "N$(A);:D115:D,B:E1(21A2):F1L "";:F:" "N$(A);:G120:G,E : 6,116,07,121,121,120,1206 03,87,87,87,87,03,160,32,32,160,07,112,110,109,125w12,143,40,15,210,40,18,209,40,25,30,150,18,209,40,25,30,800 "":53269,0::G1104:F127:A,B,C,D,E*G,B:G1,C:G54272,A:G54273,A4G40,D:G41,E:G5 24:410rJV8XX24:410(|JV4XX24:410^JV10ROW(Y39)24:COL(X4)24:BK(FL)BLK:460yV21,0:G115::340G160::Y63Y63:340Y183Y183:340X28X28:340X220X220:340BLK(9YX571)24:34 94,27,173&` 61,27,205,94,27,240,22,176Fh 11,56,173,94,27,237,61,27fp 9,128,208,11,56,173,61,27x 237,94,27,208,2,169,0,141 120,27,169,1,141,58,27,76 172,24,169,62,162,27,32,153 26,208,163,224,0,240,159,142  61,27,16 :S(PLA)'lMATCHMATCH1:R(BK(1))0:R(BK(2))0:R(BK(3))0WvSC32:A1I:BBBK(A):650::PLAPLA1:280yA130:54296,5:54296,0::PT100993((BB8)9)3BB:PCPT54272PC,14:PC1,14:PC40,14:PC41,14PT,SC:PT1,SC:PT40,S 6,201,37,240,32,201,40,2402! 28,201,48,144,12,201,58,144S!  11,201,65,144,4,201,91,144r!( 3,76,97,25,76,250,24,140!0 118,27,76,97,25,72,169,1!8 141,119,27,104,201,40,208,5!@ 157,78,27,208,28,72,200,177!H 250,201,40,240,9,136,104 38)"0":690:A9 "DO YOU WANT A MATCH TO BE 2 IDENTICAL"\ "BLOCKS OR 3? (PRESS 2 OR 3)"{ I$:I(I$):I2I3190 680:SC160:M54:Q0:J1M:T(J)J:J:JM11 R(J(0)1):R(J)T(R):KRJ:T(K)T(K1):K QQ1:BBQ:650:JS4312,A:G54313,A>GG4:G1140G1264!HG1300G14243R:G112::2,102,01,90,90,90,90,00,65,65,65,6510,83,83,83,83,13,13,13,13,13,10,79,80,76,12203,32,255,255,32,13,121,223,120,105,13,2,2,2,205,36,36,36,36,03,121,121,10 01(R(BLK)0)(BK(2)BK(1))(BK(3)BK(2))(BK(3)BK(1))340pV21,0:PT1105(ROW1)120(COL1)3:PCPT54272:BR(BLK)PT,UL(B):PT1,UR(B):PC,CR(B):PC1,CR(B):PT40,LL(B)PT41,LR(B):PC40,CR(B):PC41,CR(B):FLI520"BK(FL)BL  0,1,1,1,1,1,0 1,1,1,1,1,1,1 1,1,1,2,1,1,1$ 1,1,1,1,1,1,18 0,1,1,1,1,1,0L 1,1,0,0,0,1,1` 1,1,0,0,0,1,1t 1,1,1,1,1,1,1 0,1,1,1,1,1,0 0,0,1,2,1,0,0 0,1,1,1,1,1,0 1,1,1,1,1,1,1 1,1,0,0,0 7 *** MULTI RAM *** BUCK CHILDRESS (06/14/86) ***d *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J53000:L110:C11((19)31)L::B0C:A:A0A255602JB,A:XXA:B:A:AX70 <"ERROR IN V,1  0,1,1,2,1,1,1  1,1,0,1,1,0,1 ! 0,1,1,1,0,1,1 ! 1,1,0,1,1,1,11,1,1@ 0,0,0,2,0,0,0T 1,1,1,1,1,1,1h 1,0,1,0,1,0,1| 1,1,1,0,1,1,1 0,0,0,1,0,0,0 0,0,1,1,1,0,0 1,1,0,1,0,1,1  1,0,1,1,1,0,1 0,0,0,0,0 3,240,0,39,249,0,44,13! 0,46,29,0,127,255,128,31> 254,0,63,255,0,35,49,0] 12,204,0,14,220,0,25,230~ 0,48,195,0,241,227,192,241 227,192,0,0,0,0,0,0 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0 1,152,0,3,252,0 9,43,133,55,232,134,43,173,197,1485R 207,141,198,207,162,19,160,0,189,197,207,240,1927 8,32,187,207,232,200,76,160,207,136,136,173,1754 198,207,24,105,173,32,187,207,108,240,207,153,1841 0,4,173,134,2,153,0,216,96,128,3,4,913 8,8,  DUAL-DUMP 128o SUM0:15:I66567049:J:I,J:SUMSUMJ::SUM42253"ERROR IN DATA STATEMENTS":y6656 76,6,26,76,52,26,169,25 141,0,10,169,26,141,1,10 32,11,27,169,0,141,139,27 96,32,11,27,76,3,64,173  139 ,1,1 1,1,1,1,1,1,1 1,0,1,0,1,0,1 1,1,1,1,1,1,1( 1,0,1,2,1,0,1< 1,1,1,1,1,1,1P 1,0,1,0,1,0,1d 1,1,1,1,1,1,1x 1,0,1,0,1,0,1 1,1,1,1,1,1,1 1,0,1,0,1,0,1 1,1,1,2,1,1,1 1,0,1,0,1,0,1 1,1 DATA LINE:"L:, FX0:JJ12:LL10:L28040@ PL280C13:40f Z"THE DATA IS OK AND LOADED...": d"MULTI RAM IS NOW ACTIVE...": 53000: n173,143,2,174,144,2,224,207,240,16,141,240,1706 x207,142,241,207,169,35,162,207,141,143,2,142,17 205,76,243,26(  165,241,41,128,240,4,160,7H  208,2,160,0,140,143,27,32i  66,27,169,0,141,141,27,141  142,27,160,18,169,0,32,106  27,160,19,169,0,32,106,27  169,31,141,0,214,44,0,214  16,251,173,1,214,32,118,27  32,210 ,15,255 0,30,247,128,30,7,128,124$ 243,224,252,3,240,223,15,176G 203,253,48,213,106,176,206,7h 48,227,252,112,224,0,112,0~ 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0 1,1,1,1,1,1,1 1,1,1,1,1,1,1 1`84,192,3,3,3,3,8,8,84,192,596R 160,84,160,207,160,146,129,141,160,189,160,160,160,0,20167,207,185,197,207,133,44,185,2092 201,207,133,45,133,47,133,49,185,205,207,133,1678 46,133,48,133,50,185,209,207,133,56,169,0,1369 170,133,43,12 ,27,208,5,32,24,27,1764 ( 3,76,64,250,169,1,141,138T 0 27,76,57,26,169,0,141,138v 8 27,169,1,141,139,27,165,215 @ 240,3,76,160,26,173,44,10 H 41,2,240,4,160,7,208,2 P 160,0,140,143,27,32,66,27 X 32,95,27,169,0,141,107,26 ` 16 ,1,1,1,1,1 1,0,1,0,1,0,1 1,1,1,0,1,1,1 1,0,1,0,1,0,1, 1,1,1,1,1,1,1@ 0,0,0,2,0,0,0T 1,1,1,1,1,1,1h 1,0,1,0,1,0,1| 1,1,1,0,1,1,1 0,0,0,1,0,0,0 0,0,1,1,1,0,0 1,1,0,1,0,1,1  1,0,1,1,1,0,1 980 144,2,96,173,141,2,201,4,208,17,165,203,1356e 205,197,207,240,10,141,197,207,201,1,208,6,1820 76,156,207,108,240,207,201,3,144,249,201,7,1799 176,245,172,199,207,141,199,207,165,45,192,5,1953 176,17,166,46,141,204,207,141,205,2 ,255,173,141,27,201,2070  208,7,173,142,27,201,7,240T  10,238,141,27,208,218,238,142w  27,208,213,169,13,32,210,255  169,4,32,74,255,169,0,141  139,27,173,138,27,208,1,96  76,41,26,120,169,31,141,24  3,169,26,141,25,3,88,9 ,1,1,1,1,1,1 1,1,1,2,1,1,1  1,1,1,1,1,1,1  1,1,1,1,1,1,14 1,1,1,1,1,1,1H 0,1,1,0,1,1,0\ 1,1,1,1,1,1,1p 1,1,1,1,1,1,1 0,1,1,2,1,1,0 1,1,1,1,1,1,1 1,1,1,1,1,1,1 0,1,1,0,1,1,0 1,1,0,0,0,1,1255,162,4,32,201'X 255,169,13,32,210,255,96,162I` 19,169,32,32,210,255,202,16ih 248,96,140,0,214,44,0,214p 16,251,141,1,214,96,41,127x 201,32,144,9,201,64,144,9 201,96,144,3,24,105,32,105 32,96 3,169,26,141,25,3,88,9 9,4,141,108,26,169,40,1418 h 140,27,173,255,255,32,118,27[ p 32,210,255,206,140,27,208,13} x 169,40,141,140,27,169,13,32  210,255,32,95,27,173,107,26  201,231,208,7,173,108,26,201  7,240,10,238,107,26,208,210  238,108,26,208,  1,1,0,1,0,1,1  0,1,1,1,1,1,0  0,0,0,2,0,0,0  0,0,1,1,1,0,00  0,1,1,0,1,1,0D  1,1,0,1,0,1,1X  0,1,1,2,1,1,0l  1,1,0,1,0,1,1  0,1,1,0,1,1,0  0,0,1,1,1,0,0  1,1,0,1,1,1,1  0,1,1,1,0,1,1  1,1,0,1,1,0 07,142,208,1860A 207,142,209,207,76,107,207,153,201,207,165,46,1927z 153,205,207,172,197,207,185,197,207,133,44,185,2092 201,207,133,45,133,47,133,49,185,205,207,133,1678 46,133,48,133,50,185,209,207,133,56,169,0,1369 170,133,43,12 6  173,1,220,205,1,220,208,248;  169,191,141,0,220,173,1,220^ ( 201,239,240,15,169,253,141,0 0 220,173,1,220,201,127,240,3 8 24,144,1,56,169,127,141,0 @ 220,96,169,0,32,189,255,169 H 4,162,4,172,143,27,32,186P 255,32,192,/ C(14),L(10,7,7),B(7,7):(142)(8):5000`FXP((1)7)1:YP((1)7)1:B(XP,YP)070PV21,2:840:XXP3211:YYP2436:V,X:V1,Y:V21,3:TU1d((YP1YP7)(XP1XP7))XAXPYAYP900eB(XP,YP)5(B(XP,YP)2TU1)180 fB(X0,0,0!V60,60,60,60,60,24,0,0"` *** ML ROUTINE ***N"j174,0,220,224,123,208,11,172,0,208,136,192,24,240,3,76,90,3,224,119"t208,17,172,0,208,200,192,255,240,9,140,0,208,140,2,208,76,135,3,224"~126,208,11,172,1,208,136,192,100,240,3,76,126:D4:B(XA,YA)6YAYA1:D5/ D260,270,280,290,300? 49252:300O 49266:300_ 49238:300j "49224 ,V40,(1)151:XPXAYPYA900 6120 S5,0:S6,240 I130:53281,I:S,(1)255:S1,(1)255 S4,17:J1(1)25: ,J::2040,13:2041,15:SC0:HS0:L1AI110:J17:K17:A:L(I,K,J)A::::""xV39,11:V40,2:S54272:ISS23:I,0::S24,15L$(1)"   ":L$(3)"    ":L$(4)"   "L$(5)"   ": B(J,I)2A$"  "5("",LV,1)A$;:::::T$""31)"SCORE"SCp.""31)"HIGH"HS8""31)"LEVEL"LB""31)"SHIELDS"SHLXP((1)7)1:YP((1)7)1:B(XP,YP)0B(XP,YP)2 A$:A$""5525A$""LL1:L21L1!A$""55556SH2SH4:5560KSH4SH6:5560`SH6SH8:5560uSH8SH2:5560A$""5570""20)L" ":""21)SH5530T0:SC0:N1:LVL:L10N2:LVL10 P,YP)0900 gB(XP,YP)270@ hB(XP,YP)1N2B(XP,YP)4:118k iB(XP,YP)1B(XP,YP)4B(XP,YP)5:107t j118 k"";:214,YP32::211,XP3XP2 n("",LV,1)"ηͯ":2040,14 pBTBT1:BTT400 rSCSC2LV:SCHSHSSC ,3,224,125,208,17,172,1,#208,200,192,198,240,9,140,1,208,152,105,3,141,3,208,166,252,224,1,240u#12,162,1,134,252,169,252,172,0,208,76,161,3,173,5,208,172,0,208,233#1,141,5,208,105,3,141,7,208,140,4,208,140,6,208,173,1,208,205,5$208,208,:S4,16 :53281,0* V21,0:LL1:L20L20< N1:L10N2S LVL:L10LVL10m I12000::T0:1000 S5,5:S6,53:S1,25:S12,5:S13,53 *S7,30:S8,30:S4,129:S11,128 4S4,33:I15010:S1,I:J15:::S4,32L$(6)"    "$L$(2)"    "]hV21,0:53280,0:53281,9:"":S4,0:SH4:CL0:CO0j646,CL:""L$(1)""L$(2)""L$(3)""L$(4)""L$(4);l""L$(5)""L$(6)r4)"SCORE:"SC22)"HIGH SC11001VXA((1)7)1:YA((1)7)1:B(XA,YA)0B(XA,YA)21110G`XPXAYPYA1110jXXP3211:YYP2436:AXA3211:BYA2439:V39,11tV23,0:V29,0:V21,3:V,X:V1,Y:V2,A:V3,ByT01170~BT0:T0:TU0:I17:J17:B(J,I53280,11:S24,15:1000!p 160,0,200,192,255,208,251,967q 0,0,0,0,0,0,0,0Vr 162,0,206,1,208,232,32,0xs 192,224,24,208,245,96,162,0t 238,1,208,232,32,0,192,224u 24,208,245,96,162,0,206,0v 208,232,32,0,192,224,32,208w3 t""31)"SCORE"SC:""31)"HIGH"HSE uB1B0:120N v180` x(653)1120 J(56320)15:J142040,14:49168:YPYP1:800:100 J132040,14:49182:YPYP1:800:100 J112040,14:49196:XPXP1:800:100 J4,162,1,134,253,172,31,208,152,41,1,201,1,208,4,162,1,1349$253,152,41,4,201,4,208,4,162,0,134,252,76,49,234,0g$120,169,60,141,20,3,169,3,141,21,3,88,9655,240,9,140,0,208,140,2,208,76,135,3,224"~126,208,11,172,1,208,136,192,100,240,3,76,126>2040,13:6HS5,15:S6,0:S,67:S4,17:I140:J0255I5ORS1,J:::S4,16:^I1100:S5,0:S6,28:S,1:S1,2:S4,129:S4,128I1180:V39,(1)161:B1:SHSH1:""31)SH:V21,0SH0ORE:"HS|""14)"LEVEL:"L:""13)"SHIELDS:"SHN" PRESS  F1 TO SELECT DIFFICULTY LEVEL"|""6)"PRESS  F3 TO SELECT SHIELDS"""10)"PRESS  F5 TO START"COCO1:CO15CLCL1:CL16CL0CO15CO0:5482)1TT1::B1S5,16:S6,9/I311:""14)""I\S,I:S1,I10:S4,17:J120::S4,16mJ1900::}""15)" "100"";:53280,0:V53248:V21,0:53281,0:C9I4915249279:J:I,J:I8321022:J:I 245,96,162,0,238,0,208,232x 32,0,192,224,32,208,245,96<y 162,0,206,3,208,232,32,0^z 192,224,24,208,245,96,162,0{ 238,3,208,232,32,0,192,224| 24,208,245,96,162,0,206,2} 208,232,32,0,192,224,32,208~ 245,96,162,0,238,2,20872040,14:49210:XPXP1:800:1002 ((1)5)2300O D5:((1)2)1200,230~ XAXPXAXA1:D1:B(XA,YA)6XAXA1:D5 XAXPXAXA1:D2:B(XA,YA)6XAXA1:D5 250 YAYPYAYA1:D3:B(XA,YA)6YAYA1:D5 YAYPYAYA1 ,232 32,0,192,224,32,208,245,96  3,240,0,39,249,0,44,13? 0,46,29,0,127,255,128,31\ 254,0,63,255,0,35,49,0{ 12,204,0,12,204,0,14,220 0,25,230,0,48,195,0,241 227,192,241,227,192,0,0,0 0,0,0,0,0,0,0,0 0,0,0,980""10)" "H10)" GAME OVER ":10)" "^I13000::5480h1100{53281,0:""53280,12:I17:" ";:J17:B(J,I)L(LV,J,I)B(J,I)0A$" "B(J,I)1A$" ߒ "1""12)"BY JOSEPH BEDARD"%6""13)" ENTER LEVEL "?;""14)"1: EASY"]@""14)"2: MODERATE"|E""14)"3: DIFFICULT"G198,0JA$:A$"1"A$"3"330OT(A$):LVT:L1(4T)101:L2100T30:T"";U8)"" "6 F11:F1:D0:""32)" HEAT  SEEKER "` "";:L14:32)" ";: "";:L15:32)" ";: "";:L14:32)" ";: !""32)"DISTANCE"""77,92,136,145,92,104,145,90,200C204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116193,200,189, 1150:::V21,0"L150.1:P24,L::P4,1287T125:49152:Z""10)"%%%%%%%%%%%%":49152""10)"%GAME OVER%":49152""10)"%%%%%%%%%%%%":49152""10)"&&&&&&&&&&&&":49152L17:49152::L1200:H 2,152,56,233,40,168,104,96,0,40,80=120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248l32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,55,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,04,1,1 *** SPRITE DATA *** SHIP8,0,0,38,0,0, LOSION III0,0,0,32,0,0,0,128 2,0,0,0,0,32,0,32"0,0,0,128,0,0,0,05 EXPLOSION IVL 32,32,0,0,0,0,0,0a*0,0,8,8,0,0,0,0x40,0,0,0,0,32,32,0 *** CHARACTER DATA ***85,85,255,255,255,255,255,25564,81,213,247,255, "VL119:8)" "22)" ":DW8)" "JYjLPP23:L,0::P24,15:_ *** ML CHARACTER TRANSFER ***`173,14,220,41,254,141,14j220,173,24,208,41,14,10,10t133,167,169,208,13 "33)"LEVEL":32)""LVO#""32)" LONGESTDISTANCE";v$HI(1023)256(1022):32)""HI%P54272:400&P5,15:P6,240:P1,100:P4,129:P24,6'986,60:991,3:984:V21,15(F11F10:592FF114,193,170,32,30,193,173,120,193,201,2,208,19,136W169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240(16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,2402236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,I(1023)256(1022)DHI260;T(D256):T1DT256:1023,T:1022,T1m400:P5,15:P6,240:L115:P1,40:P4,33""8)"CONGRATULATIONS!":T130::P1,50""8)"CONGRATULATIONS!":T130::170,1283,166,176,15,85,124,21,247213,0,85,64,0,0,0,0*6 SHIP'S SHADOWB@4,0,0,21,0,0,85,64]J1,85,80,5,85,84,21,85uT85,0,85,64,0,0,0,0 MISSLE0,0,0,4,0,0,8,00,8,0,0,8,0,0,80,0,59,0,0,251,192,0 MISSLE'255,255,2550,21,85,127,255,255,255,255 0,0,64,85,213,255,255,2556 0,0,0,1,69,87,223,255R 5,21,22,25,5,15,51,204o 0,64,64,64,0,192,48,204 20,85,150,187,187,187,121,20 24,60,60,60,60,60,60,60 0,255,0,255,0,255,0,255 3,252,173~0,221,41,3,73,3,10,10,10,10010,10,5,167,133,254,165,1,41Q251,133,1,169,0,133,251,133t253,168,162,8,177,251,145,253200,208,249,230,252,230,254202,208,242,165,1,9,4,133,1173,14,220,9,1,141,14,220,96 ***1:FL1F0:54/4TR(31):T1R(5):""T)O$(T1):F11:59@6""W$""S$t7L01:TR(29):""T)" "T)" "::F11;49152<Q(253):Q1200ADD5:""32)DFL210L1L2:K40dW$"[[[\]^_^^][\\[^_][\]^__]90,72#<177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208iF234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172P116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92Z104,145,90,204,115,193,208,234,236,118,193400:""32)DE""6)"LONGEST DISTANCE YET":L13000:M20{,340:""9)"&&&&&&&&&&&&&&&&&&&&&&"-9)"%%%%%%%%%%%%%%%%%%%%%%".9)"% THE LARC-I MISSION %"/9)"%%%%%%%%%%%%%%%%%%%%%%"S SHADOW0,0,0,4,0,0,4,00,4,0,0,4,0,0,40,0,21,0,0,85,64,00& EXPLOSION IE00,0,0,0,0,0,0,0\:0,10,0,0,40,0,0,0qD0,0,0,0,0,0,0,0v EXPLOSION II0,0,0,0,0,0,34,00,0,0,0,128,128,0,80,0,0,0,0,0,0,0 EXP0,0,0,0,0,0,0,255!255,255,255,255,255,255,0,0$!255,255,255,255,243,192,0,0B!255,255,255,255,63,0,0,0a!$255,255,255,240,192,0,0,0z!.255,207,3,0,0,0,0,0!8255,15,3,15,15,3,0,0!B252,192,0,192,192,0,0,0!L195,255,255,255,255,6 ML SCROLL DATA ***9174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174}118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204116,193,240,20,200,177,90,72,1]^^_^][["$eS$"'''()*+**)'(('*+)'()*++))**+*)''"FfO$(0)"$/":O$(1)"#."^gO$(2)"!?,-":986,49:991,234:984:V21,3:V28,0400:P5,15:P6,240:P1,5:P24,15:P4,129V39,7L236239:2040,L:2041,LT,208,221,238,118,193,2326d32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162{n193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193x133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,15224,105,40,168,104,96,7, 53280,15:53281,15:"PLEASE WAIT..."L COMMODARES PROBLEM #29-4:b LARGE PRODUCTt SOLUTION BY BOB BROWNnJ14:P(J)J::3000K411:P(K)5K2000:200B,(C$),(D$): P(K)P(K)1:K4 30 - WORLD COORDINATES -"WL0,WR326WT20?&WB0d0 - VIEWPORT COORDINATES -: - (0,0) IN LOWER LEFT CORNER -D - (320,200) IN UPPER RIGHT -NVL20XVR300bVT190lVB10v VLVR TMVL : VLVR : VRj _SELF ADDRESSED LABELSe`a&_COPYRIGHT 1986 AHOY! MAGAZINEe`a_ALL RIGHTS RESERVEDe`ad4COMAL VERSION OF SELF ADDRESSED LABELS PROGRAM//nDIM VARIABLES//x,(  ::B p{$6 MOVE ==" " 1 XP,YP : = DRAW ==&"RAW : MV=3)X MV3 : ASSUME DRAWb  X,Y $ X1E29 MV1 : 1080 . X0 XX : MV2 8 B: (X,Y) PAIRS L -3,16,14,2,18,2,27,16 V 25,18,5,18,3,16 ` 5,18,16,5,-1 #- _SELF ADDRESSED LABELSe`a&_COPYRIGHT 1986 AHOY! MAGAZINEe`a_ALL RIGHTS RESERVEDe`ad4COMAL VERSION OF SELF ADDRESSED LABELS PROGRAM//nDIM VARIABLES//x,(  ::B 0_`a: ?D N DS:X}yM5/"Q̊NAMEADDRESSCITYSTZIPPASSESLINESERRORXYZCPC]ST LABELFORMATLITFORMATLISR00 LK1J:P(L)P(L1)1:8 A$"":B$"":C1:L19^ P(C)LA$A$(10L):CC1:3050p B$B$(10L)v  P(A$)(B$):PBBP:C$A$:D$B$ LOTTER 128RINT AKERENERIC AME 1 TM  VTVB TMVT : VTVB : VBTM6A(VRVL)(WRWL)DBVLAWLZC(VTVB)(WTWB)hDVBCWB~: DRAW VIEWPORT 1 1,VL,200VT,VR,200VB: = GET POINT X,Y ==: = (X=1E29 MEANS DONE : MV=1) :HOW MANY LINES PER LABEL?/h*jAT LEAST THREE LINES PLEASE.h*j ):},PRINTNUMBER//6$HOW MANY LABELS TO PRINT?READDATA//2'ENTER FULL NAME--20 CHARACTERS OR LESS. 0%ENTER ADDRESS--40 CHARA) *********************************Q * *y * THE LARC-I MISSION FOR C-64 * * * * BY JOSEPH BEDARD * * 1533 RIVER ST *  *  pNJ{$HOW MANY LINES PER LABEL?/h*jAT LEAST THREE LINES PLEASE.h*j ):}, p{6$HOW MANY LABELS TO PRINT?@} p{2'ENTER FULL NAME--20 CHARACTERS OR LESS. 0%ENTER ADD=READDATAPRINTINGROUTINEPRINTOUT PRINTNUMBERLSITEDIT20TERS OR LESS. (ENTER 2 CHARACTER STATE CODE. 0%ENTER ZIP CODE--9 CHARACTERS OR LESS. } pl{F LP: [ _e`a _e`a_egeg e`a& TT:L,T::828:53265,271 L4915249528:T:L,T:X L232239:L1039:L64L1,0:: L232239:L14063:T:L64L1,T:: L2731:L107:T:143368LL1,T:: L3347:L107:T:143368LL1,T:: L07:14840L,(14608L) = (X<0 MEANS MOVE : MV=2): : = (X>=0 MEANS DRAW : MV=3)X MV3 : ASSUME DRAWb  X,Y $ X1E29 MV1 : 1080 . X0 XX : MV2 8 B: (X,Y) PAIRS L -3,16,14,2,18,2,27,16 V 25,18,5,18,3,16 ` 5,18,16,5,-1CTERS OR LESS. -"ENTER CITY--20 CHARACTERS OR LESS. (ENTER 2 CHARACTER STATE CODE. 0%ENTER ZIP CODE--9 CHARACTERS OR LESS. PRINT ROUTINE//F LP: v _e`a _e`a_egeg e`a& o HYDE PARK, MA 02136 *A  * *i  ********************************* 53265,0:52,56:56,56::53272,30:T(TI) "";:53280,2:53281,5:(251)120 "PLEASE WAIT:":1022,0:1023,0 L828909:RESS--40 CHARACTERS OR LESS. -"ENTER CITY--20 CHARACTERS OR LESS. (ENTER 2 CHARACTER STATE CODE. 0%ENTER ZIP CODE--9 CHARACTERS OR LESS. } pl{F LP: [ _e`a _e`a_egeg e`a& T495223 S,4:S1,0:S2,31:S3,0:S4,24:S5,2:S6,2g L124:32)" ";::32)" "; 2023,160:56295,0:100:Q(V30):Q(V31) R(T)((1)T):252,0:253,0:""W$:""S$ ""15)" ":15): L828996:T:L,T::251,1R 53265,27:300:"";:53270,216:53282,1:53283,2 V53248:V,151:V1,150:2040,232:V2,151:V3,153 2041,233:V37,3:V38,11:V39,6:V40,0:V28,5 2042,234:2043,235:V41,11:V42,0:X151:Y198:S4,2!j 23,16,-27,16,6.7,16#!t 1E29,1E29E!: = SCALE POINT X,Y ==R!XSAXB_!YSCYDe!! : = LIMIT POINT XS,YS ==! XSVR XSVR! XSVL XSVL! YSVT YSVT! YSVB YSVB! ! 0,XP,YP : =0_`a: ZD (X DS:~@NAMEADDRESSCITYSTZIPPASSESLINESERRORXYZCPC]ST LABELFORMATLITFORMATLARACTERS OR LESS. 0%ENTER ADDRESS--40 CHARA Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADER"d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1" C-64d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED "" TYPE SYS 3072 TO ACTIVATE "# 32,161,12,165,45,133,2 80,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 !204,255,169, 4,13,166,254,32,143,13,76,73,13,96,32,98,13,165,211n  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,6u2,1706#| 13,32,195,255,76,180,13,133,67,169,0,141,0,255,165,67,96c# 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32"J 170,13,32,226,85,76,180,13,32,170,13,32,50,14 LTL `nnn n  mm`JJJFf)) 8  @  ( e e&&&miee 8* 4 BUG REPELLENT INSTALLED "H32,161,192,165,43,133,251,165,44,133q252,160,0,132,254,32,37,193,234,177251,208,3,76,138,192,230,251,208,2230,252,76,43,192,76,73,78,69,3235,32,0,169,35,160,192,32,30,171160,0,177,251,17051,165,46,133,252,160,0,132,254,32,37d 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98' 13,169,0,133,24,76,195,255,147,83,67/!82,69,69,78,32,79,82,32,80,82R! 73,78,84,69,82,32,63,32,0,76{!44,193,234,177,251,201,32,240,6,138!113,251,69,254,170,138,76,88,192,0!0,0,0,230,251,208,2,230,252,96!170,177,251,201,34,208,6,165,2,73"9;!, 254,170,138,76,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177}!6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32"J 170,13,32,226,85,76,180,13,32,170,13,32,50,14  RUPERT REPORT #338 MOEBIUS PLOTTERQ = FOR THE C-128 =Ws GR(0) : GR5 GR5} 1,1 500 : = INITIALIZE ==( 1000 : = GET POINT ==2 2000 : = SCALE POINT == < 3000 : =`x- ة Ѝ @ @ `  X@ȌɐL Bi i Bi BӍ L XӐ`,230,251,208,2,2308252,177,251,32,205,189,169,58,32,210a255,169,0,133,253,230,254,32,37,193234,165,253,160,0,76,13,193,133,253177,251,208,237,165,253,41,240,74,7474,74,24,105,65,32,210,255,165,253 41,15,24,105,65,32,210,53,230,254,32,37,13,234,165,253,160,0,76,13f 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12) 169,153,160,h255,133,2,165,2,208,218,177,251,201?"32,208,212,198,254,76,29,193,0,169X"13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 !204,255,169,2,76,180,13,32F"T 170,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32}"^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,3 LIMIT POINT ==&F: = PLOT POINT =<PXPXS : YP200YSaZ - 1) EXIT, 2) MOVE, 3) DRAW ->zd MV 120,4000,5000n 40 : - BACK FOR MORE -x 1,(0)2,(1) GR : RESTORE ORIG. MODE: = INITIALIZE ==& X X``nnn n  mm`JJJFf)) 8  @  ( e e&&&miee 8*255,169,13,"32,220,192,230,63,208,2,230,64,230U,251,208,2,230,252,76,11,192,169,153}6160,192,32,30,171,166,63,165,64,76@231,192,96,76,73,78,69,83,58,32J0,169,247,160,192,32,30,171,169,3T133,254,32,228,255,201,83,240,6,201 ^12,32,80,13,166,65,165,66,76,231,12,96,76,73,78j 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13+  32,13A h AHOY! SEPT862ABOOTER64 UG EP.128 UG EP.DEMO.O OEBIUS LOT 128UNC LOTTER 128RINT AKERENERIC AME 1"INE ANYON OOT" AST INJA OOTKENERIC AME 3ENERIC AME 2EAT EEPERARGE RODUCT ABELSASCAL ABELS ARC-ɠINE ANYON KK OGCATCHERHE AST INJARAPPEDPEECH64  DATA ULTI AM UAL-UMP 128 ATCHBLOCKSKK ARIABLE GR 128COMAL 64 BOOTCOMAL 64 0.14 COMALERRORS ML.SIZZLE HI MENU NAMES.DATKK>---ARTICLES---<COMAL ARTICLECRG14.COMPACTORCRG14.FILEWRITER CRG14.VIEWER! DIRECTORY BBS.CRGCOMPACT PIX.TXTKKCALVIN.CRG  DDLOGO%  COMPACT PIX GOOFYS CAR.CRG LOON.CRG !LOADER!LANKSPEED DIR 1'KK@@ @ RUPERT REPORT #339@ FUNCTION PLOTTERR@ = FOR THE C-128 =X@t@ GR(0) : GR5 GR5~@ 1,1@ 500 : = INITIALIZE ==@( 5000 : = DRAW AXES ==@2 XWL WR SS@< 1000 : = GET POINT = 53280,7: 53281,79 COMMODARES PROBLEM #29-1:O PRINT MAKERa SOLUTION BYx DAN BRUMBAUGH~ "ENTER LINE NUMBER";LN$:"-"; A$: A$"" 20A(A$) : A34 20( A13 (S$)71(LN$) 60 2" XSVL XSVR SY3$G YSVB YSVT SX3?G 3000 : XZXS : YZYSTG XVL VR SXeG 1,X,200YZkGG YVB VT SYG 1,XZ,200YG GYSCYDEE : = LIMIT POINT ==E XSVR XSVRF   53280,2: 53281,2: COMMODARES PROBLEM #29-2:P GENERIC GAMEb SOLUTION BYx MARK BREAULT~ R%(1)1048:I1N:(Q(I)R%)10::NN1:Q(N)R%:N410A$:N0:P0:I14:J14:Q(I)((A$,J))NN1:PP(IJ) T : VTVB : VBTMDA(VRVL)(WRWL)-DBVLAWLCDC(VTVB)(WTWB)QDDVBCWBwDYN1E38 : YX1E38 : YMIN & YMAXD N1 15 : SP$SP$" " : D 1DD: = GET POINT ==DYA(X)D (145)E 1,1,1,"X = ! COMMODARES PROBLEM #29-2:8 GENERIC GAMEY CHOOSING UNEQUAL DIGITS BYp HENRY FARKAS -- COMAL SOLUTION --d:PROC PICK'NUMBERn:PICK$:"0123456789"x:PICK2$:"": X:1 4 : Y:(1,(PICK$)) : PICK =#AF 2000 : = SCALE POINT ==GAP 3000 : = LIMIT POINT ==]AZXPXS : YP200YSAd 4000 : = PLOT POINT ==An XAx 1,1,22,"Y MIN="((YN)SP$,15)A 1,1,23,"Y MAX="((YX)SP$,15)A "Y MIN="YNA "Y MAX="YXB "A$"-";:S$S$A$: 20B <Q$(34):""LN$" PRINT"Q$""S$Q$""g FKBF631 : NDX198 : ASSUME C-64 P DS$"" KBF842 : NDX208 : MUST HAVE C-128 INSTEAD Z KBF,13 : NDX,1 : T AKER 53280,1: 53281,19 COMMODARES PROBLEM #29-2:P GENERIC GAMEl METHODS FOR CHOOSING FOUR UNEQUAL DIGITS DAVID ALAN WRIGHTN$"1234567890":I14:R((1)(11I))1:D$(I)(N$,R,1):E11IR N$(N$,1,R'! J,I:KK1:"",N","P,K:P420UG EP.128 UG EP.DEMO.O OEBIUS LOT 128UNC LOTTER 128RINT AKERENERIC AME 1"((X)SP$,15)'E 1,1,2,"Y ="((Y)SP$,15)GE YYN YNY : SAVE Y MINgE$ YYX YXY : SAVE Y MAXmE.E: = SCALE POINT X,Y ==EXSAXBEYSCYDEE : = LIMIT POINT ==E XSVR XSVRF 2$:PICK2$PICK$(Y)! : CASE Y OF. : WHEN 1N : PICK$:PICK$(2:(PICK$))d : WHEN ((PICK$)) : PICK$:PICK$(1:((PICK$)1)) : OTHERWISE : PICK$:PICK$(1:(Y1)) PICK$((Y1):(PICK$)) : CASE : X  GR : RESTORE ORIG. MODEB!B:HB: = INITIALIZE ==hB: - DEFINE FUNCTION HERE -nB:B A(X)(X)B:B&SS.1 : PLOT STEP SIZEB0: - GRAPH LIMITS -B:WL1 : MINIMUM XBDWR10 : MAXIMUM X CNWB10) BB1 : B0 : 180; A(I)A(B) BI : 140E 150a Q1 4 : A(Q); : g | DAVID HOFFNER Y0 3 X((0)10): Z(X) 220:Z(X)1:A$A$((X),1): : A$D$(I)(N$,R,1):E11IR N$(N$,1,R 1)(N$,R1,E):+ ( Q1 4 : D$(Q); : 1 2C < MIKE STYPE` FZ09:A$(Z)((Z),1): PR((1)10): A$(R)"X" 80 ZB$B$A$(R) : A$(R)"X": (B$)4 80 d : B$ n x KAREN MIDDAUGH I1 4 : BI A(I)((1) 53280,11: 53281,11; COMMODARES PROBLEM #29-3:Q BEAT KEEPERc SOLUTION BYy BILL OKERBLOMS54272:S24,15:S5,0:S6,5:S1,25:D$""A$D$"ב " B$D$"       בXSVL XSVLF YSVT YSVT)F YSVB YSVB/F UF: = PLOT POINT XP,YP ==cF 1,XP,YPiFF: = DRAW AXES ==FX0 : Y0F 2000 : SCALE (0,0)FSX1 : SY1F DOTTED LINE IF AXIS NOT VISIBLE G:PROC PICK'NUMBEROBLEM #29-2:8 GENERIC GAMEY CHOOSING UNEQUAL DIGITS BYp HENRY FARKAS -- COMAL SOLUTION --d:PROC PICK'NUMBERn:PICK$:"0123456789"x:PICK2$:"": X:1 4 : Y:(1,(PICK$)) : PICK1 : MINIMUM Y&CXWT1 : MAXIMUM YKCb - VIEWPORT COORDINATES -pCl - (0,0) IN LOWER LEFT CORNER -Cv - (320,200) IN UPPER RIGHT -CVL160CVR310CVB100CVT190C VLVR TMVL : VLVR : VRTM D VTVB TMV 婎  ؝ٝڝ Щ !ЭЭТԩԍԩ ƩGȩȅȍȩ؍Щ/?ݩݩ ЩЩ ܩ3Нѝҝӝԝ՝֝םͩ7 ܢ]Ɲ؀ǝΑΑΑΑΑΑ"Y G$" (-)SLOWER (0)SAME (+)FASTER (E)END":C$" BEATS PER MINUTE: "{ " BEATS PER MINUTE ";BM X$A$:13:X$B$:13:12 TI$"000000":G$:C$;" ";BM:12)X$ S4,129:S4,130  TI60 60BM 15 E @@ @V@ vV@@ijAFZjjjj{n@@@@Pdij@jjjjAjjjjjjn{T!@$R*%QD$T"J" > F ©Lp# ǍɍL?ȍʍL^=Ѝ Щ ЩХ+F :TLЭɆL}Ѝ ЩЩ L Э ]L ɝLЭ=Ѝ Щ ЩL ILĭЭ)LMĭ2 ТLĭ ТLĭ6iȩLĭЭ)Lĭ<IТLĭ$IТLĭ: ȩ`` `3Ԏ ԩԎԎ Ԣԍ -5 @800000@8" @ 0P@8@" @@@000@b2  0L0 , " ?Tǝ@?ǝ?ǝ?120ЩЩТPЌТЌТ3ЌЩ*Щ%Щ&Щ(Ѝ)ЩЩЩЩZ ݩ ݩcݎݩݩݎݩQݥLf)M L L L L[$:E$""F$E$" F$"+" BMBM1:9 F$"-" BMBM1:M F$"E" "":S LUTION BYy BILL OKERBLOMS54272:S24,15:S5,0:S6,5:S1,25:D$""A$D$"ב " B$D$"       בf"PJ*$RPE@SCORE PRESS THE FIRE BUTTON TO PLAY AGAIN.H 1986 8?< L L L ĩ ݭ) L ȩLR­)L-© LHHHԩԩԍ  éԩ"ȭH ^ LQ6 `Ȍ `Э) EL ТL`Э)       0Ý1ĝ2ŝ3 ؝؝ٝߎ Т@ ؝؝@ٝٝڝ Ӣc,؝ٝ,cCVCٝVٝڝߩ  '쩒 ŝŝ`ŝŝŝ(Ԣ؝`ٝڝک؝ٝ(ڝߩ  z  ڝ?؝? ڝO?/O؝?ٝ/ڊi(Lǩڍڢ`x͍X`޵UW֭UW4޵UWޭ֭ޭ , : @0000 ?3, :  3  * 8L)`ԩԩԍ ԩԍ ԩԩԍ `JJJJ) 0 `) 0 `MINE CANYON JOHN KRUTCH 1986 Lʥ 0L``=#ɿɟ%_?`x07ɍ1Lʥɂ20">Lʥ0 L``ЍЩXЍЩݍЍЩ̍(  Lʭ  LʩЩЭ `)L© L­LЩL­ɂ L©L©L©L©-& ԩKԩԩԩԩ`-& ԩKԩԩԩԩ``ή3ԩ 8mԩԩ`ԩLũ-ЍLũ-ЍLŭ@ Т-ЍЩ)Щ)Щ ЍЭ8 8ZЩԩ ԩԩ`ԩ`ԩԠ` mɭЍЩKȌ  Щԭ 8 ЩЩd ɭ`ԍԩ`ԩԩԎԊHԠa `8аIЩ ЍЭ î=ʎ) Laȭ#8аIЩ)  bȩ``)Щ@ ȱ''i(iδ` `  ʍ)ʍʍ+Ѝ Щ ЍЩ-ЍЩPЩ ЍЩ- ˭`"ԩ$L1ԽT΍Խ|΍Խ΅eL  ڏNڏhNڏ ڏNڏh           Ɲso LS JOYSTICK BUTTON TO START GAME  OU HAVE ATTAINED THE RANK OF î.. ý¦DEPT HUGYO UDANSHAIGER RAGON INJA HINOBI ENSEI HIDOSHIONIN w˩̅ LʩLЭ.  L˩ЩЭX  L'˩ЩЭX  LD˭-ɹ-Lp˩-,ɹ, Ɲs)$ƝsL`ЍA2!10 /Q.I*1&)" ЍL SPEECH64( BY SCOTT C. BAGGSG 4000 : POKE ML ROUTINESc#49358,5 : SET PITCH( (147): CLEAR SCREEN2 14);"* SPEECH64 *"4::6 14);"1 RECORD WORD": 14);"2 PLAYBACK WORD" 7 14);"3 LOAD DATA ": |00xπ@x00` j  ?&ʠj. ##  " o* ThTTP 0TPTThTT(P, 0 , 255 0 , 255 , 0 , 254 , 253; 251 , 247 , 239 , 223 , 191[ 127 , 255 , 187 , 255 , 3{ 255 , 32 , 255 , 173 , 17 208 , 41 , 239 , 141 , 17 208 , 120 , 32 , 192 , 192 173 , 13 , 220 , 240 , 251  162 , 16 , 1 <`0 Øð`>``ThTTP+T@PPTT h T T P  T@PPTU@TTB T )256(188)  SET FILENAME LENGTH- 183,(FA)C  SET FN. POINTERa $187,(FA1):188,(FA2)g .v 8SA$"4000" BN$SA$:2000:SLBL:SHBH G LEA$"5800" VN$EA$:2000:ELBL:EHBH [ SET STRT ADD. PTR. `251,SL:252,SH e 240 12 , 169 , 15 , 141 , 24/ 212 , 76 , 159 , 192 , 234N 76 , 175 , 192 , 169 , 0n 141 , 24 , 212 , 76 , 171 192 , 234 , 76 , 175 , 192 202 , 208 , 219 , 200 , 208 214 , 230 , 3 , 165 , 3 205 , 5 , 192 , 208  14);"4 SAVE DATA "/ :A$:A$"" 58B ;A$"4" 58` < (A$) 200,70,400,1000h A40 F PLAYBACK PRAMETERS dSRT64 : 110 f53265,(53265)239 : BLANK SCREEN i49287 : PLAYBACK j53265,(53265)16 : ENABLE SCREE$ 0T0@ gA nA z * * (h(X(P(@ @@ * *p*@@@)@P@P((%()g(ggWQAyA٠  04H{̥yP773 , 13 , 220 208 , 6 , 202 , 240 , 241; 76 , 67 , 192 , 162 , 8[( 32 , 205 , 192 , 173 , 13z2 220 , 41 , 16 , 240 , 10< 177 , 2 , 29 , 16 , 192F 145 , 2 , 76 , 110 , 192P 177 , 2 , 61 , 32 , 192Z 145 , 2 , 76 , 110hEU0U@00T0T00::Th  @T@U@@TPT WP0 U@TT  * PW@0@ @@@000T0h0T T@PP SET DEV. & S.A. j186,DV:185,1/ o SET .A,.X,&.YL t780,251:781,EL:782,EHl ~65496: GO DO SAVE ($FFD8)r x   HEX -> 2 BYTES (DEC.) : N0 I1(N$) :X((N$,I))48 :N16NX7(X9)  4BH(N256):B, 205  88 , 96 , 173 , 2 , 192+ 133 , 2 , 173 , 3 , 192H 133 , 3 , 160 , 0 , 96f" 169 , 5 , 141 , 0 , 192, 206 , 0 , 192 , 173 , 06 192 , 208 , 248 , 96 , 255 , 162 8 , 32 , 205 , 192 , 177 2 , 61 , 16 , 192 , N l nA49154 : $C002N xA,0:A1,SRT :A3,SRT 24 :A2,0 : [ RECORD "RECORD - PRESS PLAY ON CASSETTE" ((1)16)16 215 : WAIT SRT64: 110 "START TAPE": 49200  LOAD DATA@! A!! !D ! B @ @ @@B HH $!@$ H! @" H  AA@ B!!!@EH)I*J UR$*U%TYU*MB)BJ U Vʨ,Q* , 192d 202 , 208 , 223 , 200 , 2084n 218 , 230 , 3 , 165 , 3Tx 205 , 5 , 192 , 208 , 209r 88 , 173 , 17 , 208 , 9 16 , 141 , 17 , 208 , 96 120 , 32 , 192 , 192 , 162 8 , 32 , 205 , 192 , 177 2 , 61 , 16 , 192 ,  0PZ0@ gA nA z * * (h(X(P(@ @@ * *p*@@@)@P@P((%()g(ggWQAyA٠  04H{̥yP7LN256BH>I49152 49371! Q+ I,Q3 I9T DATA FOR ML ROUTINESo 0 , 255 , 0 , 64 , 0 88 , 5 , 255 , 0 , 255 0 , 255 , 0 , 0 , 0 255 , 0 , 1 , 2 , 4 8 , 16 , 32 , 64 , 128 255 , 0 , 255 2YJ֪tZjյZl-VUVUUZ+VUJUUUZj5YmUmVlYfmUjL!U TPUq ,RR5DR *   "$ B ""AA!DD !  !"!! !A  "FILENAME";FLN$/ "DEVICE NUMBER #8";DV? FLN$,DV,1E ` "SAVE SPEECH DATA" "DEVICE NUMBER #8";DV "FILE TO SAVE ";F$:F$""1010  LOC. OF F$ 187,(71):188,(72)  CSLC. POINTER TO F$ FA(187 $BB"("DB)!$""" DDBDB"$ DDD@DDDDDDH"!!""$@DHD! @$H""$A""""D H """ ""$H$"!"$D!"DDDH"$$"H@H"""@"DDH$!" $DH @ D"B$ HB@ ! @@DD"" $B"I@ @ "$$ "Q$HT$RRIJ!DR$$HI) JBI$H1)U%($"HI"$$E%I(I$D"XD$I!% DI$ȒH$I"JIH$D@!$@"DA%!BDA"ABAD B"@@  "BBA!"P@"I"(AJTJIJJ)U%UJU%R)$)TURJji&iUJUU"aJU*2UҘS*U*eLBRUDŕFҪ*ڨEX5 1[2U*PEPUfUI$!Hʤ eRJ*RJU R"DQAB D$)""  DD  A!!@! A@AD $BA!BABժPBA(TZ!"ՊD A! B@! AA@!BA BA@B! @ !H @@@A"B D!B@  ! @A   @ @@  @  @ @@  @@ @@@A@@@"B "$@ " ! @@@@@@@@@ @ @   @ A@@ A  @"@  A@ A @A@@ @@ @ @$(D@ IRM$"%RDJ%JQI$%TAID"I$I$$R!DD%RJM$""DI$"BL"$$H$H$E"$DB$""!"""!A!B    @!AB D@"B! DD!   A@  A! BA@!  @!B  "!"@ !D @@@ @ @ @  @ @  B"@!"  B!!D!DQ$B$J"R$E%Jh!TU"L*5TUUFB@"(BQ("HHD!@DD" DD@"B"@!" !"  $!@!H "D @ "@!"  DBBH@@ @ @@A @@ @ @@ "!@BD @BA @ !" @A`TRRPA(2LPA!B  A BD B"B@"D@" @ @@@ @ @@ @  @@  @ @@ @@@@  @ @ @  @@@@@  @@ @@ @  @"ADA!""!DDB"D"!HDDB"  @@!" @ @ @@ @   @@ @@@   @ DDBDTC($ QBH!UU!L(*ETUYV!iUUTUY3 sj+DҩjfULJ*UԵ) *RK![@ljM* JUB $%DHIH BB@  "!@@A   B @@@@  @@@  *PjR!JTP%UUI)(Ba*AUT%EIP) I)II*$ $JDI$HH"I)I """""BJ$D 2$P!! q  AAB@ ! !@A!B  @ D  @ B"B@"H !" @ @@ @@! ! H@H@@@@    @@ H@@A@!@!AAA!!!!"@"@ @$@""" B"$"$A"!@@ @    @ @  @ !BAB!B!@! @   "ADB   G OPEN15,8,15,"S0:COMAL 64 BOOT":CLOSE15:SAVE "0:COMAL 64 BOOT",8c ""; : CLEAR SCREEN 53281,0: BACKGROUND BLACK 53280,0: BORDER BLACK ""; : PENCOLOR GREEN A1 90# 15,8,15,"U;"(15,D1,A$,D2,D33!A@@@@A" !B A B@" ADD BB!D @@ @   (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN H $H")$H$B"$ "J$ "H$H HP" DBDH@D"DD @DD@$B ! !"DDD@@@  H$@  $B@$"DB"DB$HB  "H$I!"""$DH"@"B" " COMAL PROGRAMS CAN ONLY BE EXECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  " ACOLLISION HIDESPRITEKEY SPRITEBACKMOVETODRAWTOGETCOLORFILLFORWARDSETXYLEFT SETHEADINGPRIORITYPENUPPENDOWNBORDERRIGHTBACK SPLITSCREEN SHOWTURTLE TURTLESIZENEXTLINEFEED FULLSCREEN HIDETURTLEHOME;; ; ;  ;;; ;;  ; ;  & ) A$"OK" 15,"U:":15,D1,A$,D2,D3R + "1571"(A$,14,4)15,"U0>M0":15:70Z 215y < "1541"(A$,14,4) 100 F"LOADING ML.SIZZLE P A0 A1:"ML.SIZZLE",8,1 Z 49152: d "";( n                    OTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEKABB!!! B@!! A!A@@@@A" !B A B@" ADD BB!D @@ @ ";2  " BACKUP THIS DISK BEFORE YOU USE IT ";8 > \  CHAIN"HI + h  198,9y  631,("C")  632,("H")  633,("A")  634,("I")  635,("N")  636,34  637,("H")  638,("I")  6 ; % ; ; ;; ;;; ;; ; ; ; ; $$  ;; ; ; Q2Q$CDADCQ" PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";. x\ "TUTORIAL: FOUNDATIONS ... WITH COMAL" "DOCUMENTATION: COMAL HANDBOOK "NEWSLETTER: COMAL TODAY " AVAILABLE FROM: " ""; : PENCOLOR YELLOW$                                                      //!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT!39,13 "COMAL 64 0.14",8ECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  "Qa000000H8JKL%\]MND6OPR&79ISVWXY^EZ[CE' )!'$#"*.2,04  " COMAL USERS GROUP, U.S.A., LIMITED "T " 6041 MONONA DRIVE "w " MADISON, WI 53716 "SEND SELF ADDRESSED STAMPED ENVELOPE" "OR CALL 608-222-4432 FOR MORE INFO." "" : PENCOLOR WHITE                     ?>ʈts,+ +u++I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ`L*c /L Jid /uf / LlgɀЩ/` a L)h )M j 6)!6 "6L) dLim X d )M L'i XL)n XL~o  d )L)p,1 d c 1pd8ce1  X/ sLJr : LHɀоL!L{ d ) ЧLk d )  6 6L)ɀة d )Ω cL{  cв  L! L! d   X1 L)L' d X0 0/L*/ 0uɀéLkLsL{ d  `L `Lx xL L 0eL80 Lx)8 L/ 8 #̠  LR 6~ ̠ ׻ x)x`` [ ~de```r`cLiJuiv ,LC L<= ,hL4L L i  L L 5*   L  L   L~ JJJJ+~ JJJJ+   L , L   L    i  L L  Jii   `   JL* (.3?Qn,:s{,225+ FL0 ~ )+  +HH` LL*L L;Zds  `{M 8M`8LF8LL3 J  ` `LK  5 6x)x 0x x x)xa +  L: X6 6#(H(H` 13 3 ccfL'52 5308h0 d3֥ХʩPL)7и3JЭ2M ixM LitM  cfL'8ce0 s,ui 0  t  L* 0 /MuLt/M ɀ L' |{L! d} c,L! d 8ci  ޥ6),) c dL'  X h|L' )O/m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ JН /L! JCi /u L!l1,L! 6   L! L'  moL!  )L'  Ji uL! ]  )   Ʃ   \. )  %    )    9)6) moЋ/ )/`    Jߩ,L!6) )l,~3 з3,L! F s  JL' ), sL) ) sL) s )   )   )   ) ) sL) s )   ) ) sL) s ) ) sL) s )sL)J s ) )K sL)L s )L)N s )L)P s ) )Q sL)R s )L)S s )L)T s )L)L)#% ""$ #  # ! #$$" !#!$$"$$ " "#$#(#$$$%%%%%%%%%%%&&&