Created
October 24, 2022 10:58
-
-
Save matozoid/23600208128c9362c6b47b76f0a5f66e to your computer and use it in GitHub Desktop.
The game "Terra Titanic"
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 printchr$(142) | |
| 2 fori=1to2e3:next:poke53270,197:fori=1to1e3:next:poke53270,200 | |
| 5 z=0:sz=29:si=54272:pokesi+24,15:pokesi+5,255:pokesi+6,50:goto100 | |
| 7 xy=a:ifa<16thenonagosub11,12,13,14,15,16,17,18,19,20,21,22,23,24,25:goto350 | |
| 8 a=a-15:ifa<16thenonagosub26,27,28,29,30,31,32,33,34,35,36,37,38,39,40:goto350 | |
| 9 a=a-15:ifa<16thenonagosub41,42,43,44,45,46,47,48,49,50,51,52,53,54,55:goto350 | |
| 10 a=a-15:onagosub56,57,58,59,60,61,62:goto350 | |
| 11 printj$:w=45:e=2:return | |
| 12 printj$:w=1:e=3:return | |
| 13 printj$:w=2:e=4:return | |
| 14 printj$:w=3:e=5:return | |
| 15 printj$:w=4:e=25:return | |
| 16 printj$:w=49:e=7:return | |
| 17 printj$:w=6:e=8:return | |
| 18 printj$:w=7:e=9:return | |
| 19 printj$:w=8:e=10:return | |
| 20 printj$:w=9:e=40:return | |
| 21 printj$:n=12:s=42:return | |
| 22 printj$:n=47:s=11:return | |
| 23 printn$:s=1:return | |
| 24 printn$:s=2:return | |
| 25 printn$:s=3:return | |
| 26 printn$:s=4:return | |
| 27 printn$:n=46:s=5:return | |
| 28 printn$:n=6:return | |
| 29 printn$:n=7:return | |
| 30 printn$:n=8:return | |
| 31 printn$:n=9:return | |
| 32 printn$:n=10:return | |
| 33 printn$:w=11:return | |
| 34 printn$:w=12:return | |
| 35 printj$:w=5:n=28:s=26:return | |
| 36 printj$:n=25:e=27:return | |
| 37 print"in a library":w=26:return | |
| 38 printj$:n=40:e=29:s=25:return | |
| 39 print"in a kitchen":w=28:return | |
| 40 print"in a dining room":w=32:n=31:return | |
| 41 print"in a stairwell":s=30:u=44:return | |
| 42 print"in the grand ballroom":w=33:e=30:return | |
| 43 print"in a hall":e=32:return | |
| 44 print"in the engine room":w=35:return | |
| 45 print"in a small corner":e=34:return | |
| 46 print"in a stairwell":n=37:u=50:return | |
| 47 print"in a cooridor":n=39:e=38:s=36:return | |
| 48 print"in the captain's quarters":w=37:return | |
| 49 print"on the bridge of the Titanic":e=43:s=37:return | |
| 50 printj$:w=10:s=28:return | |
| 51 printj$:w=42:n=45:return | |
| 52 printj$:n=11:e=41:return | |
| 53 print"in the radio room":w=39:return | |
| 54 print"in a stairwell":e=45:d=31:return | |
| 55 printj$:w=44:n=51:e=1:s=41:return | |
| 56 print"in a bathroom":s=17:return | |
| 57 printj$:e=48:s=12:return | |
| 58 printj$:w=47:s=49:return | |
| 59 printj$:w=50:n=48:e=6:s=51:return | |
| 60 print"in a stairwell":e=49:d=36:return | |
| 61 printj$:n=49:s=45:return | |
| 62 print"in a lifeboat":return | |
| 80 print"Quick, do something!!!!!!":g=3:return | |
| 81 print"You saved the Titanic!":print"You altered history":g=6:return | |
| 82 print"from the bathroom!":x4=4:return | |
| 83 print" at a time":goto450 | |
| 84 print"don't pick it up!":goto450 | |
| 85 print"You can't catch her!":goto450 | |
| 86 print"She thinks you're going to hurt her":x5=15:return | |
| 87 a(59)=0:a(44)=13:a(j)=0:goto5100 | |
| 88 a(46)=a:goto5100 | |
| 89 sc(a)=0:ol=1:lb(a)=-99:return | |
| 90 print"{rvon}in lifeboat{wht}":goto450 | |
| 91 print"You can't remember the combination":goto450 | |
| 92 print"He's wearing a collar":goto450 | |
| 95 a(53)=14:goto450 | |
| 99 goto5100 | |
| 100 poke53280,12:poke53281,11:poke646,15:print"{clr}o.h.b software's t e r r a | |
| 105 dimc(95):fori=0to95:readc(i):next | |
| 110 print"{CBM-*}{rvon} {rvof}{SHIFT-POUND}{rvon}{rght} {rght}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{rvon}{rght}{SHIFT-POUND} {CBM-*}{rght} {CBM-*}{rght}{rght} {rght} {rght}{SHIFT-POUND} {CBM-*}" | |
| 120 print"{rvon}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght} {CBM-*}{rght} {rght} {rght} " | |
| 130 print"{rvon}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght} {rvof}{CBM-*}{rvon} {CBM-*} {rght} {rght} " | |
| 140 print"{rvon}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght} {rght}{rvof}{CBM-*}{rvon} {rght} {rght} " | |
| 150 print"{rvon}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght} {rght}{rght}{rvof}{CBM-*}{rvon} {rght} {rght}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND} | |
| 160 print"{down}{down}{down}written and designed by o.h.b software | |
| 170 print"20.08.1984 | |
| 171 print"{down}copying from the 'atari 800'":wa=70 | |
| 172 pokesi+4,17:pokesi+20,255:pokesi+18,33:pokesi+12,8:pokesi+13,0:forwi=1to4:form=0to95step3 | |
| 173 pokesi+8,c(m+1):pokesi+7,c(m+2):pokesi+11,33:ifc(m)=0thenau=0:goto175 | |
| 174 au=1 | |
| 175 ifwi>2thenpokesi+1,c(m):pokesi+15,c(m)+au:wa=55 | |
| 176 fori=1towa:next:pokesi+11,0:next:next:fori=0to24:pokesi+i,0:next | |
| 178 clr:zs=29:si=54272:fora=0to95:readv:next | |
| 200 dima$(63),a(63),b(6),b$(93),t$(53),c(8),d(31),i(63),j$(16),n$(10),lb(10) | |
| 203 dimsz$(sz),d$(20),e$(20),a9$(50),a1$(3),x$(sz),pp(13),g(12),v$(7),sc(10) | |
| 205 sz$=" " | |
| 207 fora=1to8:c(a)=0:next:fora=1to63:a(a)=0:i(a)=0:next:fora=1to10:lb(a)=0:next | |
| 210 fora=1to63:a$(a)=sz$:readx$:a$(a)=left$(x$+a$(a),29):reada(a) | |
| 212 next:readb$:readx$:b$=b$+x$:fora=7to31 | |
| 214 readv:d(a)=v:next:fora=0to13:readv:pp(a)=v:next:fora=1to12:g(a)=24:next | |
| 220 a=39:g=1:j$="on the main deck":n$="in a cabin":t$="SOS...SOS...SOS...Send" | |
| 230 t$=t$+" help...Titanic sinking{$a0}fast..." | |
| 300 v=z:x4=z:x5=z:printchr$(14)chr$(8) | |
| 301 printchr$(147):ifg=8thenpoke214,2:poke211,4:sys58640:print"The Titanic is sinking! | |
| 302 ifg=8thenprint"As captain, you must save as many people"; | |
| 303 ifg=8thenprint"as you can and put them in lifeboats. | |
| 304 ifg=8thenprint"There are also valuables to save and | |
| 305 ifg=8thenprint"other tasks to do for maximum score! | |
| 306 ifg=8thenprint"{red}And don't forget to save yourself!!{wht}":g=9:goto5000 | |
| 307 pokesi+24,0:n=z:w=z:e=z:s=z:u=z:d=z:poke53280,0:poke53281,0:poke646,12 | |
| 308 print"You're ";:goto7 | |
| 350 a=xy:ifn+w+e+s+u+d>zthenprint"{lred}Some exits are:{wht}":forb=1to6:b(b)=0:next | |
| 351 ifdk=0thena(39)=0 | |
| 352 ifw>zthenprint" {yel}West{wht}";:b(1)=w | |
| 353 ifn>zthenprint" {blu}North{wht}";:b(2)=n | |
| 354 ife>zthenprint" {grn}East{wht}";:b(3)=e | |
| 355 ifs>zthenprint" {pur}South{wht}";:b(4)=s | |
| 356 ifu>zthenprint" {orng}Upstairs{wht}";:b(5)=u | |
| 357 ifd>zthenprint" {lgrn}Downstairs{wht}";:b(6)=d | |
| 358 print:print:ifkl=1anda<>20thenkl=0:a(60)=0:a(46)=20 | |
| 359 ifdk=0thenrd=int(rnd(1)*25)+1:ifrd<7thena(39)=a | |
| 360 a(55)=0:a(1)=0:a(22)=0:a(23)=0:a(24)=0:a(18)=0:ifa<13ora=47ora=42then363 | |
| 361 ifa=52thena(1)=-a:a(62)=-a:goto370 | |
| 362 goto370 | |
| 363 a(1)=-a:a(22)=-a:ifa=1ora=3ora=5ora=6ora=8ora=10theniflb(a)<>-99thena(23)=-a | |
| 364 ifa<13thena(g(a))=-a:rd=int(rnd(1)*25)+1:iffp<11andi(55)<>-1andrd<10thena(55)=a | |
| 370 forb=1to63:ifabs(a(b))=athenc=c+1:goto372 | |
| 371 next:print:goto375 | |
| 372 ifc=1thenprint"Visible items: | |
| 374 print" ";right$(a$(b),len(a$(b))-3):goto371 | |
| 375 ifg=1thenprint"It's a chilly, foggy night":print"visibility is poor! | |
| 376 ifg=1thenprint"As captain of this ship":print"you are at the helm":g=2 | |
| 377 if(g=3andtn=0)org=6thenx4=2:gosub1700 | |
| 378 ifx4=2andg=3theng=4:c=0:goto300 | |
| 379 ifx4=2andg=6theng=7:c=0:goto300 | |
| 380 ifg=4thenprint"You struck the iceberg!":c=0:g=8:goto5100 | |
| 381 ifg=2andlk=1thenprint"There's an iceberg!":print"You're heading straight at it!":gosub80 | |
| 382 ifg=3andtn=1thenx4=3:print"Phew...you missed it!":gosub81 | |
| 383 ifx4=3theng=6:c=0:goto5100 | |
| 384 ifg=7thenprint"OH MY GOD!":print"You hit another one!":g=8:c=0:goto5100 | |
| 385 ifa=32thenq3=q3+1:ifq3=1thenprint"Room is awfully shaky... | |
| 386 ifq3=2thenprint"Watch out!":forhi=1to300:next:gosub1700 | |
| 387 ifq3=2thena(9)=0:a(30)=-a:c=0:bc=1:goto300 | |
| 388 ifq3=3thenprint"Chandelier falls...":print"barely misses you...":q3=4 | |
| 389 ifa=30andwt=0thenprint"Waiter asks you,{red} "chr$(34)"What do you want?"chr$(34)"{wht} | |
| 390 ifa=34andi(40)=-1thenk3=40:k0=34:print"Something melts...":c=0:goto1100 | |
| 391 ifa=15andm2=0thenprint"Mrs. Vanderbilt's cabin is empty! | |
| 392 ifa=52then1600 | |
| 393 ifa=14andcw=0thenprint"Loud, loud misic can be heard blasting":gosub82 | |
| 394 ifx4=4thenprint"It's so loud, in fact, that lady inside can't hear your calls! | |
| 450 pokesi+24,0:x4=z:x5=z:c=z:qq=z:cp=z | |
| 455 print"What do you want to do ? >";:open1,0:input#1,a9$:close1:print | |
| 457 ifa9$="nothing"then6000 | |
| 460 ifa9$="look"then300 | |
| 461 x$=mid$(a9$,1,4) | |
| 462 iflen(a9$)>2andx$="look"or((g=3)and((x$="turn")or(x$="stee")))then500 | |
| 463 ifa9$="score"then1520 | |
| 464 iflen(a9$)>2thenifmid$(a9$,1,4)="wake"thenprint"Too tight asleep":goto450 | |
| 470 forb=1to6:ifleft$(a9$,3)=mid$(b$,(b-1)*3+1,3)then490 | |
| 473 next:goto500 | |
| 490 ifb(b)<>0andg<>9thenprint"Stay at your helm!":c=0:goto450 | |
| 491 ifb(b)<>0thena=b(b):lp=0:goto300 | |
| 493 print"You can't move that way":goto450 | |
| 500 ifa9$<>"info"then516 | |
| 510 x$="":print"You are carrying":fork=1to8:ifc(k)=0then514 | |
| 512 print" "right$(a$(c(k)),len(a$(c(k)))-3):x$="1" | |
| 514 next:ifx$=""thenprint" You're carring nothing with you!!" | |
| 515 goto450 | |
| 516 x$=right$(a9$,3):ifa=30andwt=0andv7=0andx$<>"ter"thenprint"Waiter says,":x4=5 | |
| 517 ifx4=5andx$="fee"thenv7=1:j=42:a(j)=a:goto675 | |
| 518 ifx4=5thenprint"You can't":goto450 | |
| 531 forb=7to31:ifleft$(a9$,3)=mid$(b$,b*3-2,3)then600 | |
| 535 next:print"I don't know what {rvon}"chr$(34)a9$chr$(34)"{rvof} means":goto450 | |
| 600 fork=1tolen(a9$):ifmid$(a9$,k,1)<>" "thennext:print"i don't understand...":goto450 | |
| 609 d$=mid$(a9$,k+1,len(a9$)):e$=mid$(d$,1,3) | |
| 610 ife$="vac"thene$="cle | |
| 611 ifd(b)<>1then680 | |
| 612 i=0:forv=1to8:ifc(v)<>0theni=i+1 | |
| 613 next:ifi>4thenprint"You can't carry any more":goto450 | |
| 615 forv=1to63:ife$<>left$(a$,3)thennext:goto617 | |
| 616 ifv>42andv<60thencp=1:m=v:ifc(1)<>0thenprint"You can only carry one person":goto83 | |
| 617 ifa=27ande$="lib"andlb=0thenlb=1:j=50:a(j)=27:goto675 | |
| 618 ifa=23andss=0ande$="ste"thenss=1:j=56:a(j)=23:goto675 | |
| 619 ifby=0ande$="bab"anda=18thenby=1:j=51:a(j)=18:goto675 | |
| 620 ifa=30ande$="wai"andwt=0thenj=48:a(j)=30:wt=1:goto675 | |
| 621 ifa=32andbc=1ande$="bul"thenbc=2:j=31:a(j)=32:goto675 | |
| 622 ifa=29andrf=1thenx5=7:ife$="mar"andbt=0thenj=41:a(j)=29:bt=1:goto675 | |
| 623 ifx5=7ande$="cub"andic=0thenj=40:a(j)=29:ic=1:goto675 | |
| 624 ife$="pup"anda(39)=athene$="dog":j=39:goto652 | |
| 625 ifa=29ande$="key"andv4=1thenv4=0:j=35:a(j)=a:goto675 | |
| 626 ifa(39)=aori(39)=-1thenify4=0ande$="key"thenx5=5:ifdk=1thenj=33:a(j)=a:y4=1:goto675 | |
| 627 ifx5=5thenprint"OUCH! Puppy bites":goto450 | |
| 628 ifa=27anddc=0ande$="dic"thenj=26:a(j)=27:dc=1:goto675 | |
| 629 ifa=29ande$="bon"andsb=0thensb=1:j=38:a(j)=29:goto675 | |
| 630 ifa=46ande$="lad"thenx5=11:ifsr=0thenprint"She's stuck!":goto450 | |
| 631 ifx5=11andsr=1thensr=2:j=49:a(j)=46:print"Margarine helped...":goto675 | |
| 632 ife$="lad"anda(60)=-athenprint"JJAAAAIIIII !!!Knife is sharp!!":goto450 | |
| 633 ife$="key"anda=43thenprint"The code key??":j=3:goto670 | |
| 634 ife$="key"thenprint"Say again & use number. Ex: Get 101":goto450 | |
| 635 ifa=29ande$="sou"andas=0thenprint"Too hot...":goto450 | |
| 636 ifa=29ande$="bow"thenx5=1:ifas=0thenprint"You might spill the soup!":goto450 | |
| 637 ifx5=1thenprint"It's an antique handcrafted bowl,":print"very fragile...":goto84 | |
| 639 forj=1to63:ife$=left$(a$(j),3)anda=abs(a(j))then642 | |
| 640 next | |
| 641 print"There's no "chr$(34)d$chr$(34)" here":goto450 | |
| 642 ifa=16ande$="lad"andcl=0thenx5=12:print"She doesn't understand a word of | |
| 643 ifx5=12thenprint"English! She's an expert in karate and threatens you with a | |
| 644 ifx5=12thenprint"convincing demonstration!!!!":goto450 | |
| 645 ifa=21ande$="chi"andpd=0thenprintchr$(34)"Find me my puppy dog"chr$(34):goto450 | |
| 646 ifa=13ande$="lad"andll=0thenprint"She staggers all over the place!":goto85 | |
| 647 ifa=11ande$="new"thenx5=13:ifnp=2thenk0=37:k3=0:goto1100 | |
| 648 ifx5=13thennp=0 | |
| 649 ife$="jew"thenpt=pt+200 | |
| 650 ife$="rin"thenpt=pt+300 | |
| 651 ife$="pas"thenfp=fp+1 | |
| 652 ife$="dog"anddk=0thenprint"Puppy snaps at you":goto450 | |
| 653 ifa=22and(e$="dai"ore$="Dai")thena(57)=0:j=52:a(j)=22:goto675 | |
| 654 ifa=20ande$="lad"andnh=0thenprint"Lady can't hear you!":gosub86 | |
| 655 ifx5=15thenprint"and threatens you":a(46)=0:a(60)=-a:kl=1:goto5100 | |
| 670 ifa(j)<0thenprint"That's imposs~ble to carry":goto450 | |
| 675 a(j)=0:ifcp=1thenc(1)=j:i(j)=-1:goto5050 | |
| 676 fork=2to8:ifc(k)=0thenc(k)=j:~(j)=-1:goto5050 | |
| 677 next | |
| 680 ifd(b)<>2then750 | |
| 681 ife$="vac"ore$="cle"thenifi(21)=-1or((a=24andi(21)=0)ori(21)=a)thenifvc=0thenvc=1 | |
| 682 ifvc=1thenprint"Something falls out":a(29)=a:vc=2:a(61)=-a:goto5100 | |
| 683 ife$="pup"thene$="dog" | |
| 684 if(e$="dai"ore$="Dai")andi(52)=-1thenj=52:goto710 | |
| 685 ife$="key"then634 | |
| 700 forj=1to63:ife$=left$(a$(j),3)thenx5=2:ifi(j)<>-1then702 | |
| 701 ifx5=2then710 | |
| 702 x5=0:next | |
| 704 print"You're not carrying it":goto450 | |
| 710 fork=1to8:ifc(k)=jthen712 | |
| 711 next:goto704 | |
| 712 i(j)=0:c(k)=0 | |
| 713 ife$="pup"ore$="dog"thenifa=21thena(58)=0:a(47)=21:a(j)=0:pd=1:goto5050 | |
| 714 ifll=0ande$="cof"anda=13thenll=1:print"Lady drinks coffee and sobers up":goto87 | |
| 715 ife$="jew"thenpt=pt-200 | |
| 716 ife$="rin"thenpt=pt-300 | |
| 717 ife$="bon"anda(39)=athendk=1:print"Puppy dog munches quietly on bone":a(j)=0:goto5100 | |
| 718 ifa=20ande$="aid"thennh=1:print"Lady grabs hearing aid!":kl=0:a(j)=0:a(60)=0:goto88 | |
| 719 ifa>10orj<43ora(23)=0then724 | |
| 720 ifa<11andlb(a)>3thenprint"Overcrowded lifeboat!":print"It sinks!!!!!!!!":gosub89 | |
| 721 ifol=1thenol=0:goto4900 | |
| 722 lb(a)=lb(a)+1:sc(a)=sc(a)+pp(j-43):print"{red}{rvon}You put "mid$(a$(j),4,len(a$(j))):goto90 | |
| 724 ife$="pas"thenfp=fp-1 | |
| 725 a(j)=a:i(j)=a:print"OK.":goto5100 | |
| 750 ifd(b)<>3then770 | |
| 752 ife$="doo"anda>5anda<12thenx5=1:ifg(a)=18thenprint"It's already open":goto450 | |
| 754 ifx5=1thenifi(26+a)=-1theng(a)=18:print"Door's open":goto5100 | |
| 755 ifx5=1thenprint"Wrong or no key (door's locked)":goto450 | |
| 756 ife$="doo"anda=14thenprint"It's locked!":goto450 | |
| 757 ife$="doo"and(a<6ora=12)thenx5=1:ifg(a)=18thenprint"It's already open":goto450 | |
| 758 ifx5=1theng(a)=18:print"Door was unlocked":goto5100 | |
| 760 ifa=29ande$="ref"andrf=0thena(25)=-29:a(16)=0:rf=1:goto5050 | |
| 762 ifa=38ande$="saf"andos=0thenx5=1:ifrc=0then91 | |
| 763 ifx5=1thenos=1:print"You find something":a(28)=38:goto5100 | |
| 770 ifd(b)<>4then780 | |
| 772 ifi(27)=-1and(e$="per"ore$="not")thenprint"It's the combination":rc=1:goto450 | |
| 774 ifi(26)=-1ande$="dic"thencl=1:print"You now know how to say,":x5=1 | |
| 775 ifx5=1thenprintchr$(34)"the boat is sinking"chr$(34)" in Chinese":goto450 | |
| 777 ife$="new"ore$="pap"then840 | |
| 780 ifd(b)<>5then790 | |
| 781 ifa<>11orpk=1thenprint"OK.":print"Nothing happens":goto450 | |
| 782 print"You hear a key on the other side fall onthe floor":pk=1:ifnp=1thennp=2 | |
| 785 goto450 | |
| 790 ifd(b)<>6then860 | |
| 792 ife$="pap"ore$="not"thenprint"There's something written on it":goto450 | |
| 794 ifa=35and(e$="fus"ore$="box")thenprint"There's a "v$" wire":goto450 | |
| 795 ifa=39ande$="win"thenx5=1:ifg<9thenprint"You see something large and white":lk=1:goto99 | |
| 796 ifx5=1thenprint"You're staring at the ocean...":goto450 | |
| 797 ifa=29ande$="tab"thenx5=1:ifas=1thenprint"A bowl":qq=1:x5=0 | |
| 799 ifx5=1andas=0thenprint"A bowl of alphabet soup":x5=0 | |
| 800 ifa=29ande$="bow"thenx4=1:if(as=1andi(35)=0)thenprint"A key...":goto450 | |
| 802 ifx4=1andas=0thenprint"Alphabet soup":goto450 | |
| 804 ifa=29andas=0ande$="sou"thenprint"It look delicious":v3=1:goto450 | |
| 806 ifa=32ande$="cha"andbc=1thenprint"Broken bulbs...":goto450 | |
| 808 ifa=27andlb=0ande$="des"thenprint"There's a librarian sitting":goto450 | |
| 810 ifa=29and(e$="tab"andsb=0)thenprint"A soupbone":goto450 | |
| 813 ifa=29andrf=1ande$="ref"thenib=1:ifbt=0thenprint"Some margarine | |
| 815 ifa(61)=-aandv9=0ande$="dir"thenprint"You find something":a(36)=a:v9=1:goto5100 | |
| 817 ifa=11ande$="doo"thenprint"A tiny crack under the door | |
| 819 ifib=1thenib=0:ific=0thenprint"An ice cube":goto450 | |
| 821 ifa=23ande$="bed"andss=0thenprint"The steward's sleeping":goto450 | |
| 823 ifa<13ande$="doo"thenprint"There's a keyhole":goto450 | |
| 825 ifa=11and(e$="hol"ore$="key")thenx5=1:ifpk=0thenprint"There's a key inserted on":x5=15 | |
| 826 ifx5=15thenprint"the other side":goto450 | |
| 827 ifx5=1andss=0thenprint"Someone's sleeping":goto450 | |
| 828 x5=0:ifa=18ande$="cri"andby=0thenprint"There's a baby":goto450 | |
| 830 ifa=46and((e$="bat"ore$="tub")andsr<2)thenprint"A lady's taking a bath":goto450 | |
| 832 ifa=46andsr=0ande$="lad"thenprint"Her toe's stuck in the drainhole":goto450 | |
| 834 ifa(55)=aandy1=0ande$="pas"thenprint"You see something":a(32)=a:y1=1:goto5100 | |
| 836 ifa(39)=aori(39)=-1thenx5=1:ife$="dog"ore$="pup"then92 | |
| 838 ifx5=1ande$="col"andy4=0thenprint"There's a key hanging on it":goto450 | |
| 840 if(a=27andi(15)=0)ori(15)=-1ori(15)=athenife$="new"ore$="pap"thenx5=10 | |
| 842 ifx5=10thenprintchr$(34)"UNSINKABLE TITANIC":print" ON{$a0}MAIDEN VOYAGE"chr$(34):goto450 | |
| 844 ife$="cub"andi(40)=-1thenprint"There's something in it":goto450 | |
| 845 ifa=27ande$="she"thenprint"Books...":goto450 | |
| 846 ifa=27ande$="boo"anddc=0thenprint"A dictionary lies on the top...":goto450 | |
| 847 ife$="boa"ore$="lif"thenifa=6ora=8ora=10ora=1ora=5ora=3theniflb(a)<>-99thenx5=7 | |
| 848 ifx5=7theniflb(a)<4thenprint4-lb(a)" empty seats":goto450 | |
| 850 ifqq=1then450 | |
| 855 print"You see nothing special or important here":goto450 | |
| 860 ifd(b)<>7then880 | |
| 861 ifa=38andm1=0ande$="saf"thenprint"You see something":m1=1:a(27)=a:goto5100 | |
| 863 ifa=11and(e$="new"ore$="pap")andi(15)=aandnp=0thennp=1:x5=1 | |
| 864 ifx5=1thenprint"You slide newspaper halfway under door":goto450 | |
| 866 ifa=29ande$="tab"andm2=0thenprintchr$(34)"Dops...excuse me madam..."x5=1 | |
| 867 ifx5=1thenprint"hiding under the table":print"won't help"chr$(34):m2=1:a(54)=a:goto450 | |
| 870 ifa=18ande$="cri"andm3=0thenprint"You see something":m3=1:a(17)=a:goto5100 | |
| 880 ifd(b)<>10then890 | |
| 882 ifg=9thenprint"Too late...it's sinking!":goto450 | |
| 884 print"OK.":iflk=1thentn=1:goto5100 | |
| 886 goto450 | |
| 890 ifd(b)<>12then900 | |
| 892 ifa=46andsr=0and(e$="mar"ore$="toe")andi(41)=-1thensr=1:print"OK.":goto450 | |
| 900 ifd(b)<>13then930 | |
| 902 ifa=35ande$="wir"andcw=0thenx5=1:ifi(31)=-1thenprint"OK.":v$="broken":cw=1:goto95 | |
| 906 ifx5=1thenprint"You're not carrying anything":print"with which to cut the wire":goto450 | |
| 930 ifd(b)<>14then950 | |
| 932 ifa=43thengosub1800:print | |
| 933 ifa=43andsh=0thensh=1:pt=pt+100 | |
| 934 ifa=43then450 | |
| 936 print"What do you want to send???":goto450 | |
| 950 ifd(b)<>15then960 | |
| 952 ife$="doo"ore$="cab"ore$="roo"thenifa<13thenx5=1:ifg(a)=18thena=a+12:goto300 | |
| 954 ifx5=1thenifa<6ora=12thenprint"Door's closed...":goto450 | |
| 956 ifx5=1thenprint"Door's locked...":goto450 | |
| 957 if(e$="lif"ore$="boa")anda(23)=-athena=52:goto300 | |
| 958 ife$="sta"anda=34thena=33:goto300 | |
| 959 ife$="sta"anda=33thena=34:goto300 | |
| 960 ifd(b)<>16then1000 | |
| 967 ifa=29ande$="sou"andas=0thenx5=1:ifv3=0thenprint"OOOOUUUUUIIIII !!! Too hot!!":goto450 | |
| 969 ifx5=1thenprint"It's cooled now":print"hmm...delicious...":as=1:v4=1:goto450 | |
| 1000 print"Sorry, you can't do that":goto450 | |
| 1095 print"OK. | |
| 1100 fork2=2to8:ifc(k2)=k3thenc(k2)=k0:i(k3)=0:i(k0)=-1:x5=3:ifnp=2thennp=0:goto675 | |
| 1110 ifx5=3then5100 | |
| 1115 next:goto5100 | |
| 1520 b=0:forv=1to10:b=b+sc(v):next:b=b+pt:print"So far you have scored "b | |
| 1522 print"points out of a possible 3175":goto450 | |
| 1600 b=0:fora=1to10:b=b+sc(a):next:b=b+pt:print"Okay..you have decided to save | |
| 1602 print"yourself. You scored a total of "b:print"points out of a possible 3175 | |
| 1603 print:print"Hit the key 'F1'... | |
| 1604 poke198,0:wait198,1:geta$:ifa$<>"{f1}"then1604 | |
| 1605 poke53280,11:poke53281,11:print"{clr}You look out in the distance at the | |
| 1606 print"could, blue water, illuminated by the | |
| 1607 print"soft gloe of the moon, listening for | |
| 1608 print"the noises of a passing ship, while | |
| 1609 print"behind you the Titanic is rapidly | |
| 1610 print"sinking, only a smokestack now visile | |
| 1611 print"in the quiet waters once bustling with | |
| 1612 print"commotion, only a lone cry for help, | |
| 1613 print"occasionally heard, breaks the | |
| 1614 print"stillness of the night.":print:ifsh=0thenprint"And it may be a long wait":goto1900 | |
| 1616 print"A rescue ship approaches, following | |
| 1618 print"the SOS you have sent...":goto6700 | |
| 1700 pokesi+24,15:pokesi+5,25:pokesi+6,240:forv=1to30:forhi=1to5:next | |
| 1710 pokesi+1,int(rnd(1)*255):pokesi+4,129:forhi=1to50:next:pokesi+4,16:forhi=1tornd(1)*200 | |
| 1720 next:pokesi+4,0:next:return | |
| 1800 pokesi+24,15:pokesi+5,25:pokesi+6,240:pokesi+4,0 | |
| 1810 forv1=1tolen(t$):printmid$(t$,v1,1);:pokesi+1,10:pokesi+4,17:forv2=1to200:next:pokesi+4,16 | |
| 1820 forv2=1to100:next:pokesi+4,0:next:return | |
| 1900 print"because you have forgotten to sent | |
| 1910 print"the SOS into this calm see. Would them | |
| 1920 print"be saved before they die in the cold | |
| 1930 print"water of the Atlantic?":goto6700 | |
| 1940 data,,,58,,,69,7,81,58,6,133,78,7,81,58,,,87,6,133,58,, | |
| 1950 data78,7,81,58,,,69,,,,,,58,6,133,,,,58,6,133,,7,81 | |
| 1960 data,,,58,,,69,8,180,58,8,55,78,8,180,58,,,87,8,180,58,, | |
| 1970 data78,5,207,58,,,69,5,207,,,,65,6,133,,,,58,6,133,,, | |
| 2000 dataseaocean,,"whesteering wheel",-39,"codcode key",-43,safsafe,-38 | |
| 2001 data"boxfuse box" | |
| 2010 data-35,furfurnance,-34,stastairs,-34,stastairs,-33,chachandelier,-32 | |
| 2015 datatabtable,-29,"batbathroom door",-14,tubbathtub,-46,sheshelves,-27,desdesk | |
| 2020 data-27,newnewspaper,27,refrefrigerator,-29,"aidhearing aid",,"dooopen door", | |
| 2025 datacricrib,-18,bedbed,-23,"clevacuum cleaner",24,rairailing, | |
| 2030 data"boalifeboat in water",,"doocabin door",,"refopen refrigerator", | |
| 2035 data"dicChinese-English dictionary",,"notpaper note",,jewjewelry, | |
| 2040 data"rindiamond ring",,"chabroken chandelier",,"bulbroken bulb", | |
| 2045 data"101cabin key #101",,"102cabin key #102",,"103cabin key #103", | |
| 2050 data"104cabin key #104",,"105cabin key #105",,"106cabin key #106", | |
| 2055 data"bonsoup bone",,"dogpuppy dog",,"cubice cube",,marmargarine, | |
| 2060 data"cofcup of coffee",,"giryoung girl",19,"ladsober lady", | |
| 2065 data"ladChinese lady",16,"laddeaf lady",20,"chihappy child with puppy", | |
| 2070 datawaiwaiter,,"ladnaked lady",,liblibrarian,,babbaby,,"dayDaisy Smith", | |
| 2075 data"ladangry lady",,"vanMrs. Vanderbilt",,"pasfrantic passenger", | |
| 2080 data"stesleeping steward",,"daiDaisy",22 | |
| 2085 data"chicrying child",21,"laddrunk lady",13,"laddeaf lady with knife", | |
| 2090 datadirdirt,,"titsinking Titanic",-52,winwindow,-39 | |
| 2100 data"wesnoreassouupsdowgettakdroputempgivopereakicpokhitlooslimovpustur" | |
| 2105 data"stesmerubcutsentapgo enteat" | |
| 2110 data1,1,2,2,2,2,3,4,5,5,5,6,7,7,7,10,10,12,12,13,14,14,15,15,16 | |
| 2120 data50,400,350,150,75,50,450,100,75,50,300,200,25,50 | |
| 3000 print"I don't know what you mean":goto450 | |
| 4900 goto5100 | |
| 5000 print:print"Hit any key to continue...":poke198,0:wait198,1:poke198,0:goto300 | |
| 5050 print"OK." | |
| 5100 forhi=1to3e3:next:goto300 | |
| 6000 print"WHAT!?!?!?! You want to give up?? | |
| 6010 print"You are responsible for 1755 lifes on | |
| 6020 print"board of the Titanic!!And you want to | |
| 6030 print"give up? Are you ill? Go away, you're | |
| 6040 print"not suitable to sail such a great ship. | |
| 6050 ifg=9thenprint"Especially when it is sinking!!!! | |
| 6060 poke809,255:fori=1to1e4:next:sys64738 | |
| 6700 poke54296,0:print"{clr}This play is over | |
| 6710 print"Do you want to play again [Y/N] ?":poke198,0 | |
| 6720 geta$:ifa$=""then6720 | |
| 6730 ifa$="y"ora$="Y"thenrun | |
| 6740 ifa$="n"ora$="N"thensys64760 | |
| 6750 goto6720 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment