Compute! Gazette 1984 June/1984-06.d64/d

Commodore BASIC | 1984-01-01 | 3.0 KB | 83 lines

1 printchr$(147);chr$(144):s1=36874:s2=s1+1:s3=s1+2:s4=s1+3:v=s1+4:sb=s1+5:cl=s1-5
2 c=30720:l=7680:mw=59:fc=0:pc=33:bt=8182:fv=15:fp=0:cs=0:pokesb,8:r=37154:af=0:kf=0
3 pokev,15:pokecl,255:forj=ltol+505:pokej+c,0:pokej,32:next
4 readd:ifd=-1then6
5 pokel+d,mw:l=l+d:goto4
6 l=7680:forj=1to9:readd:pokel+d,34:next
7 forj=1to46:readd:pokel+d,33:next
8 forj=1to3:gosub67:pokeb+l,63:next
9 forj=1to9:gosub67:pokeb+l,36:next
10 pc=32:gosub67:pokeb+l,61
11 gosub67:pokeb+l,35
12 forj=1to3:gosub67:pokeb+l,60:next
13 gosub67:m=b+l:ti$="000000"
14 poker,127:js=(peek(37137)and28)or(peek(37152)and128):js=abs(js-100)/4-7:poker,255
15 ifti$>"000500"then48
16 ifjs=6thendr=-22
17 ifjs=5thendr=22
18 ifjs=3thendr=-1
19 ifjs=11thendr=1
20 ifjs=7thendr=0
21 p=peek(dr+m):ifp=59thendr=0
22 ifp=35thencs=1:pokebt,35:pokebt+c,5:bt=bt+1
23 ifp=36then78
24 ifp=34andkf=0thengosub73
25 ifp=61thenkf=1:poke8181,61:poke8181+c,5
26 getl$:ifl$="l"thenls=1:gosub82
27 ifp=60andls<>1thenfp=1
28 ifp=60andls=1thenfp=2:pit=m+dr
29 ifp=63thenaf=af+1:pokebt,63:pokebt+c,5:bt=bt+1:gosub75
30 ifdr=0andfc=1then44
31 pokem,32:pokem+c,7:pokem+dr+c,7:pokem+dr,58
32 pokem+dr+c-22,7:pokem+dr+c+22,7:pokem+dr+c+1,7:pokem+dr+c-1,7
33 pokem+dr+c-23,7:pokem+dr+c+23,7:pokem+dr+c+21,7:pokem+dr+c-21,7:fc=1
34 ifp=35orp=61thengosub70
35 iffp=1thenpokem+dr,60:goto76
36 ifps=1thenpokepit,60:ps=0
37 iffp=2thenps=1:fp=0
38 ls=0:ifdr=0then44
39 pokes3,240:fort=1to2:next:pokes3,0
40 ifdr=-22thenpokem+c+23,0:pokem+c+22,0:pokem+c+21,0:goto44
41 ifdr=1thenpokem+c-23,0:pokem+c-1,0:pokem+c+21,0:goto44
42 ifdr=-1thenpokem+c-21,0:pokem+c+1,0:pokem+c+23,0:goto44
43 pokem+c-23,0:pokem+c-22,0:pokem+c-21,0
44 m=m+dr:fc=1:ifaf=3then46
45 goto14
46 pokesb,27:fort=1to3000:next:pokecl,240:printchr$(147):print" you saved the castle"
47 print:print:print" play again?":goto52
48 pokes4,220:forj=15to0step-.5:pokesb,127:pokev,j:fort=1to10:next
49 pokesb,42:fort=1to10:next:next:pokes4,0
50 fort=1to5000:next
51 pokecl,240:printchr$(147):print"play again? y/n"
52 geta$:ifa$=""then52
53 ifa$="y"thenrestore:goto1
54 ifa$<>"n"then52
55 end
56 data0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,4,6,8,1,3,4,2,1,1,2,2,1,1,1,1,2
57 data1,2,1,1,1,2,2,4,2,4,2,1,2,5,2,2,1,1,2,1,3,2,1,2,3,2,2,3,4,2,1,2,1,5,2,2,1,2,4,5
58 data1,1,1,1,1,1,2,3,2,1,1,1,1,2,1,1,1,1,7,3,6,2,3,1,2,1,1,2,1,1,1,1,2,1,1,1,1,2,3,1
59 data2,6,2,2,4,2,1,2,1,2,3,3,4,2,7,1,2,1,1,1,1,1,1,1,1,4,1,2,1,1,2,1,12,2,3,2,2,1,1,1
60 data2,1,2,2,1,2,2,3,2,2,1,2,2,3,3,2,1,1,1,1,1,2,2,1,2,2,1,1,1,3,3,4,2,2,1,4,3,1,1,1
61 data1,2,2,1,1,4,1,2,2,9,6,2,1,2,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,4,2,5,2,8,1,6
62 data3,4,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1
63 data67,72,102,127,140,240,280,316,419
64 data23,24,26,27,28,45,46,48,49,50,82,83,84,105,106,123,124,125,145,146,147,162,163
65 data184,185,195,196,217,218,301,302,323,324,338,339,360,361,441,442,443,445
66 data463,464,465,466,467
67 b=int(rnd(1)*501)+0
68 ifpeek(b+l)<>pcthen67
69 return
70 pokes3,185:pokes2,202:pokes1,202:forj=15to0step-.5:pokev,j:next:pokes3,210
71 pokes1,232:pokes2,232:forj=15to0step-.05:pokev,j:next
72 forj=0to2:pokes1+j,0:next:pokev,15:return
73 pokem,32:pokem+dr,37:pokes4,130:forj=15to0step-1:pokev,j:next:pokes4,0:pokem+dr,34
74 pokem,58:pokev,15:dr=0:fort=1to500:next:return
75 pokes3,220:fort=1to50:next:pokes3,0:return
76 forj=254to180step-.5:pokes2,j:pokes3,j:pokev,fv:fv=fv-.1:next:pokes2,0:pokes3,0
77 pokecl,240:printchr$(147):print" you fell into a pit":goto81
78 forg=190to235:pokes4,g:fort=1to10:next:next:forg=235to220step-1:pokes4,g:fort=1to20
79 next:next:forj=15to5step-.1:pokev,j:next:pokes4,0:pokev,15:ifcs=1then24
80 pokecl,240:printchr$(147):print" you lost to a beast!!"
81 pokesb,27:fort=1to3000:next:goto51
82 fori=0to3:forj=0to15:pokev,j:n=180+i*j:pokes3,n:nextj,i:pokes3,0:return