' +JJJJ ?\>m0M='+l> /+l  ٠ƠӠԮӠɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJ IЅ֠] ,LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ϠӠ  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LC PXQXRXSXTXUXVXWXNWŢ@x ! L TO "NORMAL" TRACK #$11 11 $AC01 ; #;SET UP JMP (SECRET) TO GO"START"! START SECRET START+$1 SECRET+$1 6CJMP () O50000:  MODULE*0u  THEME SONG?5u"BLOAD RJKDTU"X:uF%768:T%769:P%791i>u(16):(10)oXh"DELETETEST":"SAVETEST":"CATALOG":rD$(4):1002:D$wD$"MONC"|D$;"SAVE"F$",D1"D$;"SAVE"F$",D2" D$;"CATALOG,D  ƲUP/NEAR BARRIER(ǃ133,46,192,85<DzUP/FAR BARRIERFǃ1006R$DzCOLOR=e.ǃ102,15,102,17s8DzEYE PYR2Bǃ102,16,20,140Lǃ1004Vǃ102,16,20,140`DzTEST BLASTjǃ1006tDzCOLOR=GRN~ǃ236,100,235,97_500`/100 ,279,160fƃ 277,189,277,162*pƲR BOX4zƃ1002@ƲCOLOR=Oƃ0,0,279,0^ƃ0,0,0,191qƃ0,191,279,191ƃ278,160,278,0ƃ1003ƲCOLOR=WHITEƃ126,58,148,74ƲL/BASE BARRERƃ162,84,186,100ƲR/BASE BARRIERƃ130,46,192,884,274,114ŲRT/BASE PYR3/Ń274,114,246,86EŲRT/FAR/EDGE PYR3[ƃ 149,160,279,160s ƃ 151,162,277,162 ƲTOP BOX ƃ 149,160,149,191*ƃ 151,162,151,189 4ƲL BOX>ƃ 149,191,279,191Hƃ 151,189,277,189 RƲB BOX\ƃ 279,191152,38lŲFAR/RT/BASE PYR20vŃ186,114,246,86IŲLEFT/NEAR/EDGE PYR3]Ń186,114,226,86qŲLEFT/BASE PYR3Ń226,86,246,86ŲLEFT/FAR/EDGE PYR3Ń186,114,240,154ŲFRONT/BASE PYR3Ń240,154,246,86ŲFRONT/NEAR/EDGE PYR3 Ń240,15IJRT/EDGE PYR1 ă 88,0,50,172IJRT/BASE PYR1Că110,4,64,28WŲLEFT/EDGE PYR2iŃ110,4,104,56{ŲRT/EDGE PYR2&Ń110,4,152,380ŲRT/FAR/EDGE PRY2:Ń64,28,104,56DŲNEAR/BASE PYR2NŃ104,56,122,49XŲNEAR/RT/BASE PYR2bŃ136,45,UP/RT EDGE WALL"ră45,142,92,191<|IJNEAR/UP/RT EDGE WALLSă 45,174,58,191oIJBOTTOM/RIGHT EDGE WALLă45,174,45,142IJRT/VERT/NEAR GATEă 45,142,50,140IJUP/EDGE/RT GATEă 30,0,50,17IJFRONT/BASE PYR1ă 50,17,50,0  WALL Ã0,127,5,133- òLO/LEFT EDGE WALL> ă0,96,5,102 U IJNEAR UP EDGE WALLg ă11,100,5,102| "IJIN/UP/EDGE WALL ,ă 5,102,5,131 6IJLF/VERT/NEAR GATE @ă 11,100,11,129 JIJLF/VERT/FAR GATE Tă 11,129,5,133 ^ă50,140,100,191hIJFAR/222,18 òLEFT/FAR EDGE PATH2 à 80,171,186,98J òLO/RIGHT EDGE PATH] Ã198,88,266,40u òUP/RIGHT EDGE PATH à 188,0,228,22 òLEFT EDGE OF PALACE WALL à 255,35,279,48 òRIGHT EDGE OF PALACE WALL Ã0,90,11,100 ò FAR UP EDGE OF298 `16303,0 c d# n+ x108 70:130@ 85H I$P 84c I$:I$" "ijl 140r  hF$"RANDOM ZAP" r"SAVE"F$ |"CATALOG" OÀ PÃ1003 ZòCOLOR=WHITE dà 12,104,126,58 nòLEFT/NEAR EDGE PATH xÃ143,51,RES FOR EXPLOSIONSR R16300,0:16298,0::PAGE 1 LORES, ACCESSIBLE FOR DETAIL. S16300,0:16297,0::SWITCH P2 TO P1 HIRES T16300,0:16303,0::FRM P2 HIRES TO TEXT U16299,0:16304,0::TO P2 HIRES FROM TEXT ZI$ [16300,0 _X1%,Y1%:236,100X2%,Y2%> J3:64,28:104,56:12,104126,58 K80,171186,98:186,114246,86:186,114226,86:186,114240,154 O P16299,0:16300,0:16304,0::SWITCH SCREEN PAGE 1 FULL SCREEN FROM TEXT Q16297,0:16298,0:16304,0::LO* 60000! :50000,59999:B X1%:X1%1000ĒX1%1000:10Q X1%500ı{ Y1%:X2%:Y2%:X1%,Y1%:X2%,Y2%:10F6:102,16:X1%(1)100:Y1%(1)8050GX1%,Y1%:X2%(1)9060:Y2%(1)50110H236,100X2%,Y2% I4:102,16:     ȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰Ϭǃ133,46,192,85_500`'/100>  PALACE GATES X  JSL 10/27/82 V.1F77,162pƲR BOXzƃ1002'ƲCOLOR=6ƃ0,0,279,0Eƃ0,0,0,191Xƃ0,191,279,191kƃ278,160,278,0uƃ1003ƲCOLOR=WHITEƃ126,58,148,74ƲL/BASE BARRERƃ162,84,186,100ƲR/BASE BARRIERƃ130,46,192,88ƲUP/NEAR BARRIER(219)256;" = ";(222)=::SH$"HIMEM:";(115)(116)256U"  JSL 8/8/82 "F8/8/82 "FPRINTOUT"""ANOTHER ANIMAL"6"INITIALIZER"J(16):216,0:}"AD936:(36001)111AD(36002)(36003)256:"=RE-ENTER AT "AD;" =COLDSTART ";:I$:I$"R"ČADI$"C"Ĺ36001,0::AP$"AD="AD:SH$"LINE";(218)D%25OFFSET%10000&DI$"1"0DI%18N0BDT%2JHADTROTP$^\CLS$g/100n:2xDNOAHbCHANCERY-GOTHIC]"SUMMARY""DISK CATALOG""EDIT ENTRIES""SEARCH FILE""ALPHA SORT" "C$"CLOSE"R$"READ", W$"WRITE";!L$"LOCK"L"U$"UNLOCK"f#ID$"[ NOAH'S ARK ]"r'D$(4))M$D$"MONO"RT$D$"MONC"RT$D$"MONI"RT$*N$D$"NOMONO"RT$D$"NOMONC"RT$D$"NOMONI"RT$BS$(8)HO%1:LO0:HI200016336[BE$(7)(7)4\HEX$"123456789ABCDEF0"F]DRIVE%21912]BUNNY$"1ABHI"PA%15935:PB%16240:YK%128LF$(10)CO$(15)NRML$(18)EX$(14)NX$(20)FF$(12)TA$(9)D$(4)O$"OPEN" 2@"J$" "LC$(12)(tꥫ63000TKBOARD%16384:KCLR%16368:KPRESS%128`I1:JImCL%868CV%37:CH%36A$(50):A(50)INDEX$(18)TE%27UE$(27)VBS$(8)WRTURN$(13)XQ$(34)YLB$(91)ZSPEAKER%1DEKLRS"%BABY$"1FGMN"+Ų@MSYMBOL$"17"UFSYMBOL$"16"hBIRTH$"19"~DECEASED$"18"INFINITY$" OO"PROGENY$"15"CHANGESET$(2)(1)APPLE$(26)SHFT$(19)CLS$(16)CU$CH$"56):CLCS256CH*ùADRS7,CL:ADRS8,CHYA%AD256:B%ADA%256:36003,A%:36002,B%hù36001,111sÁI1A|ÇCN$ú(4);"BLOAD CHR.";CN$;",A";CS(I1)768ÂIbNOAH$"1 ABCD"gŲlMALE$"1ABHIOPVW"qŲ vFEMALE$"ILES 11"TAD936:21912,1)Uë50010[Wí(36001)111AD(36002)(36003)256:50170gZå63000rdADRS0iÌ1002:(4)nú(4);"BLOAD RBOOT"xÌ520ADRS(0),"HRCG"ÇAíADRS0ADRSADRS65536CSADRS768A:CSCH(CS2$:CL$:210ૺ::J$" ":5700嫭ER%044000>꫌1002:D$G﫺AP$[D$"CATALOG,D"Jg3:200hF$"[ NOAH'S ARK ]"m"MONC"r1002:(4)|"UNLOCK"F$:"SAVE"F$:"LOCK"F$"CATALOG"63000Pú(16)Rã31592Sú"MAXF @J0JDT%DI%J:DI$I$:;ABE$;:(HO%):CL%:570MTI$"CATALOG"X40000i TI$"EDITOR"t 40000TI$"SEARCH"40000TI$"SORT"40000pTI$"PRINTOUT"@TI$"INITIALIZE"@50J1002:D$O50530,50560 TI(Y/N)":DF$"N":J$" ":550O5I$"PRINTOUT THIS DATA":560:P%0:I$"Y"P%1:U6v:DF$DI$:I$"DISK DRIVE # ";LO1:HIDT0TAL%:L%14:I$" "DF$;<(L%HO%):CU$DF$:J$" ":77=K$;:CU$CH$"2@":J(K$):I$K$>I$RT$JDI%:?I$E$LO;" IS TOO LOW":I11000::::JLO:ER%1:kJHIĺ::">"HI" IS TOO HIGH"::I11000::JLO:ER%2:v$CL%:|&'I$I$": ":(HO%)(CU$DF$*:I$;:77:(HO%):CL%:((CV%)):CU$" ":I$K$:I$RT$I$DF$+J(I$):IJ:0I$I$"? ";:536@K%21L%D%ĺCU$BS$;:K$J$:J$"":I$I$K$:K$;:519KJ$" "eK%32ĺ" ";BE$;:512L%1D%I$I$K$:CH$;"2";K$;:519L%D%519(I$)0K%13I$DFAULT$K%E%ıI$""ĭ(I$)95I$""-J(I$):JLOĺ::"<";$": "DF$;:LL%L%2' D%35Ģ((CV%))< (LL%HO%):I$""X 77:L%(I$):K%8524t L%1ĺ" ";:J$" ":512 L%D%ĺ" "BS$BS$; L%1J$(I$,1):I$(I$,L%1):L%D%ĺ(95);BS$; L%1ĺBS$CU$BS$;:519 K%3100K%13K%27ĺ" "< "I" > ";:IN$(I):IN$(I)::5 32,0:33,40:3F ,J0J8200Y 1TI$IN$(I):50h 6J244000u @J7100 40000 100  J$" " DFAULT$CH$"2" I1D%:DF$DF$(95): QU$I$ L%(QU$) (HO%):CL%:CH$"2"SH$QU9999:I$"ANIMAL":5003 sI$"RABBIT"L0G0$BUNNY$Y x::SH$"LOADING DATA FOR ";SH$I$c 200s O$I$:R$I$ A$(N):NN1:150 C$ 63000 TI$"INDEX":50 :SH$"OPTIONS:": 32,5:33,35 I$:I$"]"246! I18:* NA$BS$;:K%(KB%):CU$BS$;:K%KP%78Q OK%K%KP%:KC%,Z%:K$(K%):ER%0:i P"# OF RECORDS ";N Q"FIELD SIZE ";F RS(.25(N(F1)2562)):F15SS1 SS" SECTORS":80 dTI$"ANIMAL":L0G0$NOAH$:50:(6) iCLS$ nD%20:LO0:HIK"; 5(41(TI$)):SH$TI$;b 6(3):(1):"========================================";:34,3::t 7A$""A$"-" 8A$LF$RT$A$RT$:Z1(A$):I%((A$,Z,1)):I%95I%I%64 9PB%,I% :(PA%)YK%58 ;Z: M:ER%256:A$J$:J$""A$" "V 500004(24):(19):CU$CH$"2@":J$"*":77`I$K$::I$;:J1255:::IK%48:JI:I%(SP%):SP%,0:SP%,255:I%(SP%)::(20(I$)2):I$:: CLS$:100,499:234,0::CLS$;3AP$L0G0$" "; 4CH$;"2"SH$"NOAH'S "SH$"AR        R3Ń274,114,246,86,ŲRT/FAR/EDGE PYR3Bƃ 149,160,279,160Z ƃ 151,162,277,162 gƲTOP BOX} ƃ 149,160,149,191*ƃ 151,162,151,189 4ƲL BOX>ƃ 149,191,279,191Hƃ 151,189,277,189 RƲB BOX\ƃ 279,191,279,160fƃ 277,189,2YR2vŃ186,114,246,860ŲLEFT/NEAR/EDGE PYR3DŃ186,114,226,86XŲLEFT/BASE PYR3kŃ226,86,246,86ŲLEFT/FAR/EDGE PYR3Ń186,114,240,154ŲFRONT/BASE PYR3Ń240,154,246,86ŲFRONT/NEAR/EDGE PYR3Ń240,154,274,114ŲRT/BASE PY:I$"Y"ČRE:""-iDA$((222)):50:(20)i"1:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: RESET TO NORMALIZE 1.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.";i(5)D h'255h,16368,0"h623:14h@(15);(16);Oh| ERROR TRAP FOR RLOADWh:bh216,0h8CTRL-O:CTRL-T:POKE-16304,0:RESTORES HIRES SCREEN AND TEXT MODEhBPOKE-16297,0:POKE-16304,0iRE31582::"CALL ";RE;" TO RE-ENTER HIRES? ";:"";I$"8gX1$"1========================================"Hg X2$"1;"Xg*X3$"1+"hg4X4$"1-"pg[90g$  DATA g.21g86,3,5,5,2,2gB1gL 4,4,4,4,4,4,4gV2,2,2g` 5,5,5gj0g  CONTROLLED SHUT-DOWN h"""::flM$(4)"1RSTYZ!"fq4fvM$(5)"1123456":f{YfM$M$(1)M$(2)M$(4)M$(0)ufM$(3)(12)M$(0)(26)fM$(6)(12)M$(1)(26)fM$(7)M$(0)fHEART$"1*"fSHADE$"1:."g XXXXX$"1---------------------------------------D$(4)(eD$;"BLOADCHR.PACEMAN,A";CSLeD$;"BLOADWORLD MAP.PIC,A$4000"VeCLR$ze" PACESETTER SYSTEMS":M$(0);e0  PICTURE DEFINITIONS e?OTP$;eNM$(0)"1ABCHIJ"eSeXM$(1)"1DEFKLM"e]ebM$(2)"1OPQVWX"eg RBOOT":520: BRING IN RLOAD2dfADRS(0),"HRCG"=dp216,0YdzADRS0ADRSADRS65536dCSADRS768:CS: MAKE ROOM FOR CHARACTER SETdCH(CS256):CLCSCH256: CHAR SET LO/HI BYTEdADRS7,CL:ADRS8,CH:ADRS3:INIT HRCGdCLR$(16)eD$(4):1002:D$%crF$"PACERMAN 3"6c|D$;"SAVE"F$HcD$;"CATALOG"NcOóic` DIMENSION/DEFINE tca36000cj30:31c~SPKR%16336cVV%1:HH%1cM$(30)cVV%10:H%20:V%10cH  INITIALIZATION cR:::ADRS0d\(4);"BLOAD"bHH%H%(1)31:HH%39HH%383bHH%0HH%1VbVV%V%(1)31:VV%22VV%21gbVV%0VV%1b(H%):(V%):"1  ";bH%HH%:V%VV%b:FRAMESbI1FRAMES:J%:(H%):(V%):M$(J%);:IbI13:X%(SP%)::b100b'chZ RE-ENTRY POINT a[%a\30_a](2):(2):"PACE-MAN DEVOURS THE EARTH ......"ha^255xad NEXUS ~anax200a((1)201)aR%(1)100aR%5Ė((1)391):((1)231):"1*";aR%9990a100a ANIMATE  `60000:  PACEMAN $`"@` (26);(16):200,299:Y`(15);(20);(16):l`(26);(16):`2"1ABCHIJ PACESETTER SYSTEMS INC.";`3(41(DA$)):DA$;`4"1----------------------------------------";`534,2:`;a     0,50,17IJRT/BASE PYR1*ă110,4,64,28>ŲLEFT/EDGE PYR2PŃ110,4,104,56bŲRT/EDGE PYR2t&Ń110,4,152,380ŲRT/FAR/EDGE PRY2:Ń64,28,104,56DŲNEAR/BASE PYR2NŃ104,56,122,49XŲNEAR/RT/BASE PYR2bŃ136,45,152,38lŲFAR/RT/BASE PŲűűűűΠԠPFB A2:TOTAL CHR SETS3íADRS0ADRSADRS65536ICSADRS768A:CSgCH(CS256):CLCS256CHùADRS7,CL:ADRS8,CHA%AD256:B%ADA%256:36003,A%:36002,B%Ĺ36001,111:36004,111I1:CN$"FIGHTEROCKETS":20"I2:CN$"BIRDS":42,92,191# |IJNEAR/UP/RT EDGE WALL: ă 45,174,58,191V IJBOTTOM/RIGHT EDGE WALLi ă45,174,45,142 IJRT/VERT/NEAR GATE ă 45,142,50,140 IJUP/EDGE/RT GATE ă 30,0,50,17 IJFRONT/BASE PYR1 ă 50,17,50,0 IJRT/EDGE PYR1ă 88,"OPEN EXEC ORBIT"1"WRITEEXEC ORBIT"E " POKE24576,0"K ] " POKE103,1"c v " POKE104,96"|" POKE175,1"" POKE176,96""RUN ORBIT 5""CLOSEEXEC ORBIT"1ŲűűűűΠԠLp`@@o{ow ~j;8yp`@o^|_ |oxx0 >wt òLO/LEFT EDGE WALL% ă0,96,5,102 < IJNEAR UP EDGE WALLN ă11,100,5,102c "IJIN/UP/EDGE WALLu ,ă 5,102,5,131 6IJLF/VERT/NEAR GATE @ă 11,100,11,129 JIJLF/VERT/FAR GATE Tă 11,129,5,133 ^ă50,140,100,191 hIJFAR/UP/RT EDGE WALL ră45,1E PATH Ã80,171,182,981 òLO/RIGHT EDGE PATHD Ã198,88,266,40\ òUP/RIGHT EDGE PATHo à 188,0,228,22 òLEFT EDGE OF PALACE WALL à 255,35,279,48 òRIGHT EDGE OF PALACE WALL Ã0,90,11,100 ò FAR UP EDGE OF WALL Ã0,127,5,133 03,0 c d x 10& 84. I$= I$" "ijE 85R I$:140X n hF$"PALACE GATES"} r"SAVE"F$ |"CATALOG" OÀ PÃ1003 ZòCOLOR=WHITE dà 12,104,126,58 nòLEFT/NEAR EDGE PATH xÃ143,51,222,18 òLEFT/FAR EDGՍ;:&@I$"C"Ĺ36001,0:36004,0:YJ:(19)"LINE ";(218)(219)256;" = ";(222)T:(19)"HIMEM:";(115)(116)256^:(19)"FREE = ";:F(0):F" JSL 10/31/82 "F128AD(29534)(29533)25665536:50270KAD(29534)(29533)256Vë50270bå63000mADRS0xú(26)Ì1002:(4)ú(4);"BLOAD RBOOT"Ì520ADRS(0),"HRCG"ò ********************* DELETE ABOVE BEFORE COMPILATIONO"FÀPÑTÌ1002:(4):UD$(4):D$"NOMONC,I,O"FZã29536x_ò*************: HIMEM:-29536 DEL FOR TASCdòHIMEM:31592 IF MXFLS 11iÆF0RCE$(16)jÆB$(16)nAD936:21912,1í(29535)111(29532)11150060,í(29533)ME"(13)"BRUN "F$&^::1002:D$.hA$4rJ(  BSAVE PICTUREm2D$"BSAVE GATES 4,A8192,L8192"xCLS:hF$"[ TASC/ANMTX/DTU/UPTR/MXFLS ]"rD$(4):1002:D$|D$"MONC"D$;"SAVE"F$",D1"D$;"CATALOG,D1"D$"NOMONC,I,(1),20)'0:0,20279,20'*'3:0,202.'10000f N  TEMPORARY OBJECT AND SCENE DRAWING ROUTINESzR FORCE FIELDSU FRONT GATES/u(23):@  CHAIN TO TASC PROGRAM E63000J821,0:CLS$OF$"PALACE.OBJ"TA$D$"BLOAD RUNTI3" XX%H%ET%3:YY%ET%V%ET%7 E1%,E2%XX%,YY%B (7);W E3%,E4%XX%,YY%b OTP$;t A20V%:LL1| 60 61 CV%,V%:CH%,H%:B4$; '220 '  PADDLE CONTINUITY TEST '0,0(0),0 '0:0,0279,0 '3:0,0$'0,20V%,V%:CH%,H%:B4$;& b(KB%)KP%923 cKC%,0:C d NEXUS [ iD$:D$"NOMONC,I,O"i nAD:CLR$s xOTP$ |A34:L97 }60:61 R$PIX$R$ B$PIX$B$ BM%,21:OTP$; VV%1:HH%1 90 (7); CV%,V%:CH%,H%:ZA$; & V(19):(4):F0$(I);:II1:I4I1N WCV%,V%:CH%,H%:B$;:(KB%)KP%85T Yp Z  BIRD ANIMATION  \V%VV%:H%HH%:CV%,V%:CH%,H%:B$(J%);:J%J%1:J%5J%1 ]VV%TT%(I%)TW%:HH%(Z%)SE% ^(19):(4):F0$(I);:II1:I4I1 _C"";:, P  DIRECT PADDLE CONTROL OF R$&B$< QVV%1:HH%1 RV%VV%:H%HH%:CV%,V%:CH%,H%:R$;:VV%TT%(I%)TW%:HH%(Z%)SE%:CV%,V%:CH%,H%:B$;:(KB%)KP%82 SKC%,0 T UV%VV%:H%HH%:CV%,V%:CH%,H%:R$;:VV%TT%(I%)TW%:HH%(Z%)SE%PUTER R&D LAB 10/31/82 ";= 3(41(DA$)):DA$;P 5TM%,3:CLS$:V ;~ <WI%,15:LM%,23:TM%,21:BM%,23:: =CH$"0"A" METERS HIGH" >L;"% LIFEFORCE"; ?69:BM%,20::BM%,24 @ EWI%,40:LM%,0:TM%,0:BM%,24:(1):(1):A50000:  JIM ST. LOUIS  "PALACE" V.1 10/31/82 ^ (26);(16):100,9999:u:(26):1002:D$D$"BLOAD"CN$",A"CS(I1)768D$"BLOAD"BK$",A$4000"(15);(20);(16):(26);(16):& 2CLS$;" MAGICOM      SIONSE R16300,0:16298,0::PAGE 1 LORES, ACCESSIBLE FOR DETAIL.v S16300,0:16297,0::SWITCH P2 TO P1 HIRES T16300,0:16303,0::FRM P2 HIRES TO TEXT U16299,0:16304,0::TO P2 HIRES FROM TEXT ZI$ [16300,0 _298 `163Y 60000! :50000,59999:B X1%:X1%1000ĒX1%1000:10Q X1%500ı{ Y1%:X2%:Y2%:X1%,Y1%:X2%,Y2%:10P16299,0:16300,0:16304,0::SWITCH SCREEN PAGE 1 FULL SCREEN FROM TEXT Q16297,0:16298,0:16304,0::LORES FOR EXPLO        H%1:V%1'H  INITIALIZATION :R"NOMONC,I,O"C100S0  DATA ^:]SETSx(26);(16):216,0:"255:"CLOSE",AD936:(36001)111AD(36002)(36003)2566:"=RE-ENTER AT "AD;" =COLDSTART ";:I$:I$"R"ČADDOW%34:BMARGINWINDOW%35:CHP0SITI0N%36:CVP0SITI0N%37f.VV%22:HH%1:TT%22:TW%12:SE%7:I%1:Z%0r2D$(4)>  19)256;" = ";(222);:(19)"HIMEM:";(115)(116)256\:(19)"FREE = ";:F(0):Ft"  JSL 8/8/82 "F8/82 "1X 4,4,4,4,4,4,4"b2,2,2.l 5,5,55v0I(16):216,0:W"CLOSE""AD936:(36001)111AD(36002)(36003)256:"=RE-ENTER AT "AD;" =COLDSTART ";:I$:I$"R"ČADI$"C"Ĺ36001,0::(19)"LINE ";(218)(2(4)%pD$"BLOAD CHR.PACEMAN,A";CSKzD$"BLOAD PIC.HEART1 8192,A$4000"aD$"BLOAD RJKDTU"oAD:CLR$u}50I%255:I2511:768,I%I:769,4:791:/1000  DATA 7]SETS819PACEMAN:21D6,3,5,5,2,2N7N$D$"NOMONO"RT$D$"NOMONC"RT$D$"NOMONI"RT$DBS$(8)[HO%1:LO0:HI2000eD%25wOFFSET%10000DI$"1"DI%1N0DT%2  PRESETSH%1:V%1H  INITIALIZATION R"NOMONC,I,O"\CLR$(16)fD$L$(18)u(16):(10) ?u:I0::(7):(9);(19); @uJ$"PACEMAN ... BY JIM ST. LOUIS" DuFF%:FF%255ĝ:(14): NuTT% XuII1:(J$,I,1);; Z RE-ENTRY POINT # [+ \30n ](2):(2):"PACE-MAN VS. THE ENEMIES OF THE HEART...";w ^255 d NEXUS  n::"INSTRUCTIONS? (Y/N) ";:I$ oI$"Y"ĺD$"RUNINSTRUCTIONS" 821,0:CLS$ A$D$"BLOAD RUNTIME"(13u50000:  PACE MAN "@ (26);(16):30000,39999:Y(15);(20);(16):l(26);(16):2"1ABCHIJ PACESETTER SYSTEMS INC.";3(41(DA$)):DA$;4"1----------------------------------------";534,3:CLS$:           E%27BS%8RT%13$Q%34/LB%91CSPEAKER%16336MBE%7_DRIVE%21912PA%15935:PB%16240:YK%128LF%10CO%15NRML%18 EX%14NX%20FF%12(TA%97-WIDTHWINDOW%33:LMARGINWINDOW%32:TMARGINWIN(26)iB$(5)I$1nׁI15:B$(I)PIX$B$(I):KxZAP$"2 ABCDEFGH"^ZAP$PIX$ZAP$j`ꥫ63000se255jKBOARD%16384:KCLR%16368:KPRESS%128tI1:JIvE1%100:E2%16:ET%8: PYRAMID 2 FRONT EYEwE3%238:E4%101~CL%868/100  PALACE GATES 7  JSL 10/27/82 V.1F, X(26);(16);::CLEAR TO ANIMATRIX TEXT4 ZI$B [16300,0K _298Y `16303,0_ cg d87m nz 70:130 87 I$ 88 I$:I$" "ij 140  hF$"PALACE 2" r"SAVE"F$ |"CATALOG" OÀ ` 0:0,0 6297,0::SWITCH P2 TO P1 HIRESO T16300,0:16303,0::FRM P2 HIRES TO TEXT U16299,0:16304,0::TO P2 HIRES FROM TEXT V16302,0:16297,0:16299,0:16304,0:: TO P2 HIRES FROM TEXT W(15);(20);(16);::ANIMATRIX CLEAR TO BACKGROUND5 H236,100X2%,Y2% I87$ Ot P16299,0:16300,0:16304,0::SWITCH SCREEN PAGE 1 FULL SCREEN FROM TEXT Q16297,0:16298,0:16304,0::LORES FOR EXPLOSIONS R16300,0:16298,0::PAGE 1 LORES, ACCESSIBLE FOR DETAIL. S16300,0:18 60000! :50000,59999:B X1%:X1%1000ĒX1%1000:10Q X1%500ı{ Y1%:X2%:Y2%:X1%,Y1%:X2%,Y2%:10X1%,Y1%:X2%(1)160:Y2%(1)7585F3:102,16:X1%(1)110:Y1%(1)15140 GX1%,Y1%:X2%(1)140:Y2%(1)758     AAAAA AAAA AA"B(ׁI14:F0$(I)PIX$F0$(I):Z2B4$"2  "k3B4$PIX$B4$ƃ 1BASE PYR2NŃ104,56,122,493XŲNEAR/RT/BASE PYR2FbŃ136,45,152,38\lŲFAR/RT/BASE PYR2pvŃ186,114,246,86ŲLEFT/NEAR/EDGE PYR3Ń186,114,226,86ŲLEFT/BASE PYR3Ń226,86,246,86ŲLEFT/FAR/EDGE PYR3Ń186,114,240,154ŲFRONT/BAS GATEă 30,0,50,17+IJFRONT/BASE PYR1=ă 50,17,50,0 OIJRT/EDGE PYR1`ă 88,0,50,17rIJRT/BASE PYR1ă110,4,64,28ŲLEFT/EDGE PYR2Ń110,4,104,56ŲRT/EDGE PYR2&Ń110,4,152,380ŲRT/FAR/EDGE PRY2:Ń64,28,104,56 DŲNEAR/F/VERT/FAR GATE"Tă 11,129,5,1336^ă50,140,100,191OhIJFAR/UP/RT EDGE WALLbră45,142,92,191||IJNEAR/UP/RT EDGE WALLă 45,174,58,191IJBOTTOM/RIGHT EDGE WALLă45,174,45,142IJRT/VERT/NEAR GATEă 45,142,50,140IJUP/EDGE/RTRIGHT EDGE OF PALACE WALL+ Ã0,90,11,100E ò FAR UP EDGE OF WALLV Ã0,127,5,133m òLO/LEFT EDGE WALL~ ă0,96,5,102 IJNEAR UP EDGE WALL ă11,100,5,102 "IJIN/UP/EDGE WALL ,ă 5,102,5,131 6IJLF/VERT/NEAR GATE @ă 11,100,11,129JIJL=WHITE dà 12,104,126,583 nòLEFT/NEAR EDGE PATHF xÃ143,51,222,18^ òLEFT/FAR EDGE PATHr à 80,171,186,98 òLO/RIGHT EDGE PATH Ã198,88,266,40 òUP/RIGHT EDGE PATH à 188,0,228,22 òLEFT EDGE OF PALACE WALL à 255,35,279,48 , X(26);(16);::CLEAR TO ANIMATRIX TEXT4 ZI$B [16300,0K _298Y `16303,0_ cg d87m nz 70:130 87 I$ 88 I$:I$" "ij 140  hF$"PALACE 1" r"SAVE"F$ |"CATALOG" OÀ PÃ1003 ZòCOLOR6297,0::SWITCH P2 TO P1 HIRESO T16300,0:16303,0::FRM P2 HIRES TO TEXT U16299,0:16304,0::TO P2 HIRES FROM TEXT V16302,0:16297,0:16299,0:16304,0:: TO P2 HIRES FROM TEXT W(15);(20);(16);::ANIMATRIX CLEAR TO BACKGROUND5 H236,100X2%,Y2% I87$ Ot P16299,0:16300,0:16304,0::SWITCH SCREEN PAGE 1 FULL SCREEN FROM TEXT Q16297,0:16298,0:16304,0::LORES FOR EXPLOSIONS R16300,0:16298,0::PAGE 1 LORES, ACCESSIBLE FOR DETAIL. S16300,0:1v 60000! :50000,59999:B X1%:X1%1000ĒX1%1000:10Q X1%500ı{ Y1%:X2%:Y2%:X1%,Y1%:X2%,Y2%:10X1%,Y1%:X2%(1)160:Y2%(1)7585F3:102,16:X1%(1)110:Y1%(1)15140 GX1%,Y1%:X2%(1)140:Y2%(1)758      "MF0RCE$(1)"1 EEEEEEEEEE EEEEE EEEEE EEEE EE" F0$(2)"1 CCCCCCCCCC CCCCC CCCCC CCCC CC"F0$(3)"1 DDDDDDDDDD DDDDD DDDDD DDDD DD""F0$(4)"1 AAAAAAAAAA AAAAADRS3: INIT HRCGR # B "ERROR IN RLOAD OR RBOOT"M 216,0S yh"SAVE MAX=ZIPPIE":"CATALOG":RBOOT" 216,0 h"SAVE MAX=ZIPPIE":"CATALOG":CKGROUND SCREENR ERROR TRAP FOR RLOAD  "ERROR OFF ON ERR< ADRS0ADRSADRS65536: MAKE ADRS POSITIVEnCSADRS768:CS: MAKE ROOM FOR CHARACTER SETz D$(4)*D$;"BLOAD MAX.SET,A";CS: LOAD IN SET4CH(CS256):CLCSCH256: CHAR SET LOW BYTE & HIGH BYTE>ADRS7,CL:ADRS8,CH:AG HI JK") ~M$(15)"1 LM NOPQR "G M$(16)"1 S TU VW "e M$(17)"1 XY Z0 12 " M$(18)"1 34567 89"   2500 :::ADRS0 (4);"BLOAD RBOOT":520: BRING IN RLOAD ADRS(0),"HRCG" 216,0: TURNB FC "$ $M$(6)"1DAWEB FC "@ .M$(7)"1DAGEBHFC "\ 8M$(8)"1KAGIBHFC "x BM$(9)"1LAGJBHFC " LM$(10)"1NAGMBHFC " VM$(11)"1OAGMBHFC " `M$(12)"1PAGMBHFC " jM$(13)"1 A  BC DE" tM$(14)"1 F >23:1 H(15);(16);# R60/  PRINTA Y:X:M$(I);P J1W::` M18:M$(M)| M$(0)"1   " M$(1)"1DAGEBHFC " M$(2)"1DAGEBRFC " M$(3)"1DASEBTFC " M$(4)"1DAUEB FC " M$(5)"1DAVE8430 I1:900! J1500:' / W1= I16:900K I17:900_ XX1:I18:900l &X1520r  W60:J1200: I13:900 I14:900 XX1:I15:900 X38730 I712:900: J1500:  END 416368,0 XX1:I18:900 X1120- WAVE ARMS7 W100C C120V I((1)12)1a 900:s I16:900: , LECTURE 255  WALK OFFSTAGE W40:I611:900: J1200: I13:900 I14:900 XX1:I15:900 X3z (20002AD31484:AD87"BLOAD GATES 5,A$4000"A<255YF(15);(20);(16);cI1000kJ90K(22):(24):"PALACE OF NUR'D"L(23):(24):"ZIPPIE PACES ON.";ZX38:Y16d WALK ONSTAGEnW60xI16:900I17:900      Rz#?   ӠàԠ ԠӠ Ԡ   ՠĠԠԠŠ! ĠЮà"غϵ ۠ïدկүӠݠ  Π ŠŠŠӠ îԱ!͠Р Ԡ  ԠȠԠ خԠؽŠ  ՠ Ůŵʲ ȧӠˠ Ԡ  ҮΠƤ ӠӠ!Ӡ!Ϡ Ǡ ۠Šݠ۠ȧӠˠݠ Π"ͮŠͮΠ Ү٭àҮȠ;"BLOAD CHR.";CN$;",A";CS(I1)768* ,ĂI: 0  DATA A 81N 9PACEMANú(4);"BLOAD RBOOT" Ì5202 ADRS(0),"HRCG"9 ÇAV íADRS0ADRSADRS65536l CSADRS768A:CS CH(CS256):CLCS256CH ùADRS7,CL:ADRS8,CH A%AD256:B%ADA%256:36003,A%:36002,B% Ĺ36001,111 āI1A ćCN$# "ĺ(4)1" OÀ Pú(16)G SÉ::"MAGICOMPUTER 1982 ";Z Tú"NOMONC,I,O"e Uð30000p Zã36000 dòHIMEM:31592 IF MXFLS 11 nAD936:21912,1 í(36001)111AD(36002)(36003)256:50170 å63000 ADRS0 Ì1002:(4)  PALACE GATES )  JSL 10/27/82 V.1FݻĈ@"D(-8\Yp "LPֻĈx(!pݻ "D,P8ݻ |@8D("D\ S@ ݻp&D(pDY &` `8p"D"Dx0"D(``"f@;8 9``ݻ׈ p`Dz@#D(@r@ |ݻLj 0ݣ,\a@ )pݻĈ#@D"LP/D7 )0ݻĈ  "D5P\ݣĈO"'`&<` (DW t_ݣĈ<80")@~ݻݢ (D&=P`ݻĈ8D"xFf hU0` 8ݻݫĈ@"p"<xݲ (D+@ ݣĈ>>>~|<<<|llLL @```@`px||xpppp 3#008`pxXXXP@?gG@p00  >@` >>>?@@```p@```@@``ppxXlfb  ??????3333333s@`p000000 @X ^`p`x@~|p8p`xx 0@8@@0< g```````p8p00xxx0px@` |~sqpppp x8xpp008  >0 L`0 L`  p Z@ !8ݻݻ׈  "D+P@"v !8ݻ׈ U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* :1002"MONC,I,O"; "CATALOG":"FILE: ";F$SPH$(64)" "_D$(4)m1002:D$yB$(8)D$"RENAME"F$","PH$F$((4)"CATALOG"2"NOMONC,I,O"''A32:B64'IAB:I,I128,(I):N N14 h"SAժժժժժݻܪժժժժժ|Q@+U:D(ժժժժ.U*U*U*U*U*U*U"D5UժժժժժU*U*U* SW*U*U*U*ݪժժժժժժժջժժժժժժվݻժժժժ*U*U*U*U.D(תժժ*U*U*U*U*U*U*U*U*uDYݪժժU*U*U* &/U*U*eժժժժժժժժժժժժժժ8ժժժժժժժ"D"Dx0"D(ժժժժժժժ+U*Uj"fUQU*U*U*U*ժժժy*U*U*U*U*U*U*U*U*Ujժժժժݻ׈ժժժժѫժѫժժժժժD@#D(ժժժժժW*U*U*U*U*U"4U*U*UժժժժU*U*U*U*U*U*U*U*U*תժժժժժ|ݻLjתժժժժժժժղݣԮ-DZժժժժժժתժ)ժժժժժժժժժժծժݻĈժժժD"Lڪժժժ~Fժժժժժժժժժ/DQժժժժժժݪժժ)ժժժժժժժժժղժժժݻĈ֪ժժժժ"D5ժժժ~FժժժժժݻݣĈժժުժժժժO"'תժժժժժժժժժժ&<ժժժժDW֪լժժժ~GժժժժժժݣĈպժժժժժժղ")ժժժժժժժժժժժիժ~ݻݢժժժժD&=ժժժժ~FժժժժժݻĈ֪ժժժժժպD՚"ժժժժժժժժժժF"-պժժժժժժժժUժժժժժժժժժժժժժժժժժݻݫĈժժժժկժժժ՚"ժժժժժժժժժժժ"<ުݲժժժժժD+ժժիժժժժժժժժժժժժժժݣĈժժժժժժժU*U*U*U*5"D(iժ+U*U*U*U*U*U*U*U*U*U:Yݪ߻ݪժU*U*U* btU*UJժժժժժժժժժժժժժժժպުժ֪ժժժժժ"D"=@#D(ժժժժժժU*U*U*U*U*U"DV*U*ժժժժU*U*U*%/U*U*U*U*Urժժժժժժݻժժժժժժժժժߣܪ-DXժժժժժժղժժ)ժժժժժժժժժժժջݻĈѫժժժC"4jժժժ~FժժժժժժժժռDVժժժժתժժ)ժժժժժժժժժծժժժݻժժժժ "DhTժժժ~FժժժժժݣĈĬժժժժժժ"ժժժժժժժժժժժ~ޢժժժժDYڪիժժժ~FժժժժժժݣĈժժժժժժժծ#)ժժժժժժժժժժժ٪ݻݢĨ֪ժժժD5ժժժժ~FժժժժժվݻĈժժժժժG՚"ժժժժժժժժժժF"TժժժժժժժժV֪ժժժ֪ժժժժժժժժժժժժժݻݫĈժժժժݪժժժ"ݪժתժժժժժժժժ"<ުժժժժժD,ժժժժժժժժժժժժժժժժݣĈժժժժժժG"DQp"ժժժժժժժժ gQժժժժݪժժժժժժժժժժժպժժժժժ߻īժժժժݣxժ|ݻժժժժժ"D@"ժժժժժժժժժժFQժժժժժժժժժժժժժժժժժժժժղժժժժժժժժ-Z*U*U*U*U*U*U*Ujժժ!5U*U*U*U*U*U*U*U*U*U*ժݻݻ׈U*U*U*U"DYժժժf^ժժժժժժժժ"DV*U*U*U*U*U*֪ժժ!5U*U*U*U*U*U*U*U*U*Uժժժݻݻ׈תU*U*U*Uj"D2uժժժf^ժժժժժݻĈժW*U*U*U*U*"D(-պU*U*U*U*U*U*U*U*U*U*U*]XѫժU*U*U* "L^*ժժժf^ժժժժժժֻĈת.U*U*U*U*U*U*U(!5U*U*U*U*U*U*U*U*U*U*U*uժݻתU*U*U* "D,ժժժժf^ժժժժժժժժ"-U*U*U*U*U*U*Uժժ!5U*U*U*U*U*U*U*U*U*U*֪ժպݻݻ׈تU*U*U*U "D+ժժժf^ժժժժժժժժ^*U",+U*U*U*U*Uժժժ!5U*U*U*U*U*U*U*U*U*ժժժݻ׈ժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժժժ|ݻĈ<ժ*U*U*U*U*U*U:D(!W*U*U*U*U*U*U*U*U*U*U*U:ժݻժU*U*U* "dj+ުժժժf^ժժժժժժVU*U*U*U*U*U*U*!5U*U*U*U*U*U*U*U*U*U*UJժݻݻU*U*U*"DHUתժժժf^ 9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L:";(115)(116)256.:"FREE=";:F(0):FF"  JSL 8/8/82 "F2)s::SH$"HIMEM:";(115)(116)256(24):(10):"RESET TO NORMALIZE"(5)"  JSL 8/8/82 "FANIMAL""INITIALIZATION"3(16):216,0:f"AD936:(36001)111AD(36002)(36003)256:"=RE-ENTER AT "AD;" =COLDSTART ";:I$:I$"R"ČADI$"C"Ĺ36001,0::SH$"LINE";(218)(219)256;" = ";(222)::SH$"HIMEM"1" DI%1N0DT%2'HAD1ROTP$;\CLS$D/100K:2UDNOAHjbCHANCERY-GOTHICq]"SUMMARY OF DATA""DISK CATALOG""EDIT ENTRIES""SEARCH FILE""ALPHA SORT""PRINTOUT""ANOTHER ""#ID$"[ ANIMATRIX DATABASE ]".'D$(4)_)M$D$"MONO"RT$D$"MONC"RT$D$"MONI"RT$*N$D$"NOMONO"RT$D$"NOMONC"RT$D$"NOMONI"RT$BE$(7)(7)BS$(8)HO%1:LO0:HI2000D%25DA$"1982"OFFSET%10000DI$]DRIVE%219124PA%15935:PB%16240:YK%128BLF$(10)PCO$(15)`NRML$(18)nEX$(14)|NX$(20)FF$(12)TA$(9)D$(4)O$"OPEN"C$"CLOSE"R$"READ" W$"WRITE"!L$"LOCK""U$"UNLOCKBOARD%16384:KCLR%16368:KPRESS%1286I1:JI:KJCCL%868UCV%37:CH%36hA$(50):A(50)xINDEX$(18)UE$(27)VBS$(8)WRTURN$(13)XQ$(34)YLB$(91)ZSPEAKER%16336[BE$(7)(7)\HEX$"123456789ABCDEF0"MSYMBOL$"17"'FSYMBOL$"16":BIRTH$"19"PDECEASED$"18"fINFINITY$" OO"{PROGENY$"15"CHANGESET$(2)(1)APPLE$(26)SHFT$(19)CLS$(16)CU$CH$"2@"J$" "LC$(12)tꥫ63000&KDRS8,CH7A%AD256:B%ADA%256:36003,A%:36002,B%Fù36001,111QÁI1AZÇCN$ú(4);"BLOAD CHR.";CN$;",A";CS(I1)768ÂIbNOAH$"1 ABCD"gźlMALE$"1ABHIOPVW"vFEMALE$"1DEKLRS"BABY$"1FGMN"ë500109Wí(36001)111AD(36002)(36003)256:50170EZå63000PdADRS0`iÌ1002:(4)xnú(4);"BLOAD RBOOT"xÌ520ADRS(0),"HRCG"ÇAíADRS0ADRSADRS65536CSADRS768A:CSCH(CS256):CLCS256CHùADRS7,CL:A":570嫭ER%044000%꫌1002:D$.﫺AP$BD$"CATALOG,D"JN3:200bhF$"NOAH'S ARK"r:"SAVE "F$",D";:D$:D$;:1002:(4):"SAVE"F$",D"D$:Pú(16)QÉ::"NOAH'S ARK V.2"Rã31590Sú"MAXFILES 11"TAD936:21912,1URACTERS IN "IN$(I):D%2:HI40:LO1:500:A(I)J68DL1002:D$QVI1FT%f`O$A$(I)",L"A(I)tjJ11000tW$A$(I)",R"J~K1A(I):(95);::(13)JI@50J1002:D$OM$TD$"RUN [ NOAH'S ARK ] "TI$ૺ::J$" $:ABE$;:(HO%):CL%:570H:"SEE INSTRUCTIONS BEFORE USE ..."UI1FT%I$"TOTAL NUMBER OF FIELDS (10 MAX) ":D%2:HI10:LO1:500:FT%JI1FT%I$"FIELD "(I)" NAME":D%10:LO0:500:IN$(I)I$$I1FT%0.I$"# CHA5I$"PRINTOUT THIS DATA":560:P%0:I$"Y"P%1:86Y:DF$DI$:I$"DISK DRIVE # "~;LO1:HIDT0TAL%:L%14:I$" "DF$;<(L%HO%):CU$DF$:J$" ":77=K$;:CU$CH$"2@":J(K$):I$K$>I$RT$JDI%:?I$E$ı@J0JDT%DI%J:DI$I::JLO:ER%1:NJHIĺ::">"HI" IS TOO HIGH"::I11000::JLO:ER%2:Y$CL%:_&u'I$I$": ":(HO%)(CU$DF$*:I$;:77:(HO%):CL%:((CV%)):CU$" ":I$K$:I$RT$I$DF$+J(I$):IJ:0I$I$"? (Y/N)":DF$"N":J$" ":5502$BS$;:K$J$:J$"":I$I$K$:K$;:519/J$" "HK%32ĺ" ";B$;:512qL%1D%I$I$K$:CH$;"2";K$;:519L%D%519(I$)0K%13I$DFAULT$K%E%ıI$""ĭ(I$)95I$""J(I$):JLOĺ::"<";LO;" IS TOO LOW":I11000::5Ģ((CV%)) (LL%HO%):I$""< 77:L%(I$):K%8524X L%1ĺ" ";:J$" ":512p L%D%ĺ" "BS$BS$; L%1J$(I$,1):I$(I$,L%1):L%D%ĺ(95);BS$; L%1ĺBS$CU$BS$;:519 K%3100 K%13K%27ĺ" ";:536$K%21L%D%ĺCU0:33,40:3 "J81000* ,J0J8200= 1TI$IN$(I):50L 6J244000Y @J7100d 40000m 100s ~ J$" " DFAULT$CH$"2" I1D%:DF$DF$(95): QU$I$ L%(QU$) (HO%):CL%:CH$"2"SH$QU$": "DF$;:LL%L%2 D%3MAL":500/ x::SH$"LOADING DATA FOR ";SH$I$9 200I O$I$:R$I$_ A$(N):NN1:150g C$s 63000 TI$"INDEX":50 :SH$"OPTIONS:": 32,5:33,35 I$:I$"]"246 I18:"< "I" > ";:IN$(I):IN$(I):: 32,) NA$BS$;:K%(KB%):CU$BS$;:K%KP%78P OK%K%KP%:KC%,Z%:K$(K%):ER%0:h P"# OF RECORDS ";N~ Q"FIELD SIZE ";F RS(.25(N(F1)2562)):F15SS1 SS" SECTORS":80 dTI$"ANIMAL":50:(6) iCLS$ nD%20:LO%0:HI9999:I$"ANIS "SH$"ARK";& 5(41(TI$)):SH$TI$;a 6"========================================";:34,3::s 7A$""A$"-" 8A$LF$RT$A$RT$:Z1(A$):I%((A$,Z,1)):I%95I%I%64 9PB%,I% :(PA%)YK%58 ;Z: M:ER%256:A$J$:J$""A$" "G 500004(23):(20):J$"*":CU$CH$"2@":77`I$K$::I$;:J1255:::IK%48:JI:I%(SP%):SP%,0:SP%,255:I%(SP%)::(20(I$)2):I$:: CLS$:100,499:234,0::CLS$;3AP$CH$"1"LC$"ABCD "; 4CH$;"2"SH$"NOAH'       L".&"&"" ,2""$ ,2",&""  0 " ***&"" ""&""80$"".""***""$>IwI>"!!""" !!! """"#> """! (x "!  !"**+**"A&*+*2"%%%"" ,""""   ""-$$$**** 1$8>!" *s66>>H< ( #21* *>*>> ""*"" >"> "?> """>""""""<00>> ""   Lu u'Z25j=P_W58(00000H 0000ppx?3` |l?xT~<`phhX|~}mm퍟?_TTx<Z?#>Ts""p`""I**IL@||ycccb#bcc0pO@||yccccbccc0pOc~|@Accccc`p?@||ycccb"bcc0pO@||yccc"c"cc8xO@|~|ycccccccA?O@|~|ycccc"c]?|Os~|@"ccccccg`p?~|@IAIccd`t?@|fxcccc"ccA3|@ ~/$!cc"cc""?rB~|@AAccccc$`t?'>|@"""cc``r>wUUUUUUUU*U*U*U*U@x|~~|y@|~O|ycccc"ccc?yOs /~|@"ccccccghz?U*U*U*U* HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ   X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8  &<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ      "Y"ČRE:"")DA$((222)):50:(20)"1:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: RESET TO NORMALIZE 1.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.";(5)D255,16368,0623:10@(15);(16);K| ERROR TRAP FOR RLOADS:^216,08CTRL-O:CTRL-T:POKE-16304,0:RESTORES HIRES SCREEN AND TEXT MODEBPOKE-16297,0:POKE-16304,0 RE31582::"CALL ";RE;" TO RE-ENTER HIRES? ";:"";I$:I$X1$"1========================================"D X2$"1;"T*X3$"1+"d4X4$"1-"l[90|$  DATA .2186,3,5,5,2,2B1L 4,4,4,4,4,4,4V2,2,2` 5,5,5j0  CONTROLLED SHUT-DOWN """::'$(4)"1RSTYZ!"q0vM$(5)"1123456"6{UM$M$(1)M$(2)M$(4)M$(0)qM$(3)(12)M$(0)(26)M$(6)(12)M$(1)(26)M$(7)M$(0)HEART$"1*"SHADE$"1:." XXXXX$"1---------------------------------------"4D$(4)$ D$;"BLOADPACEMAN,A";CSH D$;"BLOADWORLD MAP.PIC,A$4000"R CLR$v " PACESETTER SYSTEMS":M$(0); 0  PICTURE DEFINITIONS ?OTP$; NM$(0)"1ABCHIJ" S XM$(1)"1DEFKLM" ] bM$(2)"1OPQVWX" glM RBOOT":520: BRING IN RLOAD2 fADRS(0),"HRCG"= p216,0Y zADRS0ADRSADRS65536 CSADRS768:CS: MAKE ROOM FOR CHARACTER SET CH(CS256):CLCSCH256: CHAR SET LO/HI BYTE ADRS7,CL:ADRS8,CH:ADRS3:INIT HRCG CLR$(16) D$(4):1002:D$% rF$"PACERMAN 3"6 |D$;"SAVE"F$H D$;"CATALOG"N Oói ` DIMENSION/DEFINE t a36000 j30:31 ~SPKR%16336 VV%1:HH%1 M$(30) VV%10:H%20:V%10 H  INITIALIZATION R:::ADRS0 \(4);"BLOAD" HH%H%(1)31:HH%39HH%383 HH%0HH%1V VV%V%(1)31:VV%22VV%21g VV%0VV%1 (H%):(V%):"1  "; H%HH%:V%VV% :FRAMES I1FRAMES:J%:(H%):(V%):M$(J%);:I I13:X%(SP%):: 100 ' hZ RE-ENTRY POINT  [% \30_ ](2):(2):"PACE-MAN DEVOURS THE EARTH ......"h ^255x d NEXUS ~ n x200 ((1)201) R%(1)100 R%5Ė((1)391):((1)231):"1*"; R%9990 100 ANIMATE  60000:  PACEMAN $"@ (26);(16):200,299:Y(15);(20);(16):l(26);(16):2"1ABCHIJ PACESETTER SYSTEMS INC.";3(41(DA$)):DA$;4"1----------------------------------------";534,2:; ):" CONTINUE") (23):(20):X$= ::1002:(4)X X$(27)Ĺ216,0:LC:i X$(13)Ĭ D%(21912):D%1Ĺ21912,2 D%2Ĺ21912,1 h"SAVEMENU":"CATALOG"::"";IO$:LC  216,0- XX$(IO$,6)@ IO$(IO$,1,1)_ IO$"I"IO$"A"IO$"RUN"w IO$"T"IO$"EXEC" IO$"B"IO$"BRUN" ::IO$;XX$ "";IO$;XX$:IO$"EXEC"ĺ"FP": " EXIT OTHER DISK ": (10% 5e% 97 E8 L0 $( f fh5hh`(` E 9LQ&( E8 de dLC2061q i:200 j(4);"NOMONC,I,O" xLC3 }::" PROGRAMS BY JIM ST. LOUIS 1982 ";::34,1:1002:(4) "CATALOG":A$ 2 LC3: 100:LL; LH ϠڠϠԬŠϠŮ` Qh6h7` Qh8h9`hhhqhrmqmrHHHHH`I ELQY (HH5H%H ( ( f詠((hH%hʠ%((5        CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=<->e<=>=>DDLlCFL`>e=<><>DDL E      !$'*-0  $(,048<@ #(-27:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0       g\bbf\g]cYe[^^]c[kQkQa[\\c`\[<=mpORmqOS?@rrrsqquu~~||sszzt{t{zz?g\bbf\g]cYe[^^]c[kQkQa[\\c`\[<=mpORmqOS?@||?h L? ?>?ɍH) @ { ?hOw?; -2 , @N-/1$ TCODE%(N&28 hX%(N)X:&'(N)YE |1:p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {  R   +,*,"$&(.P HGR/HGR2 Q TMH%0MH%1:16300,0:n UMH%1MH%0:16299,0: dRESET%:CLR%:HIRES% x84 3:X,Y 0,100279,100:100,0100,159 3 X,Y 0,100279,100:100,0100,159   )*)+!#%'-1:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(N)140:Y%(N)100:N: F SOUND EFFECTS GROUNDS1BURST:T(16352):F%(0):ROUNDS: P FLIPFLOP TEXT/HGR QMO%0MO%1:16303,0:H@(FF +K%85Y0YY1[ ,K%78Y159YY1 -(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1 2 `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(/' ##### xph` X (PhHH0(H` PX X@`XHXАx(@pH`p@Аx (0pH8@HPXp@(ЈH x ((@pH`h@ppx@pHИ`@xpH  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HO**+I`+h**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL      TRL-D p$M3D$"BIPLANE5&OBJ2",:SM3D$""ĺD$;"BLOAD MODULE.";M3D$b$M3D$""ijn8RESET%w+100, BEGIN SET AT 62763- GRAPHIC UTILITY 1 216,01002:(4)"6FF SPEAKER ONCEBdKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSED\H DEF,DIM, & BLOAD RCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768fD$(4): C"SAVE"F$|"LOCK"F$("CATALOG".J` DIMENSION & DEFINE kaEE%868: CALL CLEARS LINE bKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESET cCS%16336: CS% IS THE ADDRESS TO CLICK THE::1D$;"OPEN ";Z$,2D$;"READ ";Z$73I::B4A$(I)M5J1IY6:A$(J)f7J:::z8D$;"CLOSE ";Z$9D$;"NOMON C,I,O": EACH A$ = SHAPE EACH GAME = FILE NAMEhF$"ORBIT 5"l1002:(4)m"UNLOCK"F$ r40009OD$(4): CONT-D1P N$ = FILE NAMEDQD$;"OPEN ";N$XRD$;"WRITE ";N$aSI1nTJ1I1zU:A$(J)VJWD$;"CLOSE ";N$X( DOS READ )D$(4): CTRL D-:D$(4). Z$ = NAME OF FILE/D$;"MON C,I,O"0CH% 300&BOMB$:BOMB$"R"1008::100,900:>'Z' MERGE LANDING ZONE t N CRYPTO & EDITORS *NI$:(I$):20010@ DOS WRITE AA$(100):I0BD$(4): CTRL DJ I = A$(I) MAX.M INPUT A$(*) HERENA$(I)""T0276SCALE%(0)T&:YROT(1)T3L;YROT%(1)27YROT%(1)27YROT%(1)^@ZROT%(0)27TEYROT%(0)YROT%(0)2:YROT%(0)27YROT%(0)0JX%(0)SX%(1)TY%(0)SY%(1)YXROT%(1)T:YROT%(1)T3:YROT%(1)0YROT%(1)27^CRNCH%hTCRN%:HIRES%CODE%(0)0VX%(1)X:Y%(1)Y:ZR%(1)ZR:YR%(1)YR:XR%(1)XR:SCALE%(1)SeCODE%(0)1qCRNCH%}CRNCH%N0:4N1:4'Y%(1)100:X%(1)80(Y%(0)100:X%(0)100)YROT%(1)3*YROT%(0)5:XROT%(0)10+X%(1)140,N)140:Y%(N)100:N:0P FLIPFLOP TEXT/HGR MQMO%0MO%1:16303,0:jRMO%1MO%0:16304,0:S FLIPFLOP HGR/HGR2 TMH%0MH%1:16300,0:UMH%1MH%0:16299,0:d63000xX140:Y100:ZR0:YR0:XR0:S1552 CLR(0):" ":(22):(0):"X = ";X;" Y = ";Y;" "F .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1 2 GRAPHICS CALLS 362454:4N01:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(027:ZROT%(N)T:CRNCH%:T:XROT%(N)0:CRNCH%:[ %T027:YROT%(N)T:CRNCH%:CRNCH%:T: &T027:ZROT%(N)T:CRNCH%::CRNCH: ( CURSOR H,U,J,N )K%74X279XX1 *K%72X0XX1 +K%85Y0YY1 ,K%78Y159YY1: -(22):15: DETECTS ESC KEY+ K%(KB%):KR%,0:@  SCAN KEYBOARDl 17:3:X,Y:F%(0):P%(CS%):K%KP%ı 0:X,Y:40:20 !T2701:ZROT%(N)T:CRNCH%:T%(CS%):T: #T027:XROT%(N)T:CRNCH%:CRNCH%:T:XROT%(N)0:CRNCH%:CRNCH%:/ $TT%(1)T:X%(0)SX%(1):Y%(0)SY%(1):CRNCH%:T:\ S015:4:S:1:2:3:S1501:4:S:e QZ1 T028:ZROT%(N)T:YROT%(N)28T:CRNCH%:T: T028:ZROT%(1)T:ZROT%(0)28T:XROT%(1)28T:XROT%(0)T:CRNCH%:T: 20:K%27K%155ı ZROT%(N)ZR:CODE%(N)2:CRNCH%:CRNCH%: CODE%(N)1:X%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:ZROT%(N)ZR:CRNCH%:CRNCH: T015:SCALE%(N)T:CRNCH%:T:T1501:SCALE%(N)T:CRNCH%:T:. X%(1)140:Y%(1)100:SCALE%(1)15:T027:ZRO"60000: CURSOR & ESC YT027:XROT%(N)T:CRNCH%:T:XROT%(N)0:CRNCH%:T027:YROT%(N)T:CRNCH%:T:YROT%(N)0:CRNCH%:T027:ZROT%(N)T:CRNCH%:T:ZROT%(N)0:CRNCH%:( X%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:     `9@<x@@@@p ` @@|f@pC @ @` ?c ~@  pX@ @ p @x|~!^;x@y<@@mx8~xA@0@@Fa@@@ p@`px@p@@ @x@ @@@4@x?@@@i 0@`L@@<(@c@!@0@GGo|p@`  @@o@ 0@@,d@x`C ` @@@o =psGcp@0 H\ X0@8|G @ p?xp0X|`@@@G((p@A@@@FA `@@@@0 @@|~@s|}@p `` @<@@@84@~@@O(@@X@@ x6p~ pp@0 `2@lD~ A`>@p @`80@|?68@ f@? @(pxp8 @@8p^ac~ @;@``  h @`g}6 0@j|pl @`@`|0@@8,@s@` @@g `x`@ @@`NL@8x3@ @@@@x @8s@n8@@p@@`|@Pa@`@@"@8GdA0@:@0 0@pO@0`@&l/X?`p>@@@'`? @0@@%00@c @  @?xApA@ ^ @`@@ @@@@`@p@@hQ@80 @@`@@@8 @ '@@"@A0@`@vN$@<@@@8x0@@ `@@8@p@@@cq @{3`@8`@@#@0@@@ `0?d| @@p@| 8p1@ 0`x@@`@>>xT@~~ @ @@2 D@0N@`"@@@j8 @8~,@@9Pp@`@ 3`@0\B,@ @@ 0 p@`@@ `|@@@@0||"@  @p@  @` 00@@< @`@pG!@@@Dx `@ x0@@ @@|@T3@@?& @ @@6@Uí(1021)111AD(1022)(1023)256:50170Zå63000dADRS0núDF$;:(1L%HO%):CU$DF$:77:K$;:CU$" ":J(K$):I$K$:I$RT$JDISK%:V;I$E$ı}<J0JDT0TAL%DISK%J:DISK$I$:=BE$;:(HO%):CL%:570':t'"1ABCHIJ ";u'"2EXPERIMENTAL COMPUTER GRAPHICS";~'(41(DA$)):DA$;3(HO%)(CU$DF$S*:I$;:77:(HO%):CL%:((CV%)):CU$" ":I$K$:I$RT$I$DF$e+J(I$):IJ:0I$I$"? (Y/N)":DF$"N":5505I$"PRINTOUT THIS DATA":560:P%0:I$"Y"P%1:6I:DF$DI$:I$"DISK DRIVE # ":LO1:HIDT0TAL%:L%(I$):I$" "20 (I$)0K%13I$DFAULT$- K%E%ıI I$""ĭ(I$)95I$"" J(I$):JLOĺ::"<";LO;" IS TOO LOW":I11000::::JLO:ER%1: JHIĺ::">"HI" IS TOO HIGH"::I11000::JLO:ER%2: $CL%: &  YES OR NO ?'I$I$": ":L%1J$(I$,1):I$(I$,L%1):L%D%ĺCU$BS$;T K%8L%1CU$J$:BS$CU$BS$;:520b K%3100~ K%13K%27ĺ" ";:536 K%21L%D%ĺCU$BS$;:K$J$:J$"":I$I$K$:K$;:520 K%32ĺB$;:J$"":513 L%1D%I$I$K$:K$;:520 L%D%5DEFAULT L%=LEN(I$)6 QU$I$:DF$""CU$" "W CU$(DFAULT$,1):(HO%):CL%z QUESTI0N$": "DFAULT$;:I%L%2 D%35Ģ((CV%)) (I%HO%):I$"" 77:CU$"^":L%(I$):K%8L%1ĺ" ";:J$I$:513 K%8L%D%ĺ" "BS$BS$;- K%8%,Z%:K$(K%):ER%0:" dGOTHIC$, i(20)U nD%20:LO0:HI9999:I$SHFT$"ANIMAL"a sCU$"^"k xL%10t 500 (10):(1):SLANT$;SHFT$;"LOAD "SH$I$" "SH$"DATABASE"APPLE$ ,100   INPUT WITH ___ DFAULT$"":I1D%:DF$DF$"-":  :62300,62399:# 210000:C 7A$""A$"-": PRINT LINE 8A$LF$RT$A$RT$:Z1(A$):I%((A$,Z,1)):I%95I%I%64 9PB%,I% :(PA%)YK%58 ;Z: F  CURSOR M:CU$BS$;::ER%255 NK%(KB%):K%KP%78 OK%K%KP%:KC ANIMATRIX HRCG >TASC RECOGNIZED REM: RESERVEDI50000a(24):(19)::"*";s(KB%)KP%4I%(KB%)KP%:I$(I%):KC%,0::BS$;I$;:J1255:::II%48:JI:I%(SP%):SP%,0:SP%,255:I%(SP%): :(20(I$)2):I$::""" " " " " """""""""!!! !