EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  N vYȯ29!9!02-19!E:-02k!o~#(˿v~#(!c, Drive : $ad Datarite Protecto Sectorot Readyo Driveile Lockrive Lock Try Again(Y/N)?$ Unlock(Y/N)?$ Which Drive?$ Press any key to abort:$!5~6 ͍  :5   25>> L> O:4y # !34 5 5 60 >^L@͍y > L:3 ͦ  >#LE:3!2> L~$#͍:322*:N# i i 8x(:324ͫx(#~v:4(!324͞!45 ( :2!305͞8 0 ͍#wvx p> L/*y(  : !q#>"2<*:~(~!#8 >2D>#+~w:-O|^#VSp#"S##"U##"W##Y*[>ɯ*Uw#w*Ww#w<2t!"*#"*hR03&:2 ͮ:tOͯ2tͨR!~#<͇ͺ!D45E![Q'ͷ(*ͷ(*<<""!N#F*W^#V*U~#foyx0 *aR+*a8 yx8#*n".DM*Us#r*Ws#rR"0DM[pz(N!!cN: G>O:~ (O :e ng ^#VFf"|:c*)= ":d_:o"ɯ2~~2}~ 2:-<=<yw#xw:-<=!*M͵E!M*h#*Ss#r ~! ˾`iʹ1!*Y:o$6[*S{#z:r+s*[lR*Y#[]* ( :w  'PͮͺSQKQKY$y<_W888*_ ~ ͵ w' :e NG N#Fy(*fB#گ2-go"M"Oͤ:w!-:w2-*O͵EKf888*_6# x [j*_s#r"*S6#6:("'>(:, #~$ =2<G!O >2u!yq"8":(S(:0D':yOy($?(x ( ( Nͥ # :20>w~#+w#w+2<22~ͫ' :e ~ w ~ 5 '# ! #  8 w ~>2rÔ!<52 F6ͫp w# w Gɯ2ru~ <w 4~(!ͫ :s<(mu( ͸ͤä)Ö)>2v>2sͤ!}8 !͛2:< }(͉͇ͭ>ä>)>2v2sͤ0} :F2x( fDMB| >ä" :xO :e s s#r:<͉:v 1 .*Yw#ͮ*"~:dG# "ͨ~:!}8w4 :v  H"?Copyright (C) 1983-86, Crystal Electronics "$> ]> _23ͭ=No FilÇ< 7ȷ!+#N8#z(##~ &G!()%㇇G:2a{_V~˿]#( 0!F#x(~4ww! "IG:_:G:xV0]@ ڇ=_.:;<> o$2͆Ç!2[ISK( /G:( :x85G ~ +# x&ox|h{0] PXB0 uV*K~ ( (]#@?͆̀!6#~  6?#2##~2#^#VS!"!6?ͭ([ AxV͒ V*ͽ@k Size,[ͽ@k Free,ͽ@k Tota:=Ͷ ý=!o ~ :~#(#( [S~ : ͖@ ~> (>*>.:G)h]~#]!"z!4Fͭ:=_V+\ : @ͽ_A >Y2FY !\w w ~ ( @ Unlock(Y/N)ͽY \\͖<( @ Erase! '‡ ( S‡ SI| (S‡ [I!l(;V!6:<8͚ 2!~]Ͷ==Read ErroÇ/͖ͫ(.2o&)|(+!ͤ ͭ< =No Spac:z(O[IT O #"I! G!~(p‡pͭ ò=File ExistV+l&h@ Block(sl̃(%!͚ R8=Mem Ful= / ҇20̀è: :(k= 6C#6O#6Mu*I!~2>~22\!!~(#x2V10̀ uat /">s61,!`yS:"@"B*:{2w!"<2|2z!)K!eꇅo0$~#fo*>{6puz+F_Ajv. 04=!(=! (=! ( =!(!^#V 9!( _N(Y Track-Info  N ͛!<~ =26:v O:w :}w2v~!Gx~"GOxGn#,-. Hw y x(..:<<(&q pͲ:<< . (m.:<<(ä6}2<ÖN! ~态O>G~G!~G}!ͩ!6#6#6'͡_y#x#{8s+p+qͻ ͡q#p#w>2z~=2w0:-2{~2|w#:,w?( ~ ?5ͫ *8ͻ*Y[Qz:uä*O:-ä*_*M*["<:w :,ä2,*:}/_|/*OW}_*M"O}o|g"M:z(6:|( w:{2w#*@*B*<}DLKP@VOHof]xϚ::ony3o339999:EW( > H>`Iϛ>ɯϜyϞyϟyϠϡååééÚÝÁ϶ϷϸϷϹϺϻ1S!^!:0_( >_0s#r+!O!:Ow+>" 9!x"!"S!"01!Ϥ!~8w!BOOT ERROR $Q(^?P(PϿ XtalDOS 2.02 (C) Xtal 1983-8ɀLKPTrack-Info  N : 2> H>`Iϛ(2ϛIxB@ @..Y[]{}AEIOU.:+-JP dccdxdBjKjPjVj0j1j2j3j4j5j6j7j8j9jkk  e>@ddvgggggBDDF-hCenk<Ie uh fie  Bj Kj 0!j 1"j 2#j 3$j 4%j 5&j 6'j 7(j 8)j 9*j     2 0.         i)       "$6& (*,.08:H4       (C))00n   -__7A7@A7@7w nw?VWx2z7W:Go~~56   YZRCDTTVV2CCTTBT2STTTTTTTTTTCBTTTTVUUUVUUVVSSVUfVVTVVTUVVgVVUTVTVUTTTTTTSTTRRTRfTTTTSSSTTfTTTTVTVU 6NIQYdXfjly%27?QXivYN @@@@ on () off () INTERNAL ERRORFATAL NAME OF  TO FILEMERGE-Print a file РԠ Š *** FATAL ERR F25: NOT ENUF MEMORY $ File  not found. Menus &  messages will display as @@@@ only.  WAIT  PRINT\PAUSED merge-printing\ \editing\no\file\ ڽ ׽ *** Press ESCAPE Key *** INTERRUPTED***  E*** I***   F: G! e~x7*`;:Z;e*h;*\;R| !͎ "w;!"~;";#"|;~2y;#^#V## 2;~2y;+~2};##{l"z;R|";"z;O:Z;!<=O G q#s#r#ww#Gw!o;~#m #~ͪ*C6|/!N >2D6êo ͪ*C6|/ͧ ê*E;!9"E;Ê:B6C M ";ͧ 2 :C; x~>2 x:;*;";";ͼ*;͎. o ;2 "; ͧ !;w[wÎR R *@;W{k z!!4ʮ zy > W_ !Q;zV#>2@;{ ȯ2@;͌ x~ #à !9"G;! ]% >*G;:B6 "C:B6%C LH7 SRI UJ BPPLWS $$$OH COM\ PICPEN XBS` BACKUP COM DEFINE XBS DEMO XBSEINSTEINXBSHOTHELLO XBS/INTR1 XBSCOPY COM( CLOCK XBS!"SNAKES XBS>#$%&HANGMAN XBS`'()*+,DICTIONEDAT-DICTIONHDAT.DEBUG COMR/01234CHUCKY COM56789:;<CHUCKY COM=SQUARE XBS >HEXIN COM?XBAS COM@ABCDEFGXBAS COMHLOAD COMIDISCODANCOMlJKLMNOPRTTY XBS QMARK1 XBSRHEXOUT COMSDATA DATTFLOWER XBSUTERMINALCOMVRECORDS DATWMARK11 XBSXMARK111 XBSYTEST XBSZTEST1 XBS-,ó -  COPYRIGHT (C) 1981 MicroPro International Corporation  MicroPro WordStar release 3.00 serial # WZ7027FS  no terminal yet selected  Teletype-like printer  No communications protocol  CP/M List Output driver (LST:) ">$2PPϞ }lg"J: 02>Track-Info  N 4)C* CM$~"Y" s JS~u1:@0,10;JMESS$:JMES1$:JMES2$:JMES3$: 4680;4 CM$~"N" s JS~ 0:@12,10;"Joystick not in use": 4680 > 4640DH @4,22;"Press SPACE to return to the menu.": $}" " s 4680R\f** -FILL-ERROR-TRAP **pz** CIRCLE-ROUTINE **BR~u1:DRS~DR:DR~0:SPACE~u1: 3560:MES$~RMESS$: 3560: MESSAGE@XS~X:YS~Y: W~0 r 500: W:SPACE~u1: 3560:MES$~RMES1$:3560% 2680: 2900: CR}&0D s 4790XR~XuXS:YR~(YuYS)x1.333bRD~((XRwXRtYRwYR)):YSu(RDw1.333)16 s X~XS:Y~YS:MES$~RMES2$:3560::W~0r300:3480: 47701 XS,YS,RD:R~0:SPACE~u1: 3560:DR~DRS: X,Y** SET-ALPHA-LOCK-ON **R (&FB3E)128 s &FB3E,(&FB3E)t128: &22,0: IF LOWER CASE THEN UPPER CASE$** KEY-CONTROLS **.8 CR~&31 s :DIS~1B CR~&32 s :DIS~2L CR~&33 s :DIS~4 V CR~&34 s :DIS~8: SPEED4` CR~&42 s : 3100: CHANGE BACKGROUND COLOUR)j CR~&43 s : 2950: CHANGE COLOUR7t CR~&4F s :DR~0:SPACE~u1: 3560: TURN OFF DRAW"~ CR~&52 s : 4740: CIRCLEI CR~&53 s :DR~u1 : X,Y r X,Y:DR~u1:SPACE~u1: 3560: START DRAW9 CR~&44 s : r X,Y:SPACE~u1: 3560: DRAW TO PEN' CR~&45 s ::: END OF PICTURE  CR~&46 s : 3200: FILLC CR~&54 s : :PEN~ PEN: : W~0 r 100: W: TOGGLE PEN: CR~&55 s :DR~2:DIS~2:MES$~UMESS$: 3560: RUB OUT CR~&48 s 3330: HELP  }@A1 EINSTEIN DISC BACKUP & FORMAT V1.11 (C) 1984 Xtal 1 Press 'B' for BACKUP or 'F' for FORMAT or 'X' to exit Which (B/F/X)ϜϞ_XB( Fʛ>Ϟ1 BACKUP DISC Sourc͘02R02Destinatio͘02S02Source drive 0, Destination drive 0, C2TPut in SOURC:TO:R!Ϥ:S Put in DESTINATIO!ϥ!!Ϥ G# R :T 2T(0/ Disc Backed up -- O|Yʫ"ë.ë Unformatted -- FORMAT first and then retry BACKUP : VerifODisc::V=("=(&=(0=( No Driv,Not ReadI/Protecte No SectoϧPress 'X' to restart'1 FORMAT DISC Ensure that disc with desired system tracks is in drive:}0ϞC!0Ϥ Ok -- Forma͘02P2S02/Format drive 0 C2V :O Already Formatted Continue anyway (Y/N)'Yyϯ(00, 0 1 2 3 .Û{>Ϯ ) !CC !H!>Ϯ !N  ! !!&ko a circle edge point",<RMES1$~" Press ENTER when in position"*FRMES2$~" Position your pen higher"P 156,"E7E7C381818181FF"-ZCMESS$~" SPACE bar to select then ENTER"*dBMESS$~" Background colour selection"-nUMESS$~" Rubber: S or O stops rubber"5xJMESS$~" Plug a proportional-type joystick into"5JMES1$~" the socket marked ANALOGUE 1. Then you"4JMES2$~" may use the joystick and the keyboard"&JMES3$~" to control Picture Pen."$ HMESS$(17): HELP MESSAGE SET1HMESS$ (1)~"Don't panic here comes the help"/HMESS$ (2)~"The following functions exist"-HMESS$ (3)~" B change background colour"$HMESS$ (4)~" D draw to pen nib"&HMESS$ (5)~" S start ink flowing"'HMESS$ (6)~" O turns off ink flow"/HMESS$ (7)~" U rubout until S or O is hit"1HMESS$ (8)~" F fill a shape surrounding nib"&HMESS$ (9)~" C change ink colour"2HMESS$ (10)~" T turn pen on /off alternately"1HMESS$ (11)~" E clear screen...back to menu"#HMESS$ (12)~" R draw a circle"1"HMESS$ (13)~" 1,2,3 and 4 pen speed control"$, &B000,&CF,&B5,&32,&10,&B0,&C96@* DEFINE PEN *JT 144,"0000000000010307"^ 145,"0F3F3F1F3E76E0C0"h 146,"0F1F3F77EEDCF8B0"r 147,"E0C0800000000000"| 148,"0000000000010307" 149,"0000000000000000" 150,"0F173B7DFEFCF8F0" 151,"E0C0800000000000" 152,"000000000103070F" 153,"0000000000000000" 154,"003C7EFEFEFEFCF8" 155,"F0E0C08000000000"** SET-DIRECTION-KEYS **' 1,0: 11: 40:(&11):LTRS$~""&@ 10,0;"DIRECTION KEY SELECTION"/@ 5,3;"Enter your new direction control:"N@ 16, 7;"Left ";(LT);(8);:KY~: 4430: OK s 4370: LT~KY:(KY)K@ 16,11;"Right ";(RT);(8);:KY~:4430: OKs 4380: RT~KY:(RT)N&@ 16,15;"Up ";(UP);(8);:KY~: 4430: OK s 4390: UP~KY:(KY)N0@ 16,19;"Down ";(DN);(8);:KY~: 4430: OK s 4400: DN~KY:(KY): W~0 r 500: WDN#X* CHECK-FOR-OK-CONTROL-CHAR *b l 4570 vOK~u1 I~1 r 15# BDLTR: KY~BDLTR s OK~0:I~15 I  KY } 127 { KY  32 s OK~0+ KY&7B z KY}&60 s 4840:KY~KY z &DF< J~1 r (LTRS$): (KY)~(LTRS$,J,1) s OK~0:J~(LTRS$) J OK s LTRS$~LTRS$t(KY)B &42,&43,&4F,&53,&44,&45,&46,&54,&55,&48,&31,&32,&33,&34,&52"** SELECT-JOYSTICK-ON/OFF **(&11): 1,0: 7: 40 @12,0;"JOYSTICK SELECTION"2@2,4;"Do you want to use a joystick (Y/N)?"; CM$~( z &DF):(&1Track-Info  N          !&n#!!!N! !!!!!!N,!Z!N>>FϞ{(±ϧ46':S!0ϥXϤ(# h x V:S!0DϤ>6 C# >VϞy( ϯ Disc Formatted and Verified -- O|Y"2V>ë disc and press ENTERϜ 8Ϟϧ@_Xϧ Press ENTER to continue or 'X' to abando' ϧ More (Y/N)'YN Drive (0-3 or X)'0Invalid Drive No. :P!?o~#ϯGw>x0123456780 0}%8z <z :PO!X  o~#ϯGw>x0123456780 ϥXϤ(# h x V:S!0DϤ>6 C# >VϞy( ϯ Disc Formatted and Verified -- O|Y"2V>ë disc and press ENTERϜ 8Ϟϧ@_Xϧ Press ENTER to continue or 'X' to abando' ϧ More (Y/N)'YN Drive (0-3 or X)'0Invalid Drive No. :P!?o~#ϯGw>x0123456780 " GRAPHICS DEFINITION UTILITY SHP$(255)40$ q8);"GRAPHICS SET-UP PROGRAM"2(@10,4;"0. EXIT";@10,6;"1. LOAD SHAPE TABLES"&2@10,8;"2. INSPECT/CHANGE SHAPES"#<@10,10;"3. SAVE SHAPE TABLES"F@5,20: "WHICH (0-3)?";XP X 100,200,300Zc LOAD SHAPES FROM FILE!d "GRAPHICS FILE NAME: ";GF$n GF$t".GRF",FD$x #FD$;S: F I~S r F DFS$: DFS$~"" s 150 I,DFS$: SHP$(I)~DFS$ I DEFINE/INSPECT SHAPES!32: @8,0;"CHARACTER SET": I~32 r 240 p 16! J~0 r 15: (ItJ);" ";:  I: "SHAPE No.?";N N0 s 20  1000  200+ SAVE SHAPES!, "GRAPHICS FILE NAME: ";GF$1 "FIRST SHAPE No.: ";S3 "LAST SHAPE No.: ";F6 GF$t".GRF",FD$@ #FD$;S: FJ I~S r FT SHP$(I)^h  20 GRAPHIC CELL:A~95:B~70 Y~0 r 64 p 8 A,YtB r At64,YtB Y X~0 r 64 p 8 XtA,B r XtA,Bt64 X$X~At2: Y~Bt8K MOVE CURSORL 0,X,Y,2,127VK~` K~4 s X~Xt8j K~8 s X~Xu8t K~10 s Y~Yu8~ K~11 s Y~Yt8 K}32 s 1170  X,Yu1 K}13 s 1100  DFS$~"" Y~Bt56 r B p u8C~u0: X~0 r 7& (Xw8tAt2,Yt1)}0 s C~Ct2v(7uX) XDFS$~DFS$t(C,2) Y N,DFS$SHP$(N)~DFS$ o1l)@(@Hh A,YtB r At64,YtB Y X~0 r 64 p 8 XtA,B r XtA,Bt64 X$X~At2: Y~Bt8K MOVE CURSORL 0,X,Y,2%d*******************************%n* *%x* DEMO-PROGRAM *%* VERSION 0.2 *%********************************** MAIN CONTROL *** :Z~1: 280:0,"Q"O"INTR1","EINSTEIN","CLOCK","OTHELLO","MMIND","HANGMAN","TRAINER","PICPEN"7ZPRGN ~1: WE WANT TO RUN "INTRReadyE INTRODUCTION( 670: CALL GET-REQUIRED-FILE-NAME3 NOW WE HAVE THE REQUIRED FILE NAME IN ZFLNM$N 750: CALL CHAIN=PROGRAM (GOT USED INSTEAD OF GOSUB TO AVOID STACK EROR8"E",3,"I",9,"N",7,"S",13,"T",11,"E",5,"I",14,"N",9 *** DIPLAY-MENU *** 285: CLEAR STACKI 15,0: 0: 15,0: 32: Z~1: : "R","R","R": 280:0,"Q"-" 240: START READING DATA FROM LINE 240,6 ZI~0 r 7 @ ZPRN$: GET THE CHARACTER#J ZPRNC: ZPRNC: THE COLOURT@ 12tZI,0;ZPRN$ ^ ZI h 10,0)r@ 3,4;"SELECT AN OPTION BY PRESSING'|@ 3,6;"THE CORRESPONDING NUMBER " ZSP~10 "INTRODUCTION 1" "EINSTEIN 2" "CLOCK 3" "OTHELLO 4" "MASTER MIND 5" "HANGMAN 6" "KEY TRAINER 7" "PICTURE PEN 8" "END DEMO 9" 400: 9,0 ZI~0 r 8  ZM$@ 7,ZSPtZI;ZM$  ZI (&14)&ZPRGN ~($)"0 ZPRGN 1 { ZPRGN }9 s 550": ZPRGN~9 s :(&11):Z~0: D 400N ZI ~1 r ZPRGN X ZM$ b ZIl 7: @ 7,ZSPtZPRGNu1;ZM$0v 15,0:@4,22;"NOW CHAINING ";:(ZM$,14);" 670: GET-REQUIRED-FILE-NME (&11)  750%*** GET-REQUIIRED-FILE-NAME ***  190 ZI~1 r ZPRGN% ZFLM$: GET REQUIRED FILE NAME  ZI*** CHAIN PROGRAM *** 999  ZFLM$!  RETURN FROM CALLED PROGRAMo87! 6d x }@%H#1):Z~0: D 400N ZI ~1 r ZPRGN X ZM$ b ZIl 7: @ 7,ZSPtZPRGNu1;ZM$0v 15,0:@4,22;"NOW CHAINING ";:Track-Info  N            |7,0g100,40 r 140,40 r 140,80 r 100,80 r 100,40: 100,80 r 100,120,2 r 140,120,2 r 140,80,2:110,41 13,0; 160,40 r 200,40 r 200,80 r 160,80 r 160,40:180,41&@8,20;"RAM ROM VRAM"@17,7;"REMEMBER EINSTEIN"/@35,19;"0":@35,13;"16383":@15,0;"65535" KEV~1 r 5000::************************* COLOUR,TEXT AND GRAPHICS*************************: 1:  J~0r3 o4)* I~0r15:I,0: (255)" ";:I::J:!& I%~&20 r &7D:(I%);:::0&FB4F,32!: I%~&20 r &7D:(I%);::: D7,1*N I%~128 r 255: (13)t2,0:(I%);:X&FB4F,40!b@14,20;"GRAPHICAL EINSTEIN"l KEV~1 r 5000:v:::****************** SPRITE GRAPHICS******************: 12: 15,0: 15,14:~"000000" 10,8 A% s 2030*@8,23;"Press SPACE BAR to continue"; 15,1 @12,6;"SPRIGHTLY EINSTEIN") 0,100 r 255,100: 0,70 r 255,70  0,80,14: ROAD 0,85 r 255,85,2  15,0** 0,"000000000000030404081F3F7F7C18"*4 2,"000000000000C0A0A090FCFEFE7830",> 4,"00007F020F102E4A4E211E010F000000",H 6,"0000F8000080423E0CF8C020F0000000" R 2\ I~255r127 pu1f 4,I,160,9,4pz I~u20 r 330 p 1 0,I,102,4,0 2,Iu20,102,8,0 1,240uI,87,9,0 3,300uI,87,10,0' ~32 { ( A% z ~"000008")s 2250  :********************** SOUND EFFECTS********************** COLONEL BOGEY @2,3;"I can play a tune" 4:0,0,15,0,5,08$ "V0 G3 E5 R5 E3 F3 G3 +E3 R3 +E3 R3 +C7 R","R","R". WOLF WHISTLE8 @2,5;"Or make you swoon" B 6,1:7,110:9,9:1,0:8,15L I~64r32pu.35:0,I:V I~0r150:` I~64r48pu.17:0,I:j I~48r104p.5:0,I:t 8,0:9,0~ I~1 r 3000:$ @2,7;"Or perhaps blow you up!" 7,126:8,15 I~1 r 255:X~1 r 5:X 0,I::10:8:5 6,31:7,71 8,16:9,16:10,16:12,100 13,0 I~1 r 3000: FRERE JACQUES @2,9;"Or play a round" 2.5:0,0,15,0,50,0) A$~"V0C4DECC4DEC4":B$~"V0E4FG6E4FG6"0 C$~"V0G2AGFE4CG2AGFE4C":D$~"V0C4-GC6C4-GC6" A$,"R","R":,B$:,,C$:D$ ,"R":,,"R":"R" @2,11;"Or for a lark"$( @2,13;"We could try some Bach"2 0,0,15,0,100,0< 1,0,13,3,100,0F 2,0,8,3,100,0 P 3.5(Z @8,15;"JESU JOY OF MAN'S DESIRING"-d @5,16;"THE CHORALE FROM CANTATA NO.147""n @15,17;"BY J.S. BACH": 2730#x I~1 r 63: 126 FOR LONG TUNE A$,B$,C$# ****************************# * *# * EINSTEIN V007 *# * *# **************************** By pτ Ϙ πωODAC χO ρO !0HDAȘ@OAG@ φGD@O0Oτ@@ A O@ τϑO$OτO<OGF@0O<OG O&OB@G τϑOOCDB CB@3 H$8O@A@A55,255,32,255,255,255,32,255,255,32,32,255,32,255,255,255,255,32,255,255,255,255,255,32,255,255,255,255,32&255,255,255,32,255,255,32,32,255:{255,32,32,32,32,32,255,32,32,255,255,32,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255255,32,32,255:{255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,25532,255,32,255:v255,255,255,32,32,32,255,32,32,255,32,255,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,255,255,32,32,32,25532,32,255,,32,255,32,255| 255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255 32,255,32,255:{255,32,32,32,32,32,255,32,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255(32,32,255,2552:y<255,255,255,255,32,255,255,255,32,255,32,32,255,255,32,255,255,255,255,32,32,32,255,32,32,32,255,255,255,255,32,255"F255,255,32,255,32,32,255,255[P11:@0,10;"Hello I am EINSTEIN the brilliant new Home Computer from TATUNG."o14):GZ@0,14;"I will now demonstrate some of my amazing features:"ld11,6:@0,22;" Press SHIFT and BREAK at any time to end the program ";:15,0n0xA~89: AND &DF:IF A<>89 AND A<>78 THEN 1400 A~89 s A%~u1: A%~0 KEV~1 r 5000:  TEXT:@16,0;" EINSTEIN "::/"Here is a list of some of my features":M"1. 64K PROGRAM MEMORY,16K READ ONLY MEMORY,16K VIDEO MEMORY.":Q"2. 16 COLOURS DISPLAY,40X24 & 32X24 TEXT,256X192 PIXEL GRAPHICS.":'"3. POWERFUL SPRITE CAPABILITY":&"4. 3 CHANNEL SOUND GENERATOR"::"5. INTEGRAL 500K,3 INCH FLOPPY DISC DRIVE":%"6. MULTIPLE I/O FOR EXPANSION" A~1 r 9000: A GOSUB3860:":,:6****************@ MEMORY GRAPHICSJ****************T: ^1: h2,07r 40,40 r 80,40 r 80,191 r 40,191 r 40,40:50,41Track-Info  N          6~L6tL5:K6~K6tK5: B1}0 1850 S5 s S5~0: 15108 2760: @ 4,19;"I have to forfeit my move.": 2810& V1~1 s 21300V1~1: 19208:V1~0: 2760: @ 4,19; "I will move to ";(K3t64);L3D S1 s S5~1!NL~L3:K~K3:U~1: 1670: COUNT XC1~C1tS1t1:H1~H1uS1:N1~N1t1<b @ 4,20;"That gives me ";S1;" of your pieces." : 2810l 2630: UPDATEv H1~0 { N1~64 2130T1~H:T2~C= 2760: @ 4,19;(7);"Your move : ";: 2340: GET MOVE L}0 2030!G~0:U~u1: L~1 r 8: K~1 r 89 C(L,K)~0 s 2280: F1 s 1670: S1 s G~1:L~8:K~8:9 G s 2760: @ 4,19;"You can move.": 2810: 19300 @ 4,20;"Are you forfeiting your turn ? ";!I~:I~I z &DF: @4,21; (I) I}89 1930 V1 2130: V1~1: 1510C C(L,K) s @4,20;"Square occupied, try again.": 2810: 1930[2280: VALID:IF F1=0 THEN PRINT @ 4,20;"That is not a valid move, try again.":GOTO660U~u1:1670: COUNTH  S1~0 s @ 4,20;"It Doesn't flank a row, try again.": 2810:19308V1~0: @ 4,20;"That gives you ";S1;" of my pieces."+ @4,21;"It is my turn,I am thinking !"*U~1: 1670 4 2630 >H1~H1tS1t1:C1~C1uS1:N1~N1t1H C1}0 z N1}64 1510>R 2760: @ 4,19;"You have ";H1;" & I have ";C1;" pieces.""\ H1~C1 s @ 4,20;"A tie ! "&f H1}C1 s @ 4,20;"You've won !"$p H1C1 s @ 4,20;"I've won !"zJ~(H1uC1)w64xN1:" ";* Ju30s "you need practice.":2240- Ju10s "you're not very good.":2240, J10s "that was a close one.":2240- J30 s "that was a good game.":2240- J50 s "that was a great game.":2240$ "that was an excellant game."@4,22;"Play again?(Y/N)";/ 2890:G~G z &DF: @34,22;(G): G~89 s ; G~78 s @4,22;"Thanks for playing.": W~0 r 3000: W" G~78 s Z~0 s :(&11): G~78 s Z~1 s 280  2250  VALID!F1~0: L1~u1 r 1: K1~u1 r 1 C(LtL1,KtK1)~T2 s F1~1 :  w$ GETMOVE. L~u1:K~u18 2890:G}58 sG~G z &DF1B G}47 z G57 z L~u1 s L~Gu48: q17,3);(G);1L G}64 z G73 z K~u1 s K~Gu64: q15,3);(G);V K~u1 { L~u1 s 2360!` K}u1 z L}u1 s : 2350j : DRAW GRIDt 0,12:(12) ~ 15,12 HP~6: I~1 r 8:15,12 @ HP,0;I HP~HPt4 I V~2 I~ 72 r 65 p u1 @ 4,V;(I):@ 38,V;(I) V~Vt2 I X~31 r 223 p 24 X,52 r X,180 X Y~52 r 180 p 16 31,Y r 223,Y YC 15,0:@0,19;o199);:0,0: 245,0 r 245,39: 250,0 r 250,39( 160," **OTHELLO**VERSION 0.2;15,0:1:40:15,0:5,0:0,1: 0,0:"R1","R1","R1" Z~0 s 1017  1020 :+0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1 C(9,89),L4(9),K4(9) Q~1 r 8: L4(Q),K4(Q):Q@15,0;" OTHELLO ",,," ";@5,6;"Do you want instructions? (Y/N)";$ 2890:G~G z &DF'. G~78 s 1310: G}89 s 106008 CLS:PRINT@12,0;" OTHELLO ",,," "6B@0,2;"* The game is played on an 8 by 8 board.";,L"* You and the computer take turns to",V" place your counters on this board."/`"* Each time you place a counter,it must",j" trap some of the computers pieces "+t" between the one you place and any",~" other of your pieces on the board,"," in either a vertical,horizontal or"" diagonal direction."*"* Any traped pieces turn into your"" pieces.)"* To place your counter enter the"0" co-ordinates.Row 1 to 8,Column A to H."+"* The game ends when all places are"" occupied."1"* The player with the most counters wins";,"* If you cannot capture at least one"-" piece you must forfeit your turn by"" entering 0A."+"* The best way to learn is to play."/ "* Press any key to continue.Good Luck.";2 2890::@15,0;" OTHELLO ",,," "2@0,6;"Should I play my best? (Y/N) ";( 2890:G~G z &DF: (G) 2 G~89 { G~78 s 1340: 1320-< G~89 s S2~3:S4~2:S5~1: S2~0:S4~0:S5~0 FB~u1:W~1%P L~0 r 9: K~0 r 9:C(L,K)~0::(ZC(4,4)~W:C(5,5)~W:C(4,5)~B:C(5,4)~BdC1~2:H1~2:N1~4:V1~29n 2850:@0,9;"Do you want black or white ? (B/W) ";x 2890:G~G z &DF: (G) G~66 { G~87 s 1420 1390 G~66 s C~B:H~W: C~W:H~B92870:@0,12;"Do you want first go ? (Y/N) ";G~:G~G z &DF: (G)  G~89 { G~78 s 1460: 1430 15,1  2410 G~89 s 1920% 2760: @ 4,19;"I am thinking."B1~u1:L3~0:K3~0:T1~C:T2~H L~1 r 8: K~1 r 8 C(L,K) s 1660U~u1:1670 S1~0 s 1660 L~1 { L~8 s S1~S1tS2" K~1 { K~8 s S1~S1tS2, L~2 { L~7 s S1~S1uS56 K~2 { K~7 s S1~S1uS5@ L~3 { L~6 s S1~S1tS4J K~3 { K~6 s S1~S1tS4T S1B1 s 1660^ S1}B1 s 1650h (1)}.5 s 1660rB1~S1:L3~L:K3~K| K,L:1800  COUNT%S1~0: Q~1 r 8:L5~L4(Q):K5~K4(Q)L6~LtL5:K6~KtK5:S3~0 C(L6,K6)}T2 s 1780S3~S3t1:L6~L6tL5:K6~K6tK5 C(L6,K6)~0 s 1780 C(L6,K6)}T1 s 1710S1~S1tS3: U}1 s 1780L6~L:K6~K Q1~0 r S3:C(L6,K6)~T1LTrack-Info  N          78FFFFFFFFFFFF78" 2 2630< F L~1 r 8: K~ 1 r 8P C(L,K)~0 s 2670&Z C(L,K)~1 s 1,12: 2690: 2670"d C(L,K)~u1 s 15,12: 2690 n K,Lx  DRAW COUNTER L~1 s X~7: 2720 X~(Lu1)w4t7 K~1 s Y~16: 2740 Y~16u(Ku1)w2 @X,Y;(160);@0,23; 15,0:5 @ 0,22;" "7 @ 0,19;" "7 @ 0,20;" "7 @0,21;" "  A~1 r 3000: 6 @0,14;" " 6" @0,16;" ", 66 @0,18;" "@ J KEYSCANT G~: G~0 s 2900^ pX{;XP@8@h@8 "7 @ 0,20;" "7 @0,21;" #**EINSTEIN INTRO**VERSION 0.21:40:15,1:(&14) Z~0 s 16806A~0 r 13:A~7 s 7,&7F:: A,0::*RESET SOUND 0,0=6,&1F:1,8:3,4:5,2:8,&10:9,&10:10,&10:12,81:13,0-7,&7E: 3:S~158:B~180:VR~9:HR~9: 1130.$7,&7C:9:S~114:B~140:VR~14:HR~14: 1130,.7,&78:4:S~57:B~80:VR~20:HR~20: 1130)81,1:15:S~3:B~3:VR~40:HR~26: 1130B12,255:13,0L1450:LOGOV A~1 r 6000:A%` Z~1 s 280: A~: :(&11): jA~1 r 8t13,0:T~BtVR:F~StHR2~ A 1190,1240,1290,1340,1400,1190,1240,1290S~StHRw1.2A*LETTER 'E'0E1~.2wVRtB:E2~.4wVRtB:E3~.6wVRtB:E4~.8wVRtBE5~.2wHRtS:E6~.6wHRtS` S,B r F,B r F,E1 r E5,E1 r E5,E2 r E6,E2 r E6,E3 r E5,E3 r E5,E4 r F,E4 r F,T rS,T r S,B*LETTER 'I'I1~.2wVRtB:I2~.8wVRtB0I3~.1wHRtS:I4~.4wHRtS:I5~.6wHRtS:I6~.9wHRtSh I3,B r I6,B r I6,I1 r I5,I1 r I5,I2 r I6,I2 r I6,T r I3,T r I3,I2 r I4,I2 r I4,I1 r I3,I1 r I3,B *LETTER 'N'N1~.4wVRtB:N2~.6wVRtBN3~.2wHRtS:N4~.8wHRtSO( S,B r N3,B r N3,N2 r N4,B r F,B r F,T r N4,T r N4,N1 r N3,T r S,T r S,B2<*LETTER 'S'FS7~.2wHRtS:S8~.8wHRtSHPS1~.2wVRtB:S2~.25wVRtB:S3~.4wVRtB:S4~.6wVRtB:S5~.75wVRtB:S6~.8wVRtBFZ S,B r F,B r F,S4 r S7,S4 r S7,S6 r S8,S6 r S8,S5 r F,S5 r F,TEd F,T r S,T r S,S3 r S8,S3 r S8,S1 r S7,S1 r S7,S2 r S,S2 r S,Bnx*LETTER 'T'T1~.8wVRtBT2~.4wHRtS:T3~.6wHRtSD T2,B r T3,B r T3,T1 r F,T1 r F,T r S,T r S,T1 r T2,T1 r T2,B*SPRITE BLACKOUT 0,0,0,0,&803:&80,("F",64) A~0 r 8/ A,10tAw32u96w(Ax3),200u32w(Ax3),1,&80A *LOGOX~50:Y~150:R~25:9,1 X,Y,R,1.3 X,Y,Rw.8,1.3 X,Y,Rw.5,1.3 X,Y,Rw.3,1.3L"XuRw.15,YtRw.36 r XuRw.15,YtRw1.5 r XtRw.15,YtRw1.5 r XtRw.15,YtRw.36M,XtRw.29,YuRw.09 r XtRw1.00,YuRw.65 r XtRw.88,YuRw.94 r XtRw.14,YuRw.34M6XuRw.29,YuRw.09 r XuRw1.00,YuRw.65 r XuRw.88,YuRw.94 r XuRw.14,YuRw.34@ X,Y,Rw.4,1.3,1J X,Y,Rw.9,1.3,1mT X,YtRw.45 r X,YtRw1.4,1: XtRw.35,YuRw.30 r XtRw.91,YuRw.80,1: XuRw.35,YuRw.30 r XuRw.90,YuRw.80,11^ X,YtR:XtRw.91,YuRw.80:XuRw.91,YuRw.80ShXtRw.29,YuRw.09 r XtRw1.00,YuRw.65,1 r XtRw.88,YuRw.94,1 r XtRw.14,YuRw.34,1SrXuRw.29,YuRw.09 r XuRw1.00,YuRw.65,1 r XuRw.88,YuRw.94,1 r XuRw.14,YuRw.34,17| :11:12,255:7,&40:13,0: A~1 r 10 : A:1**ESCAPE ROUTINE**:(&11):87! (6`^wTrack-Info  N ɯw!4~!o> 0 & ~ 2 S2c!6+6 2: 0 2͈  :2k !6ɯ2!w#2d!fw#w#w2k (::* ͢ ͈  :: :: (*#~0<2  k (ͱ ͱ !5!6: >!A [# !6 ʹ !5y2!~6:. ! k (: :*  ͢ ͈ ͱ !5!6: :j<2*6 6:_z 0j&6 {>=!4N* :w?!c6!6?:͈ : A28:  ð:S(Q :<2 (  9 02 8!6& 02 0*&)DM)) DM*& !s*& :w: >!ڰ:2 !6>'دͤ!4 ! $>>#X 2:s0 [ * R:!62 ͤ2:(1! 6 #End of File, Ctrl-Z>ȯ2 t!62 ͤ2(t:>>"2:( :(5!(it:>Я!~6!~6*}2}o"&*K&":>X 2 !6* & :w! 4~Oi:ͤ0  8i!wo 203 : : 8N ! ~ͤ> ͤ> ͤ:* &6$Error, Press Ctrl-Z to stop !͒ 2t͆ 8S>2!""ʰ!" ju$o:/:>8x!ʰ2)!~͒ 2s*k" :-°:=°!"o@*mR!0[k*m"m)l&+!is*R< "o.<"k:!ͣ :ͤ2N:2!6#6>!8,n& ~(:((( ((2!4 :0*$ *  *m":̎&No:!0:w6:( !4͢&:r,Lʰ!͉ 2$(b:0X:8GLocked, Overwrite (Y/N) Y(**NOT OVERWRITTEN*͆ 8!˾a8!͆ W* #|!"jͨ!4F\0 !ð4_!22!u:/!0F}: _A >Y2FY !͇ Copie:( & verifie!>  N} ,:d8)!:j0~=2qɯ!:j0~=2r : ð!q:r024:c !v #>2( !~T #~O:2( :×COPY V1.1 (C) 1984, CRYSTAL RESEARCH$$$ XEC =.:,<>_[] INPKBDUI1UI2OUTLPTPRNLSTUO1UO2VDUSRLAUXUC1CONNULEOFDisc Read Error$Disc Write Error$Verify Error$Aborted$Invalid Format$Invalid Option$Invalid User No.$Record Too Long$Invalid Digit$Checksum Error$HEX$$$$No Directory Space$No File$COM$Start Not Found$Quit Not Found$Cannot Close Output File$Unrecognised Destination$Cannot Write$Cannot Read$1_!DM:2f2\2j1_N:2go"2!w+w+w!6#w!`w#6: ͘!6: :jǯ!rw!qw!w+wu( :ʺ %:=2q(D:cͳu!#:c͝ ?2c "ͳ!u!8!v 6?#>2cͳ\!u!  : ͳ͇!6u( :8:c2t: ͝!6:8 ڰ:<2( !~T#~O:2( 2s: :c ͳ͎!6: :8?~ڰ:!sw:<2: r < ͢3:!t0>2: >2!~ 6!~ 6ou( : : 2ö:b  y_!b4 05 6~#˿(  _ͫu ::_ !"$G!()%>  o'0;!" j!6:i8;* [o@(u * " [o6:i2 * " !4!" o*)|=2͂!6:8(* "ͫK°*"!4 :!"ͨ!6:89x*#" * C #°*"!4K!":(:(Insert sourc%:q:(#: Insert destinatio>%:r2 disc in 0::qÇ2 8 !`4:(:2K!l ^#V[m*R&* :w*#";~ð!6%!6 !6 !60!6!6:_:2y2 : :C,:`2!:82!:w!~(5> C: !`6I :( 0O2:=2!~'w+~'w+~'w~@#~@#~@: :  >!w:0: :09: (2:!w(~ 6!6:2K!h e [k* R[ *o~2#"  >ɯ!f05+N! ~2!e4! 2:( 0!~2e6!g~6<2f:( 0 2>2h> :!w:gwO! ~2 *& :w>!:!g 4Track-Info  N   ANALOGUE & DIGITAL CLOCKS BY M. BAILEY. VERSION 0.2AL$~"******" Z s 1880$. SET UP SCREEN8B1 : 15,0 : 40L#VIND USER OF OPTIONS AVAILABLE` j@9,2;"ENTER YOUR CHOICE :" t@9,3;""~@9,6;"KEY FUNCTION"@9,7;" "!@10,9;"1 DISPLAY CLOCK"@10,11;"2 RESET TIME"#@10,13;"3 SET ALARM TIME""@8,15;" QUIT PROGRAM" CONVERT INPUT VALUE TO 1-DIGIT NUMBER (20) A~u48 : A}3 { A0 s 1260  GO TO APPROPRIATE ROUTINE  A 1340,1640,1680( THIS IS ANALOGUE CLOCK2<40:11,1:1:90,100 F 4 P2040 Z 15d 0,0,55,1.312n 0,0,48,1.312<x@28,6;"TIME" : @28,14;"ALARM":@23,19;"S STOPS ALARM"7 : T1$~ : 1540 11,11 A~&20 s 1000 15,1 T0$~T1$~ : @28,8;:11,11E15,1: A}0 z A}&53s@6,23;"PRESS TO RETURN TO MENU";0@28,8;(T1$,2);":";(T1$,3,2);":";(T1$,2)1@28,16;(AL$,2);":";(AL$,3,2);":";(AL$,2): RING s (T1$,4)~(AL$,4)s 2140: A~&53 s RING~0#A~: A~&20 s 1000: A~A z &DF" (T0$,3,2)~(T1$,3,2)s 14606@0,23;" "; 0,0 r XM%,YM%,1 ALPHA~6w((T1$,3,2))u90)2XM%~(40w(uALPHA)):YM%~(40w1.312w(uALPHA))" 0,0 r XM%,YM%,0, 0,0 r XH%,YH%,1-6BETA~30w((T1$,2))u90)t(ALPHAtx2)x12,@XH%~(35w(uBETA)) : YH%~(35w(uBETA))J 0,0 r XH%,YH%,0 T 1430^ SET CLOCK TIME h 1720 r~T$| GO BACK TO MENU  1050  1710!AL$~T$:RING~u1: RESET ALARM  1050 PROMPT FOR TIME INPUT40:(17)!@12,10;"ENTER CORRECT TIME")@17,12;"HH:MM:SS";:I~1r8:(8);:IT$~"":I~0 GET NEXT CHARACTER A$~$4 RETURN IF 6 CHARACTERS ENTERED OR HIT  (A$)~12 { (T$)~6 s 1870# (A$)&30 { (A$)}&39 s 1770# (I~3 { I~6) z (A$)}5 s 1770 I~0 z (A$)}2 s 1770"&T$~T$tA$:@17tI,12;A$;: I~It10 SKIP OVER SEPARATER: I~2 { I~5 s I~It1:":"; D 1770N X Z~1 s 280 : (17)::%b 200,"70 88 98 A8 C8 88 70 00"%l 201,"20 60 20 20 20 20 70 00"%v 202,"70 88 08 30 40 80 F8 00"% 203,"F0 08 10 30 08 88 70 00"% 204,"10 30 50 90 F8 10 10 00"% 205,"78 80 F0 08 08 88 70 00"% 206,"70 80 80 F0 88 88 70 00"% 207,"F8 08 10 20 30 40 40 00"% 208,"70 88 88 70 88 88 70 00"% 209,"70 88 88 78 08 08 70 00"00,140,160,7,2011,145,100,7,2022,150,89,7,203 DRAW HOUR MARKERS I~0 r 11wx6 p x6 X1%~48w(I):X2%~55w(I)(Y1%~48w1.312w(I):Y2%~55w1.312w(I)  X1%,Y1% r X2%,Y2%,0* I4 I~2 r 38:@I,0;(255):I>I~2r38:@I,22;(255);:I-H I~1r 22:@2,I;(255):@38,I;(255): IR\L~((T1$,2))fp (Lx2)}Lx2 s 1,151z@28,16;(AL$,2);":";(AL$,3,2);":";(AL$,2) J~0 r 20:J 15,1pTrack-Info  N  LEFT "; game over music4:0,0,10,3,4,3"M0$~"V0+C5+D#5+C5G5A#5D5C7R5""M1$~"V0-C8-G8-G7R5", M0$,M1$,"R"6 A~1 r 1000:A*@1:15,0:32:@9,6;"YOU SCORED ";S%J 2100: MUSIC+T8:@4,13;"PRESS SPACE TO PLAY AGAIN",^@1,18;"PRESS ANY OTHER KEY TO FINISH";$hI~: I~32 s AGAIN~u1: AGAIN~00r A~1 r 300:A::: RETURN TO MAIN CONTROL| ** LOSE MUSIC0,0,10,3,4,3*7:M0$~"V0R6F6R6D#6R6C6-A#6-G#6-F9R1"*M1$~"V0-F6R6-D#6R6=C6R6=A#6=G#6=F9R14 M0$,M1$,"R" ** WIN MUSIC0,0,10,3,4,3)7:M0$~"V0R6F6R6D#6R6C6C6D#6G#6F9R1"-M1$~"V0-F6R6-D#6R6=C6-C6-E6-F#6-B6-A9R1" M0$,M1$,"R" ** INSTRUCTIONS40:15,0:1"," SNAKES",,," "Y11:@0,4;" Direct your snake (the yellow one) to avoid hitting any obstacles."G@0,7;" The computer also has a snake so watch out!"5&9:@0,10;" Use these keys to move your snake."0@11,12;"LEFT -Z":@11,14;"RIGHT -X"D@11,16;"UP -:"N@11,18;"DOWN -/"8X15:@2,20;" If you don't like these keys press K"%b@6,22;" Press SPACE to play ";lI~: I}32 z I}75 s 1900vKCH~0: I~75 s KCH~u1 ** KEY SELECTION&40:," SNAKES",,," "+@0,4;"Press the keys you would like."+@3,6;"(Note:some keys arn't allowed)"#@10,8;"LEFT ";: 2030:KL~K#@10,10;"RIGHT ";:2030:KR~K$@10,12;"UP ";: 2030:KU~K#@10,14;"DOWN ";:2030:KD~K$@6,20;"Press SPACE to play ";I~: I~32 s : 2020 GET KEY(K$~$:K~(K$): K31 { K}96 s 2040 (K)  ** INTRODUCTION 15,1:1:8,0:32* 2260: SNAKE PRINTOUT40,0,13,3,4,3>1,0,10,3,4,3H 78RM0$~"V0 -C6R6 =G6R6 -C6R6 =G6R6 -C6R6 =G6R6 -C9R1 "8\M1$~"V1 R6 +C6R6 +C6R6 +C6R6 +C6R6 +C6B6 B6 +C9R1 "8fM2$~"V1 R6 G6 R6 G6 R6 G6 R6 G6 R6 G6 G6 G6 G9 R1 "p A~1 r 72 p 3zX0$~(M0$,A,3)X1$~(M1$,A,3)X2$~(M2$,A,3) X0$,X1$,X2$ 5:@Ax3t2,2;(132);(128)"3:@26uAx3,21;(130);(132)A A~1 r 800:A ** SNAKES PRINTOUTHR~38:VR~100:S~0:B~45 T~BtVR L~1 r 6 F~StHR( L 2560,2520,2360,2470,2420,2560 S~StHRw1.1 L$ . LETTER'A'&8 A1~.3wVRtB:A2~.5wVRtB:A3~.75wVRtB%B A4~.3wHRtS:A5~.5wHRtS:A6~.7wHRtSJL S,B r A4,B r A4,A1 r A6,A1 r A6,B r F,B r F,A2 r A5,T r S,A2 r S,B%V A4,A2 r A6,A2 r A5,A3 r A4,A2` j *LETTER 'E'0t E1~.2wVRtB:E2~.4wVRtB:E3~.6wVRtB:E4~.8wVRtB~# ****************************# * *# * SNAKES V008 *# * *# **************************** By Nigel Deakin $ SNAKES. Version date 13/4/84#8 Program subject to copyrightBZL: &12E,&FFFE: 0: 25,10:(44): q0,32): 4: K~0 r 14: K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 1180: START LINE 2` 2870: ** INITIALIZATIONj 2070: ** INTRODUCTIONt 1780: ** INSTRUCTIONS!~ KCH s 1930: CHANGE KEYS 2620: ** GAME STUCTURE AGAIN s 2880:11604 Z s 320: :4: &12E,&FFFE:: FINISH LINE ** PLAY GAME?7:K~:3,4: GOES}1 s @10,23;: A~2 r GOES:(128);:A911,6:@1,23;" LEVEL";LEVEL;@17,23;" SCORE:";:1,1H0,0:1,2:2,0:3,1:4,0:5,3:8,16:9,15:10,15:7,&76:11,0:12,1 ** PLAYER MOVE:6,0:D~UD:K~: K~KR s D~0:13,4: K~KD s D~1:13,4, K~KL s D~2:13,4: K~KU s D~3:13,4UD~(Dt2)y4sD~UDHUX1~(UXtXD(D))y32:UY1~(UYtYD(D))y23:HIT~(&3C00t32wUY1tUX1)127)t1VS%~S%t1:11:@UX,UY;(CHR(UD,D));@UX1,UY1;(128tD);@25,23;S%;:UX~UX1:UY~UY1:UD~D% OK~0:D~CD:DT~D:** COMPUTER MOVEnCX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23:&3C00t32wCY1tCX1)}127sCX2~CX1:CY2~CY1:1330: CX3~CX1:CY3~CY1:OK~1KCX2~(CX1tXD(D))y32:CY2~(CY1tYD(D))y23: &3C00t32wCY2tCX2)}127 s 13302( (1).05 s D~(Dt((1)u.5))y4: 1300: 1360h26,31:13,4:D~(Dt((1)u.5))y4:CX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23: &3C00t32wCY1tCX1)127 s 1360S<D~(Dt2)y4:CX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23: &3C00t32wCY1tCX1)127 s 1360<FCX1~CX3:CY1~CY3:D~DT: OK~0 s HIT~HITt2:CX1~CX2:CY1~CY2RP8:@CX,CY;(CHR(CD,D));@CX1,CY1;(Dt128);:CX~CX1:CY~CY1:CD~D: HIT~0 s 1240SZ FOOD%(UX1,UY1)~u1s 7,&7D:FOOD~FOODu1:FOOD%(UX1,UY1)~0:7,&77:S%~S%t20:1240Jd FOOD%(CX1,CY1)~u1s 7,&7B:FOOD~FOODu1:FOOD%(CX1,CY1)~0:7,&77:1240nx** HIT ROUTINE15,4:@1,23;Q HIT~3 {(CX1~UX1 z CY1~UY1) s " WE'VE BOTH CRASHED ! ";:1720:1490HIT}2s 1480+" I'VE CRASHED - YOU WIN ";:1720R LEVEL}4 z S%}LIMIT s LEVEL~LEVELt1:@1,23;" NOW YOU MOVE UP A LEVEL ";\ LEVEL~4 z FOOD~0 s LEVEL~LEVELt1:@1,23;" THATS IT,YOU HAVE WON ";:5,1:1590 A~1 r 400:AP HIT~1 s " YOU CRASHED - I WIN ";:GOES~GOESu1: 1660: SAD MUSICU S%}EXMAN s GOES~GOESt1:EXMAN~EXMANt500:@1,23;" YOU HAVE AN EXTRA SNAKE "; A~1 r 700:A GOES}0s  ** GAME OVER,@1,23;" NO MORE GOESTrack-Info  N  E5~.2wHRtS:E6~.6wHRtS` S,B r F,B r F,E1 r E5,E1 r E5,E2 r E6,E2 r E6,E3 r E5,E3 r E5,E4 r F,E4 r F,T rS,T r S,B  LETTER'K'% K1~.3wVRtB:K2~.5wVRtB:K3~.7wVRtB( K4~.25wHRtS:K5~.35wHRtS:K6~.65wHRtSW S,B r K4,B r K4,K1 r K6,B r F,B r K5,K2 r F,T r K6,T r K4,K3 r K4,T r S,T r S,B  *LETTER 'N' N1~.4wVRtB:N2~.6wVRtB N3~.2wHRtS:N4~.8wHRtSO S,B r N3,B r N3,N2 r N4,B r F,B r F,T r N4,T r N4,N1 r N3,T r S,T r S,B  *LETTER 'S' S7~.2wHRtS:S8~.8wHRtSH S1~.2wVRtB:S2~.25wVRtB:S3~.4wVRtB:S4~.6wVRtB:S5~.75wVRtB:S6~.8wVRtBF S,B r F,B r F,S4 r S7,S4 r S7,S6 r S8,S6 r S8,S5 r F,S5 r F,TE( F,T r S,T r S,S3 r S8,S3 r S8,S1 r S7,S1 r S7,S2 r S,S2 r S,B2 < ** GAME STRUCTUREF GOES~4:S%~0:LEVEL~1:2660 P 1400CZ V~(&FB3E): V128 s (&FB3E),Vt128:&22,0: SET TO UPPER CASE1d 2,1:32: LEVEL 2680,2690,2700,2730,2760n 1400: HIT ROUTINEHx LIMIT~100:UX~8:CX~20:250: 1200:255:2640: * LEVEL 1-SLOW NORMAL8 LIMIT~200:UX~20:CX~8: 1200: 2640: * LEVEL 2-FAST * LEVEL 3-FAST +OBSTACLES 2770: RANDOM OBSTACLESH TREE~TREEt5:CX~31:UX~31:CY~5:UY~15:CD~2:UD~2:LIMIT~300:1200: 2640% * LEVEL 4-FAST +OBSTACLES+FOOD8 TREE~TREEt5: 2770: 2810: 2840: * OBSTACLES+FOOD1 CX~31:UX~31:CY~5:UY~15:CD~2:UD~2:1200:2640% LEVEL~5 s 40:"NO MORE YET": ** RANDOM OBSTACLES' S~1 r TREE:S1~(27)t2:S2~(19)t2b S3~(6): S4~0 r S3:@S1,uS2w(S2}15);(140);:A~(4):S1~(S1tXD(A))y32:S2~(S2tYD(A))y23:S4:S 2 CX1~1 r 32: D~1 r 23:FOOD%(CX1,D)~0:D,CX1 FOOD CANCEL  ** FOODZ" FOOD}0 s 13: S~1 r FOOD:S1~(27)t2:S2~(19)t2:@S1,S2;(150);:FOOD%(S1,S2)~u1:S, 6 ** INITIALIZATIONC@ V~(&FB3E): V128 s (&FB3E),Vt128:&22,0: SET TO UPPER CASE8J define most commonly used first for maximum speedwT D~0:CX1~0:CY1~0:HIT~0:UX1~0:UY1~0:CY~16:UX~8:UY~8:UD~0:CX~20:CY~16:K~0:S%~0:OK~2:CD~2:CX2~0:CY2~0:CX3~0:CY3~0:DT~0*^ AGAIN s 2810:TREE~20:FOOD~20:3090Eh KR~88:KD~47:KL~90:KU~58:EXMAN~500: FOOD%(32,23):FOOD~20:TREE~20/r 5,0: SUPRESS TRAILING SPACE ON PRINT VAR*| 128,"001C7EF3FF7E1800": HEAD RIGHT* 129,"1C3C3C7E76363C18": HEAD DOWN.* 130,"00187EFFCF7F3800": HEAD LEFT.' 131,"183C6C6E7E3C3C38": HEAD UP+ 132,"000070FFFF0E0000": BODY HORIZ.* 133,"181C1C1C38383838": BODY VERT.- 134,"183878F0E0000000": CURVE UP-LEFT. 135,"181C1E0F07000000": CURVE UP-RIGHT0 136,"000000070F1E1C18": CURVE DOWN-RIGHT/ 137,"000000E0F0783818": CURVE DOWN-LEFT$ 150,"001808183C3C1800": FOOD* 1,0,0,1,-1,0,0,-1:REM FOR DIRECTION A~0 r 3: XD(A),YD(A):M 132,137,0,134,135,133,134,0,0,136,132,135,136,0,137,133:REM FOR SHAPES) A~0 r 3: B~0 r 3: CHR(A,B):B:A EAD UP+ 132,"000070FFFF0E0000": BODY HORIZ.* 133,"181C1C1C38383838": BODY VERT.- 134,"183878F0E0000000": CURVE UP-LEFT. 135,"181C1E0F07000000": CURVE UP-RIGHT0 136,"000000070F1E1C18": CURVE DOWN-RIGHT/ 137,"000000E0F07838#*****************************#* *#* HANGMAN V 007 *#* *#*****************************$ By David Wess. HANGMAN8 Version date 11/4/84#B Program subject to copyrightL**** MAIN-CONTROL ****V[`: &012E,&FFFE: 0: 25,10:(44): q0,32): 4: K~0 r 15: K," ": K: START LINE 1=j Z s : 1000:Z~u1: : 1000: 1200: START LINE 2t 1210: SET-UP"~ 1460: CHARACTER-DEFINITION' 2680: INTRODUCTION/INSTRUCTIONS) 3000: UNTIL COMND="F"(FOR FINISH)" PLAY THE GAME END, Z s 320: : 4: 4:: FINISH LINE*** SET-UP ***I u6,0: "R1","R1","R1":,0:,0:40: :2: 0: 0,0,10,0,255,0,GAMECOL~0: GAME BACKGROUND TRANSPARENT5INSTRCOL~0: INSTRUCTIONS BACKGROUND TRANSPARENT MESCOL~7: MESSAGES IN CYAN"LRCOL~13: LETTERS IN MAGENTA  Z~1 s 280# M$(19): WE HAVE 17 MESSAGESM$(0)~(" ",40)3(M$(1)~" Press I for Instructions, press F to"2M$(2)~" Finish playing."4<M$(3)~" Press H or E for a Hard or Easy word."5FM$(4)~" I will free you if you can guess the"*PM$(5)~" word that I am thinking of."ZM$(7)~" It has"(dM$(8)~" letters so I will give you"nM$(9)~" trys."+xM$(10)~" Choose a letter."!M$(11)~" You have"M$(12)~" trys left."M$(13)~" try left."2M$(14)~" I suppose I'll have to FREE you."0M$(16)~" You HAVE tried that letter."** MAN LEG BACK **** YELLOW BITS ** &90,"03050F0703000000" &91,"0010000001010100" &92,"80C0C0C080000000" &93,"0000000080400000"** BLUE BITS **", &94,"0002000000030707"6 &95,"0F07070700000007"@ &96,"0000000000808080"J &97,"8080808000002040"T^** MAN LEG FORWARDS **hr** YELLOW BITS **| &98,"03050F0703000000" &99,"0000000003050100" &Track-Info  N to death by"* " hanging for cruel and dastardly "+ " crimes against Queen and country."/ " At present you are awaiting execution" " in the castle dungeon.." " I am the jailer and I have decided"., " to give you a chance to live. If you"/6 " can guess all the letters of the word")@ " that I am thinking of then you "J " can go FREE."T :/^ : 9:" Of course if you can't...": 7%h " <>";r } &20 s 2930 | 9,0 @27,19;"then YOU DIE" (" ",40)- 5: "V0-E5R1-E5R1-E5R1-C9R1","R1","R1" W~0 r 600: W: PAUSE   ** THE-GAME **  3710: DRAW-START-SCREEN$ 4220: SPRITE START POSITIONS# 2520: SET-UP WALK VARIABLES @0,23;(" ",39);# 4400:LINE1~1:LINE2~2:LINE3~3 4400: MESSAGE-SCREEN COMND$~( z &DF)8 COMND$~"I" s 2680: 3030: DISPLAY INSTRUCTIONS(& COMND$~"F" s 3700: FINISH GAME:0 COMND$~"E" s DICNAME$~"DICTIONE.DAT":DCSZ~97: 3160:: COMND$~"H" s DICNAME$~"DICTIONH.DAT":DCSZ~80: 3160 D 3090N 4400: CLEARS MESSAGE6X LINE1~4:LINE2~5: 4400: IF YOU CAN THINK OF WORDb DICNAME$,FD$l REC0RD ~ 1 r (DCSZ)v #FD$;W0RD$ REC0RD FD$( WE NOW HAVE THE WORD TO BE GUESED WRDL~(W0RD$) PRNST~22uWRDLu1L WRDL  5 s TRYSLF ~2w WRDL: TRYSLFT~WRDLt4: TRYSLFT}13 s TRYSLFT~136 TRYSLFTu4}4 s MOVESTART~4: MOVESTART~TRYSLFTu4 M$(17)~M$(7)t(WRDL)tM$(8) M$(18)~(TRYSLFT)tM$(9) 4400: CLEAR MESSAGE LINE1~17 LINE2~18 LINE3~10 4400: MESSAGE @PRNST,23;"";  LRCOL" I~1 r WRDL: PUT OUT DASHES * "_ ";4 I > LTF~0)H MANNM~0:T0GGLE~0: WALK START SHAPES9R FSTLTTER~u1:TRY$~"": FIRST LETTER TO BE GUESSED YET!\ TRYSLFT~TRYSLFTu1 r 0 p u1Xf TRYSLFT~0 s M$(19)~M$(11)t(TRYSLFTt1)tM$(13): M$(19)~M$(11)t(TRYSLFTt1)tM$(12),p FSTLTTER s LINE1~19:LINE2~10: 4400z FSTLTTER~0^ TRYSLFT~2 z (WRDLuLTF)}3 s 3:@11,4;"Press @ for a hint.": 4:"V0+C3G5R1","R1","R1"= LTTER$~( z &DF): LTTER$  "@" { LTTER$ } "Z" s 3470? TRYSLFT~2 z (WRDLuLTF)}3 s LTTER$~"@" s 5520: 3470 4400: CLEAR MESSAGE* TRIED~0: SET LETTER TRIED FLAG FALSE8 I~ 1 r (TRY$): THE LETTERS THAT HAVE BEEN TRIED/ LTTER$~(TRY$,I,1) s LINE1~16: 4400: 5e LTTER$~(TRY$,I,1) s "V0=C1=D1=C1=D1=C1R2","R","R": 4400:LINE1~19: 4400:I~(TRY$):TRIED~u1 I* TRIED s 3470: TRY ANOTHER LETTER TRY$~TRY$tLTTER$) LTTERBAD~u9A,"80C0C0C080000000" &9B,"0020000000000000"** BLUE BITS ** &9C,"0002000000030707" &9D,"0707070700100807" &9E,"0000000000808080" &9F,"C080808000000000"** MAN LEGS OUT **** YELLOW BITS **& &A0,"03050F0703000000"0 &A1,"2000000002040000": &A2,"80C0C0C080000000"D &A3,"1000000080400000"NX** BLUE BITS **bl &A4,"000200000003071F"v &A5,"1707070700100800" &A6,"00000000008080E0" &A7,"A080808000002040"** MAN LEGS DOWN **** YELLOW BITS ** &A8,"03050F0703000000" &A9,"0000010001010100" &AA,"80C0C0C080000000" &AB,"0000000000000000"** BLUE BITS **  &AC,"0002000000030707" &AD,"0707060700000003"  &AE,"0000000000808080"* &AF,"8080808000000000"4>** MAN LEG UP STEP **HR** YELLOW BITS **\f &B8,"03050F0703000000"p &B9,"000001000F010100"z &BA,"80C0C0C080000000" &BB,"0000000000000000"** BLUE BITS ** &BC,"0002000000030707" &BD,"0707060700180007" &BE,"0000000000808080" &BF,"8080808000000000"** PORTCULLIS **N &B0,"070C14247F4444447F4444447F444444C0605040FC444444FC444444FC444444"N &B4,"070F1F3F7F7F7F7F7F7F7F7F7F7F7F7FC0E0F0F8FCFCFCFCFCFCFCFCFCFCFCFC"  ** MAN FACING ** $ ** YELLOW BITS **. N8 &C0,"03050707030000000000040002020200C0A0E0E0C00000000000200040404000"B L ** BLUE BITS **V N` &C4,"000200000107070707070303000000060040000080E0E0E0E0E0C0C000000060"j t ** MAN FACING HANDS UP **~  ** YELLOW BITS ** N &D0,"03450707030000000000000002020202C0A2E0E0C00000000000000040404000"  ** BLUE BITS ** N &D4,"000220100807030303030303000000060040040810E0C0C0C0C0C0C000000060" ! ** SET UP WALK VARIABLES ** # Y~44:XSTART~190:YD~44:X~XSTART XHALT(4)~158 XHALT(3)~138 XHALT(2)~110 XHALT(1)~98 YELBIT(0)~&A8( YELBIT(1)~&982 YELBIT(2)~&A0< YELBIT(3)~&90F BLUEBIT(0)~&ACP BLUEBIT(1)~&9CZ BLUEBIT(2)~&A4d BLUEBIT(3)~&94n x ( ** DISPLAY-INTO/INSTRUCTION-PAGE** @ &C8,"0808182444442418":11,0:(&14): INSTRCOL::  TITL1$~((&C8),11)% TITL2$~(&C8)t" "t(&C8) @14,0;TITL1$ @14,1;TITL2$% @14,2;(&C8);" HANGMAN ";(&C8) @14,3;TITL2$ @14,4;TITL1$ : 7,0/ " You have been sentenced Track-Info  N 1: SET FLAG TO BAD LETTER W0RDLTTER~1 r WRDL!CRNLTR$~(W0RD$,W0RDLTTER,1)  LRCOL@ LTTER$~CRNLTR$ s @(PRNSTu2t(2wW0RDLTTER)),23;LTTER$;: 5D$ LTTER$~CRNLTR$ s "V0C3+C1C3R1","R","R":LTF~LTFt1:LTTERBAD~0. W0RDLTTER88 LTTERBAD s 5310: 4490: ADVANCE-MAN-TO-GALLOWS%B LTTERBAD s TRYSLFT~TRYSLFTt1NL WRDL~LTF s LINE2~14 : 4400: 5370: 5: "V0C5-G3-G3-#G5-G7-B5C7R6R6R6"?V WRDL~LTF s "R","R","R":TRYSLFT~0: THE WORD IS GUESSED` TRYSLFT j 3040t~*** DRAW-START-SCREEN ***** CASTLE **  11,0: GAMECOL: 3,0:@17,0;"HANGMAN"J 152,28 r 152,112 r 159,112 r 159,105 r 168,105 r 168,112 r 175,112i r 175,105 r 182,105 r 182,112 r 189,112 r 189,105 r 198,105 r 198,112 r 206,112 r 206,28 r 152,28** BOX **  15,01 55,16 r 55,145 r 208,145 r 208,16 r 55,16 ** STEPS ** ( 11,0L2 143,28 r 141,28 r 141,30 r 139,30 r139,32 r 137,32 r 137,34 r 135,34F< r 135,36 r 133,36 r 133,38 r 131,38 r 131,40 r 129,40 r 129,42FF r 127,42 r 127,44 r 125,44 r 125,44 r 125,46 r 123,46 r 123,48;P r 121,48 r 121,50 r 119,50 r 80,50 r 80,28 r 143,28Zd** GALLOWS **n x 6,07 88,50 r 88,97 r 110,97 r 110,94 r 91,94 r 91,50& 91,89 r 96,94 r 100,94 r 91,85** ROPE **  10,0 105,65 r 105,93** SKY LINE **  7,0C 55,80 r 65,80 r 96,110 r 110,99 r 122,111 r 138,95 r 151,95 207,95 r 207,95  2,0 ** CASTLE WINDOWS **;" 160,60 r 160,80 r 161,83 r 162,80 r 162,60 r 160,60;, 177,60 r 177,80 r 178,83 r 179,80 r 179,60 r 177,60;6 194,60 r 194,80 r 195,83 r 196,80 r 196,60 r 194,60@J** FILLS **T^ 90,61,6:95,90,6h 56,144 ,7r|$*** SPRITE START POSITIONS ***** PORTCULLIS **$ 1,190,46,3,&B0: GREEN GRILL% 2,190,46,1,&B4: BLACK BEHIND*14,190,46,6,&B4: RED INSIDE CASTLE(PCULLISDOWN~u1: PORTCULLIS IS DOWN"** START POSITION FOR MAN ** 10,190,46,11,&C0 11,190,46,5 ,&C4** NOOSE **7 11: 104,64: 104,63: 105,62: 106,63: 106,64&0:** MESSAGE-OUT**DN MESCOL,0X@0,2;M$(LINE1)b@0,3;M$(LINE2)l@0,4;M$(LINE3)7vLINE1~0:LINE2~0:LINE3~0: ALL MESAGES SPACES AGAIN"*** ADVANCE MAN TO GALLOWS**** VARIABLES PASSED6 TRYSLFT-THE NUMBER OF TRYS LEFTT BEFORE HANGINGO MOVESTART-THE TRYSLFT UPON WHICH THE MAN STARTS ADVANCING TO THE GALLOWSA TRYSLFTMOVESTARTt1 s PCULLISDOWN s PCULLISDOWN~0: 4890) TRYSLFT~0 s 5020: 4590: HANG!!D TRYSLFT  MOVESTARTt1 s 4600: ADVANCE MAN TO CURRENT XHALT** MOVE MAN ** ) XD~XSTART r XHALT(TRYSLFT) p u1  XD  114 s 47804* XD  137 z XD } 113 s YD~YDt1 : 4700:MANNM~14 XD } 136 s 4780 > XDHXSTART~XHALT(TRYSLFT)u1R\f** UPTHE STEPS **pRz T0GGLE s YELB~&B8:BLUB~&BC:T0GGLE~0: YELB~&A8:BLUB~&AC:T0GGLE~u1:X~XD:Y~YD 10,X,Y,11,YELB 11,X,Y, 5,BLUB W~0 r 180: W** WALKING ** MANNM~2 { MANNM~3 s X~XDYELB~YELBIT(MANNM)BLUB~BLUEBIT(MANNM) 10,X,Y,11,YELB 11,X,Y, 5,BLUB W~0 r 90: W&MANNM~MANNMt1: MANNM~4 s MANNM~0$** LIFT PORTCULLIS **.81,&0F: CH A LOW NOTEB 6,&1F: NOISE PERIODL 8,&09: CH A AMPLITUDEV YC~46 r 62` 1,190,YC,3,&B0j 2,190,YC,1,&B48t 7,&76: W~YC r 100 : W:7,&7F: PORTCULLIS SOUND~ W~(YCu46)w6 r 110: W  YC** HANG **  0,&7F  2,&7F  4,&7F  6,&0A  8,&10  9,&10 &A,&10 &C,&0B  7,&47 &D,&05 10,98,67,11,&C0( 11,98,67,5 ,&C42 W~0 r 400 : W< Y~67 r 71F 10,98, Y,11,&C0P 11,98, Y, 5,&C4Z Y d&D,0n I~0 r 10 x 7,&7F I~ 24 r 9 p u1%I: @11,2;"HANGED...HA HA HA!" IGA$~"V0-C7R1-C6R1-C5R1-C7-#D6R1-D5R1-D7R1-C5R1-C7R1=#A5R1-C7R6R6R6" 5: A$,"R","R"** BADLETTER-MUSIC ** 7U"V0-C1-#C1-D1-#D1-E1-#D1-D1-#C1-C3R1","V0-C1=B1=#A1=A1=#G1=A1=#A1=B1-C3R1","R1"** MAN YIPPIE ** PCULLISDOWN s 5510 "JUMP~4, I~0 r 156 10,X,Y,11,&D0@ 11,X,Y, 5,&D4J I~0 s W~1 r 200: WT W~0 r 50: W^Y~YtJUMP:JUMP~uJUMPh Ir 10,X,Y,11,&C0| 11,X,Y, 5,&C4** HINT ** I~1 r WRDLHNT$~(W0RD$,I,1) J~1 r (TRY$)+ HNT$~(TRY$,J,1) s HNT$~"":J~(TRY$) J  LRCOLN HNT$}"" s @(PRNSTu2t(2wI)),23;HNT$;: 5:"+E5-E2+E5R1","R","R":I~WRDL I6LTF~LTFt1: 4490:TRY$~TRY$tHNT$:TRYSLFT~TRYSLFTu1XM$(19)~M$(11)t(TRYSLFTt1)tM$(12):LINE1~19:LINE2~10: 4400: TRYSLFT~0 s @25,2:" "I0cI~3560: RUB OUT CR~&48 s 3330: HELP  }@ATrack-Info  N VIAL QUAINT DESPOT DEPOT QUARRY PIGEON FORLORN PICTURESQUE BANAL PERPLEX ORTHODOX ORNATE OVATION OOZE OMEGA NERVE MORTGAGE VACCINATE MARSHALL MAGENTA LAX AXE LAUREL MPUTER CONQUER CONCUR CONKER DELICATESSEN DEMARKATION TURBINE DIESEL QUAIL MONITOR GRADUATE TRANSISTOR JARGON BANQUET MASTIC BELFRY RHYTHM YACHT BAZAAR PIZZA VERANDA SPAGHETTI VAGUE ROULETTE KNIT JUVENILE JUNTA JOIST REJOICE JOHCopyright (c) 1978, 1979 Cromemco, Inc. All rights reserved. 00.03 1H *KB."!]T >0:w# x(=( + R0[!BRMD!wq"DEBUG CP/M Version (2) $mmb-W2V>y>2e*"c!"k1M!:] ! ?1M!"k: nW(@8K0G!R~#fo 25 Z{ j    9 ; l *k?>?9P !9G(A̙' a{_[iz( 5RN>., !|{|} 80! 4SUGAR MOON SALT CAKE TEA BISCUIT BOTTLE SAUCEPAN FRYINGPAN COOKER SPOON FORK COOK LUNCH DINNER PUDDING SWEET FLOUR MEAT BEEF PORK BUTTER MILK MOON PEPPER SINK DISH POT CUP PLATE GLASS TABLE CHAIR JAR MOP COFFEE EGG MUSTARD CUSTARD COCOA DOG CAT MOUSE BUDGIE BIRD SNAKE RAT RABBIT HORSE COW HEN CHICKEN SHEEP GOAT DONKEY MULE SCHOOL CAP PEN INK PENCIL RULER RUBBER TEACHER PUPIL LESSON BLACKBOARD DESK CLASS FORM MARKS FOOTBALL CRICKET HOCKEY RUGBY SAILING RUNNING SWIMMING RECORD RADIO DISCO MUSIC VIOLIN DANCING FILM BICYCLE PARTY GAMES HOLIDAY BEACH HOTEL SEA SUN BOAT BALL BAT ARD CUSTARD COCOA DOG CAT MOUSE BUDGIE BIRD SNAKE RAT RABBIT HORSE COW HEN CHICKEN SHEEP GOAT DONKEY MULE SCHOOL CAP PEN INK PENCIL RULER RUBBER TEACHER PUPIL LESSON BLACKBOARD DESK CLASS FORM MARKS FOOTBALL CRICKET HOCKIMPROVISE IMMATURE IDEOLOGY ICE HUE HERMETIC HAUNT HARPSICHORD ZEST GADGET FANFARE FALLOW FALCON DUNGEON CAMERA CARTOON CRUSADE BLIZZARD STATIC SPECTRUM SAXOPHONE SALVATION ANECDOTE ALBUMEN AGGRAVATE AQUALUNG ASTRONAUT BUTANE COMPUTER CONQUER CONCUR CONKER DELICATESSEN DEMARKATION TURBINE DIESEL QUAIL MONITOR GRADUATE TRANSISTOR JARGON BANQUET MASTIC BELFRY RHYTHM YACHT BAZAAR PIZZA VERANDA SPAGHETTI VAGUE ROULETTE KNIT JUVENILE JUNTA JOIST REJOICE JOTrack-Info  N _˻!!(!7~ #225> > > 2  ڜ>'o$ W,WW R~͡8˸~(#7˸ ~#(07ѧx(S70:?A[?~~# ^gk #kgkg8k7g08 A0^S g8DM(yOxG7W͙R!(  ( 8(0#!͑0%x(=  @(> !xRN#F7=<>GI0xxR!!|g}o|g}o!2͑x!9RN#F+-*%&|0-*i@*g$-(X~(a+(^(<((Z[(j'(70.(!'(eo'(ͼ 0=~#foA&G+8,|/g}/oGx(j8) ~#foj8] !8 ))))RH0:8 AG?0!48 )DM)) R.0:?0ɗ!Gx y!͕2!2*g̀9ͨ2(,f9:[ͱ:e5>E:Sͱ5G>S>Z>H>V>N>C5>=^#V#~#(og=(͢, 5ABCDEHLSPABCDEHLII\]_acgTQOMYWV2 2}g8"gW` />L`  ! ~w͚ W(HX(>LW(gk^7 ! 8 ^Vw 6͚  ! F(M!H>Rf > 5nf͢5nf|(>{>}5>:nf9BP=GWR ͇gutut͟ut^w ! ~ W!:((gW)gW{!g}*o "q }(  *q "a+"gsc1aWg.>>2e͵: =(O` f W?Ü2 | >2} ! ~(^V*gw~˿^Vz!g|^Vz(srf>2}ݶ ! n(nf: ~w ! ~( ^V*gw<͇66ut66: > >w ! ~( nf~w: w8&o6#s#rɗ2 :}W >2 , 1MG{ce~^Vzbkww[o w0 ~ So ! ^Vw(sr*o  w0w#"o *q "o s s WMk ͼ k kx(_(K! A>=H 5nW( DMqG#p@ogHâ͕>2e7v 2[ͨv 2S5knWx! ͑x( 2 >2eCNV H ZSE! }x! RN#~#fo7BCDEHLBDHABCDEHLIISPIFQOM]_aTRQPONM\^]`_baYWcgYWcgVUS[* " ͢5~2nW #.-('( g}8 w#" ^k +('(w#'(k! i J( Mx9W@k_!g^ MYx!@r +| F(O͢5x2y5͢9# x r g^gk85Ϳ>,2R5Ϳ9 ) d#+| )x = R kWM X *@7d #!^'( g}8w#'(( w#'(kRE͢55~#5 {(x 5R~ͪ# 0"9x ( >.!6 #w# }ւ2\l:!2#~/( =(,( (~!8#g0!k!"i2h2|!!"|\!!ed0(%(#?8HEX>2(1: ͧGͧgͧox(ͧͧ#ͧy8͸W͸WOz(08 8: ȗ<2o&~\!=(w[w[iw8"i[gw8"gw#!U*g#!]*i#9NEXT = NEXTM =!Kgx y0O:] (h2h2|!!] 0!"|\(!!(5!(,˾x(&BK \!\!SYS DIR*!~"ks"JH[iz(5: 8nW.ȧċ {W!́Wx!R^#V#F7@[c?llllc/c'ccxccvF@llll x@lllllDcllOAll7slMlEcclocclgc77 (8yQ8}xڗ>`I7R?(>N,>84`0"k:wputA2kput ( CGk>"GQ0xG@vGcx0xFvGkpq:wI(R x_xWl(("xGkpux>00 Gc,:Q0 p&"k:w66quG!ͤ8`0x0 sk:wpx0 ]q( ,x (KG*,k>G( ,*û,!ûGOA(! 0GA kpk6p"f!ͤ0O>xJ(BG!ͤ8!`0*!: !; G> A ^(Q8x8 "xFex&Q8 xxGk:w6qpɀGkp6Q8x}GG}0 G^(,0Gc8 !́8G^ ,kx c=(.f(HL(IX(IY^8G f"}0\(V(^l"}GTrack-Info  N : ( *c^#V : ~8o&: : 7ɧ>2 N 2!J 2!Ϳ (!"!2}M:! *g (!fͲ0:!( [!g| % *!+"!|( 80:!G:}2}` WÜW2!{g}k>2!~( ~~E !!(Y˹!K!> y  ! 7E00 k"Z!S\!> > >*Z!#~:+ ~@[\!##[\!~.(/($ 8 #~. #~/( 8#+ 5   $.>( xGyOzW{_- 4zz/W{/_DM!>0yOxG}o|g= |W}_`i f"system call not available $!J" !BI$I$ UUUUUU$ @ A @@H"HHH@H@  H* B  I!!$I$!$ B! $I$I D H @$@$ !D$B  @@$B@@ A@H ! @$"DHH @I$I$I$I$DH@ !D@@"D HH $@B$ " $@@ @B@ " $@@  @!$$H @BA H@I$I$I$I$I$I$I$I$!$B$B@D@ A BH@ $$BB  HIHBHA$ $$ I $$H@@H B$! $B@H$@B@H D @ A! @ "B@@A! $BH$H$ $ !B!B!B!B!AB!!B!BBB!B$$$$A$BBBBHII$$ $I$B $ H! I  !B! ! @@H$$ H@"$DA@@ @HIHBHA$ $$ I $$H@@H B$! $B@H$@B@H D @ A! @ "B@@A! $BH$H$ $ !B!B!B!B!AB!!B!BBB!B$$$$A$BBBBHI Bc`8 505x Q0&("Gx I8"fIl!äI0Q0(Ü"A f!́Hk! ~w#~wAF,AFDE,H(SP),H(SP),I(SP),I`8>8Q8%xx0&x#(+x( "}0(,B++%| ,|<g!!́0x7W!́x!́0 > >27( E!́0:> >2+( )!(-"+(DM!B)M7!!́xС7^) g0*^A0kJ9H "k`ix +J9X"R͢552 ̀5: 8[iz>(RN>)2ͧ0:*7!??2~4((~Qh>>2ͻG7#! ͧ!%ͧ~ ~6 7ɧ456FNV^fnpqrstuvw~ !"#)*+9#!͍!Ͳ!`Ͳ#:(#!uͲ!oͲ!͍!Ͳ!Ͳ~(###N! 7~# 7~#( ####~ #N#^#V! 7v96,2i'&/#7?@Vɱ̱lǴɋń4R4VA )A?)?4 V VV޷l.<T< T1vK?+RY YVqR_ _"Vy*V2V:VDfEMgo_K}XDybNr[Gn@?`?x?AvavyvBJF=V=^=GVWVOV_VCVsVKV{V (8@ ?GG~8!Õ(SP)>(͕>)!!ÕSP!͕â >A>(͢>)?:~ ~~ͷNyG ##~>Aʹnf>2"͢*Õ͕**>A*>0>1>2! !!!I,A,R,A,?!!^͕â*â͢/: ~~00: ~~ >(nf>g>)~~ ::>(2!:=(!~x>+~ >-~D>)!2(I(I:!$!!~( ~!G>A>,5 y ADADANBICALCCCCPCPDCPCPICPDADEDDJNEEEXHALIIINININDININIJJLLDLDDLDLDINENOOOTDOTIOUOUTOUTPOPUSRERERETRETRRLRLRLCRLRRRRRRRCRRRSSBSCSESLSRSRSUXOJSY(HLBDHSBDHABDISBDISHIINNNEGLNNPPNEGLN(C*g|(2R! (!*gͧH*g  *g!WͲ?V 73   : : nf7NyG*g ##7*a7*Y*W~7ȧ~M(E(~2*[78#: Track-Info  N !@>2!Һψ:ĩ21ͅo(S22i  CONTROL KEYSABORT......ESC/AHOLD.......ESC/HUP.........:]ׇi DOWN.......:`ׇi LEFT.......:cׇi RIGHT......:fׇiJUMP.......:iׇiSELECT NO OF PLAYERSTO START GAME(1 - 4)o(185002RʉI\%!O x~#p2i INSTRUCTIONSCAN YOU GUIDE HEN HOUSE HARRYAROUND THE HEN HOUSE AND PICKUP A DOZEN EGGS AND COLLECT AS MUCH CORN AS YOU CAN WITHOUT GETTING PECKED TO DEATH BY THEDUCKLINGS. WATCH OUT IF MOTHERDUCK GETS OUT AFTER LEVEL NINE PRESS ANY KEYz1o(! JR~! w !O !=J~!O #* PRESS S TO START * PRESS R TO REDEFINE KEYS * PRESS I FOR INSTRUCTIONS * 2i REDEFINE KEYS![\6![iPRESS UP KEY.....FiPRESS DOWN KEY...FiPRESS LEFT KEY...Fi PRESS RIGHT KEY..Fi PRESS JUMP KEY...F1o o(!T(###srw###ׇɯ<22 !8 (ͥ # : }!k{( !bk6  ψi ENTER NAME PLAYER :0u>ِ2=> 2 2< o o( >  (( 0w#u y ( +6 :<=2<> u:<=2<$!@I 0>W#0~ɀ0`POI9*+LK=8?><1234567QWERTYUASDFGHJZXCVBNMu'O! ^#V'1@GxjcÈ\UNqiESCAPEiSPACEiENTERiALPHA LOCKiF7iF0iF1iF2iF3iF4iF5iF6iBREAKi1/2iCURSOR U/Di1/4iCURSOR L/Ri3/4iDIVIDEiDIL/INS> > 2Һ!i  (C) 1984A&F SOFTWARE A GAME OF SKILL FOR ONE TO FOUR PLAYERS BY M.WEBB  |CATHERINE HELEN UNA CAROL KATE IRIS ELAINE ELIZABETH GERALDINE GAIL i i HIGH SCORE TABLE !܉ > 2<>2=> u> u ~u#> u> u~0u#> u> u> 2 u ;O> := :2G:!Ⱥ  >d2>~b~2=~2<Í ~<2=~2<Í~( ~2=~2<Í~ /("~ ~/G( b(G p04~w>05~w>0 ~w> 5~w>#~((~!~ ?( 86bF0 ~w>Å0 ~w>Å04~w> Å~w> #* !Һ~2: 0:60>,0:!!0>)0>  10>>O2y2:#G~w#'''w~#w'''w66># ! ( = ~'''OF8 8!MO #  ~5G~>(>#~=~'''OFO> x GO>@ (#6  ~@(^~w(^]!( `8_~w(] (` 8_zu{u! ~ = N >0< ~ݦ@(~@@(~?0~B!:i !5~<‡+v#6 y2<~0u>:(!~##>2=vi:ogo:2<> ui :ogo:<2Track-Info  N :www w w!HLPTTPLH  $($ ,0,48<8O x  O> x  ~#uW:;(3 z2?ê z2>ê z2=>ë z2<2;z :=<2=>2< 02;î!G:=o&))))):d(B:<< :=<2=2< >{/>/@@A@H @Q@@AOP@!R^@I# ?##y/2j͉:!r=O ^#VSF! = O G6#*#F#~2!O  = G~@w *###FS!&! = O ~(y w# S !2 >! = O G~(: <2 p#< 2iabcde!: :<2  y2>~#0u i ::< i ! :G:G(>yuifghijk :0ui lmnop : 8 y0u0ui qrstu 0ui0 vwx :1u>0u>0ui!~(Iw(i>]u#>^<(i >2:>\%i ~ >`8i >_ i> ui>2:#z i  z{|}~!J> > ͗!N#F#^#Vz#O~#z y x "N]!^:^H8'':^!6> > ! ://// (>2> 2^2_2`2a22>2>d2ɨ` 5ddP !dn 'H'H::<  "2:<2::=">2:=2:ʛ:< #"2:<2:ʡ:=+">2:=2     0 2<>yui !Ǟ@:G@!Ǟ@:G@i `>2>! 8 w yގx>`~w: 2<~0u!n: ":G:o8:8_!~2d: ǐ:Q[~0+~5 6~w ~~w~0*~35K6~Dw~< >w ~3~w~(65~y~ 66Í4Í~ 665~(45~~ 664~ 665~2b~2c>u~u~u~zg{ozoDMOғ2͊͡XO@!w# x ͉1Ͷ&@>?!+} )͑:O (V̘:8 :W>z2 :W>z2:j >2:jY:<2ږ: ʸE?>@> >> >>>> >>> >>~͡>Hi ?Y:?:G:G: ?[:(":n@D 0G:oND 007: :G!Һ :ݖwD0O:ݖD 0ٷ>:=2͒:O: <22:pi   GAME OVER   PLAYER :0ui  1!+| :_>͉z== >W>͉:<2!26: 8> 2222z g{ozoDMO:,} }o$DMO}o|g!6#6#6#6#6#46#>2><2>2?k:j k *:(j=k=:G:( :(͛:8 y2:jG§(:O:";:O: W:jڧ::j(+(~@@( x>2~ݦ@( ͛>2:0 2:j(6:0~ : ~@:!O ~2:8 ~" ~A ;:O! ~2:jڧ: +:j($ ~?(2"~B( 2;W:j : ~@͛ԕ: ~@@x:O! ~2:("= 22: ;xx:(OB;:g: ;:8~B~"̛%:g: :8~@~ ̡̈́:b: ">:'''> >>::G :(<2x2:G(xz8K:b:"W͛z8.:b >2>2>2>2Ֆ>>22~!?җ6!! 0: 8> G: =2 xH*  8* &++O +pG#~G#~'''OOi`>w#} O>@> >>> >>>> >> >2N՘:N(=2N ?SG>xI?:0? :j(1: (: :j(x> >>>[:O::::((͛>2:~A:::j~>2>2:j(( (>>2>2>2>22!N:w:Gwx w >wx wx wTrack-Info  N ?2>>>>>>>>>>>>>!'o|gN#F5?KUagy~(8 2#:O#ɨ$$   > 2> 2S$~Z8{fR?- '!o|g>~#~i>a.+| >x> > >>> >> >>>>~ @?@@@@ `@@@`@@`@@@``?o79<4?<0 8?a>?<4?<0 ??~a??<4?<0 ?;wo??<4?<0 v8,< 0aosx8,< 0ao|8,< 0ao~8,< 0alx; hdXd [d @'D 'H kd b                                                                                                                                      Track-Info  N + 1,30,5 ,1 ,100,1 : 2,30,15,0,1,0 A$~"V1.E9":C$~"V2'A9":7d 3D SQUARESx A~82 r 32 p u10 } 700 PT~xA 500: A$,B$,C$' B}15 { B2 s B~7 B I~0 r 180 p 2: GCOL B X~Iw1.5Y~100t50w(PTwI)DD~20w(PTwIx2)X1~Xt10tDD:X2~Xt10uDDY1~YtDD:Y2~YuDD- X1,Y1 r X2,Y1 r X2,Y2 r X1,Y2 r X1,Y1J: DRAW X1-2,Y1-2 TO X2+2,Y1-2 TO X2+2,Y2+2 TO X1-2,Y2+2 TO X1-1,Y1-1 I3: 700: A$,B$,C$: B2 { B}15 s B~9: B  B&, I~0 r 180 p 2 : MUSIC A$,B$,C$ 6X~Iw1.5@Y~100t50w(PTwI)JDD~20w(PTwIx2)TX1~Xt10tDD:X2~Xt10uDD^Y1~YtDD:Y2~YuDD-h X1,Y1 r X2,Y1 r X2,Y2 r X1,Y2 r X1,Y1Jr: DRAW X1-2,Y1-2 TO X2+2,Y1-2 TO X2+2,Y2+2 TO X1-2,Y2+2 TO X1-1,Y1-1 I: MUSIC A$,B$,C$: 700: A$,B$,C$ B}15 { B2 s B~5  B& I~0 r 180 p 2 : MUSIC A$,B$,C$ X~Iw1.5Y~100t50w(PTwI)DD~20w(PTwIx2)X1~Xt10tDD:X2~Xt10uDDY1~YtDD:Y2~YuDD- X1,Y1 r X2,Y1 r X2,Y2 r X1                         $$$~$$~$>(> >bd&F(*D:  >>> < >>>BB<DHpHDB@@@@@~BfZBBBBbRJFB < ><j@@VI $DD$""@@ А А ??????????????????????????????xx??xx????????~~~~~~~~~~??????????????|x 880`~<$" ~<8 ~<8``0 s~<$D3pЈ~<p~<8(8(@@@`Track-Info  N ,Y2 r X1,Y1J: DRAW X1-2,Y1-2 TO X2+2,Y1-2 TO X2+2,Y2+2 TO X1-2,Y2+2 TO X1-1,Y1-1 A  10 A~82 s B$~"V1.A9" A~72 s B$~"V1.G9" A~62 s B$~"V1.F9" A~52 s B$~"V1.D9" A~42 s B$~"V1.F9" A~32 s B$~"V1.G9";: P~1 r 300:X~(256):Y~(192):B~(15): B: X,Y: P;6$xa!9"X1 !"ͽ:y_py{>yw#"2yzŸ| H: Ready to accept files $ygyo͐ڟG͐ڟW0 ??1 Checksum Error $½!]  w#͘\\5Directory Full $2|2hR5*H\R!"!͎\{͎ZDisc Full $ .!]Ͷ Ͷ> _~ͩ#¶yé u//}}"B>G>~)|}~,~#:#~ (:0?<=~˿+*#(##~#fo~a{_?~A[?*4!4q#p6"4 in!"4/%+#Jͽ?!z +*!GX7(w#e6*DM~#+R`i ??!9~#N#F#`iz(R!K7 DM B0 BBBK͸*VR=G*X r NOWY!'{0_#z0W*T]~####GORs#ràڠҠ26! #(0C7y=29! ":! "<! ">7  2K:K /2J:J/ͷ ͷͷs#r# ͷ!(!*y>_Gx(!%$!ҠE ~ oͲO[T*VR*|W]~$ t((* UBK5>2w#w+x(*8'* 4 #4+i~ N!L~7̇/6 W~$z 5*wi* OxGWX!v6PY~$: #* <(*S8_Jm) ͷ (s#r{83<(0sMm)  g]/4à2@:@ 2D:DSBK!B~0A xҠ AM!.8#G~ajy "47!.V(ˆ8!( !6#6  {2*`"(T!~+~#w T{L <.x** {<(*S8>:(  Error*`|<&m:o&5:(**/"!6#6*{ *f~ #####*`3? {Ź/OSize:5go""42 <.x*Read}*!,!"`>]*8( G0Ws8F ʹ0*PRPYSP(!KP "P*++++6! Vs|[VKP*TR͸CVST*R "R*T[VR*PKV[TB͸Track-Info  N ͸*d "d*bs#r*8 ""bN#FCd###[P͋!q#p0#s#r+"S#~(( "#8*{">2u2v.!"{R~N7[T*VB8"V#=*X>2x"V!*T!}[{ B*P[R( ###~#[T(N##?! 0"pN #[p( 7N#F˸#^#V#x"r*VR*r|+F+N+~+ng PY+DM*Vq#p`i+ú*ͮN#F˸*~#f˼o DM5[ͫͫ!>iN#F˸#~#fox*PYN#F˸*V  "V*{+F+N++"{ͽW2v2uN#F+˸x##^#V##^#V5*wͿiͦz(~#f˼oR0B 0DM##~#fo5ͷiͦ~#f˼oBx~ )(ͿBK=Ϳʑ  F6~r$p/%Jͽ.N#F#^#V5ͷK'5!(Ҡ*Z( = [.~,> (GͿ=J|B}K0:8(ͿV 8|7 MD5+|(iN5bk q :Nz {+!R8 bk)))0_,>G:v N(+ͮ"h*hxx~}0W:"pHz 8"p~t _:v=j{_!-xV#z`;ͭ N#F*p/!:vz_N2u2v(r$ 0It(u(1&(.r$"K(OG>o*=x8Fָ0O(ÿͿ}/*ḧ́ TS:u( =F#~!:O*=OyO0'I8(*8(K N#fi7 y8 Ox OxOxAZ+/{/Gz/;`y >!## 2u2v*?!?!z| }z <+ ݾ#(?| <yy!|||c!XPPH2t :AGQY8/#ٳ_ 0% $ x2u(2v:w=x~(L2w[R*PR('(L K7 :u K7*T *yR8 "yy"T`i"RG+6B{ #z #y #x###~#6!*tW*<C4-4 ,8~w,CN6,~qO6(45(4C,>,,= <{[<*:G-{[<*:G-!N!  ͭ  ͮ ͮ/2!~D:0D!2!:8n,4 7C,,̈́"V[ +>~ ʢ G" & 08<8k~ >xc?>(] [ wN#W ~ [n  O#(( y( Hy( # :( M(j ~(&(# ~(0 :8 A G # P #>2NSn(,[(,(+( ͼSn"sN#F#x(T| +:N %*(B)/!.F( N( +*,*+ ++^#V#͏ }*͊/( [n8> +*~" +*#~ȸ#(+#<(%=n8[nS>8((~#?[ <_6>2͊/"f!*`|<( "j*f"l N*w#w#"P*+w"f*X"V*P"R"T{Z!}"{og"l2ws*f"fI *+1 V+ .-=H-ͧ,*/"(,[\(+[+(ͼBK"f*^8*P[/ =*\C+1S\KZ͸`i[Z"ZR[H"HB"X: V*`>38 *`R#vs`i+N"f͐ *f͐ "` (#(~G(+K xʀ,(O(:Gy!(!p#p#s#rT~Sy:u,*y (([.!'!ɯs#r͈  (TͿ~DMW͌ ^#VI+~#N#F#N#F+++ ,: :͑q#pD>2wGZ:uT"f͐7~#!+~#  *|Ep#wͰ'! # ?!(S``ib*f~, ]͜ >2w ͐   *`rͭ !H!~p> q ͭ 3*y3Vs "f~:(:#~# #^#VS`(` D:[O N#Fր::[~(s+q (+ [( sPYF Sd*l|N [jS`:yHG~ȸ#" ~#P+" K;A>ͼ* :@w*d2T~ ::@(: r* :u : #~W"(:@+_Nr$ +(G:@  :(Extra ignore}*  #~#N#^#VSby#( ;(&+}*#O+qwo([@(;(`,(*,:v /%J*:EA:.gt*A*~, 2A:AW:E/0 GͿ+z+*8#![j:.<( >t*`i*; SjSp,(Sj,Sp[j*p"j*2%1 [js8[ps(`iDM*PBSPSj[jsC[ps(`iw#w*/"l*N#Fx(9#^#V+++["*lvB(9DM[+*[P( 6+"/*/"1 s#1 *j[p*^#V+z( 0à*/!0MͰ806͇0'R "l~# y*l+8, #*[j^#Vz+#s#r*j[p*DM~#+R`i ??7#(+s~#"W( :(~#Ⱥ BK*P_W"PTrack-Info  N 0O*<Czw--w  ͮ!~( :(8;Ñ  ƀw:-w:9*<~!C O~q#yLJ~q,G!C>,,n!C,, ì0O!~2[7-~(0Ñ  Ɓ wyQO:9<<!~88w*>!C--*<C&--= W ͮ-~C:(05Ñ  Ɓ !w:-w:9G̈́0?n8*>!C--*<C--{ԭ<-~y!2*:~/:W_ͷ!>FOͭ!^+V!R*:C4+*:C5~<+_q _Wz(=!w,6,r,s[7C(,r!!:˾[!=$ q !M$ :ր>2ͦ Ͱ !4!N!͸ʹ!4ͭ !H!ͧͫ ð!E$ >2!$!!'! $!#ͤ Ͱ!!!:!!9q /  :8 2Ͱ!4N(G!z q !G (!-:7G,!z> S\)j0 =b z::/2̈́ $!!'!!͝!!! :ͤ$!&# Ͱc"q :8!N!Ͱ"!$ ø:">2!$!̈́ !'!!! $!#ͤ Ͱ!"!>ͧ !4!N!͸͸"!$ !5ø!44~!4~ͭ M# ͭ !D# !$ ͸ !-$!͑͸:8!@N!͸!!̈́͝ !-$ >2!$!̈́ !'! :ͤ:<ͤ$!# Ͱ!!!Ý#z!(S0 $>[7*0+|[0̀ Ñ#+_wɁIڢ!h‚Iڢ!hƒIڢ!h8;)\^[ة7(r1rz53e%8))))o]&(-(+(+8.(E( z ]@͖ PX88.(E %(+89 _ ({'%$͛< ̄ WxG 0ͧã${0_0 ? 8?>u-t+ =!q 6-E%6 :.o(#"r!:6.(Oxͪ&+*4| #+~0(~.(#6:6==G>:&6E#:6+&6-D#/ 0:p#w(0<  (p>0:6G*4|x}<$!&x[F)/:(̃'{2Ex/͢(SF"H 8*Hw#D':( ̓'͢({/*Z6 T]K) !:(G6#:'_> {/:M {/;(<( wy#N W{ :'_~'z*)W:'_RDM*ZG> :(O!~(= T]#w # ;(<*H:(=*ZK) +=(:'OBR:'G> ~{/#8!+z#0x=84#6͢(D(7 G:==x DM;( :(O P͢(Q͢(+~  +#RyDMx( ~ # !(:' OB=R0< JP:'_V [Z:G!A#N ȹ0>'**[F (" 8'(0#R0:'= '&D(W&[:0O (6*+)}*̈́/[F'(0#~+*t*;(P&'(0t*#;(6#6'(0>+*R0`iR(BK) > {/̓' )' &&PY+ #yN+*8W:(:'_&+)̈́/t*Ä/!.N654^#V#N#y(N#fiN ( #^#V# )!E)/ 84 :.> 0~!B}*0#0DGt*+ ̭*͒*> :E> +*:N(:.w> :J(G x :D=!E8:KG-+>(>?*:.<('**w)/ 8:(~#"+!.^(0!w7 !O45,-+2M:O!+ :N!+(*NҠ#_~#fo0-r$*Ҡ!N !!. I.Q :v(!Bc,^% {(w%W(!N !.ˎ!O6Bz(&,ĥ/;&,ͼ͢/!A,/,wÙ/!A,$~Ė/8/,~!~6ʭ<<.7o/N(^$4${:22O,*\[^͜/Ͳʹ*[V͜//#"P7-(%=(/!͒-͐/!6!N~6 w.ͼͼ͟/*[P͟/7->2͍/8͖/8f/8~#(7-:u. !: xN.->2wTbk#"r~*,͋<! ͣ-ͼs&r'I.!I. M-͍/*rM-͐/(T-*,[P*R+8=-#~˾+0%~.w#<.f/~&ݶ' GN$ >G6#͙/Ó/!"N!.7ɯw#w#w#w!20 ͨ/2-N6#  ,O!:- w (8/G :( :-<x w"//#6 #~?  y!V/ # # x !\/22'x2.  F/(#* 6? w F/:#6 ɯ  :.: ASCXBSOBJ6$(~ ,B000/11û:û:<@=>@AA AI0XTAL BASP, D !:"0->  88&Ϟ0:::::Ϛ*###=SJϾ!"8!"J""*/".4!/!p000:u//#Ҡ88õ#ҠG ò00_(ρ à:'G()G(( (P:$1:P> >(>Track-Info  N  <<<.-(!˾w!w"w#N!!"!/r<===< Ff/b/ 0>*e=>.+*~#+*obk6* 02-+"^"\[)R"Z[+R"X& :OP600Xtal BASIC 5.00 (C) 1983/84/85 !\ ~ > 2].=H-ͧ,{Z 01 V[)R"Z[+R"X& :OP600> x 2B+*>+*$1>>P@x/yWx( Gy2'xS)' x 89,O(GyO=4GyOy{z_W4CSɯ>344õr'4r**'4121ɯ=4!2o0$    !G2 ͚S4CSͭ SW4(   >ͤ!44S221W4(22BKBK:2Ɂ*"q 0 !˾>22!2 434=2:9(O=4s 29z29&o))) ,W3(oW3( x (%!NU1(W;34>0! 0E.RM0 $ y0PY͎1͗1˺z=4WW{=4_Î1>; (3> O4 4:4CS'4(r([4( ,(7Ҡ,xA x(04~ # ;{>s > +*{0+*: 0+* ( (}*{8WX; (@( B(.8 75 # M> ;RY 75{ +  NDM(G>{/{ҠzM5!i~,ϼyA0 ėÓ--ڈdbstbs%7SI@@b`b`p`~8`3' >83' 3'8@p"ȇs"ȇs"p@@&>pss>"2xpss2xp8ps@pppp8@sǐ#'?&"`>#'?&>& 9~(Z~(T~ (M4 4 F n f )))~ ())))N7~g7~F~g7 ~g7ݾ ͢84 >= ɼp7p >w w >2298.(l=(l-(l+(l'(lVm8b!8( #!8 !8888|(:39O}͞8 |͞8:49Ϳ8249Þ8:49Ϳ8249N (Ϳ8>> >>>{7(R(!X(A?O ~#fo:29=(<!R> =w>229( 80 8~w!8o0$~=w(* 808ͱ8~͞8#~w#~w#~w#~w~7y ~ :39G!59o$:39<= M 0 aw 0 h a      ͷBK ͷBKͷ{z #ͷBKõ#ͷBKog]û#!9 þ#!9{5e.`#ͷ~,> (GͿ:JL:M>0(,x(:':1:D'B( M'q' ~' ' n'51<11@'B(w)8);)^)m)U)B(B( *))) )))) ))P P P P s:Ϝ>> ! : A O: 0O! q: O: O! p+q* |O* }O! p+q*  f! p+q* DMB! p+q)R* DMB1B* DM+;! p+q* i2 ! p+q* i2 ! p+q* i2 i2 !" p+q*! f!$ p+q*# i!& p+q*% i!( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= ! 6Y: !2 6=21 á:1 : r+s#r==_HL"4 " >6 ͪS* "6 =23 :1 =21 v=O* #" Y8  ͝҉* +"8 .!2 ʞR̀* "4 4 = ͝* #" çR*6 DM+R*8 DM+R*: DM+R*< M!? q=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2A 0O> :A 0:A AO>&R̀:A A H.2B !2 w:B !D s+q*C &͍:D _og_{ozg^#V) _{ozgi`N#Fogo&og_{_z#Wq=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2!4'$!ĘC'ז> > >%T! w!wt!Hw@4!`wG!w> ϞЖ>=*>* Ж Ж Ж!":2xCܗЖ!"> 2O>K2ޗ>2ߗ>d2 >2hV!ͱp!>A͒!0pw!0pwɞiP՗ؕ iɞP՗ؕ(>2hVe!Қͱ!@"d2KͶɍKܗЖؕؕw &o *g=_ DWՁO $*d+}"d(>J2ޗ5>K2ޗ5V!fͱ՗>2Kؕ$ @x;),q@pq9$˚/c.G˛Â!5B59c.=*Q| d0,B``EU0EY0E[1^e.|dͣ՗՗՗>2TÔ>2K2b>2I-:U=2Uh:U=eKܗЖ:K>H( ͒!Aͱ ՗Ê:U<2Uzj~(!(:D(x2Q~2H~2Ij:D(~(:D(Gj~( ̓:Y {:W:T:K( :LO:P(:ޗK( Gؕw_~2[:Q2\:P2ZGO!@ "a*H~o~g"_"]~2YMD>2X*aK]??~K]O~G?:X<2XGЖ Ж,՗ Ж:Y=2YF(*]~o~g"]*_"]>2Xr:DG:[ 2D>2Aωì:G!N:[̌~ F:Z!^_~ +{ >_N:Q({s6=O:Z0D:Zw:\w:T:K(:Mt=2M:O(+9:ޗK(>8՗8A8" ؕO W:P< 2P-:P= >!:Q_:P_:W:Kȯ2O2M=2L:P2N_~()G:D :P2Lj:MO~(( 8 2M:P2N:P< 2P:M (_~ !:P2d>$2P_~(:P2N:d2P:Track-Info  N           R!=V!6!"""Ɍ"ʌ!ͱ!"d:U<2U2P2T!x"H:U=2Uh:U̓>2JUMÕ:K( ؕ(:( =2 ЖKܗ˨Ж Ж&:T hU:T( =2TP͢p՗:P2P;ؕG(*d+:Tt"d|t>2cd&͢՗KܗЖ>22Ɍ!""ʌ: (Gͬ>ͣ ՗՗՗e2c2Tז:K(9!~ 8$:HN88~0K <>$(@2:ޗK(>8՗8A80ؕO W :H,2H:H2H!###2c>$@w>`$0wGNP>$$0$:c 6x6J>$w>$=w++++++Fnfٔ~<ʢw$ $Nw~w~_=I]TfnF~o>Ggoկ)yO|yO}yO> GoyO}yO}}$6:HN:c:Tͬ>2: >2TזyOyOy$:T(-o>g:Jo;|DW_0,T|D_0,\|DW0,T\ eז:I :H80 }> > :I; :H :H^0>>8>2J : = ?????_>_!~????G!~9 60+~ (/>{/!К~ +>(#r:= @*####~+ !"N#F#i`| R]ThAЖ EЖ CЖ BЖ~2: 0:˚(b8 (!!!"FЖ# FЖ Ж#~= 2*####~+  Ж!̚˚"FЖ# FЖ#~2Myxy x ~^VNF>͒~^VNF͒[IK:IKR8+"g.U)0m  m{ x +}  OBKyG~ ȷ #~2J#~2K# #~28##{ENTERING DEMO MODE aPress any key for menu  Score 00000 Lives  HI-SCORE-TABLE00300 Einstein 00250 Archimedes  00200 Galileo  00150 Newton 00100 Babbage GAME OVER Please enter your name ... your name >>>d >> >>>{> > > > >{>xnd( SELECT ...1. Joystick 2. Keyboard PO:NO0D0y y(>>( D2M>2O2M:T:W L:K(:M :ޗK(>8՗8 ؕw_~2S!^:P 2R*V*HV^"H##"V:R(GЖ Ж|՗ Ж:R=2R--ͬ!"V:S2QO:DʤAj~(4̬~(&~6~=w̆6(ͭ~<ͣt͍: G: x̓z:QGjn,,:HO&iyO% - @yOxGЖ Ж՗ Ж:QGjF:HO&iy O% > F:IG2I-`Ж Ж՗ Ж՗:I<2I͗F:IGx2I-`Ж Ж՗ Ж՗e͗:Pƕ2J;:I :H:J > :I:H :J  >;.(>- :D:: $>$$2C: $2F>$2E:C2G;:A :B :G :E :A :B :G :E:C< 2C:E< >2Eω:F=2F:DGj~0 ~$$w>2$ w:G>8 q6 !">2*:o>g)$՗~= !~< w:G>8 yw~(!:W ~O:Q ͬ~=w ͈:<2O :旹 >2!"">$F!^MB ~ I@! @1$ 38` c c cDF1DF H@$F @@F @F&0$@&&011d@ ` @2Ggo)_yOyO$_׌ % ׌ % 2 2 j~ : <2   : <2 :ޗK !ñ![ñ:ߗ(!ۛñ!ñ: $w>$ 2!ͱ !Ęͱ:ۗ( !Qͱ>28*"J2>_*"J!ͱ :ۗϵ( (_(0G: (x 80*~w#"~>_*,""J:<2:(=2*~+> w"~*-""J>_*"JÀ> ׯ2ۗ{Ж!ĘC'ϥKܗЖzؕʀ($:|2 %:|2 0:|2yO  (/:|2 '՗ > !ژN8 #2ۗ÷x2}=(G!.'+:}G>G>!˘"~. g"2ۗ:}*~T]6  Track-Info ! N!!!!!!!! !!   3. High Score Table 4. Music On Off5. Instructions6. Demo Mode0. Play Game Keyboard ________ Joystick {{{{{{{{  Joystick ________ Keyboard {{{{{{{{  __  On Off   On  Off ___  PRESS ANY KEY...                  @p( X  @ p (X@p p@а   8HPH  p p p  p      H H H` p p x       a  PRESENTS1984 TATUNG (UK) Ltd. & Gem SoftwareCoding & Design byD.White & J.LinePRESS ANY KEY ... ??10>7=1>01??6ngaloُ0@`@@ @ @P PP P`PPp`XTtxp=5T<px p>?\wT}r;x4l>>f]Zr;|?~n>~i/n~ 8~n>~i/n~  0` 0 C`a00C  ~?@@0~GGu=8ppp``'#7 ݵe箼@  pظ@@@p8'hxp@ @p0 ' 𸸰Q (((( :108\ 8DD8C#7?x 4< xx80p0p`   pp0 ,<80?//7;=萠p8?? ???;7;>x pp` 08 ?h|G 80xx880p ܼ`аpp88?~~~?~<<~<$f           ??_';8xp@0@xx@@ @| @8@MISSION OBJECTIVEYou have been volunteered foran exceptionally hazardous task.(Yes, you DID put your hand up.)Your mission is to deactivateNUCLEAR REACTORS orbiting out inspace. These reactors have goneinto a highly unstable state andcould destroy the galaxy if theyexplode. Your mission briefing followstelling you what to do.This briefing must be studiedcarefully, the information couldsave your life. GOOD LUCK. MISSION DETAILSGuarding each nuclear reactorthere are heavy asteroid belts.You must guide your shuttle,through this belt, until you getto the reactor. If you collidewith an asteroid, your energy toyour shields is drained. Should all of your energy runout, the shields will fail, and,your ship will explode. MISSION DETAILSTo stabilise the reactor, youmust jump between the discs thatmake up the reactor core. Everytime you land on a disc, it willgo oNe step nearer tH @b0201@@P`R@LO>8 >8>8 > >@BNa>@r@?>>>>!>" >  2> & r "!> &!?>!>2 >9>&1?>>8>>"8f0>8>8!> & '>>2 >>2 @HH@C?>f`xHF@00!>!>&0> !>8 >#>8>8>0 8>8> sap your energy foras long as you are in contact.The other hazard on the discsis a malfunctioning robot (RON).He will prove deadly, should youcome in contact with him. WhenRobot Ron leaves a disc, it willgo up a stage, unless previouslyexploded.Ron can be disposed of, for awhile, by firing at him. Firingat atoms only moves them off onedisc onto another. MISSION DETAILSThe other fatal hazard on thereactor is running out of power.Energy is used when you jump,or if you touch an atom, it willalso be used when you fire. Yourlife support also uses power, atregular intervals. If you manage to turn all thediscs green, you will be awardedan extra life, but should all ofthe discs explode the mission isover, as this will cause a chainreaction throughout the galaxy. MISSION CONTROLSYou control DAN by use of thekeyboard or a joystick.The controls are ...O or LEFT -- ROTATE/MOVE LEFT. P or RIGHT -- ROTATE/MOVE RIGHT. Use SPACE BAR to FIRE. Q or UP -- JUMP. H -- HOLD gTrack-Info " N""""" """ ""8)~"L"zLC$(19)~"W"LC$(20)~"H"LC$(21)~"Y"LC$(22)~"P"LC$(23)~"Q"LC$(24)~"O"LC$(25)~"B"LC$(26)~"G"LC$(27)~"": FIGLC$(28)~"M"LC$(29)~"X"LC$(30)~"V"LC$(31)~"": LETTERSUC$(1)~"3"UC$(2)~ (10): LFUC$(3)~"-"UC$(4)~" "UC$(5)~"'"UC$(6)~"8" UC$(7)~"7"UC$(8)~(13) UC$(9)~"WRU"*UC$(10)~"4"4UC$(11)~(7)>UC$(12)~","HUC$(13)~"%"RUC$(14)~":"\UC$(15)~"("fUC$(16)~"5"pUC$(17)~"+"zUC$(18)~")"UC$(19)~"2"UC$(20)~"`"UC$(21)~"6"UC$(22)~"0"UC$(23)~"1"UC$(24)~"9"UC$(25)~"?"UC$(26)~"&"UC$(27)~"": FIGUC$(28)~"."UC$(29)~"/"UC$(30)~"="'XxY!?=<(10): LFUC$(3)~"-"UC$(4)~" "UC$(5)~"'"UC$(6)~"8" UC$(7)~"7"UC$(8)~(13) UC$(9)~"WRU"*UC$(10)~"4"4UC$(11)~(7)>UC$(12)~","HUC$(13)~"%"RUC$(14)~":"\UC$(15)~"("fUC$(16)~"5"pUC$(17)~"+"zUC$& "ENTER MAGNITUDE OF VELOCITY ";  VI+ "ENTER ANGLE OF VELOCITY IN DEGREES" ( AN <G ~ u32#F"ENTER INITIAL TIME AND STEP" P TI,EPZ TI0 70 dCF~1 nSC~ 0xX~ANw.0174532 TX ~(X) SX ~(X) CX~(X)VX~ VIwCXTF~((2wVIwSX)xG)#VM ~.5wGw(TFx2)v2tVXw(TFx2)wTX VM ~57 210CF ~57xVMSP ~(VXwEPwCFw.5) q50);"MAX HEIGHT = ";VMJ"------------------------------------------------------------------" T~TI r TF p EPPY~.5 wGwTv2tVXwTwTX T~ 0 300 SC~SPtSC SC1 350" TFuTEP 440 , T;q15);"!";qCFwPYt15);"*"6SC~SCu (SC)@ T~TF 420J TFuT EP 360T SP }1.5 480^ ThLS~ (((TFuT)xEP)wSP)r LS1 410| LC ~1 r LS q15);"!"  LC TF;q15);"*"" "DISTANCE TRAVELLED:";TFwVX SC.65 460  300! TF;q15);"*";qCFwPYt15);"*"  420 DS~1 r (SP)u1 q15);"!"  DS  350440! ~ame (After hold, any key restarts)BREAK key -- ABORT game llllllll>X<|0f8l8vv0 000 0 0f< >> 0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|ff<`flxl8<l|vffffff<ll8lfff>|~L2~,162,186,68,56,0 DB 7,8,19,23,23,23,15,135 DB 67,35,55,63,14,1,7,6 DB 224,16,200,232,232,232,240,240 DB 240,248,248,248,248,224,152,120 DB 1,7,7,7,7,15,15,14 DB 14,12,4,52,60,28,12,0 DB 248,248,184,184,120,120,56,48 DB 16,208,240,112,48,0,0,0 DB 7,8,19,23,23,23,15,15 DB 15,31,31,31,31,7,25,30 DB 224,16,200,232,232,232,240,225 DB 194,200,236,252,112,128,224,96 DB 31,31,29,29,30,3 28,3r EB 8& jH`&N>>?~2&&&&&&&&&&>&>22'~22&"&>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ LF~1' 40,29: 40,78: 41,29: 41,78 17,64: 17,131: 17,39LC$(32),UC$(32) 700 17,2: B~(16) (B~0s102B~31 s LF~1:10<B~27 s LF~0:10!F LF s LC$(B);: UC$(B);X10LC$(1)~"E"LC$(2)~(10): LFLC$(3)~"A"LC$(4)~" "LC$(5)~"S"LC$(6)~"I"LC$(7)~"U" LC$(8)~(13)LC$(9) ~"D" LC$(10)~"R"*LC$(11)~"J"4LC$(12)~"N">LC$(13)~"F"HLC$(14)~"C"RLC$(15)~"K"\LC$(16)~"T"fLC$(17)~"Z"pLC$(1Track-Info # N######## ## !9"O12h!]~ ! >?w#:\2,nʓK! "QnG}]>:>͢͢͝x͢#8͢8>:W͢!͢͢͝>e'>*O|͢}ͳͳW ڼ0:R:Q~ ړ> > _| e<ѷ)!z "Q!:R:Q7,>M !-~#[eS!*4FÀ\~!So>g#- ~#¡:+n282L,.!- ~#y> > _>?A2+_FʓN͢͢>e'>*O|͢}ͳͳW ڼ0:R:Q~ ړ> > _| e<ѷ)!z "Q!:R:Q7,>M !-~#[eS!*4FÀ\~!So>g#- ~#¡:+n282L,.!- ~#y> > _00000001KELVIN HUGHES 300 KELVIN 100 172.5 V2 1 1 SHELVE SOUNDER EAGLE MACH 1 SUTTON 200 500 V2 1 1 SHELF RTTY XBS QMARK1 XBSRHEXOUT COMSDATA $$$eHJZ-aY@BYyYyyyyy=$"AdeHHHHRRJHEeeeH Track-Info $ N$$$$$ $$$ $$ 3 XBAS COM@ABCDEFGXBAS COMHLOAD COMIDISCODANCOMlJKLMNOPRTTY XBS QMARK1 XBSRHEXOUT COMSDATA DATTFLOWER XBSUTERMINALCOMVRECORDS $$$ $"N=";N: "M=";M: "Colour: ";C D~2wxM: L~1: CX~128: CY~96$(P~70: XX~CX: YY~CY: C: Z~4x3 2 CX,CY< K~0 r MF L~2 s XX~X: YY~YPT~DwK: R~Pw(NwT)ZX~Rw(T)tCXdY~ZwRw(T)tCYn XX,YY r X,Yx K L~1 s L~2: 50hP`H|X)*@x )E**:ȫ*PII FLOWER $$$入ee%%@ Zp(T*%HJ)R 12!0"B!"0 Xtal TERMINAL PROGRAM V0.1 S:O ϛ(Ϝ͌ Ͳ͂ :  :ˏ2ͽͧ(>0 8 :2>!FĂ!FĽ ̀> Ϟ>ϞMSG 001! <(!4~:860+< Directory Fullǯ2!"[*w#"R̀![R0& Disc Full1!"B>(>< No File~R0& Disc FullTrack-Info % N%%%%%%%% %% & "ENTER MAGNITUDE OF VELOCITY ";  VI+ "ENTER ANGLE OF VELOCITY IN DEGREES" ( AN <G ~ u32#F"ENTER INITIAL TIME AND STEP" P TI,EPZ TI0 70 dCF~1 nSC~ 0xX~ANwx180 SX ~(X) CX~(X)VX~ VIwCXTF~((2wVIwSX)xG)VM~.5wGw(TFx2)v2* CX}0 s TX~(X): VM~VMtVXw(TFx2)wTX VM ~57 210CF ~57xVMSP ~(VXwEPwCFw.5) q50);"MAX HEIGHT = ";VMJ"------------------------------------------------------------------" T~TI r TF p EPPY~.5 wGwTv2 CX}0 s PY~PYtVXwTwTX T~ 0 300 SC~SPtSC SC1 350" TFuTEP 440 , T;q15);"!";qCFwPYt15);"*"6SC~SCu (SC)@ T~TF 420J TFuT EP 360T SP }1.5 480^ ThLS~ (((TFuT)xEP)wSP)r LS1 410| LC ~1 r LS q15);"!"  LC TF;q15);"*"" "DISTANCE TRAVELLED:";TFwVX SC.65 460  300! TF;q15);"*";qCFwPYt15);"*"  420 DS~1 r (SP)u1 q15);"!"  DS  3505050 "PLOT DEGREES OF X AXIS"; X X~Xx600 ("PLOT MINUTES OF X AXIS ";2 Y <Y~ Yw10 F"PLOT SECONDS OF X AXIS ";P Z ZA~XtYtZd"PLOT DEGREES OF Y AXIS";n Jx"PLOT MINUTES OF Y AXIS"; K"PLOT SECONDS OF Y AXIS"; L J~Jw600 K~Kw10 B~JtKtL A,B}* ȃ@8UUHaP4XeeTrack-Info & N&&&&& &&&&&100,40 r 140,40 r 140,80 r 100,80 r 100,40: 100,80 r 100,120,2 r 140,120,2 r 140,80,2:110,41 13,0; 160,40 r 200,40 r 200,80 r 160,80 r 160,40:180,41&@8,20;"RAM ROM VRAM"@17,7;"REMEMBER EINSTEIN"/@35,19;"0":@35,13;"16383":@15,0;"65535" KEV~1 r 5000::************************* COLOUR,TEXT AND GRAPHICS*************************: 1:  J~0r3 o4)* I~0r15:I,0: (255)" ";:I::J:& I~&20 r &7D:(I);:::0&FB4F,32: I~&20 r &7D:(I);::: D7,1(N I~128 r 255: (13)t2,0:(I);:X&FB4F,40!b@14,20;"GRAPHICAL EINSTEIN"l KEV~1 r 5000:v:::****************** SPRITE GRAPHICS******************: 12: 15,0: 15,14:~"000000" 10,8 AA s 2030*@8,23;"Press SPACE BAR to continue"; 15,1 @12,6;"SPRIGHTLY EINSTEIN") 0,100 r 255,100: 0,70 r 255,70  0,80,14: ROAD 0,85 r 255,85,2  15,0** 0,"000000000000030404081F3F7F7C18"*4 2,"000000000000C0A0A090FCFEFE7830",> 4,"00007F020F102E4A4E211E010F000000",H 6,"0000F8000080423E0CF8C020F0000000" R 2\ I~255r127 pu1f 4,I,160,9,4pz I~u20 r 330 p 1 0,I,102,4,0 2,Iu20,102,8,0 1,240uI,87,9,0 3,300uI,87,10,0% ~32 { (AA z ~"000008")s 2250  :********************** SOUND EFFECTS********************** COLONEL BOGEY @2,3;"I can play a tune" 4:0,0,15,0,5,08$ "V0 G3 E5 R5 E3 F3 G3 +E3 R3 +E3 R3 +C7 R","R","R". WOLF WHISTLE8 @2,5;"Or make you swoon" B 6,1:7,110:9,9:1,0:8,15L I~64r32pu.35:0,I:V I~0r150:` I~64r48pu.17:0,I:j I~48r104p.5:0,I:t 8,0:9,0~ I~1 r 3000:$ @2,7;"Or perhaps blow you up!" 7,126:8,15 I~1 r 255:X~1 r 5:X 0,I::10:8:5 6,31:7,71 8,16:9,16:10,16:12,100 13,0 I~1 r 3000: FRERE JACQUES @2,9;"Or play a round" 2.5:0,0,15,0,50,0) A$~"V0C4DECC4DEC4":B$~"V0E4FG6E4FG6"0 C$~"V0G2AGFE4CG2AGFE4C":D$~"V0C4-GC6C4-GC6" A$,"R","R":,B$:,,C$:D$ ,"R":,,"R":"R" @2,11;"Or for a lark"$( @2,13;"We could try some Bach"2 0,0,15,0,100,0< 1,0,13,3,100,0F 2,0,8,3,100,0 P 3.5(Z @8,15;"JESU JOY OF MAN'S DESIRING"-d @5,16;"THE CHORALE FROM CANTATA NO.147""n @15,17;"BY J.S. BACH": 2730#x I~1 r 63: 126 FOR LONG TUNE A$,B$,C$ A$,B$,C$ I" 3 "T7400.DAT",FD$ #FD$ A,B,C,D( FOR I=1 TO D2 W,X,Y,Z< W,X,Y,ZFZAP 5,255,32,255,255,32,32,255,32,255,255,255,255,32,255,255,255,255,255,32,255,255,255,255,32&255,255,255,32,255,255,32,32,255:{255,32,32,32,32,32,255,32,32,255,255,32,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255255,32,32,255:{255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,25532,255,32,255:v255,255,255,32,32,32,255,32,32,255,32,255,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,255,255,32,32,32,25532,32,255,,32,255,32,255| 255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255 32,255,32,255:{255,32,32,32,32,32,255,32,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255(32,32,255,2552:y<255,255,255,255,32,255,255,255,32,255,32,32,255,255,32,255,255,255,255,32,32,32,255,32,32,32,255,255,255,255,32,255"F255,255,32,255,32,32,255,255[P11:@0,10;"Hello I am EINSTEIN the brilliant new Home Computer from TATUNG."o14):GZ@0,14;"I will now demonstrate some of my amazing features:"ld11,6:@0,22;" Press SHIFT and BREAK at any time to end the program ";:15,0n0xA~89: AND &DF:IF A<>89 AND A<>78 THEN 1400 A~89 s AA~u1: AA~0 KEV~1 r 5000:  TEXT:@16,0;" EINSTEIN "::/"Here is a list of some of my features":M"1. 64K PROGRAM MEMORY,16K READ ONLY MEMORY,16K VIDEO MEMORY.":Q"2. 16 COLOURS DISPLAY,40X24 & 32X24 TEXT,256X192 PIXEL GRAPHICS.":'"3. POWERFUL SPRITE CAPABILITY":&"4. 3 CHANNEL SOUND GENERATOR"::"5. INTEGRAL 500K,3 INCH FLOPPY DISC DRIVE":%"6. MULTIPLE I/O FOR EXPANSION" A~1 r 9000: A GOSUB3860:":,:6****************@ MEMORY GRAPHICSJ****************T: ^1: h2,07r 40,40 r 80,40 r 80,191 r 40,191 r 40,40:50,41 |7,0gTrack-Info ' N''''''''''  "V0G9R1","V1=-B9R1","V2G9R1"o V0R3,V1=G3,V2.G3,G3,=G3,.G3,A3,=G3,.G3,B3,D3,-G3,+D3,D3,-G3,+C3,#F3,-G3,+C3,E3,-E3,+E3,E3,-E3,+D3,A3,-E3f +D3,G3,=B3,+G3,G3,=B3,+#F3,A3,=B3,+G3,B3,-E3,+D3,B3,-E3,B3,G3,-E3,G3,E3,=E3,A3,E3,=E3,B3,D3,=E3f +C3,E3,=A3,+D3,E3,=A3,+E3,E3,=A3,+D3,D3,=B3,+C3,D3,=B3,B3,D3,=B3,A3,C3,=C3,B3,C3,=C3,G3,-B3,=C3_ #F3,C3,-D3,G3,C3,-D3,A3,D3,-D3,D3,-A3,-#F3,#F3,-A3,-#F3,A3,G3,-#F3,+C3,#F3,-D3,B3,,,A3,,g B3,D3,-G3,G3,D3,-G3,A3,#F3,-G3,B3,G3,-G3,+D3,G3,-G3,+C3,#F3,-G3,+C3,E3,-C3,+E3,E3,-C3,+D3,A3,-C3N +D3,G3,=B3,+G3,,,+#F3,A3,,+G3,B3,-E3,+D3,,,B3,G3,,G3,E3,-D3,A3,,,B3,G3,L E3,C3,-C3,+D3,,,+C3,#F3,,B3,E3,-#C3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,C3,W ,G3,-B3,=G3,B3,-B3,,+D3,G3,,+G3,B3,R3,+D3,,,B3,D3,-G3,G3,-B3,-D3,B3,,,+D3,G3,=B3O V1+G6,V0-B6,V1=G6,G6,-B6,-#F6,G6,C6,-E6,+D6,D6,-#F6,-B6,D6,-E6,D6,D6,-B6u +C6,C6,-E6,+C6,C6,-A6,B6,-B6,-G6,#F3,-A3,D3,A3,-A3,V0D3,,,E3,#F3,-A3,D3,A3,,,G3,V1-A3,-D3,A3,#F3,,+C3,,,B3,G3,O +C3,#F3,.D3,A3,,,#F3,,,D3,R3,R3,#F3,,,A3,D3,-D3,+C3,-A3,,B3,,,A3,#F3,-D3D B3,D3,V0-B3,G3,,,A3,,,B3,-B3,G3,D3,,,+C3,,,,C3,E3,+E3,,,+D3,,P" +D3,D3,G3,+G3,,,+#F3,,A3,+G3,V1G3,=B3,+D3,,,B3,,#F3,G3,-B3,E3,A3,,,B3,G3,], E3,-A3,-C3,+D3,-A3,-C3,+C3,-C3,-C3,B3,-B3,D3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,,,G9,D9,-B96 "R","R","R"@ KEV~1 r 5000:J :T **************^ DISC GRAPHICSh **************r :| 13:3,1:323 152,30 r 192,30 r 192,189 r 152,189 r 152,30+ 152,83 r 192,83: 152,136 r 192,136, 35,28 r 85,28 r 85,78 r 35,78 r 35,28 60,53,15 A$~("010",66)* M$(0)~"64K":M$(1)~"128K":M$(2)~"192K" @25,20;"0K"' @3,12;"3 INCH DISC";@5,13;"DRIVE"j @0,1;"EINSTEIN'S internal";@0,3;"disc drive can fill";@0,5;"its memory over";@0,7;"3 times from one" @0,9;"side of a disc." K~0 r 2 CL~3t2wK: CL,1: CL,1 Y~1 r 53 D$~(A$,54uY,8) @11,17;D$ J~1 r 10:%& 152,30tYtKw53 r 192,30tYtKw530 Y: (3t2wK),1D @25,14u7wK;M$(K)N KX &FB4F,40b KEV~1 r 5000:l :v ******************** PERIPHERAL GRAPHICS ******************** : COMPUTER 1:15,1:40:4,0( 80,60r170,60r170,140r80,140r80,60 r90,40r160,40r170,60 JOYSTICKS 2,0, 195,95r205,95r205,105r195,105r195,95" 195,95r198,85r202,85r205,95+ 225,95r235,95r235,105r225,105r225,95" 225,95r228,85r232,85r235,95 MONITOR 8,0. 195,155r225,155r225,185r195,185r195,155. 190,150r230,150r230,190r190,190r190,150* PRINTER 4 13,0.> 140,160r180,160r180,180r140,180r140,160&H 180,175r135,175r135,170r140,170R DISC DRIVES \ 10,0+f 75,160r125,160r125,180r75,180r75,160)p 85,168r95,168r95,172r85,172r85,168.z 105,168r115,168r115,172r105,172r105,168 @12,0;"EXT.DISCS PRINTER" @32,6;"MONITOR" @31,15;"JOYSTICKS"; @17,20;"EINSTEIN":@8,21;"E X P A N D A B I L I T Y"; 7,4 @0,2;"TATUNG PIPE" 15,1 @1,4;"MEMORY" @1,5;"EXPANSION" @1,6;"PERIPHERALS"# 7,4:@0,8;"USER PORT":15,1 @1,10;"CONTROLLER" @1,11;"PROGRAMMER"@1,12;"PLOTTER"!7,4:@0,14;"RS232";:15,1@1,16;"PRINTER"$@1,17;"MODEM".: 815,0B 177,120 r 200,110LP%~&70:3800V 177,120 r 230,110`P%~&64:3800j165,145 r 183,155tP%~&7E:3800~ 150,145 r 160,155P%~&FC:3800120,145 r 100,155P~&A8:3800 KEV~1 r 5000:  "DEMO"G~"000000":11,6:@3,23;"Do you want to repeat the program?";:A~ A~:A~A z &DF: A~78 s 3970" }"000014" s :A~u1: 1450 A~89 s 1100: 3770 BEEPS,PITCH SET BY P0,P:1,08,&10:&C,&107,&7E:&D,0 I~1r1000:  11,6+(@8,23;" Press SPACE BAR to continue";2 }32 3890 <15,1FP~"000000"Z }"000005" s 3930dn ERROR ROUTINE,x }0 s :4:$" error at line";:' Z s 320: :4:: FINISH LINEISH LINE@;@ 3 8?>u-t+=!h 6-6%6 :2o(#"r!:6.(Ox͛&+*4| #+~0(~.(#6:6==G>+&6E#:6+&6-D#/ 0:p#w(0<  (p>0:6G*4|x}<$!&x[F)/:,t'{2Ei/͓(SF"H 8*Hw#5':, t'͓(l/*Z6 T]K- !:,G6#:+_> l/:M l/ͯ(<( wy#N W{ :+_o'z*-W:+_RDM*ZG> :,O!~(= T]#w # ͯ(<*H:,=*ZK- +=(:+OBR:+G> ~l/#8!+z#0x=84#6͓(5(7 G:==x DMͯ( :,O P͓(Q͓(+~  +#RyDMx( ~ # !,:+ OB=R0< JP:+_M [Z:G!A#N ȹ0>**[F (" 8(0#R0:+= Ͳ'&5(W