( - THIS DISK HAS NOT BEEN LINKED  B7'&-)aO9!a5 M'45Z& '9쌅& %?_ &&&9%@' 9&9POLY88 SLPOLYNETSYS (SPOLYSYSSYS   SERRORSSYS  +SBASICCMD %STEXTCMD  SFORMATCMD  SDATECMD RFASTCOPYCMD  SCOPYCMD   SSDCCMD   SLINKCMD  PKILLCMD  SPCOPYCMD   SWTDCMD   SPRINTCMD SCATCMD   RLISTCMD   SPROTCMD   SRENAMECMD  PDRIVECMD SRECOVERCMD SGPRINTCMD SMEMTST3CMDRPOLYTESTBACSVDEOTESTBACRMENUBAC"SPP21GMBAC" RPP23GMBAC  " RPP25GMBAC"RPP22GMBAC "R PP26GMBAC"RPP24GMBAC "SLEFTANDRBAC "SPIRATEBACB"RROGUEBAC " RROGUESCOHIOCTSCO!!SMUCKBASDD TQUESTIONBAS* +HANGMANBAC)*  BANGBAS% ) >TUSKDATABAS*+TDRDATTROLLBAS99CIRCLESCO8 8 TGOLFBAK8 9 E-CARSCO TGOLFBAS99TKIERBAST H .H4[oI[Q&[_54[焧I5[IdPɎQ&9 4[_\&O\[I54[I[Q&'~54[55 턎[I94[焧I5섎[45I94[H4[@L[ @54P5Q9TO4P5OIOIOX%3O O'jB'3C O0O64@CO#3]5@ Ѝ@[@}O'P.& "4?599[@Q+&uOO f4X 5Z&9[ Z& [I[N L[[& [T[*[7O9[@ ~~IC[[~ ':'l&X1'[%I~IC[%턎[Q}&[@Q&~I&'O' &[Z$ T~OTW~O&O' &[Z$ߎJT &P[$ &[[[[ _O6K[[  [Q~IC&&[& [X|Z~ICOOO''%&O&ٷM~ICOM}Mo[L}M'(O&OM67POOPPɽIOM}O'N NKL7MOLTMZI&J &[iNL^}O'Me L}O&NL7 MoM} }O'~IC~I0Z&9OMMM~OIO%Q&DIO9I&J &[]Ҿ[Y&~J[0NN4450&5[~I0[&9LL [-%3I&NMMʁ&M6M'49-j&2a 55   4J %<#'46&% >5 94$ o&"''߾ %&}&#_5$9  # ZXܭ $m5$9/w0 فٙq8ܪtֻ֚܅9oY؃7ӸɀݤW4a5& %!9!9 @' ' > 94001# &Z&54@' & l5:&G<:oo< W|W=6Om' 01#Z&<9+40+0:1$ 0 oo2b:<&<9 @'=&H' > 9&74><&<' 5::9 99 O_/0Z&9 $0Z&9 4$&0Z&9 T$y#~+ "l":@\&9 &Uʀŀ& #:@9 9;+<'j; 1%"' & #% ; M'9% '~9 "' l":@9$9 o @l!&l '4"5$ŀ'  91 }(&% %&945$9 0@9O9&ŀ&$\' \'  99Ǿ  % !& 5'5'0@& 45$99 ;+= &\;& $9]'' 94&  5%4 ;o;59 &"&4&5%֨$  "9 O_ B D o&ͦ+_$'[ U &"'QoL%.%*%& ~% @$%~ &9 =:8m9 o %&9 m&l&lm' Ѵ%ݾ P%Ҿ @45& oooo 1?O l!&l _@0Z& B9_4 4 A5@_"9 "&<%& "/"14 50Z&9 !1"4L50Z&~۾ #}&+'#1 #*9%6#) tفٙ$'9 ' *ք&993& /2149 $'['% 8]1!Z&o9t<% "9% 8]1!Z&$~"ݏ /q%$~ݏ 9%7&6%5 1&-2%(@'4<5%Z& _"9 4!59 m*9$9bh%O%ڽ%& Ͻ2%ʾ o0Z& 2''/41)%>"9 ol/P% %$ݏ~۵% #24ڥ% oo;O"9(%oD%T"9 & %9&N+$'[ % #9 ' %3' o~!&!u9% m' % %ڥ$4!5%(<%# % &P%  9ܥ 90'.;$%0'* $0Z&S% &х@&99 9 550z& & = 0Z& 9ν% &K '9'&&! '}Z' X['['9'$99 Ǿ 9@$@&ŀݕ/'    9/%%%0% %9ɀ 0DȀLo$"&,-%( o@oA Bj1DȀL~9 @ 7:85 4h%)܊%$B %5'4 %%ڥ95`         &  $'[&A4``%1"$X1!5 1%4_>10@ƀZ&5DŜ99C%}˧&|˧ ˧1o"l"%l"4p3%#`4%1'401"50 5hPX'1&$ "9&0@@ '~0~޿~~~C~w~߅~ߗ~ߡ~b~ʞ~n~0~_4  &&5 Ŝ9&9%@''*%Z z5ӷ4%Î|0&54*54:0&594  (&&5 9hŘ9L%W@&9W94,m&!'\455o %W94焷''Y' 5 (':9 $* -*9'oZ&˓9P  .. 9z?+ ?,&m&9 $ǀzH%"/!H%Ҍ "͌/硽H%c"砽$ǘH%"_O~}Z+~0~$|}~ H%Č;"<=zH%;"l$:}O~j0&4&b b4 1$0a2d4~4 1$la5}J&}~}~?z?+9~0~$|}~94 XI5Y9}_~\?9Enter dateDD,MM,YY Enter timeHH,MM @' '9ƀ&Z'秠 &2~** ERROR ** CANNOT RUN STARTUP FILE@STARTUPSTXT;:I`LDOS WHAT?CAN'T TRANSFERERRORSSYSREQUESTED FILE IN USEFILE ALREADY EXISTSGETD'd 9FILE DOES NOT EXIST99DISK DRIVE NOT READY~i~}~~ӫ~ӫ~ӱ~ӱ~~~B~΁~~ΐ~~~ ~l~в~Ӕ~[~ϩ~Ҫ~~ϥ~~n~Ӹ~~~]~&(~ǭi(ٿ14Lr&| )}(&?Ә̿+}O΁|N}Л %о=@ %̱>' '5&nc] ΁~} #"!&$9D_# &m&m' m&0m&94 ? ')?&}N'N '? N%" 5 'D0 }!&'"4'Z&5|?4T54'ONZ&59}#&}&'}/'}$' S   9G& G$&G9$Ҫ~}!& ") |)4' )$ΐ|)54}"&}$' }&& 59JM섎̸ 0zM& =K%|K 4K&}J& }' # |J50 DDDD09#~0%9#A% Z#a%z#994 ''  &'獹5oo ЛK'%!&!%& ?'^#Z?m'Sm* ?9%B9"?m*7$/.9K+%4K5I% 0Z$-'_&]&9]'o0Z ? &0 ?940 &G "=1 0Z&5S%"&%4xyZ&5\ ߽$99G*** +999%݁9"ӄ44XIXIXI5\ O@%|L O_9L'~,l';&Snf~4@ 5%$@в@ % &;Ѱ9Ҫ~ '&+9&*4;= ?+$ ?,$' !' $X? 5O ~|*;Ygz΃muϩϥSҧ-΁Ў .9$* ~[B%? +9DISK EҠRROR _40 'o-&x@m' 'O'#8 i@ & JGGLo !')Қ΁? o_[50΁ ΐ@ J?=";& '& 40~5CEӡ |(~(E  Ӑ9nC:9?-j; ӆ ??94?]59?9(Ӹӱӫ~~6~f~~5 oZ&oZ&4 @ ?)_5 '0 4 焽ֱ5 4$ o&"''{ %&}&#_5$9  # ZXƭ $m5 $9֌֌֌ֱLg֨֟֟E6W֌֨֌ʍ턮oo9' 99  %&9&9 T$k#~չ "l":@\&9 &Gʀŀ& #:@9 9;+.'j; #%"' & % ; M'99 "' l": @945$9 ;+= &\;& $9]'' 94&  5%94 ;o;59 &"&45%D$  "99_4 4 A5@_"9 "&9"14ծ50Z&9 @%m9 @ D   45%{'ף9 @24 y44?)$'54 2e@ ?,$A& 6}y'Py9}y&"P(?yz'?1! 994425Waiting to access disk. Please wait.... PR & T&m+0 ʐ?+?,9'&̃ ̛ .0m$'!+ 0.0$. 9~'Z&90 Type any key to continue BINTXTCMDBASSYSBAKSCRDATBACDIRPRTOUTc Z&\'&Z&MZ&C Z&2Z&)a5 415Z&kZ& zk& @@&  7&3D9@'&2b& 9 &9Ҫ~ )Illegal file request The requested file is in use The file already exists File could not be found System directory error System directory full All disk space has been used End of file error Disk file read error Disk file write error File or disk is write protected File is protected, access denied Illegal file control block specified Illegal disk address encountered Illegal drive number specified The disk drive is not ready File is protected, access denied File not opened in the correct mode Data index range error File management system inactive Invalid filename syntax File close error Sector map overflow, the disk is too  segemented Non-existent record number specified Record number match error or the file  is damaged Syntax error in command Lost communications with disk drive    Illegal software interrupt function  Disk drive door was opened while file  open for write  Cannot lock a sequential file File is locked, access denied  Pirated software !        Unbalanced parentheses  Illegal character in statement Source file is not present in memory The line is too long, 255 characters is the limit Syntax error on compile             Invalid syntax Invalid syntax in function An invalid character is present at the  start of line  An invalid statement start An invalid statement terminator A label was expected A numeric result was expected A string result was expected A left parenthesis "(" was expected A comma "," was expected A right parenthesis ")" was expected Missing or invalid item in expression String and numeric expressions mixed Too many temporary strings The array subscript is negative or out  of range Incorrect number of subscripts with array reference Undimensioned array referenced or mis- spelt function The expression result is <0 or >255 A string variable was expected Different string lengths RETURN without a corresponding GOSUB NEXT without a corresponding FOR RESUME is not in an interrupt routine Cannot continue, variables have been  re-initialised The line number was not found AUTO mode will not overwrite existing  lines Line number too large Fatal renumbering error The command is valid in immediate mode  only   Arithmetic overflow has occurred The real number is too large to convert to an integer Cannot calculate the LOG of zero or a negative number Cannot calculate the SQR of a negative  number Cannot divide by zero Argument too large         Argument out of range Out of data for READ Data type mismatch in PRINT USING Illegal format-string in PRINT USING Attempt to access outside text screen  area SWAP arguments must be the same type ofvariable An invalid parameter in a SWI or USR  function call  The array has already been dimensioned The FN function has not been defined The array dimension was negative or too large The clock is not running  No room for stack, program is too large for memory The memory limit has been set too low  or too high Not enough memory for a new string or  array                                 Non-numeric data in input Number input is too large for integer  variable Number input is too large for integer  variable              !  Specified file is not a compiled file An invalid channel number was specified The specified channel was not open "The specified channel is already in use Invalid use of the FETCH statement Compiled files cannot be merged Sum of field sizes exceeds the declared record size #Illegal DOS command from BASIC or TEXT  mode Cannot access random files with sequent-ial methods Sequential files cannot be accessed by random methods Random or graphic files cannot have a .PRT extension $       %        &  A grahpics screen has not been selected Cannot use a null string for graphics  '  ( ) Q5 !!!?+~&׆9K9 ~~f~M~ 99~~<~~~~ 9~<999~9~ 99~9~~ ~ #~ ~9~ ~ :~~ /~ k~9~B~ x~~_~ ~& K Πm(d '@-}'3~ }'TEXT EDITOR V3.4 EXTENDED POLYBASIC V3.4~_-Π| {̟+9ΠW  '~ho%~; ;ʀ %$瀿;&2b~% 3$2b~92b&"~&妠*$2bHnDRAWFILLCONVERTSTORELOADSAVECOMPILECHAINFETCHEXECLPRINTMERGEOPENCLOSEKILLRENAMELOCKUNLOCKFIELDGETPUTDOSDRIVEFILE$LDES$RECORDBACKGRAPHCATKILLLISTPRINTDATECOPYFASTCOPYFORMATLINKPROTW8 W 8gyCKl cT ⽠~پ'~O9<' }{'{~ ~ٖ'&Disk drive not ready Qɀ 3 "ɀ &3JDDLo !&J?=ɀ99S' U0_OS}}&' _Oh9y+U'2b~b4h' l?G52b954h' o? 4h' 4h'? 2b?~1h'+2bVݿ4hG5 '#'꧀ &92bG~1!'1?"@9 x hs&)'m&Qx&  h | =u&1!9&'!&2b=d  ~9+&g0t0-3. 0.& r':' ' Z& 2b+ 0~+K +~9/ 9&4 ;.&;2bO95 9 =s&3|'_}׽\'w & x~Oy&|y&=|-}k'2  '&F&0'}&k9Save}k&) ?&2b~?_N'Y' 4㽧5 ގjZ (Y/N)? & jC@ k9k}y'Qh #z p\%^"zz\ ޞz:&ٽٽ &9m&O %4P 3 -5P |{'&q L@&0Z& Ħ; h_Ofgݝݟ ݂i~ERRORSSYSSP000000PRTF&h|vk}&LBA&hNC&a' :&!0 %  7=s&*z|׽|d\'~ v&=}v&d/}v& v~_'4ooA3B&9LBA& NC'}v&  jCV4@5&=%0 &O|}|}'| VtV*E a} A'g~R4}P佦?}&A{' 2&I '׿  & 24259@%E~2 9&Q;2 z$z:&O4252~  ~20쁟pr æ+<#[~% 0&0 0ý}&ݖrrZ䦀Z&9ýZ&9'' \ :Æ '& 0ý ݍ }&~3@4P-$65P _' }'J&~  9~4P@G59@&9|{ },|| '&$4 ooA ,'&"4@F'@'4@5@=&~5@~1!}&/ "Rw'X3Ů&9˅& @1 Խ~|z}-||| w~~=z|1!0' '~|= m&|z=' &;&||1! &&" 1!&1!/]'"~|| =1&;s&1!/]'s "mwX:m&[%Ľ3}~&}|' PR& T&&1M}~' m&m&';B9}~'E ?}|'ަ 4O~#_E4~#_0?oZ&oZ&5 Ў@4|{')&}z'5 '~i$ 5'&94P 0315BA K 4301 5BA=K? 430 5н=x&!!'Oa'91"|xC E$ 400Z&5BA K +'94VOB~#_E05 'ooA }x'9=u&1!_9@ ~E~3=  q@ ڽ =ߔ=u& 1!&2a @P42A ٞߖ œ&d  ~~#&=*`&&&  34P0@P`55@ =u&1! _O~\ 4`K4&x5Y' C3AB~# C~EiB&' &EB~"43E0D:59=u&1!=&!-&m'1"4=59O9' m'C3AiB~"&B'(&23D3B40E5Eo9'ئ& Ŧ&3@_oZ& C_B%\ O'3_0-3A  'B=9Z&9Z=s&1!~J&9B0D~"0/u=1&+;''~4'M+05u܄턞u:u"=u&1! 9~E~E!z5Xlɞx&:˅'~lt&1! ݖ l9݆9x=s' 'P~}'U;x94??5 ?9~~ K&}?gf=*&*1!/?f=u&1!/%g=v&1!z ~ilx&AB ׽ɽnP+&&D4P5bd܄S'S_OS~~ӽؿSU%ϓ33\߈9=*ہ'&~܄S'$4SU~0Ὢ 494 4940T0bPx=s' | |';x  מx& |d2h92h~ &P9*9O4 M&$554aa=x'v' u&1!_ 1! 1!ֿOß%׿O055ֿ ~塽 Ŏ@'&u~塆R # 4@&ۆSΧ $4053B& % 4053B&@ 5~塽&4FA< 6 4,0& -瀶=3ŦħA-瀶 5T009JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&46?%}46BghC,* 2f540줣A$#% #$l 03C5&:96~@`pdRequestFile in useFile existsNo such fileDirDir fullDisk fullEOFReadWriteWrite protFile protFCBDisk addrDrive _Drive not readyAccess deniedModeIndexFMS inactive FilenameCloseMap overflowNo such rec _FileCommandCommsSWI callDoor openedCannot lockLockedPirated!Invalid fileChannel _Channel openChannel not openFetchCompiled fileField sizeInvalid DOS cmdRandom fileSeq. fileInvalid .PRT Graphics screenGraphics strY L ~~>~~*~a~~9"'R4&佧5ݖP+ O4I4E5 9i9+O4-+ 59~:4+54l&_O5}+ x&';O95'405x& 潠x'+m"'5 +659945 l'܆ݔ Oݔv4ܖ+N$K=ӔJݒv' v 6+s]'+?&'45]'b4?v5% " ? _ ܔM&+K$'+# J&]'`4?焍z&05e2c'9009y"`' !~94c Dy+你a 2d9!y$4 Ψ(4&%5&g"Π%%""%&#"1 1׿(#9"%:$ 'Z& ᦄ!ħ#A$&(0(%"&#+O445~A5(* ($𦄷,($u"n΢ĆJ*`J@PBDOB$BF@PGVDHK*3 *,0 (#$ Z& ΢Z&94(.*$203_+&+ 2* 32+ 2*3T**$ _420 2#/}4. 4d5,/5.]'h44.(#ģT$ e.I.0 ~{4/L,*(#|~+*_O}!&4fg'=f]'D$ Z&5*_Oݔ+KL%L0Oݖg+34ܖg+&XZ׿ !a$˞0 5ZSԿ׿52c9ݔXڔ֕x'=505x&)9x'#O&m"'"Z9& 7569~ޞ$瀟9gvecgc\beK=ӔJݒ_L$ dN$愖v?$р'n vƬf#׮d0dh#Yx'Fƀ_7 "'547 &9:5@ &5994:5@ 4v'=ր?'?'#'6%8vր ~׀%#@v %ƀրvv5׀9րր N$*L$&4#O5K=̛JΦ׿9 9XI%\0&9J& GV$9J&ֿS #9J'$R S'`H$'ڿ94R▿RҖ×5*@P994݈K*Pݎ5݄$܈ݐ@PGVӈ݌ܖN$cܔL$]ֿ& ܖp˞0+G܌+݌ܖӊݖܒӎݒ܌*ӈ݌ܔӆݔ+$ ֿ@%׿ܒӆݒ~Jֿ'9 ZB $%43D$ ā'09_94\^'^\556x'+ǽ ' -R 9% G"GET 0.BASIC.CMD [@ & &K]&? &~ ~ 0 . _Y9O4B%]', 45$4֍& 4&5H%]',-"#&5z& &0 '(5Ƚ0 -5ֽH%04o_9 ?W&d$ %Y&` %![I (' ` )&0  !! %&0 0&4OJ& &' %& % 2 M'u 4 50~4  (&瀌&(O N瀌*h& )&PO 9Z&9O (&   ('%!2 (' 2/ )'2c0 & L_M&O\4 (&0 O 01O  5O}0 (' 0 )'09          -(#0+&3!.)$1,'4"/*%2      /#4(9-!2&7+0$5):."3'8, 1%6*0 L2=.0#O" (L!00 &&0 2&P" ='   ~3''%( )'000 &'4 )':00 90 &L_\M9 "' & !"5!0 &0 ( "'*J0 6&@&2O_@+&ž.0.5? < 0<~2Ԏ ~ '9(o&Oo@oA03]2_.a &&0 0g Lfce 0P0Z&'~30 &'3&o@oA3&_ '& 5550Q&&&5Q_9~4@' 䦀 @&5;4$ &&54&99# %'@  ARE YOU SURE? -- DISK IS PROTECTED!IS THE DISK TO BE FORMATTED IN DRIVE FATAL ERROR -- FORMAT ABORTED-- BAD SECTOR AT FORMATTING COMPLETE TOTAL SECTORS = DOUBLE SIDED DISK? POLY disk formatti5ng program Ver 1.00DISK DRIVE NUMBER ?VOLUME NAME? VOLUME NUMBER? ۆ (- THIS DISK HAS NOT BEEN LINKED  B7'&-)aO9!a5 M'45Z& '9쌅& %?_ &&&619%@' 9&90  . FOR POLY ONLY.‚?+ ?,&m&9 $ˆ‚H%"/!H%Ҍ "͌/硽H%c"砽$ H%"_O†…Z+†0†$|…† H%Č;"<=zH%;"l$:…O†j0&4&bb4 1$0a2d4†4 1$la5…J&…†…†?‚?+9†0†$|…†94 XI5Y9…_†\?~Enter dateDD,MM,YY Enter timeHH,MM   .:''(+' -'& ' v&&/&f&f&%)&ĵȐ =4+Ľ\$'oċ0A+-&BE&&;7H%'$"]'9' '9_Y 9H6}0a**$T  Scratch disk in drive 0? Are you sure? Source and target have different format.-- Source and target drives identical.-- Not enough memory for track buffer.-- Can't fit source onto target. -- Invalid parameter specified.-- Disks have unknown format.-- Unable to read SIR sector.-- Invalid drive number.-- Fastcopy aborted.ĹĻĿ~ĹĽ)L"zĿ&ĹĿLĻĽS)L"zĿ&Ļ #&1P @ &ğ~4v32|1\^ĵ줫DD_m'1""^_\큦^L#^A&oA_#A254v3 4 1#'!'@ j_&254v3 4 1#'!'@ j_&25}'B 1# ''j_'ܦ椮!' @ ~@~ Z&94·'0J&5 #>$4\:Ñ                    4      -(#0+&3!.)$1,'4"/*%2 :     #(-27$).38 %*/49!&+05:"',16             $      !"#$7 [ ~-- Fatal error reading source disk.-- Fatal error writing target disk.-- Unable to restore volume id.-- Fastcopy complete.  . PROGENI o%&@;oZ&+,#`# " ! %a& @o @-%N3%D& o -%1@m']m&$@'$¿. ? @ }' J}$&*$! $~| Ym &ƦC'!$.' 9#  oZ&.' -% |'% _Z*toC&W$&Dm'H+ D} &D' '&0 dr%> &?$@ ]'904o_9.50 .9 , Z&9 DZ&9m &@ 4  5 9@&;&z$;@O@' '5~"%&4@%}'Ȇ&9& Ʀ''~b~9r_Y& &$<!%9".' 4''5_]9 No Files Copied  COPIED Copy complete to NO SUCH FILE File exists, delete original ?  o&o&@;oZ&0+%0  ̿ %|& @o @-%i3 % &o C -%G@&=m'Rm&g$"ǽ< }&|g}&G$ @? $~m&ݾ!$.' 9# oZ&.' -% | '% _Z* oC&$œ&Em'I+ D}&D' M'&0 bx%[ &";$@ z'904o_9.5 0 .9& Z&9 DZ&9@m &@ 4  5 9N@'1&}& 0$D ;@}'%'o&& "o' ' %" &r!}' &S$ , L'&  Ԇ;S&|9?@&}'-!}'  z 5~4 o' & 5 95 4𧄽& 5  &z!}' ;@O}& fol&%;' '" & &禈$ğz&&̆99̿9Ű9'G&}' $! юý_Y& &[$ 959!%9".' 4''5_]9Insert source disk & press a keyInsert destination disk & press a key No Files Copied  COPIED Copy complete to NO SUCH FILE disk has not been insertedSourceDestinationFile exists, delete original ?SDCTMPX @-%@@3@&0o &E '@&  ?~  No Files Deleted 23`% }'0н$~1+C4j&2a0T0_焽90/+0@H '_N'Y&0܆ '?9.'Z&9DELETE ""? ~$&99OĿ 'W'R01O_큧%_% Z &$.&1H%_% Z&$?O9@~&6lN&lMm+')mK�1'&Z&L1H'&Z&9&9 '9OKˆħL' .' !%9#0&0&lK&l9'$ -'_'9OmK' '2&koMoN4'9 mK'9mL&m' C*3l m' &# $B%CLlLO99@?~  . PROGENI o%&@;oZ&+,#`# " ! ,%c& @o @-%P3,%F& o -%3@m'_m&$@'$(ǽB& ? @ }' q}$&Q$! $~|  Y m&ƦC'!$.' 9#  oZ&.' -% |'% _Z*toC&W$&Jm'N+ D} &D' M'&0 u% &'e &9$@Ą3 '_904 o_9.50 .9 , Z&9 DZ&9m &@ 4  5 9Y'N'Ľ9@&;&{$;@O@' '6~"%&4@%}'Ȇ&O9& Ŧ''ĉ~9ę_Y& &$;!%9".' 4''5_]9 No Files Copied  COPIED Copy complete to NO SUCH FILE File exists, delete original ?  Copy aborted ! ?   +043 1?&9+ѾCξEɶ(0׿+0-%S3'%'&em&_ l:%݆0Z$ ҿ$!"K]&50r&, -+&oO0\1H' 0FE 40? +CE(~SP000000PRT  . NEW MESSAGES, SPACINGÙ@ ' ''-&|-$ ?~ž3}&c&&0'%F_% D'P'N' E'"G'$C&ݦ զ  𦄊 ꦄ 䦄@ 0 ''ק ÙÙ}'\?+¡? ,¡'.&0 Ø%) A Û¡'i׆ 'Z&4GHHH401Z&510'Z&.540 'Z&׽50 Ø%$~ Û   PRINT QUEUE  FILENAME DRIVE STATUSWAITING PRINTING PRINT QUEUE EMPTY PRINT QUEUE FULL FILE NOT ON QUEUE  .23%V $~O_$&&U0CO40_92b0νD0O90 W$06~$$0O_090E09$0;0901_09~$O_~$O&G$] D].TK }W'RU95Yk/@WFD@AP x<:o9"o$&~ 2u?30J0_093Q3UQ3_!60" O6!69% O93_\3^u u#6676o®:0n76#6676o®:0I7'O066Ԯ#t.#6!u66C76o®:0X'<#666#66676o CS))6&7#66676o®:0!u7'Oa3Du906o016o0o† 6Ԧ'8066u76.' O60"u60|pQ76.' O'0YM, O'B0@47406676.& O6066"{u767'M016066060646CS))6Q0646CS"v)s)m6g76.& O60646H76?7'V0160P466C.66>060(#fu646CS))6Q06o0.66J7666 , O606CS))6,#v O666O_, O60, O666O_& O' 06of66O_, O'o060:$Qu66) 60%6CS))6 060666CS))6 Q060/0$u660667')06010.660  06ozd9"6&876%;u&)746? 569$6"6O:060& ݆ 6 z6& l7:066 O :'W%u z9E3^^4?5!&6-& 6&6 &66& O'66&%u 666CS)*4?594 ;5O_906a6o†z6o !06A6o†Z6o&u!0 6A6o†Z6o06o†96o _6o6o -6o6o !0666A6666 6'v6 6666K66 dQ066066-^06쨄6CS))6'u06쨄6 7667=M&673D0 066%6 6 POLY SCREE'uN PRINTS6 nStart row (0-203)Q6O_6066O_. O66ˣ- O'Star(out column (0-239)Q36O_6 066O_. O66- O'0/6 End row (6 E-(v203) 3Q0/Q6O_606F6. O66ˣ- O'> End column (6 %)Zu-239)QM 6O_606 6. O66- O' Size (1 or 2)Q 6O_606)u6& O66& O' { Screens (24)Q 6O_606-6& O66*Dv& O66& O66* & O'6O_606 Output file name ?6& *u>70606Q060 Q  LST džf Q0 o† 6 'q09660 h6ֆ+/u'O&66dK&66 K2'*&"66*666+uCS) ) 6) 66 v7060 쨄66 & y6쨄66 & b6 Q0,u66.6O_606 7Row=쨄6670960 70666 ) 6,u 766 7066.O_O06O_6.쨄6쨀) k6-u- O'&=6쨄6쨀) 96 (쨒6 '76&=6쨄6쨀) 6 -xu(쨒6 '76'*&u6쨄6쨀) 6 c(쨒6 U'7666-u6쨀) n6 *(쨒6 '76O6O' O'c606쨐676.bu& O',606쨐6) 676& O'쨐6) 쨀6) .u3D096676& O'0966766& @I76O& O'! 6/Lu& 7쨒6) P3D6& O'쨄6)쨄6)k3D/6O66O609v9/ 748`!79/ 76SBj790D4 2BZ 'o1a"\B4 <5 &6Z*25560Vu674$1Ħ41]+/#'4$e7j&5$a*P/54$g j&55464"AooC4 c&&"02ŀ' 4w5&5 #Чl 5 3C50t 4&0A'Z& 4&+ħbc1)4 1A5 3$'503 禄' 4 )5 1quv&焦'`' 9407'm&#50ӆ 407'm&&4 ķ 40'm&1) 1340'$m&O# 40'm&&50i 2b4201o"4:")G"J&"!"L)7"@3@J0ħ5$]+ 'Z&  4O15Z+ 352522u73O690DĪB&PC'L~"HmA'A%@D#D\CACD#3o90ABZDCCĦCjCjjB&CA393o† 4$1002-l椦"&Z&\3Ʀ3O65_ 3#u4 2yob*CSlbcbLc %ld%l% l'%lC3C0ħmb'-bH12e161coa%la ca03uce&2g5'd 2{0cob'Zj+'-&lbj+F0%B9">acXI+4X I+0c+,XI+(a+"cj*mb' cCSc34 c62eXZ3ņ 2e:4#S'' &4$&5$&?' O69&` 4 )5 4龍5 4vFO 2~a'/m+Lh*AoA$ iAdj&ma'A3A53A2b4u4 0011!o⡄. c3 Z*m&碬"32b54 0011!, Z*-? m&Z&1!3> 151u3?54 01?DVDVD&V,P0 T$T%O#57":"54_4b"$Oolad% 4Īa5b$ h$i 55 65o† 5n74610R憭 0IDD憭b77$M&]&a'5P65) ]&2 䦀%"jZ'm& m'  6"19 e 6uBħB!*CSB*CS964 2{1զAC=M+>"C=M&4]+1"+-"AB=M&#]+ "+"B=&"m*CSB3B2e53B6f2e5 O 4 2{1#t'DLh Ai*"BoBoC$ iCiBdfAj"&m#'m!*CSB3B m*B 3B 6-:"069>JJ&9594DDD9n7'>56B-&"!BA=4A=C=53Dn 3D047eB4:"M&9 7~u0愦6Z*954\ # 7Z&3B93ņ3BJ%4 '1@30'Z&5@3Ɔ䦀400d51ġ& 7&J&57a0M+>J*608:61H#^:#S#L93<3D394 b1bM*J* 58\0:   :o97M' M'9&98O'4d"'0045O %L 0450$ d40?~RUN TIME ERROR _8u  = 4 o15461''''4hb-5%'3'MJHHb49Pu13+z &40 Z&5&\b&j;bo5bP '&6 =&) ׮d&&' 9u& db!54$05461M' &$40&4ؽ&5ja&j*2bo!52d 461 &Sğ$40&4::U&+5M&&지ja&j*2b' & &@o!52dp&] !5 :u 9 _401  1 ( 3940o1  9 *9401龍o5M'oÆğ&;u940 '''&'& 50)'v. &@5& &9&' yO4&'&;yu & ]Xj0 ܱ&bo ρ ' a$ŧl 54 ) %' O45Z&|} ' 'J/CO5!4!5;e!994N'.0'=m''& b5&0 !m''&O5 & 'ұ & 4_# 5  2M00F4?5 4?5 4?5Z&Y\POLY-1 MEMORY TEST]?.?_?6*] 0U0&&0ƪ0m&i&\&3AT00rC&?&0-0R#&&0 00& &00&ی&94'4P\WROTE ]0> TO ]0/ READ ]0s ERROR BITS ]0upT54c]'*\'~&4?5 4?5 4?5 Яc5.XI*\'90 DDDD09#4? Q597$g4Uw`UU7$g2w`UU*g* **g4A*3*    #*(I=4"+&.+4/08W:C>@HfJSNQȾZv\e`dmoxsx~')$ ;=5L#N2\:6:hN@F@L| %RPT[YJNOUaW^^dd-%M^nbcms!vhwyx+B+9-a~v#8P8F:f7HXXVJ}{zNrJ\lmj^eXo}q¾ɿՎZw`nd~k|ou{"*, Ə8<(@JDlHL"P&T*X.\B2`Z6d|B6HFO?wRzX`d Kv`\d8 pv }m t" #9y&Žf(#''8)ޫ,G0488`P9Q=gATGEIMVQUUfW*Zu^cff~gDkousZw@{fv/ 2\@BFJ(.´5%]8`>J1npFtJxV\cSf l( x_ >t$xL J Z- l: t7#M':-,0p3z=8x@GOOQ[^e _cel>H?LDPPN\$YKZ\)Z][T`P]#>2;eHNSztWN@ YCuGItKVmP&hSUW\^zhjroOwt^ym|#', <FJ%P$T/Z58¾>hȼEpLTD|[aQ i Kis:nmxz} )   <%U~@>Vn"*<'m+//u3;]7;@lA\FJLĶOSSXͰYamclgqotˏxy|  ?Q%!O,2!.\0`4d8hŵ\# L d5Th dhjqTr|Mwv%{ QD -%w pCH4|L_N\PwU\THHLQLMUOStYXbpa]qaefe~ljkktptrfxy }$֪6 :Bű7 *%+ݳ'+Y-]45?:9e.=?36? NY;aMf\nns}y  *&VA06iH#lA3..602^7Q:E>I]eTHSkm{oɹǽƼgcfbfjkj(qo7ppuGywkz~$(,04Z8 nBr ϘFvJzN~UZ`WO\^bfjnrvz~ 'P!N#+%'A-F/13F@ZF^ucF_HLL_bs_yh jrnz|+/ 3!I(P,ӵX54/3a5A?-i0mDN?LO؅WUG ^el=\pno use$}Nm  _G6*#6'0+{FSRY_`abcdeYL!KSMQUZUnp^^=vdcLccri\l j^mvowxtw{}" 1+>{A橯'2O/:W7'_c>8nEoHOQVkF~+^sNbj1Z!v$vzM~ '6:*~!%>'?+,{1ZZCVGH_nOrtv˿u|ez ij vqx$ Δ9@DEȴ &%+6`r=@F&pN8JN|PW9KZ\ "  A^e_Vpdwzx@{kr Kv{I3!! )')'T/G0249M[E7EieZrj\op` lg|; #} 7#h%;$5(,/O4G_4?:?`A?ݮCGIaLPzZmtY]nyf>zev moua}$+/4M!Q('/ڹ7(&7>/-bhCN?H>VxܪV_PNS8:#-',DNuQU[_GKLRU#ZZl\ja^ͽhlpqooxwxvjΖ"&' %XM(-kU1׼ 9)]޿Uh`wSKZۍJ^ߑH"Zd_egm_#|lk +ՇΛJ&=&1*+EQrr|wUY}cqGUQNRSw\pZ#_`abcdghklmnortw~1{-1NM @1*O S D=+} 0û7u';y%?r?ʥGȅ9kdVהFZۘE~weaeg nww~n( ! zoC #O%(:02,ޛ0s6`BNT?CDEFGHILtNRVWXYZ[\_eh~|tmi&m*q#|y6}~E I/(ָDH([( /bW3ٿ;+_0WjJbyU3\ݏL`J$\fagOoa%~nm -%׉ۇ"ԡK-?*./012347_9=ABCDEFGJ]SiR`VkZ te{ds h| oqq.~||,(7G җW 9 =>  ٶ%)5<6:hRBlF\pQRUGjX[VWWԊafv_wcdwymx~} }$% ?AŽ +O,U3#"    "#'Ta_cc"+-%''-)GMS!EKEW294MOW,PVPb=DD@WWZcEKTHkcwt.,Y)YZ]WY_`i]_eegceklpikqrxoqwyyuw}~{}ˉҏĶğר Ж&-4     1+-< +=>v@FGODFTTIKQRROQWWaUW`aZQ\S^gjadclpfjhqwkqmwspwr|yu}w~zsfׁdaЌ߇𹺴ǿĽ !%+ )'-%&(0;/;1.BmSYR.($J&33)U+6:.H0=83Z5B?8a:GI=k?LJBlDPMGeIUXLpN[TQvSY[^WY_b\vyblmeqgqsjwlvyo}qx|tk^Ϻ\Yæɫϰ½ƿ66' ) - !(" .%+%!+'$+&0-)1+25.GS\T'I[\Zc=2CGM=uyU]Me+GeojiNlqwG Y k&"A!.9y"**H60J3E;8SK=V@RDFqKUMiSs]WqZlb_ zmdXf jr}ohrvxz}. G"J(j/W2Z8?/gBjH/ x $&#"//IojwpMw17569:UaacegikmoqsW][\_alntrsvy  2IM$O`\^dYWUa_\flanlkdfuwvtpvp &=@aelƹtv̺{ci glkp 7 ;=   !1G0^2b9/d I_HvJzQG|./)0ajybdkaHe[tqfd bpfmjt{(Jp}upo}0xsy5} $"'LJk}uMT\`iNTRXV]i~ۖpnTootduy}~' 2 ="& J&>'U,"W'8N7e<2g1L5pE%#R'2DBqFQƍOpdOUSWc^`fd ht pݚ, ϚߢA7%ǮR-/Z5` +!.(H3/E/g34`7>;w?CKGaLPRzTX_s]abehlpttx3(C+OS'W.8082=F9=k?oFp$G;JK)0"0TPVIQK J\ Y] 53;@hox1dx}; 8 '?1I/$' ;S(6.2E]2>8>SA@@@sFZrJIxĪhSWX_ u`dŎhlp}x/{|CɈS(೶ Mв$ %)+)&.*1&$BEΣKԳxSU \ bi<u6a#xrvjI| 0V"Z"f@D-5127DqA4ZCZGHon]Q¶\b|Ӏߛ{wsy{+/0  +25پ;hDoJLwR} Y `&\`bi JI@F@ODBLEOW#TWUNZJW}%0<=>?@ABCDEFGHIJKLMNOPQ,dD-112UXa>^EJJOm¾pɹz_z{dʆsސ"   'Pܹ (,! ,'<95;./@53>6JGFv K=DCOGPSI[SM\]FeXi^\;;>Gidy!vr$xzlx)llox.p0szyCi5A?H%aBFKQa8}A`fKfgkpvxɿÍkqsސwӽ†.>ʧ ## *-#%4dB:0!D@8BI; I).JMCE_I @f^T46hd^]modbmexPIS[ qoy,vt-556{;~?DZVR[8>|if[nj_sncf{Olpr{[{|g҆Ȉ׍ݐ%Ę #K)г'V13-1_3c:dDoLT QcWsbNbBjpx@tx?n p 65#/8!]%))+-T1L6A8M?BFF EEKL\QQ)PPYW9Z]__K^^}e[cүjnϘrvzӄ) 19 A%I -Q5$Y=,a$E 4i,M31&OS#Y!3`jYDmoimov# TTR`(]Oc`-SSYeae0R'(&&c./0ݪF1`5x_>bH^YBCFTWmOZsab-nijhh|pqrsw 6 :;"P'&'+Y-]4 5c:9@:>l@pGqKWO{T\ragn x$g>#z~%) ‡1]V`h% !D'$d(h,.F1q5=9;c=}ABLKKO>RS.QQvY>VZ^`xc ghkoqs{}l~!?ё7;? (,P+5#Y=#A)e3IM9qMwەU[4W[i"QSelvnu~7j;iDv 6L.U!a%-O)e-/199>RGXpH\tIZOSVZVZ^bjfjpnrt|}#$ 489#)=&4(X/4=)57B<=BK,7CN'HMS?DJEP"9tRK}dP(\^bfmr{'g?s*uyE}I \^d?:!$2V)FA*5.3JU7{\`LWNWZe^o}_]^dgkmjjqsppy/z{ x(*nT2tf:jxêK'R-X3^9au?˳EoMSY `!ks{+;  ;T#d#s  $1&"5C%=-'-*8A:.6F^3?9]E;D>F@DePFQIQKMpsQfT\Xc\o`d hulputw{& 1 ʙ7Ϛ׷CG N%$ 'U,+W     %CK/A/M{R~\Fd gVoB^^Rp u{*o]s5 :w/q!t>'5+.2Q@6͸9=^KADHTLOWQUmU(yt]abڿ hjnKtxy"-3:!G''/;W77Ŀd@ȸG]7oJOp?!K1NSYzLaOQeedn\^#Xv dfubcn+.w >)t~!*%).26\6˥;=cCPBFJhQoU[ʬָ|h}hlp$tw|%  5ʞC'OQ/ù7+/91=587?Q?!B:prPv}XRV` Xd\_^ cj q mq{%ew{n (ЁCG#;$M(*,046:<>ONMcL hV_iTX\\^`aeeomquwy|!~~C  ǚ߭ " L#Q1ܺXDŽ5;p+ce-CCqH9vAzZۙJF__9wakU j_x&\o?{" w,ՉE#$H-@+-/358Zb<@GK\ObM QR{UY!hc`e#oltnruy)9 P9\ E%)!-l-Z6–>.fFHFҰBFtHLzQAVU Zbj jrlpzr~byx'&}  >E--x!0(3H1H56:tJ\EFIM§PS]x_kos8{}")+  >N$0#)+)#%)W+[214b98;i@?k&$+O4RWV^b fl tdxRc*Zj1&솒}u (FOPQ,09AM6IIT>&BDoFJxY'MROQgTYVZn[a]_alcngm ilmxozsyuz`}e| E ;; H#K{);0 4i38(<;@u0D(CkkIAEIwK{RQ6TYX?6= +=1 24CEDBM::mu r}m, `~ 1Rj2T`^[e&+8x!%.7-NT^?28468=:F 6J1NF>R6V׋F~Y u_=gaeoIgsknmryE |:.& ":%)SFH@L59Aa`GVP\Pd_d>nWZ[\ۉsW}Ոߍ֒.  &+ĻT)++-&$2&$6*04192B636OHLRgZ]`diú|cxl{v·x|ĀʆЌהܘ!CE!O&%Q,&"-8a76>/5/>:@6>?ELCJ T*PTV]\A_dcHfkj ?IKB !N#Y%I'S)++-E'-+x!*CIlxJ{NqS}{Wy]bT]]cRmmpІlvXTǷt_[fhd oqmxzv$ /8 D  N"R)(T-515c7g>="@nEDp% '#*"*# :RV4]e3m\Lm tfS_}o$Qhx -q 6/a03j9"8&+.NMKHJ51<\>:EemK_Pch̀hupYZ]cֻdgky|ǵǽžV&h26 <$00̨Y     ! LXX`O 9BAC375IC=:MOLLD| Tz+LB/5=>icuemBrjEgsqnxKT^Ntq_eeVy~d\?}p[T\GKMOS^}qj{ot썉tx~~!  Ǫ< BHJ(ǬQ  CI'vR} Y`H d1X;q cmqs zy^| e6hjXj`[ha=P%<>ZAC,70679>GYfgmq_vxu{}r=̟Ȥ] 6AC!!O#S*),Z103a87c $" $!$,NV)RVX_^CafeJhmlJMAPQBBEN$YU'[]K]`-OVQZ`.3mx5 }&A-QtFLH3/9O@>BiE`‚jpdMbQWʯX_y˓ },0 7 9& )W.-515c7g>="@nEDp(,%+1326%7-44:^Cafem),imovuZx}|+PTQYRb989ia&{$(aMeG0248;>HcJTqpqViγ\`ݟ{f jkqtuy|!ӨЫޱ ="!&,T4"'\<*/d 'D27l3n LyU \c /kY[YsI{ikJeqsr &6YE4!'#$9Mu*2,0Q2:46Yn`W@PDOKTĩRV˰Yglꏕ̇tzxy!~#+- 5   ' $25;&5,+"$.(.Jl;2P2::YL?%?DACYFKHLxWQPXRVwӀ\r\j`ad{kyopv}2)G7;FM$#*00z7'_;ďB2jFШsNyU]hThqy i+4 R/!#%3)+j0T<;P9GEDF@HBDXMIyM]QUj`d_pipdl fhxymquw$(   B"&&ʻ.V6(^>.B-jFN>v9VE~^NbLf n^ Yv 'e%~/n3l *B$~-yGEO#S')C;lD/=3T];S 6f=-?mD5rMR5BfPZ)RYI [`Qj/ jo`k*( . cytk=|} #'>-?,DC?6QM8dIDN!VR$IKZ\[Yd,NZ[0Km=:9!:$2(*U-Y0N7EoTXAVEOLSmtx뛉ߍvz$&e &!O&1#,Z1]Յ;ٻD03!?mDpҸNxV4^em uDe' } X~=4/475 "$r()-]3MHMPN9s=?AEGLfaji=gRVXZ^`cei~s_nvpt{m{U*/ 2=$(L(00&]8c?jGGLVTGD|\pelrx~  ,+448:Ο $'>)c-@W15VTV<ë@CZEuIUsMԼQeСrX\^`dfΤkoqswy},# ?" ",$T+*1;'_8f=20B6?9HIT) }(SHFTHYNHV ^SQ_SQcW!H][pZfnkf`vf"d$%&kmsnq-wq2vu6y;~@C;I G:Qgt^YBXFGMTƫT]r|{|Š }~#AP 6 :AHJ'/փ4a<>iEpL@x {YUY[baFdihMkpo TJRSY|>,F&qx!/,.06S8(K9A=JBPFIK_ORϐWQWk[]`dx hkmquvy }~(0 <@0$M(..2]959g;kBl'&MU QUW^ /[ g^eiTbi`flnmq`rhoouB$-_6V2R]o,d>F$0K:%r,L.{5U];b1cR=DdFMmuS_ΦWdpYe]aiԆފ֏,01 ۽"* *1 Uط[98C5g"B/CN@r"M:NY&K}XXEYd1V XcmtH dwtLn&^~j Wy1:gl K9"1&)NM2sR`[ajehkTdXajdےqsw~+5 &=ƣ! 8!O&',2$Z:#)bdB>BpDtK!L%NiRWXV^]dj2r FbfzQLvz| 30cvuy6zD?cEFO}JMP9L=FOdIweVoXk\pcdxjlup~tw}͒ }$-0,C &N.!VX6ڿ26d8h?@J=BoJIPx$VA];Ma?Kdjj  ZkpfMmky}ur9(#8T>BDoFIJйN\R[Y\j`enru~ƨ   =>J!+)Q1/θ4+/91a89g>=DlJJ PRXAV#T|XY_,Ncia^i6 [}fklYmxEj uz{ .Q8!#%2,L,.<24R;Q?LFfFHVLOeVoXn\zcijimorvz} & 71 DFV$Z,TVz4t<,@)hCYBpG=bKyP@{ Z`$` h[Xp xBpDtKuOV[|K^dTk eikwruzyu s*)43!#%I?2G014<:CUH]FGJQĚPYh^s\]`gdnt"mm~z2swy}L*, p 8 <=2%2 K%%%/')2:ʥBx1!CӳKˁ:*KR҈A/M{R~ \cS5_jdj fj ls }2 t Ň#utyB⋖!燆&G+皲/B>2L7æ;>AK\^OL\HLƲRV]gqkm|e} ij py~x;&E03 ?CD$ЯNN,(,Z.^5_>8nEo+BI98FGI OBKOTZYe]e /lr2zNjV h2T#z*b+<%=)Q0POL5M9:@`BBPF`nmqtɽyрjojwqu|$() 7 !)9S1K-1_3c:d:.=>.TBKOTZ_'emt]dr|w|tqo Ό.+*4#0M'+,S?H2:6;C?DFHLPRcdwmX\]bpwtgkoqv󝈯 }) 8;ˮ 4(#(-1E/9,49N8B5=3kG O?w{VkUZPt^cS}gq5lqw;w+ QCo1 )&"e?(k@+C5!׹4!O#S*T׹'%3),4$39@Jǘ6nrҸMWԥSgXp`Pg|fpkatzz q`#1 "$&)<-/146G:<>BCRGIKPŻP]TVX^]ppub{e ijms쎅|u}y!~. 蛛 HL(@*4/%]_қ=1D-4XBLGLQDAU?}X]M`eUhm]q oyli (tq% u|y{/$6ס@:)-135397=?XUZECIVsMAQEUWlmr][anec ijts* z~w 5 8jZF&N*x2%!Z:*b>זU?I D:^HRM=WW_#_e m1]u'|el<  P}+2/[3&"e'.+n1DLH~6:B>DJH\bfQU][nor`dhlm늅sw{*68(FH&2-15(5KL6@;1U?I D4Es:S-10 #%9)+.62878=QNUHYCGHtKPcebhS[W\]bvߤzgikprty ~). 'D '+S/77 =D-4lH&P@x|X@pZd(_ViRem _t]dr|@w| qI %Q-(ф"f#ْ)壩GDK4L89>SCO^O_WfV`bo[c]aۂzzހ ijmnyuż$(.5 <@G$8 $R&V-W 8V48f:jAkMuIM{OVa]acj anv!~n0%X6:519<&*.W.BFIO8ί<=DcUi^aK׺OQ|SZqZ`b}fqIn큉[x|u-1 8 9?%2%!%S' W.X2:BO2jnIGuIvQP| U\bob^bdk3u quw!~ +F&%2*)#t1%EYB?VD-C1G7?@_klV[|`I_MiUtfqot]sadpi틊x| Ĥ5 9:ƺ!O# S*)Uغ8@&<@nBrIs-,%S[=KboRejZ1Xtqw g)~x| ~ 2m>0!%)0-Ü1ǚ57Q;LVAͰEII߸MQlWhZ\^e|eri prt | * !%6D". |RV1;604b6f=gGLP{V\VZ\cm '/0 8'8?.:h?k!I/RD/M{R~4\La [e gaegn JCMU!NREIOUO &1]V`h&9B<7 !$.8K/8u{u}e=W@EDEnknqtĺ|ĿŁ҇ ẜ3    !  &$(3Z/1--%4-+7+40/A>6F;9=8E>DORN]9 ON^ MYZdYWgiee]ljjqmypwu$xokm)yq(82zx4wx}H`}?BFJReVWdayloȸuwŻ~׌Ԑ 㻱4   '6]3(&)3126?282@?D1C7FBEMAGAEK@N_  KY`VQ[_T]j]h[\bl`_qgnn!cusztk(}rp(2uyzElEE7EAsFJPVY`cakkpȶ{؀Ȅ؇識륚 ;   )R",.0.+!:'5950*@0;=CEAA9HC=?NW~TPPS[KUY^Q`l#hlnuXv{z!)x{o~-o}1}x58|J6r9vMLWPXTXZfRUihMkpow=Ec!{ lC=|}~iG;`JlNP{RfpY{]^ֻdfqkinuvz|!~-2 ' B"J%*R.ԶL6&^b=VnE7sJIuNVnXbZaYo_mwov{ "~db07#$(RB-5135M9;?@iCGIKcOQTXZ\t`all,it6ptvy }(W 4jB G'+*Q_/û7'_ao?ˤF6J4rMSE{[K_f;Vj ?Tnue6qv{ {v nF#&=d*?/13s]79;g?BDHJLxPRUY[]ae fgm vvhrx }( ' 98."J!",@0N+Y5i=G=vE2m9EOfT^G\KYOTSV̱Z\duzjnrtzc$(/6 =D 0̊,0^2b98;i@?k #$%%,.*-* 9#*%.4d`dfmlQots"pt#TWKZ[)OcUa.c_1eXY5c\fn?4U~;&,G17L>TuRXYDJ_QOZkY|tֆvzcf gmn|ux04 T;쾽   $""-0%!!4'65<:4:.7BEA8:<<'@8&Cohrz-M0D- 1 X+2-,!%"D%-',L5-80525>6K9>;@J?wBHFNZKNWR[̽WY{[^`͞dm ikmzܭs|xz|(- 7< HL$R)W3'<<:D69B;=Z?hCGuKOS˽Wv[_c gEkloMsw"z|5'+ 7 R?GKO//s77üa?DqMuD=GOX7 -,N)A!9[.)4"$&1*59/D2:6WL:Y=OCKKk\MvgQiUWY^y]`rdvjquz~,22^pڣ&NR-3#[_:O9C;GB8pKQPVV^NejZYr r.x2>6o@{ q O~O4_#$']+,10pa4~6v.e)_zH3i78=CzVGXCyGxKOU[҃_t]e iypw!~ 8: H (PR0&0:54<{W\oYc[g(b W&pzlpd~5vCn p 5.r)U#c(+,.03q>O:<>tBGHqKպOٹSUWY[_egimzvxz~&  82  G"(3PR0߽X,0^2b98;i@?k&$!')%'(S[Ec _celkPnsr!YPW#LF\L([_Y,\cc0`X3g]ekkN%#5\"-')+-UI2F6C=ALegVX`V^ ҆`t]sagڿ hk ¶ƔИĿԜ͟04 ;= +3-:* 69>D4lnBLdTG|~ݦ\  dl#\sy:i+  DR&A*<%[)+-m1458MN>LX LG\$YU'XUKd&͐)br03 %2<6@+C/y3K7aTAL aPQ_HMLM̎aVnkxw|ǃ̈or(*  9;    #!&'# &.+*#57346@CC8  >VDREWJe ]RVXd\(&3nlur c{#42?'kxvy{=2"?/*9l=AVCcx.KBCjM7O;=h?DS`KjijOgȭVnZӸaivԍx| ֦7  * '!"06_7'58.)(45C;?3929BB6B CQWE(RYKY]RP ]]X^ebZm_a\bulstikqo-z$,.n.xz3}6GcKSUY^afiɶxerw|рɅ׌씕  .ĩ-AHJ( "."2/+.+!:8@d$6$BpGs qQV%LF-R k;oimovuZx}|a 2SSgha[j`bjnZ=s;$/(1/16D=FXeflp}zxaqep z‘ɘ-'+-ޱڶF$ $R&V-,/]436d;:f '%#'$'/QYaP@ahZEc h&rw+!swyd kr))Cnreiouo8Q/I7Ty>^AU>    ,<L$\##;%l;)+-2E3<7@KB75>8:IFJLDCERHBPGGGY i% eikr$k`tdjhw%zom)lz4/s~6x}:?C]']C,:02\Wcwjijŵ~svz{ٕ_{ds hj ۘ ͗ ?CD! $#)*-.,5I#EIwK{R|3HFUSZTKLYY`V\dUdhbi_cripj_je!c#$>f$~ =8|>AEKPbUVWXYZ[\w@\EZIKvposȾüyϽҀփދ甕y!~%&  +-'+Y-]4^+)3@7>,>2A526LEH@EFMLdUQTVeY!oZ^je_ui;jnqrwyU y{})t 5 CE#>$R)G-[28S9g>4\BpGMS*W ^:dEjL fjls  Qqqhjxpvp*[q{r|1z$!C$,&+K,2.3865>KO&T(X-98d8VHUX}^aesgJVVUTHV"%  &!!:&"s^gsNu#L&(jM/vUuQU{Z^refghijklmnopqrstx~pqFtrvͩڬ׳ Gʪ   Ho!(,.,)1&$-629.,1;f@CAC9GGD:=@*z<~((Q0W+e\ca0agcdZjE8`cqa=kd@fpjpnyoDFN.q~}~sxVz[cbolLmrvx~wǙբڧ߲Ү:.ԳWں    $PR&T{7.59,01(< >492A>677HF<;B;GFRDMT~"(\X*O[-bWY_Yf@5Xll9cBi=qtrf>OH(xRxyNuyxyU\`imvnk΍Sprz|^ǔ˽~+  $F#K(PP.@Wڼ 8?FDFnxKUv2)021$$926): 3 0<<D=ACLrx ,o r &AE1#5')A,>01ZNIX8]aeK{OYɿTUnYk]wzvfŒvx֥(16?B KJ6(ѭX3W2H1_6,a?U>lC9nM҇YE},U`Z_eTF`k br8fmryh (@q1 LL~UU$j ;$m(j,-3u78<@WDHJûNQxRVXƷ]ac fjk*ostwy{' 8:Ĵ! E)$*>'5)9053>5e<2gL;-GRIyPVۤb(Nj4Uo^Ojul|Vsy2D{Ov 5F\ei q<%rPA*w1/o3L9=tAFKMŻSs|{UY^b gin lIpWtx|#(2 8,@ E #먙/C)W.' ] Q7e<5Jk ()#/03/0'%71dgFr-^ZrUpbt yw~t ,54|}o{& &J4N'7NwV}Q{TvV9=KFjT‘HLaKOP|SmXq\`esi qƺżͿϝƼ' 1 7 1($ "-$T+!V?@+7B<-jn6sN2LWN^_RYOi XIdofvw]q#|$t 3;86B.I"0L'gQ*V.054LR8ePx=>DeIMMvwkrTVZ{ce jlr|tw~( 15հ.3"&K'-Q  ?DR40mHpMVBzV0r wXfZj[aZp^_Jm{laszj(' yu;%"w379:$&ŕ+-/W468ܧ<=VAxEFJLNRTW_]v`dehlp"txy }).=6=BA7ץ;!O&4_94\Bx.VunE6S~;wkS U oUZPlXk.iYne|#(K - $ȁJ~Վ !J<%n,- /1Р68:b>?B汭GIbLPR}TZX\`di&mquy }C)24 8F<^@vDHL"P&T*X.\V2`d6d|:hȔ>l̬JjUҔAy T^OJ f[a{ao`f\Xyeaz w /: ~z/J!:%U)/1Y378G&e!+G04 X3=8B=eǣC N˙:r MW!C{ZcOZ[i3PdRiYr |F8tFx@| N)HƍaZ!((uT,o-1㪸5~9w?CGLƸQWnY,]Çc{f9 jkq/sFw{WV*/Of:˝<0@\DHL"P&T*X.\2`6d :h>l (Bp6FtNJxpN|~RVZ^j Hr`ao}d1x}+ ʈgpv.C!%U)3.<2b6@<>VA ^fhHqty|jՁlpruw|Ġǣťܯ8$! 5:)=#Q(V-2<'`Df )!$,*'",90('0cl'XpktS`sM%"K#GFT.\)QZ,V\/dYSg4Y_i]\ndkk#%2.'>* NC12@6t>;,BDQvFG&KLfPĿTVXr]a gi~kJoNsu~y{(b o 6>hTF#<"0'V1Yy7վya>W=KȵB8PKsՓQ؝z/4(.(*%2+ce @:D4H:$;9M+{  +" ޜf#()@)-56M6:j>+CsG4L|P/UY8^ef$i`n oos`xy>,/O <?_G%@t&4+!Y4\|:dB]ʑCQλH>vQyۙW , 2+-*.jpye}x`m Z1T* 7 P$)015OMY;\adhi_sTz}ck}jrnpvÞ{"# "FJ%>r$2)W2<7_#=gƷDlΌJ6UұAyT^OJ f[bS~drci_wZTowsrxv}s +43 |zn4;0E)nM}mI}{ss2BY|oZE$IFsgbq]R~ij n,rvřȼ) =!6*!PR@8$\7_=>=HB2 DrI9wE{YcaOPeN  kp~`\t" yn& " }~?) ޜ0$$()/0N@4Է4!89?@r^DDVH_L|PZVX]^hbgh&pl*mt<uyz!~#a[ m}+? DF$N,ᴮ8Y  (&$$#$'W]Gj732@H:FMB<Ah"9!%)+-1㪸5~9>+BƩF[KLNҸR?Vkp\]_`g~mmqrv z!~& +,Z & :?@å$LH*F,Z1*_a?JǦ6nISD?w[PVp VdU[QMnZrXr Dvp eO0cK"<)-v24:Zhb@g@FÿJŶPRTuõZ^ceg$mq.uxz|,.:@ $(L'1,5!95Ͼ=,8C:J0nEK;TFh.QoUZX_ic)kpf%~;7 T~w;S "I"R&o+9/m37:<˷o@U@pDIWsMQTXZZ^dfhlp}t{yå( /43)=O%IKή  G3kl!!)*$0&$2&_ k&WQtAM!N?CXOOF#Q^&WW`O],a]/T`2g\VjA4%:%c)*S-U1299Q?>>>oD-_DHLP3T[D`IȹRbgQUVYGHDAHKJESSNIVQPMVWTQX[XUc^^^Zghfb_gjbkplfquinkpmrouz}w}uzw}}z~ż    ^d'%&+'!.#(%*',)/472;/558785;;<9F;@=B?DAFCIILKLINKQQROUUZSXUZW\Y^[hfgc`ebohenqnipwrmt{tqwx~yv{x~} MS $ )+$!''-)1'4.43,5297189496;8=:?9>;@=B?EMFGDIFPTUVKRWTOVY[SXUZW\Y_hea^c`kgopelqnipsumwwuqx}xu|y~ø¼.ʰ     &'#&+ *,)$)&+(-*5612/41:7>A6<<@:EI=B?DAFCNMPGLIROVYNTTXR\`UZW\Y^[fgbc`eblpqqgoqpkpmrotqvsz~{x}z ɧ     "$!'.*%*'/43/,1.30527496DE=>;@=CHFMBGDIFKHMJOLZ[STQVS\ZZcX^_cc]ccegbgdifkhsrulqnyxzvsxuzw|y~{}!     &%)%,+,(%.+55*0065/416385:7BAE;AHFCDAJGPLFNNOJOLQNSPUR]\`V[Xa^he]iigafchejglitswmrou~{s|w{}"sr    #'!'$& *.*$,*.(322,32/<<67496BC@IKLKERRLMJTXWZOZ]RWTYV[X]Zcie^c`fkknekorinkpmrotqzxyv{x~}pk~jjWqV$      !%$ &"% %"'$)&+(///0-2/<9784>:<8B>?C@IKLKESKOINKPMROTQ\ZXYV[X^ad`]b_dafchejgrmnolqntyvvTObNN8hU7&    !$!*&*-(#+)*',).+0-:4;52@>9:7=DB;AEK?HKJCIMJGLINKXXWTPURX_]V\b]Z_\a^c`eC>Q==*WD){{zwsxu|}z~'þ    %$$)(%"'$)&+(46/0-2/5;9399>7@=:?C@MGNHESQLMJUSQROXYRW50C}//I6ebgdiflqqsolqnwyxzs}}w|y~{} (½   &)'+-&($**3,-*0544/7583:9B7?=>;@=B?KMFGDI'"5y!!;(X]\\W_]`[bak_dafchelsmpjolrwvvqyw}uzw|y~{} )ľſ    !++%&#(%141-*/,1.305274;A;<(v.JGQVNWLWTTPVW[[U[[\]Z_\a^gijicheomrsjolqnspurwtz{|y~{ *   " )!"# +)'(%*',). }r } <9>;DFB?D"06#cxxQguUqzX{}y^]wcihnsrx}| +ȜƠȷǨӬҰӵ๸徽    (+ +/+/ ,&#3+,03A:/C5D< NE?$#?

XaeB_geFrafJraoNOft~ST|xp94G33M:ifkhmjolqnspqvsxuzw|y~-{}|Եξ UES[#XFRS(K_TXQW]W=B?DANCHEJGLIraof|DgkhkqzzMoO}xwXinkqsntwqw{tyv.|}ysv̸ǝ֤Զü¿/Q$ 7!0( 4$3 $U?4N:F>=385:76oW6]1Sg4i^\8_ijp=me@bBfe{kGzrnoq{Nwy}~avVy[ad/hx~{}ӿýӾ׫׳ӱ"N   5) "! $(*"-'+" PD#&649:=20 @30@89>DLA?@FQSAOEHtN&ZMNo5`_SPcfdX>x_jdZh_HMJPTMSWPVYSXUZWzouQyTxw}fkhmjolqn0spurqqlszϡ¶h3gѰ׫ۮֲ   $ F.!-",&*$3Q1)*37 @=<5E:L@>JQIHJW2uSHaKO+U-aW_f^W!/|pe_sGtBqsyF}m{Kntt\U3xY^duu{ҤǏǓǻůҫݵ#   $'7 &.*)$#+7bL<.@A?E4HI7:CLNJ>IDS!CQH%JYQ_O^,aVT]1aYZAwgak[oa=unnHvCpjzGunVuO|u4~yyb[lgkmqtz}°;ľΧԢ֧ζ۳ Eϲ/#')-.2+!/&7(;;<5/> <45`4:BFIB@F@&\*+,H UJLRP&P\\*XQ;.WUV2[YZDCybnn;<<`R:8I>?@?u^=m]9hj<`pdwMsmwg 7{mI}l]rxTw}Z]`hjnb/qY].ɸȻ˘Ⱦȣ˦Ȩµ  , !%#(#)&2 A*66&4)9 ?; BA52EHF:@KE;I@+n@T!VKI%HV\]YX,Vb/cRkfzBIG8i[^ap>`neB 8wljtGlrqLY:I;5UVWXYZ[\]^igtnopqrzԉōƓúſО֤޲߭޽ݹ   .!)!'+73(*0*F/,88@ A45;G=;I=%[JGGWBNNII&VNO*><-^PSVeA4"1-~`m 9mgscwyqg{qxx~MNOsTY{cfjoǼǹНԮԪҮز    +##$!;.#!/#3/809/74. 0D6BB97E9t^AQODU#IFZ'NR]S,N\S0]WTjZBxa@g :;qkbdrxcwiwTGqImlzTO{bx{Z}mnonqknzµȻξĠϫش۷ +#('&#)#'-^ H)+9@@ AAHB9I%hMLTb*QDT!UDMQ33j6^TPRa/Q8U[Uc] ;`f`:h]qcxMMqsykGpn|pZwOrvR}Y|ogjp¶ǕО̦۪     M׵8#+! )# 4)'5'5<6- -;<92@A" %"Y:HIF?>QD XKWL%G'[NM]Qa._QdeoiscwiQ_S}|pmuQu{yf{jhvjw{y{vȮüǚݥӭ۸)   "2!%,$(0 2!*K.2=337B## Y;M;FJKKQ)/EWE318<4nN>PMQZh0^S`VV6jfZe`oLqmaPNUYQwi{|z\~p`^l`x\_rvtzv~|ϼŹʾӯȳ߬ԯӰ! ! /"&)//)3,"&40:3!NA=><E;99"(/%\GK@IDD!FRSW2?8>5lZ\R\/T`ae4l_k`9jdp=`dyppgPURxr|lrNxz_da|[~`elruȢνҟֱزŧ   "&$*+$- @-//6/.*;7/,72@BD@8#!'#[F;K+J?O/-2@/fXNV^NV:_U]>IBC9;E;IS+?MAW/-2/iIKHL)]\aV`aU]>C@AFCDIFGL*%9$$M7@+9.0[4:R?DRGIbNfTt|}lp\tbe޶lpy-27 ¶ "*)/=W5UA`OOgyQWdUnoY]_age jpnprz |/ ڐ: B"J%*)R-2<"Z5:*b=?DY4lGrMOzV \Rdl\Xuey ' (  6$4G!$,&(DFNM66=QRSTUVWXY|^aQH`xPNaRlVZ\^db hll pttwų! 4@ @ HL#N2N8Bb=BEELV .'_6#<'+,U/Z3ݲN7:FS@FpORTʑOhU[Յ_ce jno :7DʢFH6%PR@0`]8c>;i=mDDrFvMM{ؠOVVX__ ahnvu ܂*%"'#.%:)51X/73>5J9EAh?GCNEZIUPOWS^UjYe`_gcneziuqozqu|T{$*d. 4:>DJN)T/Z.^9d?j>nItPը}5X^ ]hnmx ~ 3} % C") 5$0+^*2.90E4@;n:B>I@UDPLsJULfP\W/V^Ze\q`lhM fnjulp|zv~z|%)/ 5c 9? }"MJ%P+V1+/]1a8bKEIwK{R|-/1 )-/;;e_celLBDLPKEGV  % =#/*'Eh&)-135 9:S>BIlgbKTO\_vVc_}alc,idmqsz!~"Ь 5[@GK"L-8Z5;+cg.lGAEsGSԴNx.". +!:XcMMgFfl nhl nu"!"#$%&'()*+,-./0123456785'"11I)62}qnrQ3>5k:R@c^G]KLRrSTdr[q_qfhh=mptvx|k'}0 < D$L(0 X8(`<D.4lLlV\t!dw|ltp )m'{@FB" &'=+C.2;\6b:YQ?WBFPpJvNheSkVZe^bwrgG~klqrt^xz~u(*T57BD"OQ/\^P'=+=2R44 R;Q?@FfGHXvNePTX~X`Z^xawe oqysuyҐ{%"(/3 4?H#!O#S*T׷  =7;i=mDn! #!--WQUW^ >46>B=79Hqx` o! u! {:'; /$&?e+.C2I5N8:b=`B˿WF]IbLOvQtW=kZr]`deh]n qtvy}#- 79 E 'O+ղc'+Y-94^7B;g QؓYIck s"cw$%*%!{ <5*$>=>?@ABCF( @*ޙ0[3'`7V;G=AC]KI6bcNEONTVX\`bigghh|mnru|~t+(- ͓>;½@H#!O#S*T׷  =hCkIQ|Ay;YڄIb\`biJ>;?Uz ˀ' ee'w)B%!)$&8+A-502Z97I!% "4(g=)1,.V53E9N98=BgDGJJNbOdONSY}X`\d_asg|hpkmtrxxw|" 5AI%MԳP.÷d6&^aM?D͎L2C8CGpvptv} * *))> $()31 36S9M8{%& #%'3)\.135A7V(I.238, :עxDKO&Pӷ 0;%'c%>8nEoHSԩS޹[C@CpEJGLwLTNPsTYVXt]cagtpk˗->ŤAM"&T(X/YĿ   ZTXZa4C;I97CJ>;?U@NOLGG$KUY(`\T`R./  "'9j&/q,40f4:^8X:@>J[DOHSqo[WRx|vz{13 0[6^<3L 2j?CqEuLv%0)$3+9)46< <0-1Gwquw~-+PVTS\2\Z5Z`kd:do=gm@etlzjFGHIJKL/;7T?Q@[_OgfinŘdn|fX`Z^xalef msדCwy{#'( ȫ =?O?J%#-,%1,V7ϙ37A69E0@jKR3BV7A~Y^INbMLejiZnmYqvkfzod~/ s l Iz ".$C),.=3>5@<@Ij(AMCNHKMO[QVY[]i_~d giyUosvxdݓ%'t/ ۫)AD"T&Q-X3^937e9i@jB7OPW^\1Ze%_Wܛmu TURN 1230FILL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE IN ";CC+W;" TURNS" 1290PRINT @(22,0)"|D|MTHE WORD WAS ";WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340GOTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT  ,AJAX,JIF,CAT,DOG,RAT,HAT 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,  MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCIS! SORS 1440DATA START,FINISH,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,LOOK,COOK,TOOK,TAKE,AIR,OXYGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN 10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12 ,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 30 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12 70  180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,12 00,1190,1180 260NEXT 270COLOR1 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 TH EN GOTO 1060 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150 IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RE TURN 1230FILL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE IN ";CC+W;" TURNS" 1290PRINT!@(22,0)"|D|MTHE WORD WAS ";WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340GOTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT! ,AJAX,JIF,CAT,DOG,RAT,HAT 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,! MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCIS, SORS 1440DATA START,FINISH,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,FUCK,COOK,TOOK,TAKE,AIR,OXYGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN !0REM dac=difficulty of the game:AC must change for ship size:slden=the sheld energy 1CLS 2CLEAR:dac=7:ls=RND(20):CLS 10ham$="":PRINT@(10,4)CHR$(13)+"|EYour Christian Name Please" 20a$=INCH$:IFa$=CHR$(0)THEN20 25IFASC(a$)=13THEN31ELSE30 30ham$=ham$+a$:!!!S.B FORR.H @DALE YOUNG cSBE? OHIGCJDHIF /DALE 9JC WHXNG VHBFCH DAKGVJHBHVHV RA pOLLIE BENSAUDE ! SOUND1000,2:GOTO20 31we=LEN(ham$) 32IF LEN(ham$)<3ORLEN(ham$)>10THEN10ELSE35 35mam$=ham$+"|Cwelcome to alien raider" 40FORz=1TOLEN(mam$):nam$=LEFT$(mam$,z):no=30*ASC(RIGHT$(nam$,1))-30*90:PRINT@(15,3)CHR$(6)+nam$:FORi=1TO5:SOUNDno,2:SOUNDno-100,2:NEXTi! :NEXTz 45REM makeing lowercase initial uppercase 50nam$=ham$ 60nama$=LEFT$(nam$,1):namb$=RIGHT$(nam$,LEN(nam$)-1) 70nama=(ASC(nama$)-32):nama$=CHR$(nama) 80nam$=nama$+namb$ 100DIMx(50):DIMy(50):DIMD$(5):DIMs$(10):DIMG$(100):DIMg(100):DIMSP$(10) 105GOSU! NEXTz 160AL$=CHR$(2)+CHR$(127) 170a=10:b=230:c=203:d=24:s=0:fu=25:fp1=104:fp2=118:fpy1=200:fpx1=11:fpx2=229:t=0:lfu=25:atak=0:slden=25:ipy=100:ipx=100:hrm=2:vrm=2 175t$=CHR$(1)+CHR$(8)+"targeting ":f$=CHR$(2)+"fuel" 180COLOR4:LINE d,a,d,b,c,b,c,a,d,a ! B10200 110PRINT@(3,4)CHR$(8)+CHR$(13)+CHR$(1)+"WELCOME to starbase central:" 120PRINT@(5,9)CHR$(1)+CHR$(13)+CHR$(8)+"alpha sector" 130REM star coordinate record and plot 140SELECT2:CLS:COLOR7:FORz=1TO50:x(z)=RND(218)+10:y(z)=RND(177)+25:SET(y(z),x(z)):!1:GOSUB500:GOSUB1010 440IFa=84ORa=116THENGOSUB520 444IFa=53THENsld=0:PRINT@(22,17)CHR$(9)+" " 449IFa=51THENPRINT@(12,10)CHR$(5)+CHR$(8)+"Self destruct ":GOSUB5070:GOTO910 450IFa=110ORa=78THENn=n+1:GOSUB530 451IFa=49THENPRINT@(21,27)CHR$(6)+CHR$(9)+"Sh!190COLOR2:LINEd,234,c,234,c,237,d,237 250DISPLAY2 253COLOR2:FORz=203TO24STEP-1:LINEz,234,z,237:NEXTz 255GOSUB10000 260SELECT1:CLS 270PRINT@(0,0)CHR$(5)+CHR$(13)+"Starship Voyager 1:" 280PRINT@(21,0)CHR$(3)+"Navigation" 290PRINT@(0,35);f$ 295REM end of ! drawup begin game 300SELECT4:CLS:DISPLAY4 310a$=INCH$:a=ASC(a$) 320IF fu=202ORfu>203THENt=0:IFgc=0THENGOSUB900 340IFa=100ORa=68THENdr=1:GOSUB16000 350IFa=55THENs=1 355IF atak=1THENGOSUB1000:REM atak is on 380IF fu>=160THENGOSUB580 430IFa=48ANDt=1THENn=" ields":sld=1ELSEIFsld=0THENPRINT@(21,25)CHR$(9)+" " 452GOSUB585 453GOSUB586 454GOSUB820 455GOSUB587 460GOSUB600 461GOSUB720 462GOSUB2000 464GOSUB3000 466GOSUB4000 468GOSUB5000 469GOSUB1000 485GOSUB5010 486GOSUB5050 490GOTO310 500IFdr=1THENRETURNELSEIF" n>1THENRETURNELSECOLOR1:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:FORz=1TO5:SOUND710,2:SOUND610+(z*5),2:NEXTz 510COLOR0:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:fu=fu+3:IF fu=201ORfu>202THEN fu=202:RETURN 520PRINT@(10,17)CHR$(3)+CHR$(8)+"+":PR" INT@(10,16)CHR$(9):PRINT@(10,18)CHR$(9):t=1:n=0:dr=0:PRINT@(21,0);t$;:RETURN 530IFn>1THENRETURNELSESELECT2:COLOR0:FORz=10TO203:LINEz,234,z,237:NEXTz:PRINT@(10,17)" "+" ":PRINT@(21,0)CHR$(3)+"navigation":n=1:t=0:COLOR2:FORz=203TOfuSTEP-1:LINEz,234,z,23" 7:NEXTz:LINE24,234,fu,234,fu,237,24,237:SELECT4:RETURN 540REM begin death-no fuel 580IFfu<190THENPRINT@(0,33)CHR$(3)+CHR$(13)+CHR$(8)+"fuel"ELSEIFfu>190THENPRINT@(0,34)CHR$(1)+CHR$(8)+"fuel":IFs=1THENRETURNELSEFORz=300TO170STEP-3: SOUNDz,1:NEXTz:RETURN" 585IFsl>lsTHENAL$=CHR$(2)+CHR$(127) 586PRINT@(22,12)CHR$(9)+"|EAlert Code"+AL$;:RETURN 587PRINT@(22,26)CHR$(5)+":"+CHR$(2)+"Score";sc;:PRINT@(21,36)CHR$(4)+CHR$(9)+"ls";:RETURN 590REM spacies selection 600IFatak=1ORsl>lsTHENRETURNELSEls=ls+1:st=RND(50"0):IFst>1ANDst<8THENatak=1ELSEatak=0 605IFatak=1THEN620ELSEAL$=CHR$(2)+CHR$(127):RETURN 617REM sets the alert code due to the kind of ship selected 620IF st=1THENAL$=CHR$(1)+CHR$(127) 630IF st=2THENAL$=CHR$(1)+CHR$(127) 640IF st=3THENAL$=CHR$(4)+CHR$(1"27) 650IF st=4THENAL$=CHR$(4)+CHR$(127) 660IFst=5THENAL$=CHR$(2)+CHR$(127) 670IFst=6THENAL$=CHR$(4)+CHR$(127) 680IFst=7THENAL$=CHR$(2)+CHR$(127) 690IFst=8THENAL$=CHR$(4)+CHR$(127) 695IFst>8THENAL$=CHR$(2)+CHR$(127) 696IFst>8THENAL$=CHR$(2)+CHR$(127):RE"TURN 697SOUND200,4:PRINT@(22,13)"|EAlert Code"+AL$:FORz=1TO400:ab$=INCH$:IFASC(ab$)=49THENsld=1ELSENEXTz 698WAIT(400-z) 699IFsld=1THENPRINT@(21,28)"|FShields" 700ONstGOSUB15000,15010,15020,15030,15040,15050,15060,15070,15080 710RETURN 720sw=sw+1:IFsw<(" RND(8)+10)THENRETURNELSEIFatak=0THENRETURNELSEww=RND(2):IFww=2THENhrm=-hrm 730ww=RND(2):IFww=2THENvrm=-vrm:sw=0:RETURN 800RETURN 810REM arrows to indecate direction 820IFa=8THENd$=CHR$(2)+CHR$(91) 822IFa=0THENd$=CHR$(2)+CHR$(34) 825IFa=24THENd$=CHR$(2)" +CHR$(95) 830IFa=9THENd$=CHR$(2)+CHR$(93) 840IFa=25THENd$=CHR$(2)+CHR$(94) 850PRINT@(19,18)d$;:RETURN 900gc=1:PRINT@(10,10)CHR$(13)+CHR$(8)+CHR$(1)+"Out Of Fuel" 905FORz=1TO5000:NEXTz 910CLS:SELECT1:CLS 920PRINT@(7,0)CHR$(3)+CHR$(29) 930END:REM music a" nd death 1000IFatak=0THENRETURNELSEDISPLAY4:COLORzz:DRAW@(ipy,ipx)aa$:REM if point to check for hit 1003REM you killed a poor innocent spacie 1005RETURN 1010IFatak=0THENRETURNELSEIFABS(107-ipx)202THENsld=0:PRINT@(21,27)" " 50#60RETURN 5070FORz=1TO20:FORi=1TO5:SOUND470,2:SOUND370,2:NEXTi:FORqq=1TO50:NEXTqq:NEXTz:FORqq=1TO2:FORz=1TO7:BACKGz:SOUND5000,1:FORtt=1TO90:NEXTtt:NEXTz:NEXTqq:RETURN 7010RETURN 8511RETURN 9999REM title and theme music(by j jolly) 10000PRINT@(0,0)CHR$(3#)+CHR$(13)+"Starship Voyager 1:";:a=1141:g=1281:f=1438:e=1523:d=1710:c=1812:A=2283:G=2562:C=3624:D=3421:F=2876:E=3042 10010REM end of program 10020SOUNDa,9 10030SOUNDg,9 10040SOUNDa,70 10050SOUNDg,9 10060SOUNDf,7 10070SOUNDe,7 10080SOUNDd,7 10090SOUNDc#,50 10100SOUNDd,75 10110WAIT40 10120SOUNDA,17 10130SOUNDG,17 10140SOUNDA,70 10150SOUNDE,25 10160SOUNDF,25 10170SOUNDC,30 10180SOUNDD,160 10190RETURN 10200FOR z=1TO13:READg:G$=G$+CHR$(g):NEXTz 10210FORx=1TO13:READh:H$=H$+CHR$(h):NEXTx 10220FORz=1TO24:RE#ADg(3):G$(3)=G$(3)+CHR$(g(3)):NEXTz 10230FORz=1TO25:READg(4):G$(4)=G$(4)+CHR$(g(4)):NEXTz 10231FORz=1TO25:READg(5):G$(5)=G$(5)+CHR$(g(5)):NEXTz 10232FORz=1TO25:READg(6):G$(6)=G$(6)+CHR$(g(6)):NEXTz 10233FORz=1TO25:READg(7):G$(7)=G$(7)+CHR$(g(7)):NEXTz #10240DATA 1,32,127,127,127,127,32,32,127,127,32,32,127 10250DATA 1,127,32,32,32,32,127,32,32,127,32,32,32 10260DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,32,127,127,127,32,32,32,127,127,127 10270DATA 1,127,127,127,127,127,127,32,32,127,32,32,127#,32,127,32,32,32,127,32,127,32,32,32,127 10280DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,127,127,127,32,32,127,32,32,32,127 10290DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,32,32,32,32,32,127,32,32,32,127 10300DATA 1,127,32,32,32,3#2,127,32,127,127,127,32,127,32,32,127,127,127,127,32,127,32,32,32,127 10310REM raiders 10320FORz=1TO21:READg(8):G$(8)=G$(8)+CHR$(g(8)):NEXTz 10330FORz=1TO21:READg(9):G$(9)=G$(9)+CHR$(g(9)):NEXTz 10340FORz=1TO21:READg(10):G$(10)=G$(10)+CHR$(g(10)):NEXTz# 10350FORz=1TO32:READg(11):G$(11)=G$(11)+CHR$(g(11)):NEXTz 10360FORz=1TO33:READg(12):G$(12)=G$(12)+CHR$(g(12)):NEXTz 10370FORz=1TO29:READg(13):G$(13)=G$(13)+CHR$(g(13)):NEXTz 10380FORz=1TO29:READg(14):G$(14)=G$(14)+CHR$(g(14)):NEXTz 10390FORz=1TO29:REA# Dg(15):G$(15)=G$(15)+CHR$(g(15)):NEXTz 10400DATA1,32,127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10410DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,127,32,32,32,32,32,127 10420DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32# !,32,32,32,127 10430DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,32,32,32,127,127,127 10440DATA1,127,127,127,127,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,127,32,127,32,32,32# ",127 10450DATA 1,127,32,32,127,32,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,127,127,127,32,32,127 10460DATA 1,127,32,32,32,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,32,32,127 10470DATA 1,127,32,32,32,32,127,32# #,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,127,32,127 10480SELECT1:CLS:PRINT@(0,0)CHR$(1)+CHR$(29) 10490PRINT@(20,0)CHR$(1)+CHR$(29) 10500PRINT@(2,3)G$:PRINT@(3,3)H$:PRINT@(4,3)G$(3):PRINT@(5,3)G$(4):PRINT@(6,3)G$(5):PRINT@(7,3)# $G$(6):PRINT@(8,3)G$(7):PRINT@(11,3)G$(8):PRINT@(12,3)G$(9):PRINT@(13,3)G$(10):PRINT@(14,3)G$(11):PRINT@(15,3)G$(12):PRINT@(16,3)G$(13) 10510PRINT@(17,3)G$(14):PRINT@(18,3)G$(15) 10520FORz=1TO1000:NEXTz 10530BS$=CHR$(19)+"890" 10540FORmo=1TO35:PRINT@(22#%,mo)BS$;:SOUND600,1:SOUND500,1:WAIT7:NEXTmo:PRINT@(22,34)" ";:FORi=1TO1000:NEXTi 10550PRINT@(22,0)CHR$(5)+"Press"+"|CEnter"+"|Eto start"+"|CPause"+"|Einstructions"; 10560ON KEY 11 GOTO 10600 10565ON KEY 12 GOTO 10570 10566GOTO10560 10570SELECT1:CLS:RE#&TURN 10600SELECT1:CLS:PRINT@(0,4)CHR$(13)+"|EInstructions page one" 10610PRINT@(3,0)"|CThe year was 2045 and the Kzinti-human" 10620PRINT@(4,0)"|Cwar's had just begun. The planet Earth" 10630PRINT@(5,0)"|Cdidn't have technology that was " 10640PRINT@(6$',0)"|Csufficient to defeat the Kzin and the" 10650PRINT@(7,0)"|Cgalactic area of Known Space was " 10660PRINT@(8,0)"|Ccaptured by Kzin colonialists from the" 10670PRINT@(9,0)"|Cgalactic core." 10680PRINT@(10,0)"|CThe year is now 2500 and the earth has"$( 10690PRINT@(11,0)"|Crecaptured Known Space." 10700PRINT@(12,0)"|F"+nam$+"|Cyou have trained and joined " 10710PRINT@(13,0)"|Can elite groop of strike pilots called" 10720PRINT@(14,0)"|BAilen Raiders"+"|C,you and your groop must" 10730PRINT@(15,0)"|Cmu$)st defend the area of known space " 10740PRINT@(16,0)"|Cfrom the Kzinti warships" 10750PRINT@(18,0)"|FThe people of earth and the belt" 10760PRINT@(19,0)"|Fcolonies wish you and your team the best" 10770PRINT@(20,0)"|Fof luck and gods blessing.So do I$* (fly)" 10780PRINT@(22,0)"|E press any key for next page" 10790a$=INCH$:IFa$=CHR$(0)THEN10790ELSECLS 10800PRINT@(0,4)CHR$(13)+"|EInstructions page two" 10810PRINT@(3,0)"|CThe Voyager One is a"+" |BBussard Ramscoop" 10820PRINT@(4,0)"|Cfusion powered str$+ike craft equiped with" 10830PRINT@(5,0)"|D Three preselected matter seeking " 10840PRINT@(6,0)"|DAntimatter bombs" 10850PRINT@(7,0)"|Dand Twin pulse energy lasers" 10860PRINT@(8,0)"|CThe bombs will destroy an enemy ship" 10870PRINT@(9,0)"|Cat the pu$,sh of a button. The lasers " 10880PRINT@(10,0)"|Cwill destroy the ships if you get a " 10890PRINT@(11,0)"|Cdirect hit. To refuel-get bounty on" 10900PRINT@(12,0)"|Cany ships destroyed or restock on bombs" 10910PRINT@(13,0)"|CDrive to your nearest space$- station" 10920PRINT@(22,0)"|EPress any key for next page" 10930a$=INCH$:IFa$=CHR$(0)THEN10930 10940CLS 10950PRINT@(0,5)"|CThe Enemy assult force..." 10960PRINT@(4,0)CHR$(17)+"(ppvstp8"+CHR$(2)+"Enemy Destroyer"+"|F:10 credits" 10970PRINT@(6,0)CHR$(17)$.+"f9"+CHR$(2)+"......Enemy scout ship"+"|F:5 credits" 12900PRINT@(22,0)"|EPress any key for next page" 12905a$=INCH$:IFa$=CHR$(0)THEN12905 12910CLS 12920PRINT@(0,5)CHR$(13)+"|EInstructions page four" 12930PRINT@(3,0)"|CThe Ships controls and capacities$ /" 12940PRINT@(5,0)"|ET"+"|F....Targeting" 12950PRINT@(6,0)"|EN"+"|F....Navigation" 12960PRINT@(7,0)"|ES"+"|F....Status check and Damage report" 12970PRINT@(8,0)"|EB"+"|F....Beacon on" 12980PRINT@(9,0)"|EO"+"|F....Beacon off" 12985PRINT@(10,0)"|ED"+"|F.$ 0...Drive" 12990PRINT@(11,0)"|EM"+"|F....Mayday beacon" 13000PRINT@(12,0)"|E0"+"|F....Fire" 13010PRINT@(13,0)"|E1"+"|F....Shields" 13020PRINT@(14,0)"|E2"+"|F....Antimatter bombs" 13030PRINT@(15,0)"|E3"+"|A....Self Destruct Button" 13040PRINT@(16,0)"|E7"$ 1+"|F....Warning beacon off" 13050PRINT@(17,0)"|E8"+"|F....To dock with base station" 13060PRINT@(18,0)"|E9"+"|F....Points-Credits-fuel-Bombs" 13070PRINT@(19,0)CHR$(2)+CHR$(93)+"|F....Right" 13080PRINT@(20,0)CHR$(2)+CHR$(91)+"|F....Left" 13090PRINT@(21,$ 20)CHR$(2)+CHR$(94)+"|F....Up" 13100PRINT@(22,0)CHR$(2)+CHR$(95)+"|F....Down" 13110PRINT@(23,0)"|EPress any key for next page";:a$=INCH$:IFa$=CHR$(0)THEN13110 13120CLS:PRINT@(0,5)CHR$(13)+"|EInstructions page five" 13130PRINT@(4,0)"|CThe ships capabilit$ 3ies cont" 13140PRINT@(6,0)"|E4"+"|F....Shields off" 13150PRINT@(7,0)"|E5"+"|F....For alternate control panell" 13160PRINT@(8,0)"|ES"+"|F.... To select station drive" 13980PRINT@(23,0)"|EPress any key to start";:a$=INCH$:IFa$=CHR$(0)THEN13980 13990SELEC$4T1:CLS:RETURN 14000CLS:REM explosion data-enemy ship dies 14010ex$=LDES$(5,40,5,40;3,30,3,30;3,7,3,7;12,17,12,17;20,8,20,8;20,12,20,12;17,12,17,12;30,5,30,5;30,19,30,19;12,20,12,20;19,28,19,28;13,28,13,28;17,18,17,18) 14020ey$=LDES$(0,14,0,14;5,14,5,14$5;7,9,7,9;0,40,0,40;18,38,18,38;9,55,9,55;5,13,5,13;7,25,7,25;14,48,14,48;4,38,4,38;17,32,17,32;9,18,9,18;4,11,4,11;6,32,6,32;8,37,8,37) 14030ez$=LDES$(50,20,50,20;50,12,50,12;30,9,30,9;40,17,40,17;40,17,40,17;50,45,50,45;40,6,40,6;30,28,30,28;38,34,38,%634;30,42,30,42;40,12,40,12;38,19,38,19;25,24,25,24) 14040ew$=LDES$(100,10,100,10;80,10,80,10;80,70,80,70;84,40,84,40;60,35,60,35;70,50,70,50;90,60,90,60;90,90,90,90;60,60,60,60;65,70,65,70;60,90,60,90;55,75,55,75;60,35,60,35;110,60,110,60;105,40,105,40%7) 14050ev$=LDES$(30,0,30,0;10,20,10,20;15,45,15,45;5,65,5,65;15,85,15,85;45,95,45,95;40,35,40,35;45,50,45,50;40,70,40,70;45,55,45,55;49,65,49,65;50,50,50,50;60,60,60,60;55,45,55,45;50,60,50,60) 15000CLS 15010aa$=LDES$(3,0,4,1,4,4;4,5,3,5;5,6,5,13,4,14,%84,6;6,7,6,8;6,11,6,12;4,15,4,18,3,19;3,6,3,7;3,12,3,14;2,6,2,13;1,8,0,8;1,11,0,11) 15015zz=1:AC=7+dac:ls=RND(20):RETURN 15020aa$=LDES$(3,0,3,20;2,4,2,5;2,7,2,13;1,8,1,12;0,9,0,11;2,15,2,16;4,5,5,6,4,7;4,13,5,14,4,15) 15025zz=1:AC=7+dac:ls=RND(20):RETUR%9N 15030aa$=LDES$(5,0,5,2;5,4,5,8;5,10,5,12;6,2,6,4;6,8,6,10;4,1,4,11;3,4,3,8;2,5,2,7;0,3,1,4;0,9,1,8) 15035zz=1:AC=7+dac:ls=RND(20):RETURN 15040aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,%:5,8,6) 15045zz=1:AC=7+dac:ls=RND(20):RETURN 15050aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15055zz=4:AC=7+dac:ls=RND(20):RETURN 15060aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,%;10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15065zz=7:AC=7+dac:ls=RND(20):RETURN 15070aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15075zz=7:AC=7+dac:ls=RND(%<20):RETURN 15080aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15085zz=7:AC=7+dac:ls=RND(20):RETURN 15900RETURN 16000REM drive 16005IFt=1ORsld=1THENRETURNELSECLS 16010sl=0:PRINT@(21,0)%="|FDrive ":PRINT@(9,7)CHR$(13)+"|EDrive Screen Engaged" 16055COLOR1:FORz=24TO203:LINEz,10,z,230:SOUND1440,1:NEXTz 16056WAIT100 16060FORz=1000TO200STEP-2:SOUNDz,2:NEXTz 16070FORq=1TO200:SOUNDz,2:NEXTq 16080FORz=200TO800STEP2:SOUNDz,2:NEXTz 16090PRINT@() >9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz % 0REM dac=difficulty of the game:AC must change for ship size:slden=the sheld energy 1CLS 2CLEAR:dac=7:ls=RND(20):CLS 10ham$="":PRINT@(10,4)CHR$(13)+"|EYour Christian Name Please" 20a$=INCH$:IFa$=CHR$(0)THEN20 25IFASC(a$)=13THEN31ELSE30 30ham$=ham$+a$:% SOUND1000,2:GOTO20 31we=LEN(ham$) 32IF LEN(ham$)<3ORLEN(ham$)>10THEN10ELSE35 35mam$=ham$+"|Cwelcome to alien raider" 40FORz=1TOLEN(mam$):nam$=LEFT$(mam$,z):no=30*ASC(RIGHT$(nam$,1))-30*90:PRINT@(15,3)CHR$(6)+nam$:FORi=1TO5:SOUNDno,2:SOUNDno-100,2:NEXTi% :NEXTz 45REM makeing lowercase initial uppercase 50nam$=ham$ 60nama$=LEFT$(nam$,1):namb$=RIGHT$(nam$,LEN(nam$)-1) 70nama=(ASC(nama$)-32):nama$=CHR$(nama) 80nam$=nama$+namb$ 100DIMx(50):DIMy(50):DIMD$(5):DIMs$(10):DIMG$(100):DIMg(100):DIMSP$(10) 105GOSU% B10200 110PRINT@(3,4)CHR$(8)+CHR$(13)+CHR$(1)+"WELCOME to starbase central:" 120PRINT@(5,9)CHR$(1)+CHR$(13)+CHR$(8)+"alpha sector" 130REM star coordinate record and plot 140SELECT2:CLS:COLOR7:FORz=1TO50:x(z)=RND(218)+10:y(z)=RND(177)+25:SET(y(z),x(z)):%NEXTz 160AL$=CHR$(2)+CHR$(127) 170a=10:b=230:c=203:d=24:s=0:fu=25:fp1=104:fp2=118:fpy1=200:fpx1=11:fpx2=229:t=0:lfu=25:atak=0:slden=25:ipy=100:ipx=100:hrm=2:vrm=2 175t$=CHR$(1)+CHR$(8)+"targeting ":f$=CHR$(2)+"fuel" 180COLOR4:LINE d,a,d,b,c,b,c,a,d,a %190COLOR2:LINEd,234,c,234,c,237,d,237 250DISPLAY2 253COLOR2:FORz=203TO24STEP-1:LINEz,234,z,237:NEXTz 255GOSUB10000 260SELECT1:CLS 270PRINT@(0,0)CHR$(5)+CHR$(13)+"Starship Voyager 1:" 280PRINT@(21,0)CHR$(3)+"Navigation" 290PRINT@(0,35);f$ 295REM end of &drawup begin game 300SELECT4:CLS:DISPLAY4 310a$=INCH$:a=ASC(a$) 320IF fu=202ORfu>203THENt=0:IFgc=0THENGOSUB900 340IFa=100ORa=68THENdr=1:GOSUB16000 350IFa=55THENs=1 355IF atak=1THENGOSUB1000:REM atak is on 380IF fu>=160THENGOSUB580 430IFa=48ANDt=1THENn=&1:GOSUB500:GOSUB1010 440IFa=84ORa=116THENGOSUB520 444IFa=53THENsld=0:PRINT@(22,17)CHR$(9)+" " 449IFa=51THENPRINT@(12,10)CHR$(5)+CHR$(8)+"Self destruct ":GOSUB5070:GOTO910 450IFa=110ORa=78THENn=n+1:GOSUB530 451IFa=49THENPRINT@(21,27)CHR$(6)+CHR$(9)+"Sh& ields":sld=1ELSEIFsld=0THENPRINT@(21,25)CHR$(9)+" " 452GOSUB585 453GOSUB586 454GOSUB820 455GOSUB587 460GOSUB600 461GOSUB720 462GOSUB2000 464GOSUB3000 466GOSUB4000 468GOSUB5000 469GOSUB1000 485GOSUB5010 486GOSUB5050 490GOTO310 500IFdr=1THENRETURNELSEIF& n>1THENRETURNELSECOLOR1:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:FORz=1TO5:SOUND710,2:SOUND610+(z*5),2:NEXTz 510COLOR0:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:fu=fu+3:IF fu=201ORfu>202THEN fu=202:RETURN 520PRINT@(10,17)CHR$(3)+CHR$(8)+"+":PR& INT@(10,16)CHR$(9):PRINT@(10,18)CHR$(9):t=1:n=0:dr=0:PRINT@(21,0);t$;:RETURN 530IFn>1THENRETURNELSESELECT2:COLOR0:FORz=10TO203:LINEz,234,z,237:NEXTz:PRINT@(10,17)" "+" ":PRINT@(21,0)CHR$(3)+"navigation":n=1:t=0:COLOR2:FORz=203TOfuSTEP-1:LINEz,234,z,23& 7:NEXTz:LINE24,234,fu,234,fu,237,24,237:SELECT4:RETURN 540REM begin death-no fuel 580IFfu<190THENPRINT@(0,33)CHR$(3)+CHR$(13)+CHR$(8)+"fuel"ELSEIFfu>190THENPRINT@(0,34)CHR$(1)+CHR$(8)+"fuel":IFs=1THENRETURNELSEFORz=300TO170STEP-3: SOUNDz,1:NEXTz:RETURN& 585IFsl>lsTHENAL$=CHR$(2)+CHR$(127) 586PRINT@(22,12)CHR$(9)+"|EAlert Code"+AL$;:RETURN 587PRINT@(22,26)CHR$(5)+":"+CHR$(2)+"Score";sc;:PRINT@(21,36)CHR$(4)+CHR$(9)+"ls";:RETURN 590REM spacies selection 600IFatak=1ORsl>lsTHENRETURNELSEls=ls+1:st=RND(50& 0):IFst>1ANDst<8THENatak=1ELSEatak=0 605IFatak=1THEN620ELSEAL$=CHR$(2)+CHR$(127):RETURN 617REM sets the alert code due to the kind of ship selected 620IF st=1THENAL$=CHR$(1)+CHR$(127) 630IF st=2THENAL$=CHR$(1)+CHR$(127) 640IF st=3THENAL$=CHR$(4)+CHR$(1* !#5%-131*4;<-3;<:17F8F!7:CGIRHBBFENGQXX2OQ\^Z^f:SYX[gUaBjg_nr]ocKpbrhvQyjq|}z~;d66cUygnzojjǛŵϣξ̫ײ߹     !-%& 27) 650IF st=4THENAL$=CHR$(4)+CHR$(127) 660IFst=5THENAL$=CHR$(2)+CHR$(127) 670IFst=6THENAL$=CHR$(4)+CHR$(127) 680IFst=7THENAL$=CHR$(2)+CHR$(127) 690IFst=8THENAL$=CHR$(4)+CHR$(127) 695IFst>8THENAL$=CHR$(2)+CHR$(127) 696IFst>8THENAL$=CHR$(2)+CHR$(127):RE& TURN 697SOUND200,4:PRINT@(22,13)"|EAlert Code"+AL$:FORz=1TO400:ab$=INCH$:IFASC(ab$)=49THENsld=1ELSENEXTz 698WAIT(400-z) 699IFsld=1THENPRINT@(21,28)"|FShields" 700ONstGOSUB15000,15010,15020,15030,15040,15050,15060,15070,15080 710RETURN 720sw=sw+1:IFsw<(& RND(8)+10)THENRETURNELSEIFatak=0THENRETURNELSEww=RND(2):IFww=2THENhrm=-hrm 730ww=RND(2):IFww=2THENvrm=-vrm:sw=0:RETURN 800RETURN 810REM arrows to indecate direction 820IFa=8THENd$=CHR$(2)+CHR$(91) 822IFa=0THENd$=CHR$(2)+CHR$(34) 825IFa=24THENd$=CHR$(2)& +CHR$(95) 830IFa=9THENd$=CHR$(2)+CHR$(93) 840IFa=25THENd$=CHR$(2)+CHR$(94) 850PRINT@(19,18)d$;:RETURN 900gc=1:PRINT@(10,10)CHR$(13)+CHR$(8)+CHR$(1)+"Out Of Fuel" 905FORz=1TO5000:NEXTz 910CLS:SELECT1:CLS 920PRINT@(7,0)CHR$(3)+CHR$(29) 930END:REM music a&nd death 1000IFatak=0THENRETURNELSEDISPLAY4:COLORzz:DRAW@(ipy,ipx)aa$:REM if point to check for hit 1003REM you killed a poor innocent spacie 1005RETURN 1010IFatak=0THENRETURNELSEIFABS(107-ipx)202THENsld=0:PRINT@(21,27)" " 50'60RETURN 5070FORz=1TO20:FORi=1TO5:SOUND470,2:SOUND370,2:NEXTi:FORqq=1TO50:NEXTqq:NEXTz:FORqq=1TO2:FORz=1TO7:BACKGz:SOUND5000,1:FORtt=1TO90:NEXTtt:NEXTz:NEXTqq:RETURN 7010RETURN 8511RETURN 9999REM title and theme music(by j jolly) 10000PRINT@(0,0)CHR$(3')+CHR$(13)+"Starship Voyager 1:";:a=1141:g=1281:f=1438:e=1523:d=1710:c=1812:A=2283:G=2562:C=3624:D=3421:F=2876:E=3042 10010REM end of program 10020SOUNDa,9 10030SOUNDg,9 10040SOUNDa,70 10050SOUNDg,9 10060SOUNDf,7 10070SOUNDe,7 10080SOUNDd,7 10090SOUNDc',50 10100SOUNDd,75 10110WAIT40 10120SOUNDA,17 10130SOUNDG,17 10140SOUNDA,70 10150SOUNDE,25 10160SOUNDF,25 10170SOUNDC,30 10180SOUNDD,160 10190RETURN 10200FOR z=1TO13:READg:G$=G$+CHR$(g):NEXTz 10210FORx=1TO13:READh:H$=H$+CHR$(h):NEXTx 10220FORz=1TO24:RE'ADg(3):G$(3)=G$(3)+CHR$(g(3)):NEXTz 10230FORz=1TO25:READg(4):G$(4)=G$(4)+CHR$(g(4)):NEXTz 10231FORz=1TO25:READg(5):G$(5)=G$(5)+CHR$(g(5)):NEXTz 10232FORz=1TO25:READg(6):G$(6)=G$(6)+CHR$(g(6)):NEXTz 10233FORz=1TO25:READg(7):G$(7)=G$(7)+CHR$(g(7)):NEXTz '10240DATA 1,32,127,127,127,127,32,32,127,127,32,32,127 10250DATA 1,127,32,32,32,32,127,32,32,127,32,32,32 10260DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,32,127,127,127,32,32,32,127,127,127 10270DATA 1,127,127,127,127,127,127,32,32,127,32,32,127' ,32,127,32,32,32,127,32,127,32,32,32,127 10280DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,127,127,127,32,32,127,32,32,32,127 10290DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,32,32,32,32,32,127,32,32,32,127 10300DATA 1,127,32,32,32,3' 2,127,32,127,127,127,32,127,32,32,127,127,127,127,32,127,32,32,32,127 10310REM raiders 10320FORz=1TO21:READg(8):G$(8)=G$(8)+CHR$(g(8)):NEXTz 10330FORz=1TO21:READg(9):G$(9)=G$(9)+CHR$(g(9)):NEXTz 10340FORz=1TO21:READg(10):G$(10)=G$(10)+CHR$(g(10)):NEXTz'  10350FORz=1TO32:READg(11):G$(11)=G$(11)+CHR$(g(11)):NEXTz 10360FORz=1TO33:READg(12):G$(12)=G$(12)+CHR$(g(12)):NEXTz 10370FORz=1TO29:READg(13):G$(13)=G$(13)+CHR$(g(13)):NEXTz 10380FORz=1TO29:READg(14):G$(14)=G$(14)+CHR$(g(14)):NEXTz 10390FORz=1TO29:REA' Dg(15):G$(15)=G$(15)+CHR$(g(15)):NEXTz 10400DATA1,32,127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10410DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,127,32,32,32,32,32,127 10420DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32' !,32,32,32,127 10430DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,32,32,32,127,127,127 10440DATA1,127,127,127,127,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,127,32,127,32,32,32'",127 10450DATA 1,127,32,32,127,32,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,127,127,127,32,32,127 10460DATA 1,127,32,32,32,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,32,32,127 10470DATA 1,127,32,32,32,32,127,32'#,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,127,32,127 10480SELECT1:CLS:PRINT@(0,0)CHR$(1)+CHR$(29) 10490PRINT@(20,0)CHR$(1)+CHR$(29) 10500PRINT@(2,3)G$:PRINT@(3,3)H$:PRINT@(4,3)G$(3):PRINT@(5,3)G$(4):PRINT@(6,3)G$(5):PRINT@(7,3)($G$(6):PRINT@(8,3)G$(7):PRINT@(11,3)G$(8):PRINT@(12,3)G$(9):PRINT@(13,3)G$(10):PRINT@(14,3)G$(11):PRINT@(15,3)G$(12):PRINT@(16,3)G$(13) 10510PRINT@(17,3)G$(14):PRINT@(18,3)G$(15) 10520FORz=1TO1000:NEXTz 10530BS$=CHR$(19)+"890" 10540FORmo=1TO35:PRINT@(22(%,mo)BS$;:SOUND600,1:SOUND500,1:WAIT7:NEXTmo:PRINT@(22,34)" ";:FORi=1TO1000:NEXTi 10550PRINT@(22,0)CHR$(5)+"Press"+"|CEnter"+"|Eto start"+"|CPause"+"|Einstructions"; 10560ON KEY 11 GOTO 10600 10565ON KEY 12 GOTO 10570 10566GOTO10560 10570SELECT1:CLS:RE(&TURN 10600SELECT1:CLS:PRINT@(0,4)CHR$(13)+"|EInstructions page one" 10610PRINT@(3,0)"|CThe year was 2045 and the Kzinti-human" 10620PRINT@(4,0)"|Cwar's had just begun. The planet Earth" 10630PRINT@(5,0)"|Cdidn't have technology that was " 10640PRINT@(6(',0)"|Csufficient to defeat the Kzin and the" 10650PRINT@(7,0)"|Cgalactic area of Known Space was " 10660PRINT@(8,0)"|Ccaptured by Kzin colonialists from the" 10670PRINT@(9,0)"|Cgalactic core." 10680PRINT@(10,0)"|CThe year is now 2500 and the earth has"(( 10690PRINT@(11,0)"|Crecaptured Known Space." 10700PRINT@(12,0)"|F"+nam$+"|Cyou have trained and joined " 10710PRINT@(13,0)"|Can elite groop of strike pilots called" 10720PRINT@(14,0)"|BAilen Raiders"+"|C,you and your groop must" 10730PRINT@(15,0)"|Cmu()st defend the area of known space " 10740PRINT@(16,0)"|Cfrom the Kzinti warships" 10750PRINT@(18,0)"|FThe people of earth and the belt" 10760PRINT@(19,0)"|Fcolonies wish you and your team the best" 10770PRINT@(20,0)"|Fof luck and gods blessing.So do I(* (fly)" 10780PRINT@(22,0)"|E press any key for next page" 10790a$=INCH$:IFa$=CHR$(0)THEN10790ELSECLS 10800PRINT@(0,4)CHR$(13)+"|EInstructions page two" 10810PRINT@(3,0)"|CThe Voyager One is a"+" |BBussard Ramscoop" 10820PRINT@(4,0)"|Cfusion powered str(+ike craft equiped with" 10830PRINT@(5,0)"|D Three preselected matter seeking " 10840PRINT@(6,0)"|DAntimatter bombs" 10850PRINT@(7,0)"|Dand Twin pulse energy lasers" 10860PRINT@(8,0)"|CThe bombs will destroy an enemy ship" 10870PRINT@(9,0)"|Cat the pu( ,sh of a button. The lasers " 10880PRINT@(10,0)"|Cwill destroy the ships if you get a " 10890PRINT@(11,0)"|Cdirect hit. To refuel-get bounty on" 10900PRINT@(12,0)"|Cany ships destroyed or restock on bombs" 10910PRINT@(13,0)"|CDrive to your nearest space( - station" 10920PRINT@(22,0)"|EPress any key for next page" 10930a$=INCH$:IFa$=CHR$(0)THEN10930 10940CLS 10950PRINT@(0,5)"|CThe Enemy assult force..." 10960PRINT@(4,0)CHR$(17)+"(ppvstp8"+CHR$(2)+"Enemy Destroyer"+"|F:10 credits" 10970PRINT@(6,0)CHR$(17)( .+"f9"+CHR$(2)+"......Enemy scout ship"+"|F:5 credits" 12900PRINT@(22,0)"|EPress any key for next page" 12905a$=INCH$:IFa$=CHR$(0)THEN12905 12910CLS 12920PRINT@(0,5)CHR$(13)+"|EInstructions page four" 12930PRINT@(3,0)"|CThe Ships controls and capacities( /" 12940PRINT@(5,0)"|ET"+"|F....Targeting" 12950PRINT@(6,0)"|EN"+"|F....Navigation" 12960PRINT@(7,0)"|ES"+"|F....Status check and Damage report" 12970PRINT@(8,0)"|EB"+"|F....Beacon on" 12980PRINT@(9,0)"|EO"+"|F....Beacon off" 12985PRINT@(10,0)"|ED"+"|F.( 0...Drive" 12990PRINT@(11,0)"|EM"+"|F....Mayday beacon" 13000PRINT@(12,0)"|E0"+"|F....Fire" 13010PRINT@(13,0)"|E1"+"|F....Shields" 13020PRINT@(14,0)"|E2"+"|F....Antimatter bombs" 13030PRINT@(15,0)"|E3"+"|A....Self Destruct Button" 13040PRINT@(16,0)"|E7"(1+"|F....Warning beacon off" 13050PRINT@(17,0)"|E8"+"|F....To dock with base station" 13060PRINT@(18,0)"|E9"+"|F....Points-Credits-fuel-Bombs" 13070PRINT@(19,0)CHR$(2)+CHR$(93)+"|F....Right" 13080PRINT@(20,0)CHR$(2)+CHR$(91)+"|F....Left" 13090PRINT@(21,(20)CHR$(2)+CHR$(94)+"|F....Up" 13100PRINT@(22,0)CHR$(2)+CHR$(95)+"|F....Down" 13110PRINT@(23,0)"|EPress any key for next page";:a$=INCH$:IFa$=CHR$(0)THEN13110 13120CLS:PRINT@(0,5)CHR$(13)+"|EInstructions page five" 13130PRINT@(4,0)"|CThe ships capabilit)3ies cont" 13140PRINT@(6,0)"|E4"+"|F....Shields off" 13150PRINT@(7,0)"|E5"+"|F....For alternate control panell" 13160PRINT@(8,0)"|ES"+"|F.... To select station drive" 13980PRINT@(23,0)"|EPress any key to start";:a$=INCH$:IFa$=CHR$(0)THEN13980 13990SELEC)4T1:CLS:RETURN 14000CLS:REM explosion data-enemy ship dies 14010ex$=LDES$(5,40,5,40;3,30,3,30;3,7,3,7;12,17,12,17;20,8,20,8;20,12,20,12;17,12,17,12;30,5,30,5;30,19,30,19;12,20,12,20;19,28,19,28;13,28,13,28;17,18,17,18) 14020ey$=LDES$(0,14,0,14;5,14,5,14)5;7,9,7,9;0,40,0,40;18,38,18,38;9,55,9,55;5,13,5,13;7,25,7,25;14,48,14,48;4,38,4,38;17,32,17,32;9,18,9,18;4,11,4,11;6,32,6,32;8,37,8,37) 14030ez$=LDES$(50,20,50,20;50,12,50,12;30,9,30,9;40,17,40,17;40,17,40,17;50,45,50,45;40,6,40,6;30,28,30,28;38,34,38,)634;30,42,30,42;40,12,40,12;38,19,38,19;25,24,25,24) 14040ew$=LDES$(100,10,100,10;80,10,80,10;80,70,80,70;84,40,84,40;60,35,60,35;70,50,70,50;90,60,90,60;90,90,90,90;60,60,60,60;65,70,65,70;60,90,60,90;55,75,55,75;60,35,60,35;110,60,110,60;105,40,105,40)7) 14050ev$=LDES$(30,0,30,0;10,20,10,20;15,45,15,45;5,65,5,65;15,85,15,85;45,95,45,95;40,35,40,35;45,50,45,50;40,70,40,70;45,55,45,55;49,65,49,65;50,50,50,50;60,60,60,60;55,45,55,45;50,60,50,60) 15000CLS 15010aa$=LDES$(3,0,4,1,4,4;4,5,3,5;5,6,5,13,4,14,)84,6;6,7,6,8;6,11,6,12;4,15,4,18,3,19;3,6,3,7;3,12,3,14;2,6,2,13;1,8,0,8;1,11,0,11) 15015zz=1:AC=7+dac:ls=RND(20):RETURN 15020aa$=LDES$(3,0,3,20;2,4,2,5;2,7,2,13;1,8,1,12;0,9,0,11;2,15,2,16;4,5,5,6,4,7;4,13,5,14,4,15) 15025zz=1:AC=7+dac:ls=RND(20):RETUR)9N 15030aa$=LDES$(5,0,5,2;5,4,5,8;5,10,5,12;6,2,6,4;6,8,6,10;4,1,4,11;3,4,3,8;2,5,2,7;0,3,1,4;0,9,1,8) 15035zz=1:AC=7+dac:ls=RND(20):RETURN 15040aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,):5,8,6) 15045zz=1:AC=7+dac:ls=RND(20):RETURN 15050aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15055zz=4:AC=7+dac:ls=RND(20):RETURN 15060aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,) ;10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15065zz=7:AC=7+dac:ls=RND(20):RETURN 15070aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15075zz=7:AC=7+dac:ls=RND() <20):RETURN 15080aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15085zz=7:AC=7+dac:ls=RND(20):RETURN 15900RETURN 16000REM drive 16005IFt=1ORsld=1THENRETURNELSECLS 16010sl=0:PRINT@(21,0)) ="|FDrive ":PRINT@(9,7)CHR$(13)+"|EDrive Screen Engaged" 16055COLOR1:FORz=24TO203:LINEz,10,z,230:SOUND1440,1:NEXTz 16056WAIT100 16060FORz=1000TO200STEP-2:SOUNDz,2:NEXTz 16070FORq=1TO200:SOUNDz,2:NEXTq 16080FORz=200TO800STEP2:SOUNDz,2:NEXTz 16090PRINT@(>9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz ) 10CLS 20BACKG4 30PRINT"|CYOUR NAME IS":INPUTT$ 40LETS$="|M|B YOU ARE A FUCKIN DICKQUACKER!" 50LETA$="|M|C AND A SWIVELL NECK" 60WAIT50:PRINT"HELLO",T$,"ARE YOU COOL OR THICK?" 70INPUTC$:IFC$="COOL"THENGOTO200 80IFC$="THICK"THENGOTO100 90CLS:PRINT"CANT )YOU FOLLOW INSTUCTIONS?":WAIT100:GOTO60 100CLS 110BACKG1 115PRINT"|M|C I KNOW YOU ARE ! !" 120LETR=0 121A=0 130PRINT"|C HOW MANY TIMES DO YOU WANT YOUR NAME?" 135INPUTR 139SOUNDR 150PRINTTAB(A),T$ 151A=A+.5 160R=R+10 170GOTO139 200CLS:PRINT"|M|E BULL S HIT, YOUR A DICK-QUACKER" 210WAIT100:CLS 250GOTO130 270RUN *  su !"+8=& &$)&,KG,UI2?6BF]@JFPH{KQMR̃QThX[\_`cd g0ko8swx{|"15 9 =AEI M!Q%U,2:)6d8hR#;'q./Ȣ3֦7;?CGK*O8SFWSngXr\`bdiwh1lptxK| ly埆 !$'*-0 aio:_*!w 44 S!%)-ڠ1Ԥ5ΰ96:PB;I=G?A^F,]GKMxOQoTbXutbRbftߟnpxrx|+ 7͜ C& %#Q%(V.934'b(B =gFIEIwK{R|%/6(62,<=/= =:*41D7pxVgWxLv_{p0 0 >(q:9B!B3%Z;%o)+V{/~8wM:>BDGqKƺOʸSUqZk^bgmquw}̚ޠ 2>."2 &"& .>*5/\:*A=1iE?MI?uxVZ^dN c* ?<@AIKBIG;=:>w }1 Éэߑ"&* .2%968:[N>=OAEI]fcSReVaZ^x{xhgzkqos}4|~I.2 hCG(&)²&*X,\3=;>Ǧ;?mAqζHRPSPTV]g*Pceim q uy} 0=/ \$(f,?0x4#8|UiC?b]VgJTPmruX\houptu~ßǤڨ / Ǫ N"R)SֹCK:*L"LWQI(*`"h4q `P v|Rw ,Y48n&W}V<^J`pqnhPuusUmlY{~w_y{zh~mquy}bӠ]]|ǠȹӧŮ̴׹      $ &!!$. 0& 4"#'58)0;<9=?2>><7L HKG=K&>=B*EOPF/QTTLa~0cWW@\h\]gFrdfrdLqwutqkSjuknwYyt]{c~hmrw}żХՊ Եڹ50Q/  $# (*&*! *+)-42 6(%(.,:60-?6ANDP<13THENBACKG2:GOTO380ELSE370 370IFP=13THENBACKG0ELSEBACKG4 380C$="|A<-------------, ---------------------->" 390SPLIT0,0:CLS:PRINT"|AI AM "; 400IFR$(P)="*"THENR$(P)="|AIN A FOREST OF PINES":PRINTR$(P):GOTO420:ELSEIFR$(P)=":"THENR$(P)="|AIN A FOREST OF POPLARS":PRINTR$(P):GOTO420 410IFLEN(R$(P))>40THENPRINTCHR$(R(P))+LEFT$(R$(P),34)+CH, R$(R(P))+RIGHT$(R$(P),LEN(R$(P))-34):GOTO420ELSEPRINTR$(P) 420IFN(P)>0THENEX$=EX$+"NORTH " 430IFS(P)>0THENEX$=EX$+"SOUTH " 440IFE(P)>0THENEX$=EX$+"EAST " 450IFW(P)>0THENEX$=EX$+"WEST " 460IFU(P)>0THENEX$=EX$+"UP " 470IFD(P)>0THENEX$=EX$+"DOWN " 480IFEX,$=""THENEX$="|BNONE":PRINT"|AOBVIOUS EXITS:";EX$:GOTO500ELSE490 490PRINT"|AOBVIOUS EXITS: ";EX$ 500FORI=1TO29:IFL(I)=PANDT(I)>0THEN510ELSENEXT:GOTO540 510PRINT"|DVISIBLE OBJECTS: ";:FORI=1TO29:IFL(I)=PANDT(I)>0THEN520ELSENEXT:GOTO540 520IF39WHAT NOW";:INPUTI$ 590IFI$=""THEN580 600FORI=1TOLEN(I$):IFMID$(I$,I,1)=" "THEN610ELSENEXT:GOTO650 610V$=LEFT$(I$,I-1):V1$=LEFT-$(V$,3) 620N$=RIGHT$(I$,LEN(I$)-I):N1$=LEFT$(N$,3) 630FORI=1TO33:IFV1$=V$(I)THEN640ELSENEXT:PRINT"|AI DON'T KNOW HOW TO ";V$;" SOMETHING.":PRINT:GOTO580 640ONIGOTO800,860,950,960,970,1000,1020,1040,1090,1150,1180,1200,1210,1280,1300,1320,1340,1350,1360-,1370,1390,1420,1440,1480,1540,1590,2070,2120,800,960,960,960,2140 650IFI$="N"ANDN(P)>0THENP=N(P):GOTO330 660IFI$="S"ANDS(P)>0THENP=S(P):GOTO330 670IFI$="E"ANDE(P)>0THENP=E(P):GOTO330 680IFI$="W"ANDW(P)>0THENP=W(P):GOTO330 690IFI$="U"ANDU(P)>0THENP=U(P-):GOTO330 700IFI$="D"ANDD(P)>0THENP=D(P):GOTO330 710IFLEFT$(I$,3)<>"LOO"ANDLEFT$(I$,3)<>"INV"ANDLEFT$(I$,3)<>"HEL"ANDLEFT$(I$,3)<>"EXA"ANDLEFT$(I$,3)<>"STU"ANDLEFT$(I$,3)<>"QWE"THENPRINT"|AI DON'T UNDERSTAND.":GOTO580 720IFLEFT$(I$,3)="HEL"THEN2120 730-IFLEFT$(I$,3)="QWE"THEN2150 740IFLEFT$(I$,3)="LOO"THEN330 750IFLEFT$(I$,3)="EXA"THEN330 760IFLEFT$(I$,3)="STU"THEN330 770IFLEFT$(I$,3)="INV"THENPRINT"|AYOU ARE CARRYING THE FOLLOWING: ":IFW=0THENPRINT"|DNOTHING AT ALL.":GOTO580ELSEFORI=1TO29:IFL(I)=0TH-ENPRINT"|D"+O$(I) 780NEXT:GOTO580 790GOTO580 800FORI=1TO29:IFO1$(I)=N1$ORO$(I)=N$+"."THEN810ELSENEXT:PRINT"|AI DON'T KNOW WHAT ";N$;" IS.":GOTO580 810IFL(I)<>PORT(I)=0THENPRINT"|AI DON'T SEE IT HERE.":GOTO580ELSE820 820IFT(I)=2THENPRINT"|EI CAN'T GET T-HAT!":GOTO580ELSE830 830W=W+1:L(I)=0:PRINT"|AO.K.":WAIT100:GOTO330 840GOTO580 850REM****** GO ****** 860IFN1$="NOR"ORN1$="SOU"ORN1$="EAS"ORN1$="WES"ORN1$="UP"ORN1$="DOW"THENI$=LEFT$(N1$,1):GOTO650 870IFN1$="HOL"ANDP=2THENP=13:GOTO330 880IFN1$="RIV"ANDP-=3ORP=5THENP=14:GOTO330 890IFN1$="DOO"ANDO$(24)="AN OPEN DOOR"ANDP=6THENP=37:GOTO330 900IFN1$="HOL"ANDP=34THENP=35:GOTO330 910IFN1$="LAN"ANDP=33THENP=34:GOTO330 920IFN1$="RAF"ANDP=26ANDL(15)=27THEN930ELSEPRINT"|AI CAN'T GO THERE":GOTO580 930IFO$(20)<>"-RAFT."THENPRINT"|ATHE RAFT ISN'T BUILT YET":GOTO580 940IFL(15)<>27THENPRINT"|AI CAN'T CONTROL THE RAFT BY MEYSELF":GOTO580ELSEP=27:GOTO580 950REM 960IFN1$="WAL"ANDP=51THENPRINT"|AI'VE FOUND SOMETHING":PRINT"|CA CONCEALED CATCH WAS WORKED AS I":PRINT"|C-  EXAMINED THE WALL":P=54:WAIT300:GOTO330ELSE330 970FORI=1TO29:IFN1$=O1$(I)THEN980ELSENEXT:PRINT"|AI DON'T KNOW WHAT ";N$;" IS.":GOTO580" IS.":GOTO580 980IFL(I)>0THENPRINT"|AI AM NOT CARRYING THE ";O$(I):GOTO580 990W=W-1:L(I)=P:PRINT"|AO.K":WAIT100:GOTO- 330 1000IFL(5)<>0THENPRINT"|AI CAN'T DO THAT":GOTO580 1010IFV2=1ANDP=1THENPRINT"|AI HAVE ALREADY DUG THERE":GOTO580ELSEIFN1$<>"MAR"ORP<>1THENPRINT"|AI CAN'T DO THAT":GOTO580ELSEV2=1:PRINT"|AI FOUND SOMETHING":T(1)=1:WAIT100:GOTO330ELSEPRINT"|AI CAN'T D- IG THERE":GOTO580 1020IFL(16)<>0THENPRINT"|AI CAN'T DO THAT...YET":GOTO580 1030IFN1$="GUN"ANDL(1)=0THENO$(1)="OILED GUN":PRINT"|AO.K":GOTO580ELSEPRINT"I CAN'T OIL THAT":GOTO580 1040IFL(1)=0ANDN1$="GUN"THEN1060ELSE1050 1050PRINT"|AI CAN'T DO THAT....YET- !":GOTO580 1060IFO$(1)="LOADED GUN."THEN1070ELSEPRINT"|AMY GUN ISN'T LOADED":GOTO580 1070PRINT"|ABANG":IFP<>24THENPRINT"|ANOTHING HAPPENS":O$(1)="OILED GUN":GOTO580 1080PRINT"|ATHE TIGER FALLS DEAD":P=28:GOTO580 1090IFN1$<>"SPE"ANDL(8)<>0THEN1120 1100I- FP<>12THENPRINT"|AO.K":PRINT"|BNOTHING HAPPENS":L(8)=P:W=W-1:GOTO580 1110IFT(18)=2THENPRINT"|AI SCORED MYSELF A PIXIE":PRINT"|AI FEEL VERY MEAN AS I WATCH IT CRAWL":PRINT"|AAWAY.":T(18)=0:L(8)=P:T(8)=0:S1=1:GOTO580 1120FORI=1TO29:IFN1$=O1$(I)THEN1130EL-!SENEXT:PRINT"|AI DON'T KNOW WHAT ";N$;" IS.":GOTO580" IS.":GOTO580THENP=S(P):GOTO330 1130IFL(I)>0THENPRINT"|AI AM NOT CARRYING THE ";O$(I):GOTO580 1140W=W-1:L(I)=P:PRINT"|AO.K":PRINT"|BNOTHING HAPPENS":WAIT100:GOTO330 1150IFN1$="MAT"ANDP=13ANDL(16)=13A-"NDL(3)=0THENPRINT"|AI WAS INCINERATED WITHIN THE HOLE":PRINT"|M|DBOOF!!":ENDELSE1160 1160IFN1$="MAT"ANDL(3)=0THENPRINT"|ATHE MATCH FLARES AND BURNS OUT.":L(3)=100:GOTO580ELSEFORI=1TO29:IFL(I)<>0THENPRINT"|AI CAN'T DO THAT YET":GOTO580ELSENEXT:PRINT"|AI.# CAN'T LIGHT THAT":GOTO580 1170REM 1180IFN1$="DOO"ANDP=6ANDO$(24)="AN OPEN DOOR"THENPRINT"|AI HAVE ALREADY ACHIEVED THAT":GOTO580ELSEIFN1$="DOO"ANDP=6THEN1190ELSEPRINT"|AI CAN'T OPEN THAT":GOTO580 1190IFN1$="DOO"ANDP=6ANDA2=1THENPRINT"|ATHE DOOR SWINGS.$ OPEN":O$(24)="AN OPEN DOOR":GOTO580ELSEPRINT"|AIT APPEARS UNLOCKED.":WAIT150:PRINT"|ABUT IT WON'T BUDGE":GOTO580 1200IFN1$="BRI"ANDP=4THENP=29:PRINT"|AO.K":WAIT100:GOTO330ELSEPRINT"|AI CAN'T CLIMB THAT":GOTO580 1210IFN1$<>"RAF"THENPRINT"|AI CAN'T BUIL.%D THAT":GOTO580 1220IFO$(6)="A PILE OF PLANKS"ANDL(10)=0THEN1230ELSEGOSUB1270:GOTO580 1230IFO$(7)="A POPLAR MAST"ANDL(7)=0THEN1240ELSEGOSUB1270:GOTO580 1240IFL(2)=0THEN1250ELSEGOSUB1270:GOTO580 1250IFL(14)=0THEN1260ELSEGOSUB1270:GOTO580 1260PRINT"|AO.K.&":PRINT"|BTHE RAFT IS BUILT.":T(20)=2:L(6)=100:L(7)=100:L(2)=100:L(14)=100:L(20)=27:Z4=1:GOTO580 1270PRINT"|AI AM MISSING SOMETHING":RETURN 1280IFP=7ANDN1$="WOO"ANDL(10)=0THENPRINT"|ATIMBER":T(6)=1:GOTO580 1290IFP=15ANDN1$="TRE"ANDL(10)=0THENPRINT"|ATI.'MBER":T(7)=1:O$(7)="A POPLAR MAST":O1$(7)="MAS":GOTO580ELSEPRINT"|AI CAN'T CUT THAT":GOTO580 1300IFN1$="WOO"ANDP=22ANDL(6)=0THEN1310ELSEPRINT"|AI CAN'T SAW THAT HERE":GOTO580 1310IFO$(11)="A HUMMING SAW."THENPRINT"|ATHE WOOD IS SAWN INTO SEVERAL LENGHT.(S":O$(6)="A PILE OF PLANKS":O1$(6)="PLA":GOTO580ELSEPRINT"|AI CAN'T DO THAT YET":GOTO580 1320IFP=7ANDN1$="WOO"ANDL(10)=0THENPRINT"|ATIMBER":T(6)=1:GOTO580 1330IFP=15ANDN1$="TRE"ANDL(10)=0THENPRINT"|ATIMBER":T(7)=1:O$(7)="A POPLAR MAST":O1$(7)="MAS":GOT.)O580ELSEPRINT"|AI CAN'T CUT THAT":GOTO580 1340IFN1$="FLA"ANDP=12ANDS=1ANDO$(9)="A FULL WATER FLASK"THENPRINT"|AO.K":PRINT"|ATHE PIXIE LEAVES A BULLET AND VANISHES":L(9)=100:T(17)=1:L(18)=100:GOTO580ELSEPRINT"|AI CAN'T DO THAT....YET!":GOTO580 1350IFN1$.*="WAT"ANDO$(9)="A FULL WATER FLASK"ANDL(9)=0THENPRINT"|AI FEEL VERY STRONG.FIT ENOUGH TO":PRINT"|AFIGHT AN OGRE":O$(9)="A WATER FLASK":A2=1:GOTO580ELSEPRINT"|A I CAN'T DRINK THAT":GOTO580 1360IFN1$="BUT"ANDP=22THENGOSUB1470:PRINT"|ATHE SAW STARTS UP":O. +$(11)="A HUMMING SAW.":A1=1:GOTO580ELSEPRINT"|AI CAN'T DO THAT":GOTO580 1370IFS1=1ORT(17)=1THENPRINT"|A I CAN'T DO THAT ANYMORE":GOTO580 1380IFN1$="CON"ANDP=12ANDO$(9)="A FULL WATER FLASK"THENPRINT"|AA PIXIE APPEARS HOLDING A BULLET":S=1:T(18)=2:GOTO58. ,0ELSEPRINT"|AO.K":PRINT"|ANOTHING HAPPENS!":GOTO580 1390IFN1$="SAI"ANDP=25THENPRINT"|ATHE SAILOR WAKES AND SAYS:":PRINT"|BAYE AYE WE'LL BE CASTING OFF SOON":L(15)=27:GOTO1400ELSEPRINT"|AI CAN'T WAKE THAT":GOTO580 1400O$(15)="A SAILOR":IFL(20)=26THEN141. -0ELSE580 1410GOTO580 1420IFN1$="FLA"ANDO$(9)="WATER FLASK."ANDP=13ANDL(9)=0THENO$(9)="A FULL WATER FLASK":L(4)=100:PRINT"|AO.K":GOTO580 1430IFO$(9)="A FULL WATER FLASK"THENPRINT"|AIT'S ALREADY FULL":GOTO580ELSEPRINT"|AI CAN'T DO THAT YET":GOTO580 1440I. .FN1$="GUN"ANDO$(1)="OILED GUN"ANDL(17)=0THENPRINT"|AO.K":L(17)=100:O$(1)="LOADED GUN.":GOTO580ELSEPRINT"|AI CAN'T DO THAT":GOTO580 1450GOTO580 1460PRINT"|A|MGURGLE,GURGLE......":END 1470IFA1=1THENPRINT"|ATHE SAW IS ALREADY GOING":GOTO580ELSERETURN 1480. /IFN1$<>"OGR"THENPRINT"|AI CAN'T FIGHT THAT":GOTO580ELSE1490 1490IFV1=1THENPRINT"|AI HAVE ALREADY FOUGHT IT":GOTO580ELSEIFN1$="OGR"ANDP=29ANDA2=1THENX=RND(10):PRINT"|AO.K":WAIT200:V1=1:GOTO1500ELSEPRINT"|AI AM TO WHIMPISH TO DO THAT AT THE":PRINT"|AMOME.0NT":GOTO580 1500REM 1510IFX>5THENPRINT"|AIT WAS A HARD STRUGLE BUT I MANAGED":PRINT"|ATO DEFEAT HIM":GOTO1520ELSEPRINT"|DIT WAS A HARD STRUGLE AND I WAS BEATEN.":PRINT"|DI AM DYING A SLOW DEATH.":GOTO1580 1520PRINT"|ATHE OGRE LIES IN A HEAP ON THE GROU.1ND." 1530PRINT"|AANOTHER OGRE HAS APPEARED AND TAKEN":PRINT"|ATHE ONE I HAVE JUST FOUGHTS PLACE":PRINT"|ETHE OGRE TELLS ME TO FIND THE 7th WARD":GOTO580 1540IFN1$="HEL"ANDP=34ANDL(21)=34THENPRINT"|AHELLO":PRINT"|ATHE DWARF SCUTTLES OFF LEAVING A PACKET/2":PRINT"|AOF CRISPS":O$(21)="A PACKET OF CRISPS":O1$(21)="CRI":T(21)=1:GOTO580ELSE1550 1550IFX1=1THENPRINT"|AI CAN'T SAY A MAGIC WORD TWICE":GOTO580ELSE1560 1560IFN$="CRISPS"ANDP=36THENPRINT"|AO.K":PRINT"|ACRISPS":WAIT200:PRINT"|ATHE BLANK STONE WALL C33RUMBLES REVEALING":PRINT"|AA GOLD KEY":A1=1:O$(23)="A GOLD KEY":O1$(23)="KEY":T(23)=1:GOTO580ELSE1570 1570IFN$="CRISPS"ANDP=46THENPRINT"|AO.K":PRINT"|M|BCRISPS":WAIT150:T(27)=2:GOTO330ELSEPRINT"|AO.K":PRINT"|A"+N$:GOTO580 1580PRINT"|A|MARRRRGGHH!":END /0REM dac=difficulty of the game:AC must change for ship size:slden=the sheld energy 1CLS 2CLEAR:dac=7:ls=RND(20):CLS 10ham$="":PRINT@(10,4)CHR$(13)+"|EYour Christian Name Please" 20a$=INCH$:IFa$=CHR$(0)THEN20 25IFASC(a$)=13THEN31ELSE30 30ham$=ham$+a$:/SOUND1000,2:GOTO20 31we=LEN(ham$) 32IF LEN(ham$)<3ORLEN(ham$)>10THEN10ELSE35 35mam$=ham$+"|Cwelcome to alien raider" 40FORz=1TOLEN(mam$):nam$=LEFT$(mam$,z):no=30*ASC(RIGHT$(nam$,1))-30*90:PRINT@(15,3)CHR$(6)+nam$:FORi=1TO5:SOUNDno,2:SOUNDno-100,2:NEXTi/:NEXTz 45REM makeing lowercase initial uppercase 50nam$=ham$ 60nama$=LEFT$(nam$,1):namb$=RIGHT$(nam$,LEN(nam$)-1) 70nama=(ASC(nama$)-32):nama$=CHR$(nama) 80nam$=nama$+namb$ 100DIMx(50):DIMy(50):DIMD$(5):DIMs$(10):DIMG$(100):DIMg(100):DIMSP$(10) 105GOSU/B10200 110PRINT@(3,4)CHR$(8)+CHR$(13)+CHR$(1)+"WELCOME to starbase central:" 120PRINT@(5,9)CHR$(1)+CHR$(13)+CHR$(8)+"alpha sector" 130REM star coordinate record and plot 140SELECT2:CLS:COLOR7:FORz=1TO50:x(z)=RND(218)+10:y(z)=RND(177)+25:SET(y(z),x(z)):/NEXTz 160AL$=CHR$(2)+CHR$(127) 170a=10:b=230:c=203:d=24:s=0:fu=25:fp1=104:fp2=118:fpy1=200:fpx1=11:fpx2=229:t=0:lfu=25:atak=0:slden=25:ipy=100:ipx=100:hrm=2:vrm=2 175t$=CHR$(1)+CHR$(8)+"targeting ":f$=CHR$(2)+"fuel" 180COLOR4:LINE d,a,d,b,c,b,c,a,d,a /190COLOR2:LINEd,234,c,234,c,237,d,237 250DISPLAY2 253COLOR2:FORz=203TO24STEP-1:LINEz,234,z,237:NEXTz 255GOSUB10000 260SELECT1:CLS 270PRINT@(0,0)CHR$(5)+CHR$(13)+"Starship Voyager 1:" 280PRINT@(21,0)CHR$(3)+"Navigation" 290PRINT@(0,35);f$ 295REM end of / drawup begin game 300SELECT4:CLS:DISPLAY4 310a$=INCH$:a=ASC(a$) 320IF fu=202ORfu>203THENt=0:IFgc=0THENGOSUB900 340IFa=100ORa=68THENdr=1:GOSUB16000 350IFa=55THENs=1 355IF atak=1THENGOSUB1000:REM atak is on 380IF fu>=160THENGOSUB580 430IFa=48ANDt=1THENn=/ 1:GOSUB500:GOSUB1010 440IFa=84ORa=116THENGOSUB520 444IFa=53THENsld=0:PRINT@(22,17)CHR$(9)+" " 449IFa=51THENPRINT@(12,10)CHR$(5)+CHR$(8)+"Self destruct ":GOSUB5070:GOTO910 450IFa=110ORa=78THENn=n+1:GOSUB530 451IFa=49THENPRINT@(21,27)CHR$(6)+CHR$(9)+"Sh/ ields":sld=1ELSEIFsld=0THENPRINT@(21,25)CHR$(9)+" " 452GOSUB585 453GOSUB586 454GOSUB820 455GOSUB587 460GOSUB600 461GOSUB720 462GOSUB2000 464GOSUB3000 466GOSUB4000 468GOSUB5000 469GOSUB1000 485GOSUB5010 486GOSUB5050 490GOTO310 500IFdr=1THENRETURNELSEIF/ n>1THENRETURNELSECOLOR1:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:FORz=1TO5:SOUND710,2:SOUND610+(z*5),2:NEXTz 510COLOR0:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:fu=fu+3:IF fu=201ORfu>202THEN fu=202:RETURN 520PRINT@(10,17)CHR$(3)+CHR$(8)+"+":PR/ INT@(10,16)CHR$(9):PRINT@(10,18)CHR$(9):t=1:n=0:dr=0:PRINT@(21,0);t$;:RETURN 530IFn>1THENRETURNELSESELECT2:COLOR0:FORz=10TO203:LINEz,234,z,237:NEXTz:PRINT@(10,17)" "+" ":PRINT@(21,0)CHR$(3)+"navigation":n=1:t=0:COLOR2:FORz=203TOfuSTEP-1:LINEz,234,z,23/ 7:NEXTz:LINE24,234,fu,234,fu,237,24,237:SELECT4:RETURN 540REM begin death-no fuel 580IFfu<190THENPRINT@(0,33)CHR$(3)+CHR$(13)+CHR$(8)+"fuel"ELSEIFfu>190THENPRINT@(0,34)CHR$(1)+CHR$(8)+"fuel":IFs=1THENRETURNELSEFORz=300TO170STEP-3: SOUNDz,1:NEXTz:RETURN/ 585IFsl>lsTHENAL$=CHR$(2)+CHR$(127) 586PRINT@(22,12)CHR$(9)+"|EAlert Code"+AL$;:RETURN 587PRINT@(22,26)CHR$(5)+":"+CHR$(2)+"Score";sc;:PRINT@(21,36)CHR$(4)+CHR$(9)+"ls";:RETURN 590REM spacies selection 600IFatak=1ORsl>lsTHENRETURNELSEls=ls+1:st=RND(5000):IFst>1ANDst<8THENatak=1ELSEatak=0 605IFatak=1THEN620ELSEAL$=CHR$(2)+CHR$(127):RETURN 617REM sets the alert code due to the kind of ship selected 620IF st=1THENAL$=CHR$(1)+CHR$(127) 630IF st=2THENAL$=CHR$(1)+CHR$(127) 640IF st=3THENAL$=CHR$(4)+CHR$(1027) 650IF st=4THENAL$=CHR$(4)+CHR$(127) 660IFst=5THENAL$=CHR$(2)+CHR$(127) 670IFst=6THENAL$=CHR$(4)+CHR$(127) 680IFst=7THENAL$=CHR$(2)+CHR$(127) 690IFst=8THENAL$=CHR$(4)+CHR$(127) 695IFst>8THENAL$=CHR$(2)+CHR$(127) 696IFst>8THENAL$=CHR$(2)+CHR$(127):RE0TURN 697SOUND200,4:PRINT@(22,13)"|EAlert Code"+AL$:FORz=1TO400:ab$=INCH$:IFASC(ab$)=49THENsld=1ELSENEXTz 698WAIT(400-z) 699IFsld=1THENPRINT@(21,28)"|FShields" 700ONstGOSUB15000,15010,15020,15030,15040,15050,15060,15070,15080 710RETURN 720sw=sw+1:IFsw<(0RND(8)+10)THENRETURNELSEIFatak=0THENRETURNELSEww=RND(2):IFww=2THENhrm=-hrm 730ww=RND(2):IFww=2THENvrm=-vrm:sw=0:RETURN 800RETURN 810REM arrows to indecate direction 820IFa=8THENd$=CHR$(2)+CHR$(91) 822IFa=0THENd$=CHR$(2)+CHR$(34) 825IFa=24THENd$=CHR$(2)0+CHR$(95) 830IFa=9THENd$=CHR$(2)+CHR$(93) 840IFa=25THENd$=CHR$(2)+CHR$(94) 850PRINT@(19,18)d$;:RETURN 900gc=1:PRINT@(10,10)CHR$(13)+CHR$(8)+CHR$(1)+"Out Of Fuel" 905FORz=1TO5000:NEXTz 910CLS:SELECT1:CLS 920PRINT@(7,0)CHR$(3)+CHR$(29) 930END:REM music a0nd death 1000IFatak=0THENRETURNELSEDISPLAY4:COLORzz:DRAW@(ipy,ipx)aa$:REM if point to check for hit 1003REM you killed a poor innocent spacie 1005RETURN 1010IFatak=0THENRETURNELSEIFABS(107-ipx)202THENsld=0:PRINT@(21,27)" " 500 60RETURN 5070FORz=1TO20:FORi=1TO5:SOUND470,2:SOUND370,2:NEXTi:FORqq=1TO50:NEXTqq:NEXTz:FORqq=1TO2:FORz=1TO7:BACKGz:SOUND5000,1:FORtt=1TO90:NEXTtt:NEXTz:NEXTqq:RETURN 7010RETURN 8511RETURN 9999REM title and theme music(by j jolly) 10000PRINT@(0,0)CHR$(30 )+CHR$(13)+"Starship Voyager 1:";:a=1141:g=1281:f=1438:e=1523:d=1710:c=1812:A=2283:G=2562:C=3624:D=3421:F=2876:E=3042 10010REM end of program 10020SOUNDa,9 10030SOUNDg,9 10040SOUNDa,70 10050SOUNDg,9 10060SOUNDf,7 10070SOUNDe,7 10080SOUNDd,7 10090SOUNDc0 ,50 10100SOUNDd,75 10110WAIT40 10120SOUNDA,17 10130SOUNDG,17 10140SOUNDA,70 10150SOUNDE,25 10160SOUNDF,25 10170SOUNDC,30 10180SOUNDD,160 10190RETURN 10200FOR z=1TO13:READg:G$=G$+CHR$(g):NEXTz 10210FORx=1TO13:READh:H$=H$+CHR$(h):NEXTx 10220FORz=1TO24:RE0ADg(3):G$(3)=G$(3)+CHR$(g(3)):NEXTz 10230FORz=1TO25:READg(4):G$(4)=G$(4)+CHR$(g(4)):NEXTz 10231FORz=1TO25:READg(5):G$(5)=G$(5)+CHR$(g(5)):NEXTz 10232FORz=1TO25:READg(6):G$(6)=G$(6)+CHR$(g(6)):NEXTz 10233FORz=1TO25:READg(7):G$(7)=G$(7)+CHR$(g(7)):NEXTz 010240DATA 1,32,127,127,127,127,32,32,127,127,32,32,127 10250DATA 1,127,32,32,32,32,127,32,32,127,32,32,32 10260DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,32,127,127,127,32,32,32,127,127,127 10270DATA 1,127,127,127,127,127,127,32,32,127,32,32,1271,32,127,32,32,32,127,32,127,32,32,32,127 10280DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,127,127,127,32,32,127,32,32,32,127 10290DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,32,32,32,32,32,127,32,32,32,127 10300DATA 1,127,32,32,32,312,127,32,127,127,127,32,127,32,32,127,127,127,127,32,127,32,32,32,127 10310REM raiders 10320FORz=1TO21:READg(8):G$(8)=G$(8)+CHR$(g(8)):NEXTz 10330FORz=1TO21:READg(9):G$(9)=G$(9)+CHR$(g(9)):NEXTz 10340FORz=1TO21:READg(10):G$(10)=G$(10)+CHR$(g(10)):NEXTz1 10350FORz=1TO32:READg(11):G$(11)=G$(11)+CHR$(g(11)):NEXTz 10360FORz=1TO33:READg(12):G$(12)=G$(12)+CHR$(g(12)):NEXTz 10370FORz=1TO29:READg(13):G$(13)=G$(13)+CHR$(g(13)):NEXTz 10380FORz=1TO29:READg(14):G$(14)=G$(14)+CHR$(g(14)):NEXTz 10390FORz=1TO29:REA1 Dg(15):G$(15)=G$(15)+CHR$(g(15)):NEXTz 10400DATA1,32,127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10410DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,127,32,32,32,32,32,127 10420DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,32,32,321!,32,32,32,127 10430DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,32,32,32,127,127,127 10440DATA1,127,127,127,127,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,127,32,127,32,32,321",127 10450DATA 1,127,32,32,127,32,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,127,127,127,32,32,127 10460DATA 1,127,32,32,32,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,32,32,127 10470DATA 1,127,32,32,32,32,127,321#,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,127,32,127 10480SELECT1:CLS:PRINT@(0,0)CHR$(1)+CHR$(29) 10490PRINT@(20,0)CHR$(1)+CHR$(29) 10500PRINT@(2,3)G$:PRINT@(3,3)H$:PRINT@(4,3)G$(3):PRINT@(5,3)G$(4):PRINT@(6,3)G$(5):PRINT@(7,3)1$G$(6):PRINT@(8,3)G$(7):PRINT@(11,3)G$(8):PRINT@(12,3)G$(9):PRINT@(13,3)G$(10):PRINT@(14,3)G$(11):PRINT@(15,3)G$(12):PRINT@(16,3)G$(13) 10510PRINT@(17,3)G$(14):PRINT@(18,3)G$(15) 10520FORz=1TO1000:NEXTz 10530BS$=CHR$(19)+"890" 10540FORmo=1TO35:PRINT@(221 %,mo)BS$;:SOUND600,1:SOUND500,1:WAIT7:NEXTmo:PRINT@(22,34)" ";:FORi=1TO1000:NEXTi 10550PRINT@(22,0)CHR$(5)+"Press"+"|CEnter"+"|Eto start"+"|CPause"+"|Einstructions"; 10560ON KEY 11 GOTO 10600 10565ON KEY 12 GOTO 10570 10566GOTO10560 10570SELECT1:CLS:RE1 &TURN 10600SELECT1:CLS:PRINT@(0,4)CHR$(13)+"|EInstructions page one" 10610PRINT@(3,0)"|CThe year was 2045 and the Kzinti-human" 10620PRINT@(4,0)"|Cwar's had just begun. The planet Earth" 10630PRINT@(5,0)"|Cdidn't have technology that was " 10640PRINT@(61 ',0)"|Csufficient to defeat the Kzin and the" 10650PRINT@(7,0)"|Cgalactic area of Known Space was " 10660PRINT@(8,0)"|Ccaptured by Kzin colonialists from the" 10670PRINT@(9,0)"|Cgalactic core." 10680PRINT@(10,0)"|CThe year is now 2500 and the earth has"1 ( 10690PRINT@(11,0)"|Crecaptured Known Space." 10700PRINT@(12,0)"|F"+nam$+"|Cyou have trained and joined " 10710PRINT@(13,0)"|Can elite groop of strike pilots called" 10720PRINT@(14,0)"|BAilen Raiders"+"|C,you and your groop must" 10730PRINT@(15,0)"|Cmu1 )st defend the area of known space " 10740PRINT@(16,0)"|Cfrom the Kzinti warships" 10750PRINT@(18,0)"|FThe people of earth and the belt" 10760PRINT@(19,0)"|Fcolonies wish you and your team the best" 10770PRINT@(20,0)"|Fof luck and gods blessing.So do I1* (fly)" 10780PRINT@(22,0)"|E press any key for next page" 10790a$=INCH$:IFa$=CHR$(0)THEN10790ELSECLS 10800PRINT@(0,4)CHR$(13)+"|EInstructions page two" 10810PRINT@(3,0)"|CThe Voyager One is a"+" |BBussard Ramscoop" 10820PRINT@(4,0)"|Cfusion powered str1+ike craft equiped with" 10830PRINT@(5,0)"|D Three preselected matter seeking " 10840PRINT@(6,0)"|DAntimatter bombs" 10850PRINT@(7,0)"|Dand Twin pulse energy lasers" 10860PRINT@(8,0)"|CThe bombs will destroy an enemy ship" 10870PRINT@(9,0)"|Cat the pu2,sh of a button. The lasers " 10880PRINT@(10,0)"|Cwill destroy the ships if you get a " 10890PRINT@(11,0)"|Cdirect hit. To refuel-get bounty on" 10900PRINT@(12,0)"|Cany ships destroyed or restock on bombs" 10910PRINT@(13,0)"|CDrive to your nearest space2- station" 10920PRINT@(22,0)"|EPress any key for next page" 10930a$=INCH$:IFa$=CHR$(0)THEN10930 10940CLS 10950PRINT@(0,5)"|CThe Enemy assult force..." 10960PRINT@(4,0)CHR$(17)+"(ppvstp8"+CHR$(2)+"Enemy Destroyer"+"|F:10 credits" 10970PRINT@(6,0)CHR$(17)2.+"f9"+CHR$(2)+"......Enemy scout ship"+"|F:5 credits" 12900PRINT@(22,0)"|EPress any key for next page" 12905a$=INCH$:IFa$=CHR$(0)THEN12905 12910CLS 12920PRINT@(0,5)CHR$(13)+"|EInstructions page four" 12930PRINT@(3,0)"|CThe Ships controls and capacities2/" 12940PRINT@(5,0)"|ET"+"|F....Targeting" 12950PRINT@(6,0)"|EN"+"|F....Navigation" 12960PRINT@(7,0)"|ES"+"|F....Status check and Damage report" 12970PRINT@(8,0)"|EB"+"|F....Beacon on" 12980PRINT@(9,0)"|EO"+"|F....Beacon off" 12985PRINT@(10,0)"|ED"+"|F.20...Drive" 12990PRINT@(11,0)"|EM"+"|F....Mayday beacon" 13000PRINT@(12,0)"|E0"+"|F....Fire" 13010PRINT@(13,0)"|E1"+"|F....Shields" 13020PRINT@(14,0)"|E2"+"|F....Antimatter bombs" 13030PRINT@(15,0)"|E3"+"|A....Self Destruct Button" 13040PRINT@(16,0)"|E7"21+"|F....Warning beacon off" 13050PRINT@(17,0)"|E8"+"|F....To dock with base station" 13060PRINT@(18,0)"|E9"+"|F....Points-Credits-fuel-Bombs" 13070PRINT@(19,0)CHR$(2)+CHR$(93)+"|F....Right" 13080PRINT@(20,0)CHR$(2)+CHR$(91)+"|F....Left" 13090PRINT@(21,220)CHR$(2)+CHR$(94)+"|F....Up" 13100PRINT@(22,0)CHR$(2)+CHR$(95)+"|F....Down" 13110PRINT@(23,0)"|EPress any key for next page";:a$=INCH$:IFa$=CHR$(0)THEN13110 13120CLS:PRINT@(0,5)CHR$(13)+"|EInstructions page five" 13130PRINT@(4,0)"|CThe ships capabilit23ies cont" 13140PRINT@(6,0)"|E4"+"|F....Shields off" 13150PRINT@(7,0)"|E5"+"|F....For alternate control panell" 13160PRINT@(8,0)"|ES"+"|F.... To select station drive" 13980PRINT@(23,0)"|EPress any key to start";:a$=INCH$:IFa$=CHR$(0)THEN13980 13990SELEC2 4T1:CLS:RETURN 14000CLS:REM explosion data-enemy ship dies 14010ex$=LDES$(5,40,5,40;3,30,3,30;3,7,3,7;12,17,12,17;20,8,20,8;20,12,20,12;17,12,17,12;30,5,30,5;30,19,30,19;12,20,12,20;19,28,19,28;13,28,13,28;17,18,17,18) 14020ey$=LDES$(0,14,0,14;5,14,5,142 5;7,9,7,9;0,40,0,40;18,38,18,38;9,55,9,55;5,13,5,13;7,25,7,25;14,48,14,48;4,38,4,38;17,32,17,32;9,18,9,18;4,11,4,11;6,32,6,32;8,37,8,37) 14030ez$=LDES$(50,20,50,20;50,12,50,12;30,9,30,9;40,17,40,17;40,17,40,17;50,45,50,45;40,6,40,6;30,28,30,28;38,34,38,2 634;30,42,30,42;40,12,40,12;38,19,38,19;25,24,25,24) 14040ew$=LDES$(100,10,100,10;80,10,80,10;80,70,80,70;84,40,84,40;60,35,60,35;70,50,70,50;90,60,90,60;90,90,90,90;60,60,60,60;65,70,65,70;60,90,60,90;55,75,55,75;60,35,60,35;110,60,110,60;105,40,105,402 7) 14050ev$=LDES$(30,0,30,0;10,20,10,20;15,45,15,45;5,65,5,65;15,85,15,85;45,95,45,95;40,35,40,35;45,50,45,50;40,70,40,70;45,55,45,55;49,65,49,65;50,50,50,50;60,60,60,60;55,45,55,45;50,60,50,60) 15000CLS 15010aa$=LDES$(3,0,4,1,4,4;4,5,3,5;5,6,5,13,4,14,2 84,6;6,7,6,8;6,11,6,12;4,15,4,18,3,19;3,6,3,7;3,12,3,14;2,6,2,13;1,8,0,8;1,11,0,11) 15015zz=1:AC=7+dac:ls=RND(20):RETURN 15020aa$=LDES$(3,0,3,20;2,4,2,5;2,7,2,13;1,8,1,12;0,9,0,11;2,15,2,16;4,5,5,6,4,7;4,13,5,14,4,15) 15025zz=1:AC=7+dac:ls=RND(20):RETUR29N 15030aa$=LDES$(5,0,5,2;5,4,5,8;5,10,5,12;6,2,6,4;6,8,6,10;4,1,4,11;3,4,3,8;2,5,2,7;0,3,1,4;0,9,1,8) 15035zz=1:AC=7+dac:ls=RND(20):RETURN 15040aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,2:5,8,6) 15045zz=1:AC=7+dac:ls=RND(20):RETURN 15050aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15055zz=4:AC=7+dac:ls=RND(20):RETURN 15060aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,3;10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15065zz=7:AC=7+dac:ls=RND(20):RETURN 15070aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15075zz=7:AC=7+dac:ls=RND(3<20):RETURN 15080aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15085zz=7:AC=7+dac:ls=RND(20):RETURN 15900RETURN 16000REM drive 16005IFt=1ORsld=1THENRETURNELSECLS 16010sl=0:PRINT@(21,0)3="|FDrive ":PRINT@(9,7)CHR$(13)+"|EDrive Screen Engaged" 16055COLOR1:FORz=24TO203:LINEz,10,z,230:SOUND1440,1:NEXTz 16056WAIT100 16060FORz=1000TO200STEP-2:SOUNDz,2:NEXTz 16070FORq=1TO200:SOUNDz,2:NEXTq 16080FORz=200TO800STEP2:SOUNDz,2:NEXTz 16090PRINT@(= >9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 310BACKG1 20A$=LDES$(17,129,17,369,39,369,39,129,17,129) 30COLOUR2 40CLS 50PRINT@(2,8);"|E|H|MWELCOME TO E-Z DRAW" 60SELECT 5:CLS:DISPLAY 5:CLS 70FILL A$ 80COLOR2 90FOR I=1 TO 242:LINE 16,I+128,16,I+128:NEXT I 100FOR I=16 TO 40:LINE I,370,I,370:NEXT 1103I=371 120I=I-1:LINE 40,I,40,I:IF I=128 THEN GOTO 130 ELSE GOTO 120 130I=40 140I=I-1:LINE I,128,I,128:IF I=16 THEN GOTO 150 ELSE GOTO 140 150COLOR1:FILL A$ 160SELECT1:DISPLAY1 170PRINT@(10,0);"|DWOULD YOU LIKE INSTRUCTIONS?...(Y or N)" 180B$=INCH$ 190I3F B$="N" THEN GOTO 360 200IF B$="Y" THEN GOTO 220 210GOTO 180 220PRINT"THIS PROGAM IS MADE SOLELY FOR THE ACCESS OF DRAWING AT YOUR FINGER TIPS."  230 PRINT"YOUR CONTROLS ARE:" 240PRINT "THE FOUR YELLOW DIRECTIONAL ARROWS;" 250PRINT"THE BUTTONS:5,6,2,33, FOR DIAGONAL DIRECTION;" 260PRINT "THE ENTER BUTTON TO CHANGE COLOR;" 270PRINT"THE DECIMAL POINT BUTTON,TO ERRASE;" 280PRINT"BECAREFUL NOT TO LEAVE THE SCREEN." 290SELECT2:DISPLAY2  300WAIT 1500 310PRINT@(21,10)"HAPPY DRAWING!" 320PRINT@(22,10)"PR3 ESS-NEXT-" 330C$=INCH$ 340IFASC(C$)=19 THEN GOTO 360 350GOTO330 360CLEAR 370CLS:CLEAR:SELECT4:CLS 380CLS:DISPLAY2:CLS:DISPLAY4:CLS:SELECT 2:MIX ON 390DIM A(2850) 400I=1 410CLS 420BACKG0 430X=0:Y=0:C=1 440REM RETURNING 450IF XXX3  THEN A(I)=1 470IF A(I)<>0 THEN GOTO 530 480IF Y>YY THEN A(I)=2 490IF YCC THEN A(I)=C+10 510IF CYY THEN A(I)=A(I)+100 540IF YCHR$(13)THEN640 53 60YY=Y:XX=X:CC=C 570B$=INCH$:C$=B$ 580IF B$="E" THEN GOTO 720 590IFB$=CHR$(53)THENB$=CHR$(25):C$=CHR$(8) 600IF B$=CHR$(46)THENC=0:COLOR0 610IFB$=CHR$(50)THENB$=CHR$(24):C$=CHR$(8) 620IFB$=CHR$(51)THENB$=CHR$(24):C$=CHR$(9) 630IFB$=CHR$(54)THENB$=CHR$(23 5):C$=CHR$(9) 640IFB$=CHR$(25)THENY=Y-1 650IFB$=CHR$(24)THENY=Y+1 660IFC$=CHR$(8)THENX=X-1 670IFC$=CHR$(9)THENX=X+1 680IFB$=CHR$(13)THENC=C+1:IF C=8 THEN C=0  690IF A(I)=0 THEN GOTO 710 700I=I+1: IF I=3000 THEN GOTO 720 702IF C=0 THEN SELECT 2:DISPLAY3 2:COLORC:SETX,Y:SELECT4:DISPLAY4 710COLORC:SET(Y,X):GOTO440 720CLS 730WAIT 40 740X=0:Y=0 750SELECT 2:CLS:DISPLAY2:CLS 760CLS:SELECT4:DISPLAY4 770CLS 780COLOR1 790FOR F=1 TO I 800IF A(F)>9 AND A(F)<20 THEN COLORA(F)-10:C=A(F)-10 810IF A(F)=1 THEN X=X+1 9 820IF A(F)=-1 THEN X=X-1 830IF A(F)=2 THEN Y=Y+1 840IF A(F)=-2 THEN Y=Y-1 850IF A(F)=101 THEN X=X+1:Y=Y+1 860IF A(F)=-99 THEN X=X+1:Y=Y-1 870IF A(F)=99 THEN X=X-1:Y=Y+1 880IF A(F)=-101 THEN X=X-1:Y=Y-1 890SET(Y,X):NEXT F 900WAIT 10 341590IFN1$="GRA"ANDP=27THENPRINT"|AIT SAYS A MAGIC WORD:":PRINT"|DCRISPS":GOTO580ELSE1600 1600IFN1$="MAP"ANDP=37ANDL(26)=0THENPRINT"|AIT ANNOUNCES YOUR MISSION:":PRINT"|BYOU ARE TO FIND YOUR WAY THROUGH THE":PRINT"|BMAZE OF HELL, FINDING THE GOLD KEY,":45PRINT"|BYOU ARE THEN TO PROCEED TO MISSION-3.":GOTO580 1610IFN1$="BOO"ANDL(29)=0THENPRINT"|AO.K":PRINT"|CTHE BOOK OF AGATHOTH. BY B.DIRE":PRINT"|CIT SAYS IN ONE PART:":PRINT"|B2|DMAKE|B1|DOF MY SPECIALS,|B1|DMUST":PRINT"|DTAKE SIX BATS.DICE UNTIL YOU H46AVE A":GOTO1620ELSE1630 1620PRINT"|DNICE MUSHY BLOODY MESS AND THEN SERVE":GOTO580ELSE1630 1630PRINT"|BI CAN'T READ THAT":GOTO580 1640PRINT"|A|A      |A         |A         |A        47|A          |A        " 1650PRINT 1660PRINT"|A       |A            |A           |A             |A          48" 1670WAIT200 1680CLS 1690PRINT"|M|DWELCOME TO MISSION 2" 1700PRINT@(4,0)"|DYou are now in charge of Kloot, your":PRINT@(5,0)"|Dpuppet for this advenutre, but you must":PRINT@(6,0)"|Dhelp him as his intelligence is rather" 1710PRINT@(7,0)"|Dlow.":PR49INT@(8,0)"|DYou may do this by using two word":PRINT@(9,0)"|Dsentences.Some words of good use are:":PRINT@(10,0)"|BGo, Get, Drop and Trade" 1720PRINT@(11,0)"|M|AGOOD LUCK IN THE WOODS OF MORINMOSS" 1730PRINT@(20,0)"|CHIT ANY KEY TO CONT" 1740I$=INCH$:I4:FI$=CHR$(0)THEN1730ELSE1750 1750RETURN 1760PRINT@(2,24)"|CWELCOME" 1770CLS 1780CLS:SELECT2:CLS:DISPLAY2 1790COLOUR4 1800REM ** HEAD ** 1810REM 1820LINE1,100,5,110;1,100,5,90;5,110,25,109,30,100,25,91,5,90;12,93,11,95,12,97;12,93,13,95;12,107,11,105,124;,103;12,107,13,105 1830LINE23,95,23,105;13,99,17,99,19,97,19,103,17,101,13,101 1840LINE23,97,25,98,25,102,23,104 1850REM ** BODY ** 1860REM 1870LINE28,95,35,95;28,105,35,105;35,90,35,110,33,120,35,122,40,125,50,125;50,100,50,130,70,130,90,115,70,100,54<0,100 1880LINE50,115,47,116,44,116,43,114,43,112,47,112,50,114 1890LINE35,90,33,80,35,78,40,75,60,75,62,74,64,74,65,75,90,75;90,83,68,83,60,85,54,85,46,83,45,85,45,87,50,86,60,86,63,88,105,88 1900LINE60,94,60,94;87,112,105,112 1910REM ** LEGS ** 1920R4 =EM 1930LINE100,112,100,88;105,112,105,88;99,98,99,102,106,102,106,98,99,98 1940LINE105,112,107,114,157,114 1950LINE157,114,159,117,190,117,190,126,193,129,195,129,198,126,198,105,159,105,157,106,158,117 1960LINE158,106,125,106;105,88,107,86,157,86;158,4 >83,190,83,190,74,193,71,195,71,198,74,198,94,157,94,158,83 1970LINE157,94,125,94,127,96,127,104,125,106 1980REM ** HAND ** 1990REM 2000LINE90,75,93,77,98,77,99,78,98,79,93,79,93,80,98,80,99,81,98,82,93,82,90,83 2010LINE90,75,96,72,97,71,98,72,93,77 24 ?020A$=LDES$(1,10,1,15,5,20,5,40,6,42,8,42,9,40,9,20,13,15,13,10,6,5,1,10) 2030COLOUR1 2040FILL@(90,52)A$ 2050PRINT@(0,19)"|CWELCOME TO GROND":PRINT@(1,19)"|CADVENTURES" 2060WAIT300:RETURN 2070IFN1$="POR"ANDP=46ANDT(27)=2THEN2080ELSE2110 2080PRINT"|BIN 4 @ONE WORD TELL ME WHAT TO USE":INPUTAA$ 2090IFAA$="LEVER"ORAA$="LEV"THENPRINT"|AO.K":P=47:GOTO580 2100PRINT"|AO.K":PRINT"|ATHAT DOESN'T WORK":GOTO580 2110PRINT"|AI CAN'T DO THAT YET":GOTO580 2120IFP=12ANDS=1THENPRINT"|ETRY TRADING WITH THE PIXIE":GOTO584 A0ELSEPRINT"|ETRY EXAMINING THINGS":GOTO580 2130WAIT400:CLEAR:CLS:PRINT"|DTHIS ADVENTURE IS NOW OVER":PRINT"|M|ACONGRATULATIONS":PRINT"|CYOU HAVE MADE IT TO MISSION-3":PRINT"|CPLEASE INSERT GROND DISK FOUR AND":PRINT"|CRUN MISSION-3":END 2140PRINT"|AI CDBAN'T QWE SOMETHING":GOTO580 2150X=1:Y=6 2160FORI=1TO33:PRINT@(Y,X)"|A"+V2$(I)+"|A" 2170IFI=13THENX=11:Y=5 2180IFI=26THENX=22:Y=5 2190Y=Y+1:NEXT:GOTO570 4 , 0 , 0 , 0 , 0 , 0 5JON , 3630 , 0 , 0 , 0 , 0 5JON , 3630 JJJJJJJJJJJJJJJJ , 3066 , 0 , 0 , 0 5JON , 3630 JJJJJJJJJJJJJJJJ , 3066 SMILEY , 1568 , 0 , 0 ,JON , 3630 JJJJJJJJJJJJJJJJ , 3066 CAMEL , 2899 SMILEY , 1568 , 0 >***JON*** , 226178 *JON STEVE* , 134116 OLLY BENSUADE , 60247 LANCE NIXON 5, 59360 LANCE NIXON =, 47304 5CHRISSY , 8119 JON -, 3630 JJJJJJJJJJJJJJJJ (, 3066 CAMEL , 2899 SMILEY , 1568 5CHRISSY , 8119 JON 5, 3630 JJJJJJJJJJJJJJJJ 0, 3066 CAMEL , 2899 brownlee , 1691 5CHRISSY , 8119 JON =, 3630 JABO IS COOL , 3357 JJJJJJJJJJJJJJJJ 8, 3066 CAMEL #, 2899 5 CHRISSY , 8119 JABO IS COOL , 4008 JON E, 3630 JABO IS COOL , 3357 JJJJJJJJJJJJJJJJ @, 3066 5 CHRISSY !, 8119 Scott Brownlee , 4535 JABO IS COOL , 4008 JON M, 3630 JABO IS COOL , 3357 5 CHRISSY ), 8119 Scott Brownlee , 4535 JABO IS COOL , 4008 THEO GEORGAKIS , 3890 JON U, 3630 5 CHRISSY 1, 8119 JABO IS COOL , 4633 Scott Brownlee , 4535 JABO IS COOL , 4008 THEO GEORGAKIS , 3890 5  , 15104 CHRISSY 9, 8119 JABO IS COOL , 4633 Scott Brownlee , 4535 JABO IS COOL $, 4008 5*STUART McLEOD* , 21440 , 15104 CHRISSY A, 8119 JABO IS COOL , 4633 Scott Brownlee ", 4535 6*STUART McLEOD* , 21440 , 15104 CHRISSY I, 8119 >>->C.WOODROW<-<< , 5334 JABO IS COOL , 4633 8>>->C.WOODROW<-<< , 21536 *STUART McLEOD* , 21440 , 15104 CHRISSY Q, 8119 >>->C.WOODROW<-<< , 5334 610MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,126,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 30 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12670  180NEXT 185DIM A(4,8) 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:A(I,J-29)=ASC(J$):PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,61260,1250,1240,1230,1220,1210,1200,1190,1180 260NEXT 270COLOR1 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEA6SE" 1060J$=INCH$:IF ASC(J$)<1 THEN GOTO 1060 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1105FOR Q=1 TO 4:FOR J=1 TO 8:IF A(Q,J)=ASC(J$) THEN PRINT@(Q,J+29)"*" 11066NEXT J:NEXT Q 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 61180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RETURN 1230FILL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,16 4,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE IN ";CC+W;" TURNS" 1290PRINT@(22,0)"|D|MTHE WORD WAS ";WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340G6 OTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEA6 D,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,H6 ELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCISSORS 1440DATA START,FINISH,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,FUCK,COOK,TOOK,T6 AKE,AIR,OXYGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN 6  su !"+8=& &$)&,KG,UI2?6BF]@JFPH{KQMR̃QThX[\_`cd g0ko8swx{|"15 9 =AEI M!Q%U,2:)6d8hR#;'q./Ȣ3֦7;?CGK*O8SFWSnhXn\`edmxi(mqsuzyB}$(\  @ $#!+#/ *43;;CCȯ  #& ) ,/258;>AD7G J"M$P&S(V*Y,!.#0%2'4)6+$/cJ!,-%(3*]].)F2|9:->'B!FJNR VZ^b_cykdrfp hjoUptvxz }{  !%$+#&T,7!12%`BCVJ_J˻NOxUWx}[p[_jwōǾÒ|'#+1/?3M 7[ ;i?wCGK)AS1ʺS.2`,4d&;ECFrCGuIy;PZX[X\7^Peom p z x{x|~ ;,)+@ $VA>.-@1W6<9qVSC"BUFlJ2NkϔXAWj[_^cg jwn{rvz!~%)-1  ?C$"!O#S*425忻9` HSs=WmP|353076a]acjLA?SLPC XCV${w.-./0123456789 !1@C&@>'(+,BR5?vWy{enjLImGa`RfSmXY_bhfgj|nmt̜{yΖ%հ, әҸ   $OC'26"7 +!/&'437==/=3/CD54FGO#KMOKEA*RNBMH0IOZS5MZZPSP\=Z\XZBimg'""AodxQjp{tVmmyz[}r_xzw{dhotyȜùǢ«ݒ Ӽ    !%$07 -43#)/341A8?=:7=54BL!8FQw54 HKUP1SHV5aZYR\;W`aWVn[C`^fgkIk`dMjdtuSns}pYvt|}@;;Z~mv|´ľԮݾ(N  " "%7 )%.$++\ml9;=-C860A1CK?>J:@>H'@FLMES.WISTP[5\`SOg;R`a^@[kZcE]jkhJsopmOxfqlTjs}X|wv_vze|jsyxm7 10CLS 20SELECT5:CLS:DISPLAY5 30A$=LDES$(50,10,50,470,58,470,58,10,50,10):LINE48,5,48,237;60,5,60,237 40COLOR4:FILLA$ 50B$=LDES$(100,20,65,470,70,470,105,20,100,20) 60COLOR4:FILLB$ 70C$=LDES$(120,0,150,440,155,440,125,0,120,0) 80COLOR4:FILLC$ 90D$=LDES$7 (190,40,165,470,170,470,195,40,190,40) 100COLOR4:FILLD$ 110SELECT5:DISPLAY5 120PRINT@(21,0)"|Qojvouiydfczfswjnhkmkhkvxbvfkkddlmexazb" 130PRINT@(22,0)"|Qlhnkhnkmhnkbklitivvxgcagdxdchfhbdvmhlkg" 140COLOR2:LINE90,0,120,0;90,13,120,13;95,0,95,13;105,0,1057 ,13;115,0,115,13;140,454,165,454;140,475,165,475;145,455,145,465;155,455,155,465 150SELECT4:DISPLAY4 160Z$="(0) (0) (0) (0) (0) (0) (0) " 170Y$=" 0 0 0 0 0 0 0 " 180LINE48,5,48,237;60,5,60,237 190A$="( ) ( ) ( ) ( ) ( ) ( ) ( ) " 27 00B$="( ) ( ) ( ) ( ) ( ) ( ) ( ) " 210GOSUB 280 220PRINT@(4,0)LEFT$(Z$,38) 230PRINT@(6,0)LEFT$(Y$,38) 240WAIT10 250Z$=W$+RIGHT$(Z$,6)+LEFT$(Z$,LEN(Z$)-2) 260Y$=W$+RIGHT$(Y$,LEN(Y$)-2)+LEFT$(Y$,6) 270GOTO 380 280R=INT(RND(7)):IF R=0 THEN GOTO 2780 290ON R GOSUB 310,320,330,340,350,360,370 300RETURN 310W$="|A":RETURN 320W$="|B":RETURN 330W$="|C":RETURN 340W$="|D":RETURN 350W$="|E":RETURN 360W$="|F":RETURN 370W$="|G":RETURN 380GOTO 210 390PRINT@(4,2)"|B";LEFT$(A$,38) 400PRINT@(6,0)"|B";LEFT$(B$7,38) 410A$=RIGHT$(A$,1)+LEFT$(A$,LEN(A$)-1) 420B$=RIGHT$(B$,LEN(B$)-1)+LEFT$(B$,1) 425SELECT4:DISPLAY4 430GOTO 210 510CLS 20REM A PROGRAM FOR OBNOXIOUS PEOPLE 30CLS 40PRINT"|AWHAT IS YOUR NAME";:INPUT A$ 50FOR X=1TO100 60PRINT"|B";A$;"|DFUCKOFF"; 70NEXT X:WAIT100 80RUN 810CLS 20REM A PROGRAM FOR OBNOXIOUS PEOPLE 30CLS 40PRINT"|AWHAT IS YOUR NAME";:INPUT A$ 50FOR X=1TO100 60PRINT"|B";A$;"|DFUCKOFF"; 70NEXT X:WAIT100 80RUN 9>>->C.WOODROW<-<< , 21536 *STUART McLEOD* , 21440 , 15104 ***JON*** , 12457 CHRISSY Y, 8119 810CLS 20SELECT5:CLS:DISPLAY5 30A$=LDES$(50,10,50,470,58,470,58,10,50,10) 40COLOR4:FILLA$ 50B$=LDES$(100,20,65,470,70,470,105,20,100,20) 60COLOR4:FILLB$ 70C$=LDES$(120,0,150,440,155,440,125,0,120,0) 80COLOR4:FILLC$ 90D$=LDES$(190,40,165,470,170,470,195,840,190,40) 100COLOR4:FILLD$ 110SELECT5:DISPLAY5 120PRINT@(21,0)"|Qojvouiydfczfswjnhkmkhkvxbvfkkddlmexazb" 130PRINT@(22,0)"|Qlhnkhnkmhnkbklitivvxgcagdxdchfhbdvmhlkg" 140COLOR2:LINE90,0,120,0;90,13,120,13;95,0,95,13;105,0,105,13;115,0,115,13;140,454,1658,454;140,475,165,475;145,455,145,465;155,455,155,465 150SELECT4:DISPLAY4 180Z$=" 0 0 0 0 0 0 0 " 190Y$=" 0 0 0 0 0 0 0 " 210LINE48,5,48,237;60,5,60,237 220A$="( ) ( ) ( ) ( ) ( ) ( ) ( ) " 230B$="( ) ( ) ( ) ( ) ( ) ( ) ( ) 8" 235GOSUB 1000 240PRINT@(4,0)LEFT$(Z$,38) 250PRINT@(6,0)LEFT$(Y$,38) 260WAIT10 280Z$=W$+RIGHT$(Z$,1)+LEFT$(Z$,LEN(Z$)-1) 285Y$=W$+RIGHT$(Y$,LEN(Y$)+1)+LEFT$(Y$,LEN(Y$)+1) 290GOTO235 1000R=INT(RND(7)):IF R=0 THEN GOTO 1000 1010ON R GOSUB 1040,1050,10860,1070,1080,1090,1100 1020RETURN 1040W$="|A":RETURN 1050W$="|B":RETURN 1060W$="|C":RETURN 1070W$="|D":RETURN 1080W$="|E":RETURN 1090W$="|F":RETURN 1100W$="|G":RETURN #@?@?@7ǀ@@@@@@@@@ @ @@ @ @ @@ @ @ @@@ @ @@@ @ @@@ @ @@@ @ @@@ @ @@@ @@π@ @@@@@ ȀCĀB@@@ `ĿȀĿ@8 8 8 8 10CLS 20SELECT5:DISPLAY5:CLS 30COLOR4 40BACKG1 50X=INT(RND(380)) 60BX=INT(RND(400)) 70Y=INT(RND(180)) 80BY=INT(RND(190)) 90A$=LDES$(10+Y,10+X,5+Y,15+X,15+Y,15+X,10+Y,10+X) 100FILL A$ 110LINE 15+Y,15+X,20+Y,15+X 120LINE 23+Y,11+X,23+Y,19+X 130LINE 23+Y,811+X,18+Y,11+X 140LINE 23+Y,19+X,18+Y,19+X 150LINE 18+Y,11+X,18+Y,19+X 160Y=Y+20:X=X+15 165COLOR2:SET(BY,BX) 170PRINT@(0,10);"HANDICAP"; 180INPUT HC 190IF HC<20 THEN PRINT@(0,10);"WIND-SPEED"; 200IF HC<20 THEN INPUT WS 210PRINT@(0,9)"1-IRON.2-WOOD.3-P8UTTER" 220WAIT 200:PRINT@(0,9)" " 230PRINT@(0,10)"|DWHAT CLUB|B"; 240INPUT CL 242PRINT@(0,10)"HIT SPEED";  245INPUT HS 250PRINT@(0,10)"|BDIRECTION " 260B$=INCH$ 270IF ASC(B$)>7 THEN GOTO 280 275GOTO 260 280IF B$=CHR$(9) THEN XX=1  290IF B$=CHR$(8)9 THEN XX=-1 300IF B$=CHR$(24) THEN YY=1 310IF B$=CHR$(25) THEN YY=-1 320IF B$=CHR$(50) THEN YY=1:XX=-1 330IF B$=CHR$(51) THEN YY=1:XX=1 340IF B$=CHR$(53) THEN YY=-1:XX=-1 350IF B$=CHR$(54) THEN YY=-1:XX=1 400FOR I=1 TO HS*INT(RND(4)) 410COLOR0:SET(BY,BX) 420BY=BY+YY:BX=BX+XX 430COLOR2:SET(BY,BX) 440NEXT I 445YY=0:XX=0 450GOTO 242 1000GOTO 1000 9>>->C.WOODROW<-<< , 21536 *STUART McLEOD* !, 21440 , 15104 >>D&B BROS<< , 14803 ***JON*** , 12457 9WJA , 22375 >>->C.WOODROW<-<< , 21536 *STUART McLEOD* ), 21440 , 15104 >>D&B BROS<< , 14803 WJA , 29617 WJA , 22375 >>->C.WOODROW<-<< ', 21536 *STUART McLEOD* 1, 21440 , 15104 10CLS 20SELECT5:DISPLAY5:CLS 30COLOR4 40BACKG1 50X=INT(RND(380)) 60BX=INT(RND(400)) 70Y=INT(RND(180)) 80BY=INT(RND(190)) 90A$=LDES$(10+Y,10+X,5+Y,15+X,15+Y,15+X,10+Y,10+X) 100FILL A$ 110LINE 15+Y,15+X,20+Y,15+X 120LINE 23+Y,11+X,23+Y,19+X 130LINE 23+Y,3>90PRINT@(9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 90REM dac=difficulty of the game:AC must change for ship size:slden=the sheld energy 1we=LEN(ham$) 2 IFASC(a$)=13THEN31ELSE30 10ham$="":PRINT@(10,4)CHR$(13)+"|EYour Christian name Please FUCKWIT " 20a$=INCH$:IFa$=CHR$(0)THEN20 25IFASC(a$)=13THEN31ELSE9 30 30ham$=ham$+a$:SOUND1000,2:GOTO20 31we=LEN(ham$) 32IF LEN(ham$)<3ORLEN(ham$)>10THEN10ELSE35 35mam$=ham$+"|Cwelcome to alien Wanker" 36PRINT"|A IT IS A BLOODY BORING GAME!" 40FORz=1TOLEN(mam$):nam$=LEFT$(mam$,z):no=30*ASC(RIGHT$(nam$,1))-30*90:PRINT@9 (15,3)CHR$(6)+nam$:FORi=1TO5:SOUNDno,2:SOUNDno-100,2:NEXTi:NEXTz 45REM makeing lowercase initial uppercase 50nam$=ham$ 60nama$=LEFT$(nam$,1):namb$=RIGHT$(nam$,LEN(nam$)-1) 70nama=(ASC(nama$)-32):nama$=CHR$(nama) 80nam$=nama$+namb$ 100DIMx(50):DIMy(50):9 DIMD$(5):DIMs$(10):DIMG$(100):DIMg(100):DIMSP$(10) 105GOSUB10200 110PRINT@(3,4)CHR$(8)+CHR$(13)+CHR$(1)+"WELCOME to STARBASE central:" 120PRINT@(5,9)CHR$(1)+CHR$(13)+CHR$(8)+"alpha sector" 130REM star coordinate record and plot 140SELECT2:CLS:COLOR7:FO9 Rz=1TO50:x(z)=RND(218)+10:y(z)=RND(177)+25:SET(y(z),x(z)):NEXTz 160AL$=CHR$(2)+CHR$(127) 170a=10:b=230:c=203:d=24:s=0:fu=25:fp1=104:fp2=118:fpy1=200:fpx1=11:fpx2=229:t=0:lfu=25:atak=0:slden=25:ipy=100:ipx=100:hrm=2:vrm=2 175t$=CHR$(1)+CHR$(8)+"targetin9 g ":f$=CHR$(2)+"fuel" 180COLOR4:LINE d,a,d,b,c,b,c,a,d,a 190COLOR2:LINEd,234,c,234,c,237,d,237 250DISPLAY2 253COLOR2:FORz=203TO24STEP-1:LINEz,234,z,237:NEXTz 255GOSUB10000 260SELECT1:CLS 270PRINT@(0,0)CHR$(5)+CHR$(13)+"Starship Voyager 1:" 280PRINT@(291,0)CHR$(3)+"Navigation" 290PRINT@(0,35);f$ 295REM end of drawup begin game 300SELECT4:CLS:DISPLAY4 310a$=INCH$:a=ASC(a$) 320IF fu=202ORfu>203THENt=0:IFgc=0THENGOSUB900 340IFa=100ORa=68THENdr=1:GOSUB16000 350IFa=55THENs=1 355IF atak=1THENGOSUB1000:REM 9atak is on 380IF fu>=160THENGOSUB580 430IFa=48ANDt=1THENn=1:GOSUB500:GOSUB1010 440IFa=84ORa=116THENGOSUB520 444IFa=53THENsld=0:PRINT@(22,17)CHR$(9)+" " 449IFa=51THENPRINT@(12,10)CHR$(5)+CHR$(8)+"Self destruct ":GOSUB5070:GOTO910 450IFa=110ORa=78THENn=: n+1:GOSUB530 451IFa=49THENPRINT@(21,27)CHR$(6)+CHR$(9)+"Shields":sld=1ELSEIFsld=0THENPRINT@(21,25)CHR$(9)+" " 452GOSUB585 453GOSUB586 454GOSUB820 455GOSUB587 460GOSUB600 461GOSUB720 462GOSUB2000 464GOSUB3000 466GOSUB4000 468GOSUB5000 469GOSUB1000 485G: OSUB5010 486GOSUB5050 490GOTO310 500IFdr=1THENRETURNELSEIFn>1THENRETURNELSECOLOR1:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:FORz=1TO5:SOUND710,2:SOUND610+(z*5),2:NEXTz 510COLOR0:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:fu=fu+3:IF fu=201ORfu>20: 2THEN fu=202:RETURN 520PRINT@(10,17)CHR$(3)+CHR$(8)+"+":PRINT@(10,16)CHR$(9):PRINT@(10,18)CHR$(9):t=1:n=0:dr=0:PRINT@(21,0);t$;:RETURN 530IFn>1THENRETURNELSESELECT2:COLOR0:FORz=10TO203:LINEz,234,z,237:NEXTz:PRINT@(10,17)" "+" ":PRINT@(21,0)CHR$(3)+"na: vigation":n=1:t=0:COLOR2:FORz=203TOfuSTEP-1:LINEz,234,z,237:NEXTz:LINE24,234,fu,234,fu,237,24,237:SELECT4:RETURN 540REM begin death-no fuel 580IFfu<190THENPRINT@(0,33)CHR$(3)+CHR$(13)+CHR$(8)+"fuel"ELSEIFfu>190THENPRINT@(0,34)CHR$(1)+CHR$(8)+"fuel":IFs: =1THENRETURNELSEFORz=300TO170STEP-3: SOUNDz,1:NEXTz:RETURN 585IFsl>lsTHENAL$=CHR$(2)+CHR$(127) 586PRINT@(22,12)CHR$(9)+"|EAlert Code"+AL$;:RETURN 587PRINT@(22,26)CHR$(5)+":"+CHR$(2)+"Score";sc;:PRINT@(21,36)CHR$(4)+CHR$(9)+"ls";:RETURN 590REM spacies s:election 600IFatak=1ORsl>lsTHENRETURNELSEls=ls+1:st=RND(500):IFst>1ANDst<8THENatak=1ELSEatak=0 605IFatak=1THEN620ELSEAL$=CHR$(2)+CHR$(127):RETURN 617REM sets the alert code due to the kind of ship selected 620IF st=1THENAL$=CHR$(1)+CHR$(127) 630IF st=2:THENAL$=CHR$(1)+CHR$(127) 640IF st=3THENAL$=CHR$(4)+CHR$(127) 650IF st=4THENAL$=CHR$(4)+CHR$(127) 660IFst=5THENAL$=CHR$(2)+CHR$(127) 670IFst=6THENAL$=CHR$(4)+CHR$(127) 680IFst=7THENAL$=CHR$(2)+CHR$(127) 690IFst=8THENAL$=CHR$(4)+CHR$(127) 695IFst>8THENA:L$=CHR$(2)+CHR$(127) 696IFst>8THENAL$=CHR$(2)+CHR$(127):RETURN 697SOUND200,4:PRINT@(22,13)"|EAlert Code"+AL$:FORz=1TO400:ab$=INCH$:IFASC(ab$)=49THENsld=1ELSENEXTz 698WAIT(400-z) 699IFsld=1THENPRINT@(21,28)"|FShields" 700ONstGOSUB15000,15010,15020,15030: ,15040,15050,15060,15070,15080 710RETURN 720sw=sw+1:IFsw<(RND(8)+10)THENRETURNELSEIFatak=0THENRETURNELSEww=RND(2):IFww=2THENhrm=-hrm 730ww=RND(2):IFww=2THENvrm=-vrm:sw=0:RETURN 800RETURN 810REM arrows to indecate direction 820IFa=8THENd$=CHR$(2)+CHR$(9: 1) 822IFa=0THENd$=CHR$(2)+CHR$(34) 825IFa=24THENd$=CHR$(2)+CHR$(95) 830IFa=9THENd$=CHR$(2)+CHR$(93) 840IFa=25THENd$=CHR$(2)+CHR$(94) 850PRINT@(19,18)d$;:RETURN 900gc=1:PRINT@(10,10)CHR$(13)+CHR$(8)+CHR$(1)+"Out Of Fuel" 905FORz=1TO5000:NEXTz 910CLS:SEL: ECT1:CLS 920PRINT@(7,0)CHR$(3)+CHR$(29) 930END:REM music and death 1000IFatak=0THENRETURNELSEDISPLAY4:COLORzz:DRAW@(ipy,ipx)aa$:REM if point to check for hit 1003REM you killed a poor innocent spacie 1005RETURN 1010IFatak=0THENRETURNELSEIFABS(107-ipx)<: ACTHEN1020ELSERETURN 1020IFABS(110-ipy)202THENsld=0:PRINT@(21,27)" " 5060RETURN 5070FORz=1TO20:FORi=1TO5:SOUND470,2:SOUND370,2:NEXTi:FORqq=1TO50:NEXTqq:NEXTz:FORqq=1TO2:FORz=1TO7:BACKGz:SOUND5000,1:FORtt=1TO90:NEXTtt:NEXTz:NEXTqq:RETURN 7010RETURN 8511RETURN 9999RE;M title and theme music(by j jolly) 10000PRINT@(0,0)CHR$(3)+CHR$(13)+"Starship Voyager 1:";:a=1141:g=1281:f=1438:e=1523:d=1710:c=1812:A=2283:G=2562:C=3624:D=3421:F=2876:E=3042 10010REM end of program 10020SOUNDa,9 10030SOUNDg,9 10040SOUNDa,70 10050SOUN;Dg,9 10060SOUNDf,7 10070SOUNDe,7 10080SOUNDd,7 10090SOUNDc,50 10100SOUNDd,75 10110WAIT40 10120SOUNDA,17 10130SOUNDG,17 10140SOUNDA,70 10150SOUNDE,25 10160SOUNDF,25 10170SOUNDC,30 10180SOUNDD,160 10190RETURN 10200FOR z=1TO13:READg:G$=G$+CHR$(g):NEXTz 10;210FORx=1TO13:READh:H$=H$+CHR$(h):NEXTx 10220FORz=1TO24:READg(3):G$(3)=G$(3)+CHR$(g(3)):NEXTz 10230FORz=1TO25:READg(4):G$(4)=G$(4)+CHR$(g(4)):NEXTz 10231FORz=1TO25:READg(5):G$(5)=G$(5)+CHR$(g(5)):NEXTz 10232FORz=1TO25:READg(6):G$(6)=G$(6)+CHR$(g(6)):NE;XTz 10233FORz=1TO25:READg(7):G$(7)=G$(7)+CHR$(g(7)):NEXTz 10240DATA 1,32,127,127,127,127,32,32,127,127,32,32,127 10250DATA 1,127,32,32,32,32,127,32,32,127,32,32,32 10260DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,32,127,127,127,32,32,32,127,127,1;27 10270DATA 1,127,127,127,127,127,127,32,32,127,32,32,127,32,127,32,32,32,127,32,127,32,32,32,127 10280DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,127,127,127,32,32,127,32,32,32,127 10290DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,;32,32,32,32,32,127,32,32,32,127 10300DATA 1,127,32,32,32,32,127,32,127,127,127,32,127,32,32,127,127,127,127,32,127,32,32,32,127 10310REM raiders 10320FORz=1TO21:READg(8):G$(8)=G$(8)+CHR$(g(8)):NEXTz 10330FORz=1TO21:READg(9):G$(9)=G$(9)+CHR$(g(9)):NEXTz; 10340FORz=1TO21:READg(10):G$(10)=G$(10)+CHR$(g(10)):NEXTz 10350FORz=1TO32:READg(11):G$(11)=G$(11)+CHR$(g(11)):NEXTz 10360FORz=1TO33:READg(12):G$(12)=G$(12)+CHR$(g(12)):NEXTz 10370FORz=1TO29:READg(13):G$(13)=G$(13)+CHR$(g(13)):NEXTz 10380FORz=1TO29:REA; Dg(14):G$(14)=G$(14)+CHR$(g(14)):NEXTz 10390FORz=1TO29:READg(15):G$(15)=G$(15)+CHR$(g(15)):NEXTz 10400DATA1,32,127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10410DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,127,32,32,32,32,32,127 104; !20DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10430DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,32,32,32,127,127,127 10440DATA1,127,127,127,127,127,32,32,127,32,32,32,127,32,1; "27,32,127,32,32,32,127,32,127,32,32,32,127,32,127,32,32,32,127 10450DATA 1,127,32,32,127,32,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,127,127,127,32,32,127 10460DATA 1,127,32,32,32,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32; #,127,32,32,32,32,32,127 10470DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,127,32,127 10480SELECT1:CLS:PRINT@(0,0)CHR$(1)+CHR$(29) 10490PRINT@(20,0)CHR$(1)+CHR$(29) 10500PRINT@(2,3)G$:PRINT@(3,3)H$:PRIN; $T@(4,3)G$(3):PRINT@(5,3)G$(4):PRINT@(6,3)G$(5):PRINT@(7,3)G$(6):PRINT@(8,3)G$(7):PRINT@(11,3)G$(8):PRINT@(12,3)G$(9):PRINT@(13,3)G$(10):PRINT@(14,3)G$(11):PRINT@(15,3)G$(12):PRINT@(16,3)G$(13) 10510PRINT@(17,3)G$(14):PRINT@(18,3)G$(15) 10520FORz=1TO100;%0:NEXTz 10530BS$=CHR$(19)+"890" 10540FORmo=1TO35:PRINT@(22,mo)BS$;:SOUND600,1:SOUND500,1:WAIT7:NEXTmo:PRINT@(22,34)" ";:FORi=1TO1000:NEXTi 10550PRINT@(22,0)CHR$(5)+"Press"+"|CEnter"+"|Eto start"+"|CPause"+"|Einstructions"; 10560ON KEY 11 GOTO 10600 10;&565ON KEY 12 GOTO 10570 10566GOTO10560 10570SELECT1:CLS:RETURN 10600SELECT1:CLS:PRINT@(0,4)CHR$(13)+"|EInstructions page one" 10610PRINT@(3,0)"|CThe year was 2045 and the Fly-human" 10620PRINT@(4,0)"|Cwar's had just begun. The planet Earth" 10630PRINT@<'(5,0)"|Cdidn't have technology that was " 10640PRINT@(6,0)"|Csufficient to defeat the Kzin and the" 10650PRINT@(7,0)"|Cgalactic area of Known Space was " 10660PRINT@(8,0)"|Ccaptured by Kzin colonialists from the" 10670PRINT@(9,0)"|Cgalactic core." 1068<(0PRINT@(10,0)"|CThe year is now 2500 and the earth has" 10690PRINT@(11,0)"|Crecaptured Known Space." 10700PRINT@(12,0)"|F"+nam$+"|Cyou have trained and joined " 10710PRINT@(13,0)"|Can elite groop of strike pilots called" 10720PRINT@(14,0)"|BWANKING Ali<)en Raiders"+"|C,you and your groop must" 10730PRINT@(15,0)"|Cmust defend the area of known space " 10740PRINT@(16,0)"|Cfrom the Kzinti warships" 10750PRINT@(18,0)"|FThe people of earth and the belt" 10760PRINT@(19,0)"|Fcolonies wish you and your team t<*he best" 10770PRINT@(20,0)"|Fof luck and gods blessing.So do I-(DORK)" 10780PRINT@(22,0)"|E press any key for next page" 10790a$=INCH$:IFa$=CHR$(0)THEN10790ELSECLS 10800PRINT@(0,4)CHR$(13)+"|EInstructions page two" 10810PRINT@(3,0)"|CThe Voyager One i<+s a"+" |BBussard Ramscoop" 10820PRINT@(4,0)"|Cfusion powered strike craft equiped with" 10830PRINT@(5,0)"|D Three preselected matter seeking " 10840PRINT@(6,0)"|DAntimatter bombs" 10850PRINT@(7,0)"|Dand a shotgun" 10860PRINT@(8,0)"|CThe bombs will de<,stroy an enemy ship" 10870PRINT@(9,0)"|Cat the push of a button. The lasers " 10880PRINT@(10,0)"|Cwill destroy the ships if you get a " 10890PRINT@(11,0)"|Cdirect hit. To refuel-get bounty on" 10900PRINT@(12,0)"|Cany ships destroyed or FUCK YOURSELF" 1<-0910PRINT@(13,0)"|CDrive to your nearest space station" 10920PRINT@(22,0)"|EPress any key for next page" 10930a$=INCH$:IFa$=CHR$(0)THEN10930 10940CLS 10950PRINT@(0,5)"|CThe Enemy assult force..." 10960PRINT@(4,0)CHR$(17)+"(ppvstp8"+CHR$(2)+"Enemy Destr<.oyer"+"|F:10 credits" 10970PRINT@(6,0)CHR$(17)+"f9"+CHR$(2)+"......Enemy scout ship"+"|F:5 credits" 12900PRINT@(22,0)"|EPress any key for next page" 12905a$=INCH$:IFa$=CHR$(0)THEN12905 12910CLS 12920PRINT@(0,5)CHR$(13)+"|EInstructions page four" 12930P< /RINT@(3,0)"|CThe Ships controls and capacities" 12940PRINT@(5,0)"|ET"+"|F....Targeting" 12950PRINT@(6,0)"|EN"+"|F....Navigation" 12960PRINT@(7,0)"|ES"+"|F....Status check and Damage report" 12970PRINT@(8,0)"|EB"+"|F....Beacon on" 12980PRINT@(9,0)"|EO"+< 0"|F....Beacon off" 12985PRINT@(10,0)"|ED"+"|F....Drive" 12990PRINT@(11,0)"|EM"+"|F....Mayday beacon" 13000PRINT@(12,0)"|E0"+"|F....Fire" 13010PRINT@(13,0)"|E1"+"|F....Shields" 13020PRINT@(14,0)"|E2"+"|F....Antimatter bombs" 13030PRINT@(15,0)"|E3"+"|A..< 1..Self Destruct Button" 13040PRINT@(16,0)"|E7"+"|F....Warning beacon off" 13050PRINT@(17,0)"|E8"+"|F....To dock with base station" 13060PRINT@(18,0)"|E9"+"|F....Points-Credits-fuel-Bombs" 13070PRINT@(19,0)CHR$(2)+CHR$(93)+"|F....Right" 13080PRINT@(20,0< 2)CHR$(2)+CHR$(91)+"|F....Left" 13090PRINT@(21,0)CHR$(2)+CHR$(94)+"|F....Up" 13100PRINT@(22,0)CHR$(2)+CHR$(95)+"|F....Down" 13110PRINT@(23,0)"|EPress any key for next page";:a$=INCH$:IFa$=CHR$(0)THEN13110 13120CLS:PRINT@(0,5)CHR$(13)+"|EInstructions pag< 3e five" 13130PRINT@(4,0)"|CThe ships capabilities cont" 13140PRINT@(6,0)"|E4"+"|F....Shields off" 13150PRINT@(7,0)"|E5"+"|F....For alternate control panell" 13160PRINT@(8,0)"|ES"+"|F.... To select station drive" 13980PRINT@(23,0)"|EPress any key to sta<4rt";:a$=INCH$:IFa$=CHR$(0)THEN13980 13990SELECT1:CLS:RETURN 14000CLS:REM explosion data-enemy ship dies 14010ex$=LDES$(5,40,5,40;3,30,3,30;3,7,3,7;12,17,12,17;20,8,20,8;20,12,20,12;17,12,17,12;30,5,30,5;30,19,30,19;12,20,12,20;19,28,19,28;13,28,13,28;1<57,18,17,18) 14020ey$=LDES$(0,14,0,14;5,14,5,14;7,9,7,9;0,40,0,40;18,38,18,38;9,55,9,55;5,13,5,13;7,25,7,25;14,48,14,48;4,38,4,38;17,32,17,32;9,18,9,18;4,11,4,11;6,32,6,32;8,37,8,37) 14030ez$=LDES$(50,20,50,20;50,12,50,12;30,9,30,9;40,17,40,17;40,17,40,=617;50,45,50,45;40,6,40,6;30,28,30,28;38,34,38,34;30,42,30,42;40,12,40,12;38,19,38,19;25,24,25,24) 14040ew$=LDES$(100,10,100,10;80,10,80,10;80,70,80,70;84,40,84,40;60,35,60,35;70,50,70,50;90,60,90,60;90,90,90,90;60,60,60,60;65,70,65,70;60,90,60,90;55,75=7,55,75;60,35,60,35;110,60,110,60;105,40,105,40) 14050ev$=LDES$(30,0,30,0;10,20,10,20;15,45,15,45;5,65,5,65;15,85,15,85;45,95,45,95;40,35,40,35;45,50,45,50;40,70,40,70;45,55,45,55;49,65,49,65;50,50,50,50;60,60,60,60;55,45,55,45;50,60,50,60) 15000CLS 150=810aa$=LDES$(3,0,4,1,4,4;4,5,3,5;5,6,5,13,4,14,4,6;6,7,6,8;6,11,6,12;4,15,4,18,3,19;3,6,3,7;3,12,3,14;2,6,2,13;1,8,0,8;1,11,0,11) 15015zz=1:AC=7+dac:ls=RND(20):RETURN 15020aa$=LDES$(3,0,3,20;2,4,2,5;2,7,2,13;1,8,1,12;0,9,0,11;2,15,2,16;4,5,5,6,4,7;4,13,=95,14,4,15) 15025zz=1:AC=7+dac:ls=RND(20):RETURN 15030aa$=LDES$(5,0,5,2;5,4,5,8;5,10,5,12;6,2,6,4;6,8,6,10;4,1,4,11;3,4,3,8;2,5,2,7;0,3,1,4;0,9,1,8) 15035zz=1:AC=7+dac:ls=RND(20):RETURN 15040aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0=:,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15045zz=1:AC=7+dac:ls=RND(20):RETURN 15050aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15055zz=4:AC=7+dac:ls=RND(20):RETURN 15060=;aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15065zz=7:AC=7+dac:ls=RND(20):RETURN 15070aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7=<,4,7,7,6,7,8,5,8,6) 15075zz=7:AC=7+dac:ls=RND(20):RETURN 15080aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15085zz=7:AC=7+dac:ls=RND(20):RETURN 15900RETURN 16000REM drive 16005IFt=1O==Rsld=1THENRETURNELSECLS 16010sl=0:PRINT@(21,0)"|FDrive ":PRINT@(9,7)CHR$(13)+"|EDrive Screen Engaged" 16055COLOR1:FORz=24TO203:LINEz,10,z,230:SOUND1440,1:NEXTz 16056WAIT100 16060FORz=1000TO200STEP-2:SOUNDz,2:NEXTz 16070FORq=1TO200:SOUNDz,2:NEXTq 160805>FORz=200TO800STEP2:SOUNDz,2:NEXTz 16090PRINT@(9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz = 10BACKG1 20A$=LDES$(17,129,17,369,39,369,39,129,17,129) 30COLOUR2 40CLS 50PRINT@(2,8);"|E|H|MWELCOME TO E-Z DRAW" 60SELECT 5:CLS:DISPLAY 5:CLS 70FILL A$ 80COLOR2 90FOR I=1 TO 242:LINE 16,I+128,16,I+128:NEXT I 100FOR I=16 TO 40:LINE I,370,I,370:NEXT 110= I=371 120I=I-1:LINE 40,I,40,I:IF I=128 THEN GOTO 130 ELSE GOTO 120 130I=40 140I=I-1:LINE I,128,I,128:IF I=16 THEN GOTO 150 ELSE GOTO 140 150COLOR1:FILL A$ 160SELECT1:DISPLAY1 170PRINT@(10,0);"|DWOULD YOU LIKE INSTRUCTIONS?...(Y or N)" 180B$=INCH$ 190I= F B$="N" THEN GOTO 360 200IF B$="Y" THEN GOTO 220 210GOTO 180 220PRINT"THIS PROGAM IS MADE SOLELY FOR THE ACCESS OF DRAWING AT YOUR FINGER TIPS."  230 PRINT"YOUR CONTROLS ARE:" 240PRINT "THE FOUR YELLOW DIRECTIONAL ARROWS;" 250PRINT"THE BUTTONS:5,6,2,= 3, FOR DIAGONAL DIRECTION;" 260PRINT "THE ENTER BUTTON TO CHANGE COLOR;" 270PRINT"THE DECIMAL POINT BUTTON,TO ERRASE;" 280PRINT"BECAREFUL NOT TO LEAVE THE SCREEN." 290SELECT2:DISPLAY2  300WAIT 1500 310PRINT@(21,10)"HAPPY DRAWING!" 320PRINT@(22,10)"PR=ESS-NEXT-" 330C$=INCH$ 340IFASC(C$)=19 THEN GOTO 360 350GOTO330 360CLEAR 365BACKG2 370CLS:CLEAR:SELECT4:CLS 380CLS:DISPLAY2:CLS:DISPLAY4:CLS:SELECT 2:MIX ON 390DIM A(2843) 400I=1 410CLS 420BACKG3 430X=0:Y=0:C=1 440REM RETURNING 450IF XXX THEN A(I)=1 470IF A(I)<>0 THEN GOTO 530 480IF Y>YY THEN A(I)=2 490IF YCC THEN A(I)=C+10 510IF CYY THEN A(I)=A(I)+100 540IF YCHR$(13>)THEN640 560YY=Y:XX=X:CC=C 570B$=INCH$:C$=B$ 580IF B$="E" THEN GOTO 720 590IFB$=CHR$(53)THENB$=CHR$(25):C$=CHR$(8) 600IF B$=CHR$(46)THENC=0:COLOR0 610IFB$=CHR$(50)THENB$=CHR$(24):C$=CHR$(8) 620IFB$=CHR$(51)THENB$=CHR$(24):C$=CHR$(9) 630IFB$=CHR$(54)THE>NB$=CHR$(25):C$=CHR$(9) 640IFB$=CHR$(25)THENY=Y-1 650IFB$=CHR$(24)THENY=Y+1 660IFC$=CHR$(8)THENX=X-1 670IFC$=CHR$(9)THENX=X+1 680IFB$=CHR$(13)THENC=C+1:IF C=8 THEN C=0  690IF A(I)=0 THEN GOTO 710 700I=I+1: IF I=2845 THEN GOTO 720 702IF C=0 THEN SELECT> 2:DISPLAY2:COLORC:SETX,Y:SELECT4:DISPLAY4 710COLORC:SET(Y,X):GOTO440 720CLS 730WAIT 40 740X=0:Y=0 750SELECT 2:CLS:DISPLAY2:CLS 760CLS:SELECT4:DISPLAY4 770CLS 780COLOR1 790FOR F=1 TO I 800IF A(F)>9 AND A(F)<20 THEN COLORA(F)-10:C=A(F)-10 810IF A(F)=1 T> HEN X=X+1 820IF A(F)=-1 THEN X=X-1 830IF A(F)=2 THEN Y=Y+1 840IF A(F)=-2 THEN Y=Y-1 850IF A(F)=101 THEN X=X+1:Y=Y+1 860IF A(F)=-99 THEN X=X+1:Y=Y-1 870IF A(F)=99 THEN X=X-1:Y=Y+1 880IF A(F)=-101 THEN X=X-1:Y=Y-1 890SET(Y,X):NEXT F 900PRINT@(0,10);"|DB |HCONTINUE?" 910B$=INCH$ 915IF B$=CHR$(0) THEN GOTO 910 920IF B$="Y" THEN PRINT@(0,10);" ":GOTO 440 930PRINT"OK":WAIT 100 >0REM dac=difficulty of the game:AC must change for ship size:slden=the sheld energy 1CLS 2CLEAR:dac=7:ls=RND(20):CLS 10ham$="":PRINT@(10,4)CHR$(13)+"|EYour Christian Name Please" 20a$=INCH$:IFa$=CHR$(0)THEN20 25IFASC(a$)=13THEN31ELSE30 30ham$=ham$+a$:>SOUND1000,2:GOTO20 31we=LEN(ham$) 32IF LEN(ham$)<3ORLEN(ham$)>10THEN10ELSE35 35mam$=ham$+"|Cwelcome to alien raider" 40FORz=1TOLEN(mam$):nam$=LEFT$(mam$,z):no=30*ASC(RIGHT$(nam$,1))-30*90:PRINT@(15,3)CHR$(6)+nam$:FORi=1TO5:SOUNDno,2:SOUNDno-100,2:NEXTi>:NEXTz 45REM makeing lowercase initial uppercase 50nam$=ham$ 60nama$=LEFT$(nam$,1):namb$=RIGHT$(nam$,LEN(nam$)-1) 70nama=(ASC(nama$)-32):nama$=CHR$(nama) 80nam$=nama$+namb$ 100DIMx(50):DIMy(50):DIMD$(5):DIMs$(10):DIMG$(100):DIMg(100):DIMSP$(10) 105GOSU> B10200 110PRINT@(3,4)CHR$(8)+CHR$(13)+CHR$(1)+"WELCOME to starbase central:" 120PRINT@(5,9)CHR$(1)+CHR$(13)+CHR$(8)+"alpha sector" 130REM star coordinate record and plot 140SELECT2:CLS:COLOR7:FORz=1TO50:x(z)=RND(218)+10:y(z)=RND(177)+25:SET(y(z),x(z)):> NEXTz 160AL$=CHR$(2)+CHR$(127) 170a=10:b=230:c=203:d=24:s=0:fu=25:fp1=104:fp2=118:fpy1=200:fpx1=11:fpx2=229:t=0:lfu=25:atak=0:slden=25:ipy=100:ipx=100:hrm=2:vrm=2 175t$=CHR$(1)+CHR$(8)+"targeting ":f$=CHR$(2)+"fuel" 180COLOR4:LINE d,a,d,b,c,b,c,a,d,a > 190COLOR2:LINEd,234,c,234,c,237,d,237 250DISPLAY2 253COLOR2:FORz=203TO24STEP-1:LINEz,234,z,237:NEXTz 255GOSUB10000 260SELECT1:CLS 270PRINT@(0,0)CHR$(5)+CHR$(13)+"Starship Voyager 1:" 280PRINT@(21,0)CHR$(3)+"Navigation" 290PRINT@(0,35);f$ 295REM end of > drawup begin game 300SELECT4:CLS:DISPLAY4 310a$=INCH$:a=ASC(a$) 320IF fu=202ORfu>203THENt=0:IFgc=0THENGOSUB900 340IFa=100ORa=68THENdr=1:GOSUB16000 350IFa=55THENs=1 355IF atak=1THENGOSUB1000:REM atak is on 380IF fu>=160THENGOSUB580 430IFa=48ANDt=1THENn=> 1:GOSUB500:GOSUB1010 440IFa=84ORa=116THENGOSUB520 444IFa=53THENsld=0:PRINT@(22,17)CHR$(9)+" " 449IFa=51THENPRINT@(12,10)CHR$(5)+CHR$(8)+"Self destruct ":GOSUB5070:GOTO910 450IFa=110ORa=78THENn=n+1:GOSUB530 451IFa=49THENPRINT@(21,27)CHR$(6)+CHR$(9)+"Sh> ields":sld=1ELSEIFsld=0THENPRINT@(21,25)CHR$(9)+" " 452GOSUB585 453GOSUB586 454GOSUB820 455GOSUB587 460GOSUB600 461GOSUB720 462GOSUB2000 464GOSUB3000 466GOSUB4000 468GOSUB5000 469GOSUB1000 485GOSUB5010 486GOSUB5050 490GOTO310 500IFdr=1THENRETURNELSEIF> n>1THENRETURNELSECOLOR1:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:FORz=1TO5:SOUND710,2:SOUND610+(z*5),2:NEXTz 510COLOR0:LINEfpy1,fpx1,fp1,fp2:LINEfpy1+2,fpx2,fp1,fp2:fu=fu+3:IF fu=201ORfu>202THEN fu=202:RETURN 520PRINT@(10,17)CHR$(3)+CHR$(8)+"+":PR? INT@(10,16)CHR$(9):PRINT@(10,18)CHR$(9):t=1:n=0:dr=0:PRINT@(21,0);t$;:RETURN 530IFn>1THENRETURNELSESELECT2:COLOR0:FORz=10TO203:LINEz,234,z,237:NEXTz:PRINT@(10,17)" "+" ":PRINT@(21,0)CHR$(3)+"navigation":n=1:t=0:COLOR2:FORz=203TOfuSTEP-1:LINEz,234,z,23? 7:NEXTz:LINE24,234,fu,234,fu,237,24,237:SELECT4:RETURN 540REM begin death-no fuel 580IFfu<190THENPRINT@(0,33)CHR$(3)+CHR$(13)+CHR$(8)+"fuel"ELSEIFfu>190THENPRINT@(0,34)CHR$(1)+CHR$(8)+"fuel":IFs=1THENRETURNELSEFORz=300TO170STEP-3: SOUNDz,1:NEXTz:RETURN? 585IFsl>lsTHENAL$=CHR$(2)+CHR$(127) 586PRINT@(22,12)CHR$(9)+"|EAlert Code"+AL$;:RETURN 587PRINT@(22,26)CHR$(5)+":"+CHR$(2)+"Score";sc;:PRINT@(21,36)CHR$(4)+CHR$(9)+"ls";:RETURN 590REM spacies selection 600IFatak=1ORsl>lsTHENRETURNELSEls=ls+1:st=RND(50?0):IFst>1ANDst<8THENatak=1ELSEatak=0 605IFatak=1THEN620ELSEAL$=CHR$(2)+CHR$(127):RETURN 617REM sets the alert code due to the kind of ship selected 620IF st=1THENAL$=CHR$(1)+CHR$(127) 630IF st=2THENAL$=CHR$(1)+CHR$(127) 640IF st=3THENAL$=CHR$(4)+CHR$(1?27) 650IF st=4THENAL$=CHR$(4)+CHR$(127) 660IFst=5THENAL$=CHR$(2)+CHR$(127) 670IFst=6THENAL$=CHR$(4)+CHR$(127) 680IFst=7THENAL$=CHR$(2)+CHR$(127) 690IFst=8THENAL$=CHR$(4)+CHR$(127) 695IFst>8THENAL$=CHR$(2)+CHR$(127) 696IFst>8THENAL$=CHR$(2)+CHR$(127):RE?TURN 697SOUND200,4:PRINT@(22,13)"|EAlert Code"+AL$:FORz=1TO400:ab$=INCH$:IFASC(ab$)=49THENsld=1ELSENEXTz 698WAIT(400-z) 699IFsld=1THENPRINT@(21,28)"|FShields" 700ONstGOSUB15000,15010,15020,15030,15040,15050,15060,15070,15080 710RETURN 720sw=sw+1:IFsw<(?RND(8)+10)THENRETURNELSEIFatak=0THENRETURNELSEww=RND(2):IFww=2THENhrm=-hrm 730ww=RND(2):IFww=2THENvrm=-vrm:sw=0:RETURN 800RETURN 810REM arrows to indecate direction 820IFa=8THENd$=CHR$(2)+CHR$(91) 822IFa=0THENd$=CHR$(2)+CHR$(34) 825IFa=24THENd$=CHR$(2)?+CHR$(95) 830IFa=9THENd$=CHR$(2)+CHR$(93) 840IFa=25THENd$=CHR$(2)+CHR$(94) 850PRINT@(19,18)d$;:RETURN 900gc=1:PRINT@(10,10)CHR$(13)+CHR$(8)+CHR$(1)+"Out Of Fuel" 905FORz=1TO5000:NEXTz 910CLS:SELECT1:CLS 920PRINT@(7,0)CHR$(3)+CHR$(29) 930END:REM music a? nd death 1000IFatak=0THENRETURNELSEDISPLAY4:COLORzz:DRAW@(ipy,ipx)aa$:REM if point to check for hit 1003REM you killed a poor innocent spacie 1005RETURN 1010IFatak=0THENRETURNELSEIFABS(107-ipx)202THENsld=0:PRINT@(21,27)" " 50?60RETURN 5070FORz=1TO20:FORi=1TO5:SOUND470,2:SOUND370,2:NEXTi:FORqq=1TO50:NEXTqq:NEXTz:FORqq=1TO2:FORz=1TO7:BACKGz:SOUND5000,1:FORtt=1TO90:NEXTtt:NEXTz:NEXTqq:RETURN 7010RETURN 8511RETURN 9999REM title and theme music(by j jolly) 10000PRINT@(0,0)CHR$(3?)+CHR$(13)+"Starship Voyager 1:";:a=1141:g=1281:f=1438:e=1523:d=1710:c=1812:A=2283:G=2562:C=3624:D=3421:F=2876:E=3042 10010REM end of program 10020SOUNDa,9 10030SOUNDg,9 10040SOUNDa,70 10050SOUNDg,9 10060SOUNDf,7 10070SOUNDe,7 10080SOUNDd,7 10090SOUNDc@,50 10100SOUNDd,75 10110WAIT40 10120SOUNDA,17 10130SOUNDG,17 10140SOUNDA,70 10150SOUNDE,25 10160SOUNDF,25 10170SOUNDC,30 10180SOUNDD,160 10190RETURN 10200FOR z=1TO13:READg:G$=G$+CHR$(g):NEXTz 10210FORx=1TO13:READh:H$=H$+CHR$(h):NEXTx 10220FORz=1TO24:RE@ADg(3):G$(3)=G$(3)+CHR$(g(3)):NEXTz 10230FORz=1TO25:READg(4):G$(4)=G$(4)+CHR$(g(4)):NEXTz 10231FORz=1TO25:READg(5):G$(5)=G$(5)+CHR$(g(5)):NEXTz 10232FORz=1TO25:READg(6):G$(6)=G$(6)+CHR$(g(6)):NEXTz 10233FORz=1TO25:READg(7):G$(7)=G$(7)+CHR$(g(7)):NEXTz @10240DATA 1,32,127,127,127,127,32,32,127,127,32,32,127 10250DATA 1,127,32,32,32,32,127,32,32,127,32,32,32 10260DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,32,127,127,127,32,32,32,127,127,127 10270DATA 1,127,127,127,127,127,127,32,32,127,32,32,127@,32,127,32,32,32,127,32,127,32,32,32,127 10280DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,127,127,127,32,32,127,32,32,32,127 10290DATA 1,127,32,32,32,32,127,32,32,127,32,32,127,32,127,32,32,32,32,32,127,32,32,32,127 10300DATA 1,127,32,32,32,3@2,127,32,127,127,127,32,127,32,32,127,127,127,127,32,127,32,32,32,127 10310REM raiders 10320FORz=1TO21:READg(8):G$(8)=G$(8)+CHR$(g(8)):NEXTz 10330FORz=1TO21:READg(9):G$(9)=G$(9)+CHR$(g(9)):NEXTz 10340FORz=1TO21:READg(10):G$(10)=G$(10)+CHR$(g(10)):NEXTz@ 10350FORz=1TO32:READg(11):G$(11)=G$(11)+CHR$(g(11)):NEXTz 10360FORz=1TO33:READg(12):G$(12)=G$(12)+CHR$(g(12)):NEXTz 10370FORz=1TO29:READg(13):G$(13)=G$(13)+CHR$(g(13)):NEXTz 10380FORz=1TO29:READg(14):G$(14)=G$(14)+CHR$(g(14)):NEXTz 10390FORz=1TO29:REA@ Dg(15):G$(15)=G$(15)+CHR$(g(15)):NEXTz 10400DATA1,32,127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 10410DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,127,32,32,32,32,32,127 10420DATA 1,127,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32@!,32,32,32,127 10430DATA 1,127,32,32,32,32,127,32,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,32,32,32,127,127,127 10440DATA1,127,127,127,127,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,127,32,127,32,32,32@ ",127 10450DATA 1,127,32,32,127,32,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,127,127,127,32,32,127 10460DATA 1,127,32,32,32,127,32,32,127,32,32,32,127,32,127,32,127,32,32,32,127,32,127,32,32,32,32,32,127 10470DATA 1,127,32,32,32,32,127,32@ #,32,127,127,127,127,32,127,32,32,127,127,127,127,32,32,127,127,127,127,32,127 10480SELECT1:CLS:PRINT@(0,0)CHR$(1)+CHR$(29) 10490PRINT@(20,0)CHR$(1)+CHR$(29) 10500PRINT@(2,3)G$:PRINT@(3,3)H$:PRINT@(4,3)G$(3):PRINT@(5,3)G$(4):PRINT@(6,3)G$(5):PRINT@(7,3)@ $G$(6):PRINT@(8,3)G$(7):PRINT@(11,3)G$(8):PRINT@(12,3)G$(9):PRINT@(13,3)G$(10):PRINT@(14,3)G$(11):PRINT@(15,3)G$(12):PRINT@(16,3)G$(13) 10510PRINT@(17,3)G$(14):PRINT@(18,3)G$(15) 10520FORz=1TO1000:NEXTz 10530BS$=CHR$(19)+"890" 10540FORmo=1TO35:PRINT@(22@ %,mo)BS$;:SOUND600,1:SOUND500,1:WAIT7:NEXTmo:PRINT@(22,34)" ";:FORi=1TO1000:NEXTi 10550PRINT@(22,0)CHR$(5)+"Press"+"|CEnter"+"|Eto start"+"|CPause"+"|Einstructions"; 10560ON KEY 11 GOTO 10600 10565ON KEY 12 GOTO 10570 10566GOTO10560 10570SELECT1:CLS:RE@ &TURN 10600SELECT1:CLS:PRINT@(0,4)CHR$(13)+"|EInstructions page one" 10610PRINT@(3,0)"|CThe year was 2045 and the Kzinti-human" 10620PRINT@(4,0)"|Cwar's had just begun. The planet Earth" 10630PRINT@(5,0)"|Cdidn't have technology that was " 10640PRINT@(6@',0)"|Csufficient to defeat the Kzin and the" 10650PRINT@(7,0)"|Cgalactic area of Known Space was " 10660PRINT@(8,0)"|Ccaptured by Kzin colonialists from the" 10670PRINT@(9,0)"|Cgalactic core." 10680PRINT@(10,0)"|CThe year is now 2500 and the earth has"@( 10690PRINT@(11,0)"|Crecaptured Known Space." 10700PRINT@(12,0)"|F"+nam$+"|Cyou have trained and joined " 10710PRINT@(13,0)"|Can elite groop of strike pilots called" 10720PRINT@(14,0)"|BAilen Raiders"+"|C,you and your groop must" 10730PRINT@(15,0)"|CmuA)st defend the area of known space " 10740PRINT@(16,0)"|Cfrom the Kzinti warships" 10750PRINT@(18,0)"|FThe people of earth and the belt" 10760PRINT@(19,0)"|Fcolonies wish you and your team the best" 10770PRINT@(20,0)"|Fof luck and gods blessing.So do IA* (fly)" 10780PRINT@(22,0)"|E press any key for next page" 10790a$=INCH$:IFa$=CHR$(0)THEN10790ELSECLS 10800PRINT@(0,4)CHR$(13)+"|EInstructions page two" 10810PRINT@(3,0)"|CThe Voyager One is a"+" |BBussard Ramscoop" 10820PRINT@(4,0)"|Cfusion powered strA+ike craft equiped with" 10830PRINT@(5,0)"|D Three preselected matter seeking " 10840PRINT@(6,0)"|DAntimatter bombs" 10850PRINT@(7,0)"|Dand Twin pulse energy lasers" 10860PRINT@(8,0)"|CThe bombs will destroy an enemy ship" 10870PRINT@(9,0)"|Cat the puA,sh of a button. The lasers " 10880PRINT@(10,0)"|Cwill destroy the ships if you get a " 10890PRINT@(11,0)"|Cdirect hit. To refuel-get bounty on" 10900PRINT@(12,0)"|Cany ships destroyed or restock on bombs" 10910PRINT@(13,0)"|CDrive to your nearest spaceA- station" 10920PRINT@(22,0)"|EPress any key for next page" 10930a$=INCH$:IFa$=CHR$(0)THEN10930 10940CLS 10950PRINT@(0,5)"|CThe Enemy assult force..." 10960PRINT@(4,0)CHR$(17)+"(ppvstp8"+CHR$(2)+"Enemy Destroyer"+"|F:10 credits" 10970PRINT@(6,0)CHR$(17)A.+"f9"+CHR$(2)+"......Enemy scout ship"+"|F:5 credits" 12900PRINT@(22,0)"|EPress any key for next page" 12905a$=INCH$:IFa$=CHR$(0)THEN12905 12910CLS 12920PRINT@(0,5)CHR$(13)+"|EInstructions page four" 12930PRINT@(3,0)"|CThe Ships controls and capacitiesA/" 12940PRINT@(5,0)"|ET"+"|F....Targeting" 12950PRINT@(6,0)"|EN"+"|F....Navigation" 12960PRINT@(7,0)"|ES"+"|F....Status check and Damage report" 12970PRINT@(8,0)"|EB"+"|F....Beacon on" 12980PRINT@(9,0)"|EO"+"|F....Beacon off" 12985PRINT@(10,0)"|ED"+"|F.A0...Drive" 12990PRINT@(11,0)"|EM"+"|F....Mayday beacon" 13000PRINT@(12,0)"|E0"+"|F....Fire" 13010PRINT@(13,0)"|E1"+"|F....Shields" 13020PRINT@(14,0)"|E2"+"|F....Antimatter bombs" 13030PRINT@(15,0)"|E3"+"|A....Self Destruct Button" 13040PRINT@(16,0)"|E7"A 1+"|F....Warning beacon off" 13050PRINT@(17,0)"|E8"+"|F....To dock with base station" 13060PRINT@(18,0)"|E9"+"|F....Points-Credits-fuel-Bombs" 13070PRINT@(19,0)CHR$(2)+CHR$(93)+"|F....Right" 13080PRINT@(20,0)CHR$(2)+CHR$(91)+"|F....Left" 13090PRINT@(21,A 20)CHR$(2)+CHR$(94)+"|F....Up" 13100PRINT@(22,0)CHR$(2)+CHR$(95)+"|F....Down" 13110PRINT@(23,0)"|EPress any key for next page";:a$=INCH$:IFa$=CHR$(0)THEN13110 13120CLS:PRINT@(0,5)CHR$(13)+"|EInstructions page five" 13130PRINT@(4,0)"|CThe ships capabilitA 3ies cont" 13140PRINT@(6,0)"|E4"+"|F....Shields off" 13150PRINT@(7,0)"|E5"+"|F....For alternate control panell" 13160PRINT@(8,0)"|ES"+"|F.... To select station drive" 13980PRINT@(23,0)"|EPress any key to start";:a$=INCH$:IFa$=CHR$(0)THEN13980 13990SELECA 4T1:CLS:RETURN 14000CLS:REM explosion data-enemy ship dies 14010ex$=LDES$(5,40,5,40;3,30,3,30;3,7,3,7;12,17,12,17;20,8,20,8;20,12,20,12;17,12,17,12;30,5,30,5;30,19,30,19;12,20,12,20;19,28,19,28;13,28,13,28;17,18,17,18) 14020ey$=LDES$(0,14,0,14;5,14,5,14A 5;7,9,7,9;0,40,0,40;18,38,18,38;9,55,9,55;5,13,5,13;7,25,7,25;14,48,14,48;4,38,4,38;17,32,17,32;9,18,9,18;4,11,4,11;6,32,6,32;8,37,8,37) 14030ez$=LDES$(50,20,50,20;50,12,50,12;30,9,30,9;40,17,40,17;40,17,40,17;50,45,50,45;40,6,40,6;30,28,30,28;38,34,38,A634;30,42,30,42;40,12,40,12;38,19,38,19;25,24,25,24) 14040ew$=LDES$(100,10,100,10;80,10,80,10;80,70,80,70;84,40,84,40;60,35,60,35;70,50,70,50;90,60,90,60;90,90,90,90;60,60,60,60;65,70,65,70;60,90,60,90;55,75,55,75;60,35,60,35;110,60,110,60;105,40,105,40A7) 14050ev$=LDES$(30,0,30,0;10,20,10,20;15,45,15,45;5,65,5,65;15,85,15,85;45,95,45,95;40,35,40,35;45,50,45,50;40,70,40,70;45,55,45,55;49,65,49,65;50,50,50,50;60,60,60,60;55,45,55,45;50,60,50,60) 15000CLS 15010aa$=LDES$(3,0,4,1,4,4;4,5,3,5;5,6,5,13,4,14,B84,6;6,7,6,8;6,11,6,12;4,15,4,18,3,19;3,6,3,7;3,12,3,14;2,6,2,13;1,8,0,8;1,11,0,11) 15015zz=1:AC=7+dac:ls=RND(20):RETURN 15020aa$=LDES$(3,0,3,20;2,4,2,5;2,7,2,13;1,8,1,12;0,9,0,11;2,15,2,16;4,5,5,6,4,7;4,13,5,14,4,15) 15025zz=1:AC=7+dac:ls=RND(20):RETURB9N 15030aa$=LDES$(5,0,5,2;5,4,5,8;5,10,5,12;6,2,6,4;6,8,6,10;4,1,4,11;3,4,3,8;2,5,2,7;0,3,1,4;0,9,1,8) 15035zz=1:AC=7+dac:ls=RND(20):RETURN 15040aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,B:5,8,6) 15045zz=1:AC=7+dac:ls=RND(20):RETURN 15050aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15055zz=4:AC=7+dac:ls=RND(20):RETURN 15060aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,B;10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15065zz=7:AC=7+dac:ls=RND(20):RETURN 15070aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15075zz=7:AC=7+dac:ls=RND(B<20):RETURN 15080aa$=LDES$(11,0,0,0,0,1,11,1;5,2,5,3;5,8,5,9;0,10,11,10,11,11,0,11;4,4,3,4,3,7,4,7;2,5,2,6;6,4,7,4,7,7,6,7,8,5,8,6) 15085zz=7:AC=7+dac:ls=RND(20):RETURN 15900RETURN 16000REM drive 16005IFt=1ORsld=1THENRETURNELSECLS 16010sl=0:PRINT@(21,0)B="|FDrive ":PRINT@(9,7)CHR$(13)+"|EDrive Screen Engaged" 16055COLOR1:FORz=24TO203:LINEz,10,z,230:SOUND1440,1:NEXTz 16056WAIT100 16060FORz=1000TO200STEP-2:SOUNDz,2:NEXTz 16070FORq=1TO200:SOUNDz,2:NEXTq 16080FORz=200TO800STEP2:SOUNDz,2:NEXTz 16090PRINT@(/>9,7)" " 16100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz 16200slden=24:fu=24 19000RETURN 19100COLOR0:FORz=203TO24STEP-1:LINEz,10,z,230:SOUND1440,1:NEXTz C***JON*** , 226178 *JON STEVE* , 134116 ***JON*** , 69200 OLLY BENSUADE , 60247 LANCE NIXON =, 59360 B 10BACKG1 20A$=LDES$(17,129,17,369,39,369,39,129,17,129) 30COLOUR2 40CLS 50PRINT@(2,8);"|E|H|MWELCOME TO E-Z DRAW" 60SELECT 5:CLS:DISPLAY 5:CLS 70FILL A$ 80COLOR2 90FOR I=1 TO 242:LINE 16,I+128,16,I+128:NEXT I 100FOR I=16 TO 40:LINE I,370,I,370:NEXT 110B I=371 120I=I-1:LINE 40,I,40,I:IF I=128 THEN GOTO 130 ELSE GOTO 120 130I=40 140I=I-1:LINE I,128,I,128:IF I=16 THEN GOTO 150 ELSE GOTO 140 150COLOR1:FILL A$ 160SELECT1:DISPLAY1 170PRINT@(10,0);"|DWOULD YOU LIKE INSTRUCTIONS?...(Y or N)" 180B$=INCH$ 190IB F B$="N" THEN GOTO 360 200IF B$="Y" THEN GOTO 220 210GOTO 180 220PRINT"THIS PROGAM IS MADE SOLELY FOR THE ACCESS OF DRAWING AT YOUR FINGER TIPS."  230 PRINT"YOUR CONTROLS ARE:" 240PRINT "THE FOUR YELLOW DIRECTIONAL ARROWS;" 250PRINT"THE BUTTONS:5,6,2,B 3, FOR DIAGONAL DIRECTION;" 260PRINT "THE ENTER BUTTON TO CHANGE COLOR;" 270PRINT"THE DECIMAL POINT BUTTON,TO ERRASE;" 280PRINT"BECAREFUL NOT TO LEAVE THE SCREEN." 290SELECT2:DISPLAY2  300WAIT 1500 310PRINT@(21,10)"HAPPY DRAWING!" 320PRINT@(22,10)"PRB ESS-NEXT-" 330C$=INCH$ 340IFASC(C$)=19 THEN GOTO 360 350GOTO330 360CLEAR 365BACKG2 370CLS:CLEAR:SELECT4:CLS 380CLS:DISPLAY2:CLS:DISPLAY4:CLS:SELECT 2:MIX ON 390DIM A(2843) 400I=1 410CLS 420BACKG3 430X=0:Y=0:C=1 440REM RETURNING 450IF XXX THEN A(I)=1 470IF A(I)<>0 THEN GOTO 530 480IF Y>YY THEN A(I)=2 490IF YCC THEN A(I)=C+10 510IF CYY THEN A(I)=A(I)+100 540IF YCHR$(13B)THEN640 560YY=Y:XX=X:CC=C 570B$=INCH$:C$=B$ 580IF B$="E" THEN GOTO 720 590IFB$=CHR$(53)THENB$=CHR$(25):C$=CHR$(8) 600IF B$=CHR$(46)THENC=0:COLOR0 610IFB$=CHR$(50)THENB$=CHR$(24):C$=CHR$(8) 620IFB$=CHR$(51)THENB$=CHR$(24):C$=CHR$(9) 630IFB$=CHR$(54)THECNB$=CHR$(25):C$=CHR$(9) 640IFB$=CHR$(25)THENY=Y-1 650IFB$=CHR$(24)THENY=Y+1 660IFC$=CHR$(8)THENX=X-1 670IFC$=CHR$(9)THENX=X+1 680IFB$=CHR$(13)THENC=C+1:IF C=8 THEN C=0  690IF A(I)=0 THEN GOTO 710 700I=I+1: IF I=2845 THEN GOTO 720 702IF C=0 THEN SELECTC 2:DISPLAY2:COLORC:SETX,Y:SELECT4:DISPLAY4 710COLORC:SET(Y,X):GOTO440 720CLS 730WAIT 40 740X=0:Y=0 750SELECT 2:CLS:DISPLAY2:CLS 760CLS:SELECT4:DISPLAY4 770CLS 780COLOR1 790FOR F=1 TO I 800IF A(F)>9 AND A(F)<20 THEN COLORA(F)-10:C=A(F)-10 810IF A(F)=1 TC HEN X=X+1 820IF A(F)=-1 THEN X=X-1 830IF A(F)=2 THEN Y=Y+1 840IF A(F)=-2 THEN Y=Y-1 850IF A(F)=101 THEN X=X+1:Y=Y+1 860IF A(F)=-99 THEN X=X+1:Y=Y-1 870IF A(F)=99 THEN X=X-1:Y=Y+1 880IF A(F)=-101 THEN X=X-1:Y=Y-1 890SET(Y,X):NEXT F 900PRINT@(0,10);"|MC |HFUCK THE BITCH!" 910B$=INCH$ 915IF B$=CHR$(0) THEN GOTO 910 920IF B$="Y" THEN PRINT@(0,10);" ":GOTO 440 930PRINT"OK":WAIT 100 C10BACKG1 20A$=LDES$(17,129,17,369,39,369,39,129,17,129) 30COLOUR2 40CLS 50PRINT@(2,8);"|E|H|MWELCOME TO E-Z DRAW" 60SELECT 5:CLS:DISPLAY 5:CLS 70FILL A$ 80COLOR2 90FOR I=1 TO 242:LINE 16,I+128,16,I+128:NEXT I 100FOR I=16 TO 40:LINE I,370,I,370:NEXT 110CI=371 120I=I-1:LINE 40,I,40,I:IF I=128 THEN GOTO 130 ELSE GOTO 120 130I=40 140I=I-1:LINE I,128,I,128:IF I=16 THEN GOTO 150 ELSE GOTO 140 150COLOR1:FILL A$ 160SELECT1:DISPLAY1 170PRINT@(10,0);"|DWOULD YOU LIKE INSTRUCTIONS?...(Y or N)" 180B$=INCH$ 190ICF B$="N" THEN GOTO 360 200IF B$="Y" THEN GOTO 220 210GOTO 180 220PRINT"THIS PROGAM IS MADE SOLELY FOR THE ACCESS OF DRAWING AT YOUR FINGER TIPS."  230 PRINT"YOUR CONTROLS ARE:" 240PRINT "THE FOUR YELLOW DIRECTIONAL ARROWS;" 250PRINT"THE BUTTONS:5,6,2,C3, FOR DIAGONAL DIRECTION;" 260PRINT "THE ENTER BUTTON TO CHANGE COLOR;" 270PRINT"THE DECIMAL POINT BUTTON,TO ERRASE;" 280PRINT"BECAREFUL NOT TO LEAVE THE SCREEN." 290SELECT2:DISPLAY2  300WAIT 1500 310PRINT@(21,10)"HAPPY DRAWING!" 320PRINT@(22,10)"PRC ESS-NEXT-" 330C$=INCH$ 340IFASC(C$)=19 THEN GOTO 360 350GOTO330 360CLEAR 365BACKG2 370CLS:CLEAR:SELECT4:CLS 380CLS:DISPLAY2:CLS:DISPLAY4:CLS:SELECT 2:MIX ON 390DIM A(2843) 400I=1 410CLS 420BACKG3 430X=0:Y=0:C=1 440REM RETURNING 450IF XXX THEN A(I)=1 470IF A(I)<>0 THEN GOTO 530 480IF Y>YY THEN A(I)=2 490IF YCC THEN A(I)=C+10 510IF CYY THEN A(I)=A(I)+100 540IF YCHR$(13C )THEN640 560YY=Y:XX=X:CC=C 570B$=INCH$:C$=B$ 580IF B$="E" THEN GOTO 720 590IFB$=CHR$(53)THENB$=CHR$(25):C$=CHR$(8) 600IF B$=CHR$(46)THENC=0:COLOR0 610IFB$=CHR$(50)THENB$=CHR$(24):C$=CHR$(8) 620IFB$=CHR$(51)THENB$=CHR$(24):C$=CHR$(9) 630IFB$=CHR$(54)THEC NB$=CHR$(25):C$=CHR$(9) 640IFB$=CHR$(25)THENY=Y-1 650IFB$=CHR$(24)THENY=Y+1 660IFC$=CHR$(8)THENX=X-1 670IFC$=CHR$(9)THENX=X+1 680IFB$=CHR$(13)THENC=C+1:IF C=8 THEN C=0  690IF A(I)=0 THEN GOTO 710 700I=I+1: IF I=2845 THEN GOTO 720 702IF C=0 THEN SELECTC 2:DISPLAY2:COLORC:SETX,Y:SELECT4:DISPLAY4 710COLORC:SET(Y,X):GOTO440 720CLS 730WAIT 40 740X=0:Y=0 750SELECT 2:CLS:DISPLAY2:CLS 760CLS:SELECT4:DISPLAY4 770CLS 780COLOR1 790FOR F=1 TO I 800IF A(F)>9 AND A(F)<20 THEN COLORA(F)-10:C=A(F)-10 810IF A(F)=1 TC HEN X=X+1 820IF A(F)=-1 THEN X=X-1 830IF A(F)=2 THEN Y=Y+1 840IF A(F)=-2 THEN Y=Y-1 850IF A(F)=101 THEN X=X+1:Y=Y+1 860IF A(F)=-99 THEN X=X+1:Y=Y-1 870IF A(F)=99 THEN X=X-1:Y=Y+1 880IF A(F)=-101 THEN X=X-1:Y=Y-1 890SET(Y,X):NEXT F 900PRINT@(0,10);"|MB |HCONTINUE!"  910B$=INCH$ 915IF B$=CHR$(0) THEN GOTO 910 920IF B$="Y" THEN PRINT@(0,10);" ":GOTO 440 930PRINT"OK":WAIT 100 D***JON*** , 226178 *JON STEVE* , 134116 THE NIXS , 81056 ***JON*** , 69200 OLLY BENSUADE #, 60247 D ***JON*** , 226178 *JON STEVE* %, 134116 OLIVER BENSAUDE. , 94329 THE NIXS , 81056 ***JON*** , 69200 4***JON*** ', 226178 *JON STEVE* -, 134116 THE NIXS , 104254 OLIVER BENSAUDE. , 94329 THE NIXS , 81056 D10CLS:CLEAR:MIX ON 20SELECT5:CLS:DISPLAY5:CLS:MIX ON 30A$=LDES$(25,10,25,435,30,435,30,10,25,10) 40B$=LDES$(75,30,40,470,45,470,80,30,75,30) 50C$=LDES$(95,0,125,440,130,440,100,0,95,0) 60D$=LDES$(175,40,140,470,145,470,180,40,175,40) 70E$=LDES$(195,0,1D95,470,210,470,210,0,195,0)  80F$=LDES$(0,0,25,0) 90G$=LDES$(0,10,25,10) 100H$=LDES$(5,0,5,10) 110I$=LDES$(10,0,10,10) 120J$=LDES$(15,0,15,10) 130K$=LDES$(20,0,20,10) 140LAD$=F$+G$+H$+I$+J$+K$ 150BG$=LDES$(2,4,2,14,4,10,16,10,16,8,10,8,14,4,4,4,8,8,4,D8,2,4) 160BG1$=LDES$(2,4,2,14,4,10,8,10,4,14,14,14,10,10,16,10,16,8,4,8,2,4) 170COLOR1:FILLA$:FILLB$:FILLC$:FILLD$:FILLE$ 180SELECT2:DISPLAY2:MIX ON 190COLOR 4:DRAW @(120,193)LAD$ 200DRAW @(169,25)LAD$ 210DRAW @(20,198)LAD$ 220COLOR 2:DRAW @(30,220)BG$D 230DRAW @(130,220)BG$ 240DRAW @(82,10)BG1$ 250DRAW @(180,10)BG1$ 254SELECT 1:DISPLAY 1 255REM 260REM ********* MAIN SCREEN ********* 265REM 270REM ********* BALL & MAN ********* 275REM 280BALL$="|Un$" 290MAN$="|Rp"+CHR$(124)+"|R $"+"|W "+CHR$(127) 300DPRINT @(Y,X) MAN$;:PRINT"|X " 310IF SWI(0)=-128 THEN 425 315B$=INCH$ 322IF X=0THEN X=39:GOTO 300 323IFX=39THENX=0:GOTO 300 324IF Y=0THEN Y=22:GOTO 300 325IF Y=22THENY=0: GOTO 300 326GOTO 300 420B$=INCH$ 425IF B$=CHR$(8)THENGOTO470 430IF B$=CHR$(9)THENGOTO480 440IF B$=CHR$(24)THENGOTO490 450IF B$=CHR$(25)THENGOTO500 460CLS:GOTO 300 470X=X-1:GOTO322 480X=X+1:GOTO322 490Y=Y+1:GOTO 322 500Y=Y-1:GOTO 322 1000ONKEY 10 GOTO 1020 1010GOTO 1000 1020CLEAR:LIST255- D 10MAX=22 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,D 12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170X=(39-LEN(W$))/2 180FOR I=1 TO LEN(WD $):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 190PRINT@(22,5)"|B|HENTER LETTER PLEASE" 200J$=INCH$:IF ASC(J$)<1 THEN GOTO 200 210FOR I=1 TO LEN(W$) 220IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 230NEXT I 240IF C=0 THEN W=W+1 ELSE CC=CC+D C 250IF CC=LEN(W$) THEN GOTO 410 260C=0 270IF C>0 THEN GOTO 200 280IF W=10 THEN CLEAR:CLS:PRINT"SORRY YOUR DEAD THEN WORD WAS";W$:GOTO 420  290ON W GOSUB 310,320,330,340,350,360,370,380,390,400 300GOTO 200 310DRAW@(110,100)A$:RETURN 320FILL@(10,100)B$D:RETURN 330FILL@(5,100)C$:RETURN 340FILLD$:RETURN 350FILL@(21,244)E$:RETURN 360FILL@(35,241)F$:RETURN 370FILL@(37,262)G$:RETURN 380FILL@(37,231)H$:RETURN 390FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 400FILL@(59,241)H$:FILL@(71,238)I$:DRETURN 410CLS:PRINT"|D|M|HWELL DONE!!" 420CLEAR 430PRINT"|D|MPLAY AGAIN(Y/N)" 440B$=INCH$ 450IF ASC(B$)>0 THEN GOTO 470 460GOTO 440 470IF B$="Y" THEN CLEAR:GOTO 10 480IF B$<>"N" THEN GOTO 440 490END 500DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,ECAT,DOG,RAT,HAT 510DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN E10MAX=22 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,E12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170X=(39-LEN(W$))/2 180FOR I=1 TO LEN(WE$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 190PRINT@(22,5)"|B|HENTER LETTER PLEASE" 200J$=INCH$:IF ASC(J$)<1 THEN GOTO 200 210FOR I=1 TO LEN(W$) 220IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 230NEXT I 240IF C=0 THEN W=W+1 ELSE CC=CC+EC 250IF CC=LEN(W$) THEN GOTO 410 260C=0 270IF C>0 THEN GOTO 200 280IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD THEN WORD WAS";W$:GOTO 420  290ON W GOSUB 310,320,330,340,350,360,370,380,390,400 300GOTO 200 310DRAW@(110,100)A$:RETURN 320FILL@(10,100)B$:RETUREN 330FILL@(5,100)C$:RETURN 340FILLD$:RETURN 350FILL@(21,244)E$:RETURN 360FILL@(35,241)F$:RETURN 370FILL@(37,262)G$:RETURN 380FILL@(37,231)H$:RETURN 390FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 400FILL@(59,241)H$:FILL@(71,238)I$:RETURNE 410CLS:PRINT"|D|M|HWELL DONE!!" 420CLEAR 430PRINT"|D|MPLAY AGAIN(Y/N)" 440B$=INCH$ 450IF ASC(B$)>0 THEN GOTO 470 460GOTO 440 470IF B$="Y" THEN CLEAR:GOTO 10 480IF B$<>"N" THEN GOTO 440 490END 500DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,DOEG,RAT,HAT 510DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN E 10MAX=22 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,E 12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 165WW$=W$ 170X=(39-LEN(W$))/2 180FOR I=E 1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 190PRINT@(22,5)"|B|HENTER LETTER PLEASE" 200J$=INCH$:IF ASC(J$)<1 THEN GOTO 200 210FOR I=1 TO LEN(W$) 220IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 230NEXT I 240IF C=0 THEN W=W+1 EE LSE CC=CC+C 250IF CC=LEN(W$) THEN GOTO 410 260C=0 270IF C>0 THEN GOTO 200 280IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD THEN WORD WAS";WW$:GOTO 420  290ON W GOSUB 310,320,330,340,350,360,370,380,390,400 300GOTO 200 310DRAW@(110,100)A$:RETURN 320FILL@(10,1E 00)B$:RETURN 330FILL@(5,100)C$:RETURN 340FILLD$:RETURN 350FILL@(21,244)E$:RETURN 360FILL@(35,241)F$:RETURN 370FILL@(37,262)G$:RETURN 380FILL@(37,231)H$:RETURN 390FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 400FILL@(59,241)H$:FILL@(71,23E8)I$:RETURN 410CLS:PRINT"|D|M|HWELL DONE!!" 420CLEAR 430PRINT"|D|MPLAY AGAIN(Y/N)" 440B$=INCH$ 450IF ASC(B$)>0 THEN GOTO 470 460GOTO 440 470IF B$="Y" THEN CLEAR:GOTO 10 480IF B$<>"N" THEN GOTO 440 490END 500DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAXH,JIF,CAT,DOG,RAT,HAT 510DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN F10MAX=22 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,F12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 165WW$=W$ 170X=(39-LEN(W$))/2 180FOR I=F1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 190PRINT@(22,5)"|B|HENTER LETTER PLEASE" 200J$=INCH$:IF ASC(J$)<1 THEN GOTO 200 210FOR I=1 TO LEN(W$) 220IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 230NEXT I 240IF C=0 THEN W=W+1 EFLSE CC=CC+C 250IF CC=LEN(W$) THEN GOTO 410 260C=0 270IF C>0 THEN GOTO 200 280IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD THEN WORD WAS";WW$:GOTO 420  290ON W GOSUB 310,320,330,340,350,360,370,380,390,400 300GOTO 200 310DRAW@(110,100)A$:RETURN 320FILL@(10,1F00)B$:RETURN 330FILL@(5,100)C$:RETURN 340FILLD$:RETURN 350FILL@(21,244)E$:RETURN 360FILL@(35,241)F$:RETURN 370FILL@(37,262)G$:RETURN 380FILL@(37,231)H$:RETURN 390FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 400FILL@(59,241)H$:FILL@(71,23F8)I$:RETURN 410CLS:PRINT"|D|M|HWELL DONE!!" 420CLEAR 430PRINT"|D|MPLAY AGAIN(Y/N)" 440B$=INCH$ 450IF ASC(B$)>0 THEN GOTO 470 460GOTO 440 470IF B$="Y" THEN CLEAR:GOTO 10 480IF B$<>"N" THEN GOTO 440 490END 500DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAXF,JIF,CAT,DOG,RAT,HAT 510DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN,FUCK,DICK,PENIS, F10MAX=69 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,F 12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170WW$=W$ 180X=(39-LEN(W$))/2 190FOR I=F 1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 200PRINT@(22,5)"|B|HENTER LETTER PLEASE" 210J$=INCH$:IF ASC(J$)<1 THEN GOTO 210 220FOR I=1 TO LEN(W$) 230IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 240NEXT I 250IF C=0 THEN W=W+1 EF LSE CC=CC+C 260IF CC=LEN(W$) THEN GOTO 420 270C=0 280IF C>0 THEN GOTO 210 290IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 430  300ON W GOSUB 320,330,340,350,360,370,380,390,400,410 310GOTO 210 320DRAW@(110,100)A$:RETURN 330FILL@(10,100)B$:RETURN 340FIF LL@(5,100)C$:RETURN 350FILLD$:RETURN 360FILL@(21,244)E$:RETURN 370FILL@(35,241)F$:RETURN 380FILL@(37,262)G$:RETURN 390FILL@(37,231)H$:RETURN 400FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 410FILL@(59,241)H$:FILL@(71,238)I$:RETURN 420CLF S:PRINT"|D|M|HWELL DONE!!" 430PRINT"|D|MTHE WORD WAS ";W$ 440CLEAR 450PRINT"|D|MPLAY AGAIN(Y/N)" 460B$=INCH$ 470IF ASC(B$)>0 THEN GOTO 490 480GOTO 460 490IF B$="Y" THEN CLEAR:GOTO 10 500IF B$<>"N" THEN GOTO 460 510END 520DATA A,APPLE,POLY,CAT,MOUSE,FELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT 530DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 540DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 550DATA RED,GREEN,WHITE,PURPLE,BLACKF,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 560DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO G10MAX=69 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,G12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170WW$=W$ 180X=(39-LEN(W$))/2 190FOR I=G1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 200PRINT@(22,5)"|B|HENTER LETTER PLEASE" 210J$=INCH$:IF ASC(J$)<1 THEN GOTO 210 220FOR I=1 TO LEN(W$) 230IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 240NEXT I 250IF C=0 THEN W=W+1 EGLSE CC=CC+C 260IF CC=LEN(W$) THEN GOTO 420 270C=0 280IF C>0 THEN GOTO 210 290IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 430  300ON W GOSUB 320,330,340,350,360,370,380,390,400,410 310GOTO 210 320DRAW@(110,100)A$:RETURN 330FILL@(10,100)B$:RETURN 340FIGLL@(5,100)C$:RETURN 350FILLD$:RETURN 360FILL@(21,244)E$:RETURN 370FILL@(35,241)F$:RETURN 380FILL@(37,262)G$:RETURN 390FILL@(37,231)H$:RETURN 400FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 410FILL@(59,241)H$:FILL@(71,238)I$:RETURN 420CLGS:PRINT"|D|M|HWELL DONE!!" 430PRINT"|D|MTHE WORD WAS ";WW$ 440CLEAR 450PRINT"|D|MPLAY AGAIN(Y/N)" 460B$=INCH$ 470IF ASC(B$)>0 THEN GOTO 490 480GOTO 460 490IF B$="Y" THEN CLEAR:GOTO 10 500IF B$<>"N" THEN GOTO 460 510END 520DATA A,APPLE,POLY,CAT,MOUSEG,ELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT 530DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 540DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 550DATA RED,GREEN,WHITE,PURPLE,BLACHK,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 560DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO G 10MAX=69 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,G 12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170WW$=W$ 180X=(39-LEN(W$))/2 190FOR I=G 1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 200PRINT@(22,5)"|B|HENTER LETTER PLEASE" 210J$=INCH$:IF ASC(J$)<1 THEN GOTO 210 220FOR I=1 TO LEN(W$) 230IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 240NEXT I 250IF C=0 THEN W=W+1 EG LSE CC=CC+C 260IF CC=LEN(W$) THEN GOTO 420 270C=0 280IF C>0 THEN GOTO 210 290IF W=10 THEN CLS:PRINT@(2,0)"SORRY YOUR DEAD":GOTO 430  300ON W GOSUB 320,330,340,350,360,370,380,390,400,410 310GOTO 210 320DRAW@(110,100)A$:RETURN 330FILL@(10,100)B$:RETURNG  340FILL@(5,100)C$:RETURN 350FILLD$:RETURN 360FILL@(21,244)E$:RETURN 370FILL@(35,241)F$:RETURN 380FILL@(37,262)G$:RETURN 390FILL@(37,231)H$:RETURN 400FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 410FILL@(59,241)H$:FILL@(71,238)I$:RETURN G 420CLS:PRINT@(15,0)"|C|M|HWELL DONE!!" 430PRINT@(22,0)"|A|MTHE WORD WAS ";WW$;" " 435PRINT@(12,11)" " 436PRINT@(17,6)" " 440CLS 450PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 460B$=INCH$ 470IF ASC(B$)>0 THEN GOTO 490 480GOTO 460 490IF B$="Y" THEN CLEAR:GOTOG 10 500IF B$<>"N" THEN GOTO 460 510END 520DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT 530DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 540DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCHISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 550DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 560DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO H10CLS:CLEAR:MIX ON 20SELECT5:CLS:DISPLAY5:CLS:MIX ON 30A$=LDES$(25,10,25,435,30,435,30,10,25,10) 40B$=LDES$(75,30,40,470,45,470,80,30,75,30) 50C$=LDES$(95,0,125,440,130,440,100,0,95,0) 60D$=LDES$(175,40,140,470,145,470,180,40,175,40) 70E$=LDES$(195,0,1H95,470,210,470,210,0,195,0)  80F$=LDES$(0,0,25,0) 90G$=LDES$(0,10,25,10) 100H$=LDES$(5,0,5,10) 110I$=LDES$(10,0,10,10) 120J$=LDES$(15,0,15,10) 130K$=LDES$(20,0,20,10) 140LAD$=F$+G$+H$+I$+J$+K$ 150BG$=LDES$(2,4,2,14,4,10,16,10,16,8,10,8,14,4,4,4,8,8,4,H8,2,4) 160BG1$=LDES$(2,4,2,14,4,10,8,10,4,14,14,14,10,10,16,10,16,8,4,8,2,4) 170COLOR1:FILLA$:FILLB$:FILLC$:FILLD$:FILLE$ 180SELECT2:DISPLAY2:MIX ON 190COLOR 4:DRAW @(120,193)LAD$ 200DRAW @(169,25)LAD$ 209DRAW @(72,25)LAD$ 210DRAW @(20,198)LAD$ 220COLOHR 2:DRAW @(30,220)BG$ 230DRAW @(130,220)BG$ 240DRAW @(82,10)BG1$ 250DRAW @(180,10)BG1$ 260SELECT 1:DISPLAY 1 270REM 280REM ********* MAIN SCREEN ********* 290REM 300REM ********* BALL & MAN ********* 310REM 311A=3 320BALL$="|C 0 " 330FOR B=1 TO 36 STHEP 1 340PRINT@(1,B)BALL$ 350PRINT@(1,38)" " 360NEXT B 370PRINT@(2,36)"|C0":WAIT 10 380PRINT@(2,36)"|C " 390FOR B=30 TO 0 STEP -1  400PRINT@(A,B)BALL$ 410PRINT@(3,3)" " 411IF B=30 THEN A=4:PRINT@(3,30)"|C " 412IF B=20 THEN A=5:PRINT@(4,20)"|C " 413IFE B=10 THEN A=6:PRINT@(5,10)"|C " 415PRINT@(20,0)B 416PRINT@(6,32)"|C" 420NEXT B 430GOTO 330 H10MAX=69 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|A|M|HHANGMAN" 50BACKG3 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,H 12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170WW$=W$ 180X=(39-LEN(W$))/2 190FOR I=H 1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 200PRINT@(22,5)"|A|HENTER LETTER PLEASE" 210J$=INCH$:IF ASC(J$)<1 THEN GOTO 210 220FOR I=1 TO LEN(W$) 230IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 240NEXT I 250IF C=0 THEN W=W+1 EH LSE CC=CC+C 260IF CC=LEN(W$) THEN GOTO 420 270C=0 280IF C>0 THEN GOTO 210 290IF W=10 THEN CLS:PRINT@(2,0)"SORRY YOUR FUCKED":GOTO 430  300ON W GOSUB 320,330,340,350,360,370,380,390,400,410 310GOTO 210 320DRAW@(110,100)A$:RETURN 330FILL@(10,100)B$:RETUH RN 340FILL@(5,100)C$:RETURN 350FILLD$:RETURN 360FILL@(21,244)E$:RETURN 370FILL@(35,241)F$:RETURN 380FILL@(37,262)G$:RETURN 390FILL@(37,231)H$:RETURN 400FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 410FILL@(59,241)H$:FILL@(71,238)I$:RETURH N 420CLS:PRINT@(15,0)"|C|M|HWELL FUCKED!!" 430PRINT@(22,0)"|A|MTHE SHIT WAS ";WW$;" " 435PRINT@(12,11)" " 436PRINT@(17,6)" " 440CLS 450PRINT@(0,0)"|D|MFUCK AGAIN(Y/N)" 460B$=INCH$ 470IF ASC(B$)>0 THEN GOTO 490 480GOTO 460 490IF B$="Y" THEN CLEAR:HGOTO 10 500IF B$<>"N" THEN GOTO 460 510END 520DATA A,APPLE,FUCK,CAT,MOUSE,ELEPHANT,FUCK,JIF,CAT,DOG,RAT,HAT 530DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,FUCK,CONCEAL,FUCK,RUN 540DATA MAT,FUCK,FUCK,MAN,FUCK,PEN,SCREEN,FUCK,FUCK,TABLE,CHAIR,RUBBEGR,SCISSORS,DONKEY,SUPER,CANE,FUCK,MONEY 550DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,SHIT,SHIT,CUNT,MATHS,CHIPS,SHIT,CAR,WATCH,FUCK,FUCK,MINE,BOX,BOY 560DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO I10MAX=79 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12,I12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 150FOR I=1 TO MAX:READ A$(I):NEXT 160W$=A$(INT(RND(MAX))) 170WW$=W$ 180X=(39-LEN(W$))/2 190FOR I=I1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 200PRINT@(22,5)"|B|HENTER LETTER PLEASE" 210J$=INCH$:IF ASC(J$)<1 THEN GOTO 210 220FOR I=1 TO LEN(W$) 230IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 240NEXT I 250IF C=0 THEN W=W+1 EILSE CC=CC+C 260IF CC=LEN(W$) THEN GOTO 420 270C=0 280IF C>0 THEN GOTO 210 290IF W=10 THEN CLS:PRINT@(2,0)"SORRY YOUR DEAD":GOTO 430  300ON W GOSUB 320,330,340,350,360,370,380,390,400,410 310GOTO 210 320DRAW@(110,100)A$:RETURN 330FILL@(10,100)B$:RETURNI 340FILL@(5,100)C$:RETURN 350FILLD$:RETURN 360FILL@(21,244)E$:RETURN 370FILL@(35,241)F$:RETURN 380FILL@(37,262)G$:RETURN 390FILL@(37,231)H$:RETURN 400FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 410FILL@(59,241)H$:FILL@(71,238)I$:RETURN I 420CLS:PRINT@(15,0)"|C|M|HWELL DONE!!" 430PRINT@(22,0)"|A|MTHE WORD WAS ";WW$;" " 435PRINT@(12,11)" " 436PRINT@(17,6)" " 440CLS 450PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 460B$=INCH$ 470IF ASC(B$)>0 THEN GOTO 490 480GOTO 460 490IF B$="Y" THEN CLEAR:GOTOI 10 500IF B$<>"N" THEN GOTO 460 510END 520DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT 530DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 540DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCIISSORS,DONKEY,SUPER,CANE,FOOD,MONEY 550DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 560DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO,STUPID,MENTAL 570DATA BATTLE,SHIPS,COMPUI TER,CONCEAL,DISK,DRIVE,MOTER,BICYCLE I 10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12I ,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 50 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12I 70 180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,1200I ,1190,1180 260NEXT 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 THEN GOTO 1060I 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150IF W=10 THENI CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RETURN 1230FILJJ10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12J,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 50 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12J70 180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,1200J,1190,1180 260NEXT 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 THEN GOTO 1060J 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150IF W=10 THENJ CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RETURN 1230FILJL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE!!" 1290PRINT@(22,0)"|D|MTHE WORD WAS "J ;WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340GOTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,DOG,RAT,HAT J 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,DOOR,BOOK,PAGE,J MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCISSORS 1440DATA START,FINISHK ,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,LOOK,COOK,TOOK,TAKE,AIR,OXEGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN J 10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12J,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 30 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12J70  180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,12K00,1190,1180 260NEXT 270COLOR1 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 THKEN GOTO 1060 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150KIF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:REKTURN 1230FILL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE!!" 1290PRINT@(22,0)"|D|MTHKE WORD WAS ";WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340GOTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANT,AJAX,JIF,CAT,K DOG,RAT,HAT 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,MOUSE,HELP,DOOK R,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCISSORS 1440DATA K START,FINISH,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,LOOK,COOK,TOOK,TAKE,AIR,OXEGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN K 10CLS 11PRINT"|CYOUR NAME IS?":INPUTA$ 12PRINT"|AARE YOU COOL OR THICK?":INPUTS$ 13IFS$="COOL"THENGOTO50 14IFS$="THICK"THENGOTO100 15PRINT"|BHOW MANY TIMES DO YOU WANT YOUR NAME " 16INPUTR 18A=0 19BACKG5 30PRINT(R),A$,A$,A$,A$,A$ 35SOUNDA 40A=A+10 41GOJ TO30 50PRINT"BULL SHIT YOUR A FUCKEN DICK " 51PRINT"|SAND A SWIVELL NECK" 60GOTO15 100CLS:PRINT"|M|B I KNOW YOU ARE(FOOLED YAH)" 105CLS 106WAIT50 110GOTO15 K 10CLS 11PRINT"|CYOUR NAME IS?":INPUTA$ 12PRINT"|AARE YOU COOL OR THICK?":INPUTS$ 13IFS$="COOL"THENGOTO50 14IFS$="THICK"THENGOTO100 15PRINT"|BHOW MANY TIMES DO YOU WANT YOUR NAME " 16INPUTR 18A=0 19BACKG5 30PRINT(R),A$,A$,A$,A$,A$ 35SOUNDA 40A=A+10 41GOLTO30 50PRINT"BULL SHIT YOUR A FUCKEN DICK " 51PRINT"|SAND A SWIVELL NECK" 60GOTO15 100CLS:PRINT"|M|B I KNOW YOU ARE(FOOLED YAH)" 106WAIT100 107CLS 110GOTO15 K 10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12K,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 30 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12K70  180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,12L00,1190,1180 260NEXT 270COLOR1 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 THLEN GOTO 1060 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150LIF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RELTURN 1230FILL@(35,241)F$:RETURN 1240FILL@(37,262)G$:RETURN 1250FILL@(37,231)H$:RETURN 1260FILL@(59,254)G$+LDES$(12,12,12,18,14,18,14,12,12,12):RETURN 1270FILL@(59,241)H$:FILL@(71,238)I$:RETURN 1280CLS:PRINT"|D|M|HWELL DONE IN ";CC+W;" TURNS" 1290PRINTL@(22,0)"|D|MTHE WORD WAS ";WW$;" " 1300CLS 1310PRINT@(0,0)"|D|MPLAY AGAIN(Y/N)" 1320B$=INCH$ 1330IF ASC(B$)>0 THEN GOTO 1350 1340GOTO 1320 1350IF B$="Y" THEN CLEAR:GOTO 10 1360IF B$<>"N" THEN GOTO 1320 1370END 1380DATA A,APPLE,POLY,CAT,MOUSE,ELEPHANTL ,AJAX,JIF,CAT,DOG,RAT,HAT 1390DATA NEWZEALAND,COMPUTER,FAT,SCARRY,STUPID,SNAKE,DISK,CONCEAL,HIDE,RUN 1400DATA MAT,DISK,BALL,MAN,DEAD,PEN,SCREEN,PLAY,FROG,TABLE,CHAIR,RUBBER,SCISSORS,DONKEY,SUPER,CAE,FOOD,MONEY 1410DATA RED,GREEN,WHITE,PURPLE,BLACK,KEY,L MOUSE,HELP,DOOR,BOOK,PAGE,MATHS,CHIPS,BODY,CAR,WATCH,LOOK,YOUR,MINE,BOX,BOY 1420DATA GIRL,MAN,WOMEN,GOODBYE,HELLO,MAD,HAPPY,WEIRD,HELLO 1430DATA CENTER,CONTENTS,USING,STORAGE,DEVELOPMENT,SCHOOL,AFTER,ACKNOWLEDGEMENTS,HISTORY,DIGITAL,SOFTWARE,PAPER,SCISL SORS 1440DATA START,FINISH,TEMPERATURE,AVERAGE,INFORMATION 1450DATA STUDY,LIBRARY,KITCHEN,DINNER,TENNIS,RUGBY,BOOK,LOOK,COOK,TOOK,TAKE,AIR,OXEGEN,BRICK,GAME,SOFTWARE,BOARD,KEYBOARD,COLOUR,TEACHER,LEARN L 10J$=INCH$ 20IF ASC(J$)<1 THEN GOTO 30 30IF J$="!" THEN GOTO 60 40G$=G$+J$ 50GOTO 10 60LOAD G$ K 10J$=INCH$ 20IF ASC(J$)<1 THEN GOTO 30 30IF J$="!" THEN GOTO 60 40G$=G$+J$ 50GOTO 10 55INPUT"INSERT DISK & PRESS RETURN";A 60LOAD G$ L 10MAX=108 20DIM A$(MAX) 30CLS:SELECT5:DISPLAY5:CLS 40PRINT@(12,11)"|D|M|HHANGMAN" 50BACKG4 60A$=LDES$(0,0,0,200,30,200,30,0,0,0) 70B$=LDES$(0,0,0,10,100,10,100,0,0,0) 80C$=LDES$(0,0,0,150,5,150,5,0,0,0) 90D$=LDES$(10,250,20,250) 100E$=LDES$(0,0,0,12,12L ,12,12,0,0,0) 110F$=LDES$(0,0,0,18,23,18,23,0,0,0) 120G$=LDES$(0,0,0,6,14,14,14,8,0,0) 130H$=LDES$(0,4,0,10,14,6,14,0,0,4) 140I$=LDES$(0,0,0,6,2,6,2,0,0,0) 160COLOR1:FOR I=1 TO 10 165WAIT 30 170ON I GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,12L 70  180NEXT 190FOR I=1 TO 4  200FOR J=30 TO 37 210READ J$:PRINT@(I,J)J$ 220NEXT J 225NEXT I 230DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z, , , , , , 240COLOR0:FOR I=1 TO 10 245WAIT 50 250ON I GOSUB 1270,1260,1250,1240,1230,1220,1210,12L00,1190,1180 260NEXT 270COLOR1 1000FOR I=1 TO MAX:READ A$(I):NEXT 1010W$=A$(INT(RND(MAX))) 1020WW$=W$ 1030X=(39-LEN(W$))/2 1040FOR I=1 TO LEN(W$):PRINT@(17,(39-LEN(W$))/2+I)"-":NEXT 1050PRINT@(22,5)"|B|HENTER LETTER PLEASE" 1060J$=INCH$:IF ASC(J$)<1 THLEN GOTO 1060 1070IF J$=" " THEN GOTO 1060 1080FOR I=1 TO LEN(W$) 1090IF MID$(W$,I,1)=J$ THEN C=C+1:PRINT@(16,X+I);J$:MID$(W$,I,1)=" " 1100NEXT I 1110IF C=0 THEN W=W+1 ELSE CC=CC+C 1120IF CC=LEN(W$) THEN GOTO 1280 1130C=0 1140IF C>0 THEN GOTO 1060 1150 IF W=10 THEN CLS:PRINT"SORRY YOUR DEAD":GOTO 1290  1160ON W GOSUB 1180,1190,1200,1210,1220,1230,1240,1250,1260,1270 1170GOTO 1060 1180DRAW@(110,100)A$:RETURN 1190FILL@(10,100)B$:RETURN 1200FILL@(5,100)C$:RETURN 1210FILLD$:RETURN 1220FILL@(21,244)E$:RE