17 Bit Software 1: Collection A/17Bit_Collection_A.iso/files/35.dms/35.adf/dogstar.bas

BASIC Source File | 1988-05-22 | 21.6 KB | 568 lines

1     screen 1,2,0
2     width 40
5     print"DOG STAR ADVENTURE  by Lance Miklus"
6     print
9     print" Adapted for the PET by David Malmberg"
12    print "from APPLESEED - January 1980"
20    print
25    print "Ported to the AMIGA by
30    print
35    print "           Don White
36    print "           47 Ariel Court
37    print "           Nepean, Ontario
38    print "           K1A 0M2
39    print "           [phone]
40    print
45    print "           November 1985"
50    print:print "Press any key to continue"
52    getkey x$
55    scnclr
100   gosub 2820
105   dim a(10)
110   scnclr
115   input"Do you wish instructions";a$
120   if left$(a$,1)="y"then gosub 6000
130   scnclr
140   lc=2:sl=40:gf=50:tb=1
150   goto 2210
160   if tc<25 or int(rnd(1)*gf)<>1 then 260
170   if tc=300 then gf=20
180   if lc<3 or lc=9 or lc=26 or lc=36 or lc=37 then 260
190   if lc>26 and lc<31 then 260
200   print"Holy Smokes!!  An armed stormtrooper"
201   print"just walked in."
210   gosub 2550:if vb<>12 or no<>15 then 1370
220   x=13:gosub 2770:if y<>-1 then 1370
230   if bl=0 then print"I'm out of ammunition!":goto 1380
240   print"ZZZAP!!!  No more stormtrooper!"
250   bl=bl-1:if bl=0 then print"I'm out of ammunition!"
260   if md<>tc then 290
270   x=22:gosub 2770:if y<>-1 then 290
280   print:print"Your Big Mac is cold."
290   gosub 2550:tc=tc+1
300   if vb=0 and no=0 then 320
310   goto 340
320   print"I don't know how to do that.":goto 160
330   print"Nothing happened.":goto 160
340   if vb>1 or no>7 then 470
350   if no=0 then vb=0:goto 300
360   if ds(lc,no-1)=0 then print"I can't go that way.":goto 160
370   if dr=1 and ds(lc,no-1)>2 and ds(lc,no-1)<6 then 375
371   goto 380
375   print"I can't go that way.  the flight deck"
376   print"doors need to be closed....agh!!!..."
377   print"..no air!!!":goto 160
380   if no=3 and lc=31 and dj<>-1 then print m0$:goto 160
390   if lc=35 and ds(lc,no-1)=36 and ob(21,1)<>0 then 395
391   goto 400
395   print"the robot won't let me.":goto 160
400   if lc=17 and ob(13,1)=17 then 1370
410   if lc=9 and ob(5,1)=9 then 1370
420   if lc=9 or lc=17 then he$(lc)=""
430   lc=ds(lc,no-1)
440   if lc=34 then he$(lc)=""
450   if lc=26 then 2470
460   goto 2210
470   if vb=3 then 2210
480   if vb<>2 then 650
490   if no=0 then print"I don't know what a ";no$(0);" is.":goto 160
500   if cr>5 then print"I can't carry any more...too heavy!":goto 160
505   kk=0:i=0
510   i=i+1
512   if ob(i,0)=(no)then kk=i
514   if i<lo then 510
515   if kk=0 then 320
520   i=kk
530   if ob(i,1)=-1 then print"I'm already carrying it.":goto 160
540   if ob(i,1)<>lc then print"I don't see it.":goto 160
550   if no<>37 then 580
560   x=13:gosub 2770:if y<>-1 then print"I don't have a blaster to put it in.":goto 160
570   bl=4:ob(i,1)=0:print"My blaster's reloaded.":goto 160
580   if no=15 or no=25 or no=34 then print"He looks p-r-e-t-t-y mean to me.":goto 160
590   cr=cr+1:ob(i,1)=-1:print"ok."
600   if no=14 and cm<>1 then print"A voice says...SESAME!":cm=1
610   if no=22 and md=0 then md=tc+50
620   if no=12 then he$(2)=""
630   if no=13 then he$(7)=""
640   goto 160
650   if vb<>4 then 700
660   print:print"I'm carrying..."
670   k=0:for i=1 to lo:if ob(i,1)=-1 then print ob$(i):k=1
680   next i:if k=0 then print"nothing"
690   print:goto 160
700   if vb<>5 then 720
710   gosub 2730:goto 160
720   if vb<>6 then 810
730   if no=0 then 490
740   if lc=2 then print:print"There's no room here.":goto 160
750   ic=0:for i=1 to lo:if ob(i,1)=lc then ic=ic+1
760   next i:if ic>12 then print"There's not enough room...dump something.":goto 160
765   i=0
766   i=i+1
770   if ob(i,0)=(no)then 790
780   if i<lo then 766
785   goto 320
790   if ob(i,1)<>-1 then print"I'm not carrying it.":goto 160
800   cr=cr-1:ob(i,1)=lc:print"OK.":goto 160
810   if vb<>7 then 840
820   if he$(lc)=""then print"How am I supposed to know what to do?":goto 160
830   print:print he$(lc):goto 160
840   if vb<>8 then 1030
850   scnclr:input"Press 'c' to continue";k$:if left$(k$,1)<>"c"then 850
860   tl$="dog star data":open "o",#1,"dog star data"
870   a(1)=tb:a(2)=tc:a(3)=cm:a(4)=dr:a(5)=bl
875   a(6)=md:a(7)=gf:a(8)=dj:a(9)=cr:a(10)=lc
876   print#1,tl$
878   for i=0 to 10:print#1,a(i):next i
880   for i=0 to lo:for j=0 to 2:print#1,ob(i,j):next j:next i
890   close 1:print:print"game saved."
900   print"May the force be with you.":end
1030  if vb<>9 then 1190
1040  scnclr:input"Press 'c' to continue";k$:if left$(k$,1)<>"c"then 1040
1050  open "i",#1,"dog star data"
1060  input#1,tl$:print:print"reading ";tl$
1080  for i=0 to 10:input#1,a(i):print"*";:next i
1090  for i=0 to lo:for j=0 to 2:input#1,ob(i,j):next j:print"*";:next i
1100  close 1
1110  tb=a(1):tc=a(2):cm=a(3):dr=a(4):bl=a(5)
1120  md=a(6):gf=a(7):dj=a(8):cr=a(9):lc=a(10)
1130  goto 2210
1190  if vb<>10 then 1270
1200  input"do you want to save game ";k$:if left$(k$,1)="y"then 850
1210  print"May the force be with you.":end
1270  if vb<>11 then 1410
1280  if no<>10 then 320
1290  if lc<>2 and lc<>11 then print"What button?":goto 160
1300  if lc=11 and tb then tb=0:print n2$:goto 160
1310  if lc=11 and not tb then tb=1:print n3$:goto 160
1320  x=12:gosub 2770:if y<>1 then 330
1330  x=24:gosub 2770:if y<>1 then 330
1340  if tb=1 then print n3$:goto 330
1350  if dr=0 then print n4$:goto 330
1360  goto 2370
1370  scnclr:print"Help!!!"
1380  print"Vader's soldiers are everywhere."
1385  print"I've been captured."
1390  print"I'm a prisoner...woe is me..."
1400  goto 2430
1410  if vb<>12 or no=0 then 1520
1420  if bl=0 then print"But I don't have any ammunition left.":goto 160
1430  x=13:gosub 2770:if y<>-1 then print"But I don't have a blaster.":goto 160
1440  x=no:gosub 2770:if y=-1 then print"I can't...I'm holding it.":goto 160
1450  if no=34 then print"ZZZAP!":bl=bl-1:goto 160
1460  if y<>lc then print"I don't see it.":goto 160
1470  i=0
1471  i=i+1
1475  if ob(i,0)=(no)then 1490
1476  if i<lo then 1471
1480  goto 320
1490  ob(i,1)=0:print"ZZZAP!!!  the ";no$(no);" vaporized!"
1500  bl=bl-1:if bl=0 then print"I'm out of ammunition."
1510  goto 160
1520  if vb<>13 then 1600
1530  if no=0 then print"Say what?":goto 160
1540  x=14:gosub 2770
1550  if y<>-1 or no<>19 then print"OK...";no$(no):goto 160
1560  if dr=1 then 330
1570  dr=1:scnclr:print"A voice comes over the p.a..."
1575  print"   opening flight deck doors"
1580  if lc>2 and lc<6 then print:print"...yips!!! There's no air!!!...croak...":end
1590  goto 160
1600  if vb<>14 then 1780
1610  if no<>20 and no<>16 and no<>11 and no<>33 then 330
1620  if no=20 then 1710
1630  if no<>16 then 1670
1640  if ob(6,1)=-1 then print"Sorry.  I'm not a cartographer.":goto 160
1650  if ob(6,1)=lc then print"Try...get map":goto 160
1660  print"it's not here.":goto 160
1670  x=no:gosub 2770:if y<>lc and y<>-1 then 1660
1680  if no=11 then print"it says needs turbo"
1690  if no=33 then print"it says out of order"
1700  goto 160
1710  if lc<>13 then print"I don't see any.":goto 160
1720  print:print"It says on the wall..."
1730  print"Your mother's got a big nose"
1740  print"Kilroy was here"
1750  print"For a good time call 6557"
1760  print"Say security"
1770  goto 160
1780  if vb<>15 then 1860
1790  if no=0 then print"What's a ";no$(no);"?":goto 160
1800  if no<>22 then print"Don't be ridiculous!":goto 160
1810  x=22:gosub 2770:if y<>-1 then print"I'm not holding it.":goto 160
1820  i=0
1821  i=i+1
1825  if ob(i,0)=22 then 1840
1826  if i<lo then 1821
1830  print"I don't know where it is.":goto 160
1840  ob(i,1)=0:print"CHOMP...CHOMP...hummm, good!"
1850  goto 160
1860  if vb<>16 or no<>23 or lc<>16 then 1900
1870  x=23:gosub 2770:if y<>-1 then print:print m1$:goto 160
1880  ob(11,1)=0:ob(14,1)=16:cr=cr-1:print:print m2$
1890  goto 160
1900  if vb<>18 then 1940
1902  if no=19 then 1560
1905  if no<>36 then 1940
1910  if no<>36 or lc<>31 then 320
1920  x=17:gosub 2770:if y<>-1 then print m3$:goto 160
1930  he$(31)="":dj=-1:print:print m4$:goto 160
1940  if vb<>19 or no=0 then 2070
1950  if no<>34 then print"That's stupid!":goto 160
1960  if lc<>35 then print:print m5$:goto 160
1970  x=22:gosub 2770:if y<>-1 then print:print m6$:goto 160
1980  if no=35 then print m7$:goto 160
1990  if no<>34 then print no$(0);m8$:goto 160
2000  if tc>md then print m9$:goto 160
2010  i=0
2011  i=i+1
2012  if ob(i,0)=34 then k=i:goto 2030
2015  if i<lo then 2011
2020  goto 320
2030  i=0
2031  i=i+1
2032  if ob(i,0)=22 then 2050
2035  if i<lo then 2031
2040  goto 320
2050  print n0$:he$(35)=""
2060  ob(k,1)=0:ob(i,1)=0:goto 160
2070  if vb<>17 then 2090
2080  if vb<>20 then 2180
2090  if vb<>20 then 2180
2100  if no=0 then 320
2110  x=no:gosub 2770:if y=-1 then print"That's impossible...I'm carrying it.":goto 160
2120  if y=lc then 2150
2130  if no<11 or no=19 or no=20 or no=30 then 320
2140  print"I can't hit it if I can't see it!":goto 160
2150  if no=15 or no=25 or no=31 then print"I'd rather not...he might hit back!":goto 160
2160  if no=35 then print"That's not nice!!!":goto 160
2170  goto 330
2180  if vb<>21 then 2200
2190  print"I'm not strong enough to kill anything!":goto 160
2200  goto 320
2210  scnclr:print ds$(lc):a$=""
2220  if lc=35 then gf=10
2230  if lc=7 then 2300
2240  k=0:for i=1 to lo:if ob(i,1)<>lc then 2280
2250  if k=0 then k=1:print:print"Around me I see --- ":a$=ob$(i):goto 2280
2260  if len(a$)+5+len(ob$(i))>40 then print a$:a$=ob$(i):goto 2280
2270  a$=a$+"    "+ob$(i)
2280  next i
2290  if a$<>""then print a$
2300  print:print"Obvious directions are ";:k=0
2310  for i=0 to 5:if ds(lc,i)=0 then 2340
2320  if k<>0 then print",";
2330  print no$(i+1);:k=k+1
2335  if k=3 then print""
2340  next i
2350  if k=0 then print"Unknown";
2360  print".":goto 160
2370  print"CLEAR":gosub 2730
2380  if j<>0 then 2390
2381  print"We have failed in our mission.  The"
2382  print"forces of Princess Leia will be"
2383  print"conquered.":goto 2430
2390  if j<>sc then 2410
2391  print"We are heroes.  The forces of Princess"
2392  print"Leia will conquer the evil imperial"
2393  print"soldiers, and freedom will prevail"
2394  print"throughout the galaxy!":goto 2350
2410  print"We have helped the forces of Princess"
2411  print"Leia defend the galaxy.  Long live the"
2412  print"forces of freedom!"
2430  print:print"May the force be with you!"
2440  print:input"Do you want to play again ";a$
2450  if left$(a$,1)="y"then 110
2460  end
2470  scnclr:print"A voice calls out...who goes there?"
2480  gosub 2550
2490  if vb<>13 or no<>30 then 1370
2500  print n1$
2510  gosub 2550
2520  x=31:gosub 2770:if y<>-1 then 1370
2530  if vb<>17 or no<>31 then 1370
2540  goto 2210
2550  z9=fre(0):print:print"What should I do";:input cm$
2560  if cm$="n"then cm$="north"
2570  if cm$="e"then cm$="east"
2580  if cm$="s"then cm$="south"
2590  if cm$="w"then cm$="west"
2600  if cm$="u"then cm$="up"
2610  if cm$="d"then cm$="down"
2620  vb$(0)="":no$(0)="":vb=0:no=0:if len(cm$)=0 then return
2630  for zl=1 to len(cm$)
2631  if mid$(cm$,zl,1)<>" "then vb$(0)=vb$(0)+mid$(cm$,zl,1):goto 2635
2632  zl=len(cm$)
2635  next zl
2640  for zl=1 to lv
2641  zz=4:yy=len(vb$(zl)):if yy<zz then zz=yy
2642  if vb$(zl)<>""and left$(vb$(0),zz)=left$(vb$(zl),zz)then vb=zl:zl=lv
2650  next zl
2660  if vb=0 then no$(0)=vb$(0):goto 2690
2670  if len(vb$(0))+1>len(cm$)then no=0:return
2680  no$(0)=right$(cm$,len(cm$)-1-len(vb$(0)))
2690  no=0:for zl=1 to ln
2691  zz=4:yy=len(no$(zl)):if yy<zz then zz=yy
2692  if no$(zl)<>""then if left$(no$(0),zz)=left$(no$(zl),zz)then no=zl:zl=ln
2700  next zl
2710  return
2730  j=0:for i=1 to lo:if ob(i,1)=1 then j=j+ob(i,2)
2740  next i:print"Out of a maximum of ";sc;"points"
2741  print"you have ";j;"points."
2750  if j=0 then print"You are not doing spectacularly well!"
2760  return
2770  zl=-1
2771  zl=zl+1
2772  if ob(zl,0)=x then y=ob(zl,1):return
2775  if zl<lo then 2771
2780  y=-99:return
2800  input a$:return
2820  sc=215:bt=0
2850  lv=21:dim vb$(lv)
2860  for i=1 to lv:read vb$(i):next i
2870  data go,get,look,inventory,score,drop,help,save,load,quit,push,shoot
2880  data say,read,eat,copy,show,open,feed,hit,kill
2920  ln=37:dim no$(ln)
2930  for i=1 to ln:read no$(i):next i
2940  data north,east,south,west,up,down,"","",""
2945  data button,tag,fuel,blaster,communicator
2950  data stormtrooper,map,keys,necklace,sesame,grafitti,cape,big mac,tape,turbo
2960  data scientist,plans,schematic,device,gun,security,i.d.,crystal,sign
2970  data robot,princess,door,ammunition
3060  cl=37:dim ds$(cl),ds(cl,5),he$(cl)
3070  for i=1 to cl
3090  for zl=0 to 5:read ds(i,zl):next zl
3100  next i
3110  ds$(1)="I'm in the passenger and storage area "
3111  ds$(1)=ds$(1)+"of the Millennium Falcon.  There's an"
3112  ds$(1)=ds$(1)+" exit here to leave the ship."
3115  data 2,0,0,0,0,3
3120  ds$(2)="I'm in the cockpit of the falcon.  A    "
3121  ds$(2)=ds$(2)+"large red button is labeled push to     "
3122  ds$(2)=ds$(2)+"blast off."
3125  data 0,0,1,0,0,0
3130  ds$(3)="I'm standing next to the Millennium     "
3131  ds$(3)=ds$(3)+"Falcon which is located on a huge deck."
3135  data 18,0,4,0,1,0
3140  ds$(4)="I'm out on the flight deck of Darth     "
3141  ds$(4)=ds$(4)+"Vader's battlecruiser."
3145  data 3,5,4,4,0,0
3150  ds$(5)=ds$(4)
3155  data 4,6,5,4,0,0
3160  ds$(6)="I'm in a hallway.  There are doors on   "
3161  ds$(6)=ds$(6)+"all sides.  The door to the north says: "
3162  ds$(6)=ds$(6)+"closed for the day"
3165  data 7,0,8,5,0,0
3170  ds$(7)="I'm in the supply depot.  Around me I   "
3171  ds$(7)=ds$(7)+"see all kinds of things."
3175  data 0,0,6,0,0,0
3180  ds$(8)="I'm at the end of one of the hallways.  "
3181  ds$(8)=ds$(8)+"I can hear voices nearby.  They sound   "
3182  ds$(8)=ds$(8)+"like stormtroopers."
3185  data 6,10,0,9,0,12
3190  ds$(9)="I'm in the strategic planning room."
3195  data 11,8,0,0,0,0
3200  ds$(10)="I'm in the decontamination room."
3205  data 0,14,0,8,0,0
3210  ds$(11)="This area is the tractor beam control   "
3211  ds$(11)=ds$(11)+"room. There is a sign on the bulkhead:  "
3212  ds$(11)=ds$(11)+"      Only Authorized Personnel         "
3213  ds$(11)=ds$(11)+"          may push buttons!           "
3215  data 0,0,9,0,0,0
3220  ds$(12)="I'm in another hallway.  To the east is "
3221  ds$(12)=ds$(12)+"a restroom."
3225  data 15,13,0,0,8,0
3230  ds$(13)="This is what is commonly called (on     "
3231  ds$(13)=ds$(13)+"earth), the bathroom. There's grafitti "
3232  ds$(13)=ds$(13)+"on the walls and pipes going up through "
3233  ds$(13)=ds$(13)+"the ceiling."
3235  data 15,0,0,12,27,0
3240  ds$(14)="This seems to be an interrogation room."
3245  data 0,0,0,10,0,0
3250  ds$(15)="I'm in the officers lounge."
3255  data 0,0,13,12,0,0
3260  ds$(16)="This is the computer center.  The crt   "
3261  ds$(16)=ds$(16)+"says: COPY TAPE"
3265  data 17,0,18,0,0,0
3270  ds$(17)="I'm in a testing laboratory."
3275  data 0,0,16,0,0,0
3280  ds$(18)="I'm in a hallway.  A large arrow points "
3281  ds$(18)=ds$(18)+"east and says: TO THE VAULT"
3285  data 16,25,3,19,0,0
3290  ds$(19)="This is the entrance to the development "
3291  ds$(19)=ds$(19)+"lab section."
3295  data 20,18,21,20,22,0
3300  ds$(20)="I'm in a long corridor.  There are labs "
3301  ds$(20)=ds$(20)+"all around me."
3305  data 19,23,21,20,22,24
3310  ds$(21)="I'm in a research lab."
3315  data 20,0,0,0,0,0
3320  ds$(22)="I'm lost!!!"
3325  data 22,22,22,22,22,20
3330  ds$(23)=ds$(21)
3335  data 0,0,0,0,20,0
3340  ds$(24)=ds$(21)
3345  data 0,0,0,20,0,0
3350  ds$(25)="I'm near the entrance to the vault.  A  "
3351  ds$(25)=ds$(25)+"sign says: AUTHORIZED PERSONNEL ONLY"
3355  data 0,26,0,18,0,0
3360  ds$(26)="I'm in the vault."
3365  data 0,0,0,25,0,0
3370  ds$(27)="I'm in a pipe tunnel that leads in all  "
3371  ds$(27)=ds$(27)+"directions."
3375  data 28,27,27,27,27,13
3380  ds$(28)=ds$(27)
3385  data 29,29,29,29,30,29
3390  ds$(29)="I'm lost in a maze of pipes."
3395  data 28,29,29,29,29,27
3400  ds$(30)="I'm in a maze of pipes.  Below me I     "
3401  ds$(30)=ds$(30)+"think I see the jail."
3405  data 29,29,28,29,29,31
3410  ds$(31)="I'm in the jail."
3415  data 32,33,34,35,0,0
3420  ds$(32)="I'm in a jail cell."
3425  data 0,0,31,0,0,0
3430  ds$(33)=ds$(32)
3435  data 0,0,0,31,0,0
3440  ds$(34)=ds$(32)
3445  data 31,0,0,0,0,0
3450  ds$(35)="I'm at the security desk.  To the north "
3451  ds$(35)=ds$(35)+"is an elevator."
3455  data 36,31,0,0,0,0
3460  ds$(36)="I'm in the elevator."
3465  data 0,0,35,0,37,0
3470  ds$(37)=ds$(36)
3475  data 0,0,14,0,0,36
3500  lo=23:dim ob$(lo),ob(lo,2)
3510  for i=1 to lo:read ob$(i):next i
3520  data"A tag which says: needs turbo","anti-matter fuel","blaster"
3530  data communicator,a very surprised stormtrooper,a map of the ship
3540  data some keys,a shinestone necklace,princess leia's cape,a big mac
3550  data a cassette tape,a turboencabulator,an evil looking scientist
3560  data secret attack plans,death ray schematic,cloaking device
3570  data micro laser gun,i.d. card,malidum crystals (the treasury)
3580  data"a sign which says: out of order",an attack robot,princess leia
3590  data ammunition
3600  for i=1 to lo:for zl=0 to 2:read ob(i,zl):next zl,i
3601  data 11,5,0
3602  data 12,5,5
3603  data 13,7,0
3604  data 14,9,0
3605  data 15,9,0
3606  data 16,29,20
3607  data 17,9,0
3608  data 18,10,20
3609  data 21,14,5
3610  data 22,15,0
3611  data 23,7,0
3612  data 24,17,5
3613  data 25,17,0
3614  data 26,0,20
3615  data 27,9,20
3616  data 28,17,20
3617  data 29,24,20
3618  data 31,17,0
3619  data 32,26,30
3620  data 33,3,0
3621  data 34,35,0
3622  data 35,34,50
3623  data 37,7,0
3900  he$(1)="We're suppose to leave the stuff here."
3910  he$(2)="I wonder if we have enough fuel."
3920  he$(7)="How about a blaster?"
3930  he$(9)="Try to shoot the stormtrooper."
3940  he$(13)="Read the grafitti."
3950  he$(17)="Try to shoot the scientist."
3960  he$(22)="I'm as confused as you are!":he$(29)=he$(22)
3970  he$(31)="It might help if we had some keys to    "
3971  he$(31)=he$(31)+"open any locked doors."
3980  he$(35)="Did you bring anything to eat?"
3990  m0$="Can't go in there.  The door is locked. "
4000  m1$="I'm not carrying any blank tape."
4010  m2$="The AMIGA recorded on the tape, then it   "
4011  m2$=m2$+"printed: ATTACK PLANS--VERY SECRET"
4020  m3$="I can't.  I'm not carrying any keys."
4030  m4$="OK...the door to the jail is unlocked."
4040  m5$="There's no robot here!"
4050  m6$="But I don't have any Big Macs."
4055  m7$="The Princess thanks you for a delicious"
4056  m7$=m7$+"meal."
4060  m8$="doesn't eat hamburger."
4070  m9$="Nothing happened.  The Big Mac is cold."
4090  n0$="The attack robot eats the Big Mac and   "
4091  n0$=n0$+"disappears."
4100  n1$="I'm at the identification terminal.  On "
4101  n1$=n1$+"the screen it says: SHOW I.D."
4110  n2$="The tractor beam is off."
4120  n3$="The tractor beam is on."
4130  n4$="You forgot to open the flight deck      "
4131  n4$=n4$+"doors."
4140  return
6000  print"You are the only hope of saving"
6010  print"Princess Leia and the freedom fighting"
6015  print"force."
6020  print:print"Her ship has been captured by Darth"
6030  print"Vader and she is being held prisoner on"
6040  print"his battlecruiser.  On board her ship"
6050  print"was the entire treasury of the freedom"
6060  print"fighting forces.  The Princess was also"
6070  print"wearing a necklace of shinestones, with"
6080  print"one stone encoded with the secret"
6090  print"strength and location of the freedom"
6100  print"forces."
6110  print:print"Darth Varder must not discover the"
6120  print"secret or else he will launch an attack"
6130  print"and peace will be lost to the galaxy"
6140  print"for eons to come."
6150  print:print"Press RETURN to continue."
6160  get a$:if a$=""then 6160
6170  scnclr:print"Disguised as a trading ship, you have"
6180  print"just landed on Darth Vader's ship. You"
6190  print"must rescue the Princess, her necklace,"
6200  print"and the treasury.  If you fail to get"
6210  print"the Princess, in the interest of peace"
6220  print"you must at least do everything you can"
6230  print"to foil Vader's plans."
6240  print:print"You must exercise extreme caution."
6250  print"Stormtroopers are everywhere on the "
6260  print"ship.  Only a single rescuer, moving"
6270  print"stealthily, has a chance.  The odds"
6280  print"against you are overwhelming--but for"
6290  print"the sake of the galaxy, you must try!"
6300  print:print"MAY THE FORCE BE WITH YOU."
6310  print"Press RETURN to continue."
6320  get a$:if a$=""then 6320
6330  scnclr:print"During this adventure AMIGA will be"
6340  print"your alter ego.  You take actions by"
6350  print"giving the AMIGA a series of ordinary"
6360  print"English commands of one or two words."
6370  print"examples are: go north, get sign, drop"
6380  print"necklace, eat big mac, etc.  Inventory"
6390  print"will call up a list of the items you"
6400  print"are carrying.  Help may result in a"
6410  print"helpful hint.  Look may reveal very"
6420  print"signficant details that will help you"
6430  print"to win.  Other words in the AMIGA's "
6440  print"lexicon are score, and quit."
6490  print:print"The AMIGA will accept various forms for"
6500  print"some commands.  For example:n, north,"
6510  print"and go north are equivalent.  The AMIGA"
6520  print"looks at only the first four letters of"
6530  print"each word, so inve will get the same"
6540  print"result as inventory."
6690  print:print"Press RETURN to continue."
6700  get a$:if left$(a$,1)=""then 6700
6750  scnclr:print"Save will cause the current game"
6760  print"status to be saved on disk.  Load will"
6770  print"enable you to resume a previously saved"
6780  print"game."
6790  print:print"Remember, everything you encounter in"
6800  print"your Dog Star Adventure has a purpose."
6810  print"there are clues everywhere, but it will"
6820  print"take imagination, perseverance and luck"
6830  print"to rescue the Princess and save the"
6840  print"galaxy."
6900  print:print"Press RETURN to begin."
6910  get a$:if left$(a$,1)=""then 6910
6920  return