Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 0 rem
- 0 rem
- 5 poke 56333,127 : poke 808,234 : poke 792,193 : poke 52,116 : poke 56,116 : clr
- 6 print "[wht]";chr$(8);
- 7 of=00
- 8 for i=0to 63 : cl$=cl$+chr$(0) : nexti
- 10 goto 20000
- 12 poke 55822,i : poke 55862,i : poke 55902,i : return
- 14 poke 55942,i : poke 55982,i : return
- 18 gosub 19 : print i$; : return
- 19 i$=left$("000000",sd+1-len(str$(v)))+right$(str$(v),len(str$(v))-1) : return
- 20 if fu+i>376then i=376-fu
- 21 if fu+i<0then i=fu
- 22 j=cw : j=j+6.5*i : if j>mx then 30
- 23 fu=fu+i : cw=j : poke 214,14 : print : poke 211,23
- 24 sd=4 : v=fu : gosub 18 : z=22-int(fu/16.3) : u=12-int(fu/28.9)
- 25 if z>0then poke 51080+z,0
- 26 if z<22then poke 51082+z,255
- 27 if u>0then poke 51060+u,0
- 28 if u<12then poke 51062+u,255
- 29 goto 36
- 30 poke 214,18 : print "[red]" : poke 211,30
- 34 sd=5 : v=cw : gosub 18
- 35 for i=1to 100 : next i
- 36 poke 214,18 : print "[cya]" : poke 211,30
- 37 sd=5 : v=cw : gosub 18
- 38 return
- 40 j=cw : j=j+i*26 : if j>mxthen 30
- 44 rn=rn+i : cw=j : i=rn*20 : poke 214,13 : print : poke 211,23
- 46 sd=4 : v=i : gosub 18 : print : goto 36
- 50 if (i<>0) and (i<>4)then return
- 54 j=cw-w(s1)*bw+w(i)*bw : if j>mxthen 30
- 56 u=s1 : s1=i : cw=j : poke sp+2,225+s1*lw : poke sp+7,225+s1*rw : poke 53289,c(s1)
- 58 poke 53294,c(s1) : gosub 36
- 60 wp(u)=wp(u)-1 : wp(i)=wp(i)+1
- 64 if u>0then j=u : gosub 70
- 66 if i>0then j=i : gosub 70
- 68 return
- 70 z=wp(j)*wc(j)*bw : poke 214,12+j : print : poke 211,37
- 74 sd=2 : v=z : gosub 18 : return
- 80 j=cw-w(s2)*bw+w(i)*bw : if j>mxthen 30
- 84 u=s2 : s2=i : cw=j : poke sp+3,225+s2*lw : poke sp+6,225+s2*rw : poke 53290,c(s2)
- 86 poke 53293,c(s2) : gosub 36 : goto 60
- 90 j=cw-w(s3)*bw+w(i)*bw : if j>mx then 30
- 94 u=s3 : s3=i : cw=j : poke sp+4,225+s3*lw : poke sp+5,225+s3*rw : poke 53291,c(s3)
- 96 poke 53292,c(s3) : gosub 36 : goto 60
- 100 j=cw-ch*20*cd+i*20*cd : if j>mxthen 30
- 104 cw=j : ch=i*cd
- 106 if ch=1 and fr=2then i=1 : gosub 110
- 108 if ch=2then i=0 : gosub 110
- 109 goto 120
- 110 j=cw-fr*20*fd+i*20*fd : if j>mxthen 30
- 114 cw=j : fr=i*fd
- 116 if fr=1 and ch=2then i=1 : gosub 100
- 118 if fr=2then i=0 : gosub 100
- 120 if ch>0then i=15 : gosub 12 : if ch=2then gosub 14
- 122 if fr>0then i=10 : gosub 14 : if fr=2then gosub 12
- 124 if ch=1 and fr=0then i=8 : gosub 14
- 126 if fr=1 and ch=0then i=8 : gosub 12
- 128 if ch=0 and fr=0then i=8 : gosub 12 : gosub 14
- 130 poke 214,15 : print : poke 211,23 : i=ch*30
- 132 sd=4 : v=i : gosub 18 : print
- 134 poke 211,23 : i=fr*30
- 136 sd=4 : v=i : gosub 18
- 138 goto 36
- 140 i=peek(mb+i*12+1) : j=int((peek(eh+i)+8)/16-1) : gosub 150 : i$=a$+"-"
- 142 j=int((peek(ey*256+i)+8)/16-1) : gosub 150 : i$=i$+a$ : return
- 150 a$=left$("00",3-len(str$(j)))+right$(str$(j),len(str$(j))-1) : return
- 160 i=peek(mb+(i-1)*12) : if i=1then print "at"; : return
- 162 print "in the vicinity of"; : return
- 200 poke 53269,0 : open 15,8,15 : open 2,8,2,"#1" : for i=0to 3 : print#15,"u1";2;0;1;i+1
- 220 print#15,"b-p";2;0 : poke a0,0 : poke a1,140+i : sys ke+69 : nexti : close 2 : close 15
- 230 sys 65484 : return
- 250 sys ke+66 : for i=0to 3 : poke (140+i)*256,1 : poke (140+i)*256+1,i+2 : nexti
- 254 poke 142*256+192,cp : poke 53269,0
- 260 open 15,8,15 : open 2,8,2,"#1" : for i=0to 3 : print#15,"b-p";2;0
- 270 poke a0,0 : poke a1,140+i : sys ke+72 : print#15,"u2";2;0;1;i+1 : nexti : close 2 : close 15
- 280 sys 65484 : return
- 400 hl=0 : ls=0 : nm=0 : nr=0 : v=xp : gosub 980 : x=hi : ds=999 : i=43 : gosub 930 : s=v
- 412 v=yp : gosub 980 : y=hi : de=0 : h=0
- 420 for i=6to 121 : j=peek(et+i) : if jthen 430
- 422 v=peek(eg+i) and 47 : if v=0then 450
- 424 h=h-(v<32)+(v>31) : s=s+s%(v) : goto 450
- 430 v=abs(peek(eh+i)-x)+abs(peek(ey+i)-y)
- 440 if v<=dsthen ds=v : de=i
- 450 next i
- 460 v=peek(et+de) and 47 : if v=38 and ds<5then hl=1
- 470 if v>31then ls=1
- 471 s=((s+hh*30)-100*((ob and 2)=2)-200*((ob and 1)=1))*u(un)*q(qu)*sf(sf) : h=h+hh
- 472 if fl=0then s=s*.9
- 473 if l3=0then s=s*.8
- 474 if wt=0then s=s*.8
- 475 if tm>4096then s=s*(4096/tm)
- 476 if un=0then s=-20*(ln<4)-10*(ob>0)
- 477 if ls=0then s=s*.6
- 478 if ls=1 and hl=0then s=s*.8
- 479 s=int(s/10)
- 480 sc=sc+s : if sc>32767then sc=32767
- 481 if sc<-32760then sc=-32760
- 482 return
- 486 v=sc : gosub 980 : v=lo : i=21 : gosub 900 : v=hi : i=22 : gosub 900
- 487 v=s : gosub 980 : v=lo : i=48 : gosub 900 : v=hi : i=49 : gosub 900
- 488 if r=7 or (ob=0 and r>0)then 498
- 490 nr=1 : i=23 : gosub 970 : nr=nr*1.1^v : i=29 : gosub 970 : nr=nr*.9^v : j=0
- 492 for i1=32to 33 : i=i1 : gosub 970 : j=j+v : i=i1+2 : gosub 970 : j1=j1+v : nexti1
- 496 nr=nr*.9^j*.8^j1 : j=r(r)*nr : nr=0 : if sc>=jthen nr=r+1 : r=nr : v=r : i=20 : gosub 900
- 498 if un=0then 550
- 500 if ob=0then i=47 : gosub 910 : if lm>3+(r>1)+(r>4)then r(0)=23 : nm=1 : v=0 : i=47 : gosub 900
- 501 if s<0then r(0)=23 : nm=1
- 502 if (ob>0)then v=0 : i=47 : gosub 900
- 503 if wd=2then r(nm)=30 : nm=nm+1
- 504 cn(un)=cn(un)-1*(ob>0)
- 506 if cn(un)>2then cn(un)=0 : r(nm)=un : nm=nm+1
- 507 v=cn(un) : i=35+un : gosub 900
- 508 bm=0 : if ob=0then 520
- 510 i=31 : j=60 : gosub 590 : if s>vthen bm=31
- 512 i=32 : j=110 : gosub 590 : if (s>v) and (r>0)then bm=32
- 514 i=33 : j=200 : gosub 590 : if (s>v) and (r>1)then bm=33
- 516 i=34 : j=350 : gosub 590 : if (s>v) and (r>2)then bm=34
- 518 i=35 : j=500 : gosub 590 : if (s>v) and (r>2) and (ht>0)then bm=35
- 519 if bm>0then r(nm)=bm : nm=nm+1
- 520 return
- 550 if ln<4 and h>1then r(0)=24 : nm=1
- 560 return
- 590 gosub 970 : v=j*(v+1) : i=8000+(31-i)*500 : if v>ithen v=i
- 592 return
- 800 v=asc(mid$(rs$(j),47,1)) : dc$(j)="" : if vthen dc$(j)=mid$("KIAMIA",v*3-2,3)
- 802 m=0 : for i=12 to 0 step -1
- 804 a=asc(mid$(rs$(j),24+i,1)) : if a=0then 820
- 806 m=m+1 : i$=mid$(m$,i*5+1,5) : j$=" "
- 810 for x=1 to 5 : if mid$(i$,x,1)<>" "then j$=j$+mid$(i$,x,1)
- 812 nextx : j$=j$+"[dgrey]" : if a>1then j$=j$+right$(str$(a),len(str$(a))-1)
- 814 j1$=dc$(j)+j$ : if len(j1$)-m*2>35then i=-1 : goto 820
- 816 dc$(j)=j1$
- 820 nexti : j$="" : j1$="" : return
- 900 i$=left$(rs$(cp),i)+chr$(v)+right$(rs$(cp),63-i) : rs$(cp)=i$ : return
- 910 v=asc(mid$(rs$(cp),i+1,1)) : v=v-1*(v<255) : goto 900
- 920 for x=0to 19 : poke tx+x,asc(mid$(i$,x+1,1)) : nextx
- 922 poke a2,255 : poke a3,170 : poke a0,i : poke a1,j : sys ke+75 : return
- 930 v=peek(db+i*2)+256*peek(db+i*2+1) : return
- 940 i$=str$(v*10) : if left$(i$,1)=" "then print right$(i$,len(i$)-1); : return
- 942 print i$; : return
- 950 for i=0to 19 : poke tx+i,v : nexti : return
- 960 poke ke+562,143 : poke ke+563,98 : return
- 970 v=asc(mid$(rs$(cp),i+1,1)) : return
- 980 if v<0then v=65536+v
- 982 hi=int(v/256) : lo=v-hi*256 : return
- 990 gosub 980 : poke db+i*2,lo : poke db+i*2+1,hi : return
- 1000 if ln<2then 21000
- 1021 if ln>127then op=-1 : goto 27310
- 1022 goto 7000
- 4300 n$="" : i=0
- 4302 if i=20 or mid$(rs$(cp),i+1,1)=chr$(0)then 4304
- 4303 n$=n$+mid$(rs$(cp),i+1,1) : i=i+1 : goto 4302
- 4304 i=asc(mid$(rs$(cp),21,1)) : r=i : gosub 4600 : r$=i$
- 4305 dc$=dc$(cp) : i=cp : gosub 4610 : sc$=i$
- 4306 i=40 : gosub 970 : fl=v
- 4308 i=41 : gosub 970 : l3=v
- 4310 i=42 : gosub 970 : wt=v
- 4312 i=43 : gosub 970 : qu=v
- 4313 i=16 : gosub 930 : gosub 980 : ms=lo+1
- 4314 i=44 : gosub 970 : un=v : gosub 14110
- 4316 i=45 : gosub 970 : sf=v
- 4317 i=36 : gosub 970 : cn(1)=v
- 4318 i=37 : gosub 970 : cn(2)=v
- 4319 i=38 : gosub 970 : cn(3)=v
- 4320 i=39 : gosub 970 : cn(4)=v
- 4321 i=47 : gosub 970 : lm=v
- 4390 return
- 4600 i$=mid$("SGTWO12LT1LTCPTMAJLTCCOL",i*3+1,3) : return
- 4610 sc=asc(mid$(rs$(i),22,1))+256*asc(mid$(rs$(i),23,1))
- 4611 if sc>32767then sc=sc-65536
- 4612 i$=str$(sc) : return
- 5000 gosub 21300 : gosub 486
- 5122 bm=0 : if nm=0then return
- 5124 for j=0to nm-1 : if r(j)>5 then 5130
- 5126 i=r(j)+24 : gosub 970 : if v=0then : r(j)=r(j)+24
- 5128 if vthen r(j)=29
- 5130 i=r(j) : gosub 910 : if r(j)>bmthen bm=r(j)
- 5132 nextj
- 5138 if r(0)<>23then 5144
- 5140 for i=0to nm-2 : r(i)=r(i+1) : nexti : nm=nm-1 : j=j-1
- 5144 return
- 6000 poke 53269,0
- 6010 print "[wht][clr][dn][dn][dn][dn][dn][dn][dn][dn] Turn disk over and insert it"
- 6015 if d$="2"then print "[dn] Backside face ";chr$(34);"UP";chr$(34)
- 6020 if d$="1"then print "[dn] Frontside face ";chr$(34);"UP";chr$(34)
- 6030 print "[dn][dn][dn][dn] press BUTTON when ready" : poke 198,0
- 6040 poke 53280,11 : bk=11 : ss=0 : gosub 14450
- 6045 if peek(56320) and 16then 6050
- 6050 print "[clr]";
- 6060 poke 53269,0
- 6065 open 15,8,15,"i0 : " : open 2,8,2,"#1" : print#15,"u1";2;0;18;0
- 6070 print#15,"b-p";2;163 : get #2,i$ : close 2 : close 15 : if i$<>d$then 6080
- 6080 poke 53265,0 : return
- 7000 gosub 400 : v=dm : gosub 980
- 7012 wd=0 : if ht>2then wd=1
- 7014 if (ht>4) and ((tm and 32)=32)then wd=2
- 7050 j=0 : v=128 : for i=0to 7 : if (lo and v)=vthen j=j+1
- 7052 if (hi and v)=vthen j=j+1
- 7054 v=v/2 : nexti : dn=j : if dn>11then wd=2
- 7990 goto 22000
- 10000 i$="" : gosub 14400
- 10020 poke a0,0 : poke a1,208 : poke a2,0 : poke a3,168 : poke a4,0 : poke a5,8 : sys ke+78
- 10900 d$="2" : gosub 6060 : sys ke+54 : poke 648,4
- 10910 print "[dgrey][clr][dn][dn]new[dn][dn][dn]load ";chr$(34);"6";chr$(34);",8,1[dn][dn][dn][dn][dn]"
- 10920 print "[wht] Preflight systems check"
- 10930 poke 631,13 : poke 632,13 : poke 198,2
- 10940 poke 56576,3 : poke 53272,22 : poke 53269,0 : poke 53270,200 : poke 53281,11
- 10950 poke 53265,27 : print "[dgrey][home]"; : poke 808,237 : new
- 12000 i$="[wht]Repairing Damage" : gosub 14400 : sys ke+12
- 12020 v=0 : i=55 : gosub 990
- 12030 v=0 : i=57 : gosub 990
- 12040 v=0 : i=54 : gosub 990 : dm=0
- 12042 i=43 : v=s : gosub 990
- 12050 for i=6to 121 : if peek(et+i)then 12100
- 12052 j=peek(eg+i) : if (j and 192)<>0then 12100
- 12053 if j=0then 12100
- 12054 if rnd(0)>dn/5then 12100
- 12060 poke et+i,j and 239-16*(un=0) : x=peek(eh+i)+8 : if x>255then x=x-256
- 12070 y=peek(ey+i)+8 : if y>255then y=y-256
- 12075 j=int(y/16)*16+int(x/16)
- 12080 poke (eg+i),j : poke bb+j,peek(bb+j) or (2^(peek(eo+i) and 7))
- 12100 nexti
- 13000 i=61 : gosub 930 : tp=v
- 13002 v=dm : gosub 980 : lw=-((hi and 8)=0) : rw=-((hi and 4)=0) : bw=lw/2+rw/2
- 13004 cd=-((hi and 32)=0) : fd=-((lo and 128)=0)
- 13010 poke 53265,0 : f$="ar" : b=176*256 : gosub 16005
- 13012 poke ke+551,1 : poke 53265,0
- 13020 print "[clr][cya]";
- 13025 poke a0,0 : poke a1,176 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 13026 poke a0,0 : poke a1,188 : poke a2,0 : poke a3,216 : poke a4,0 : poke a5,4 : sys ke+48
- 13030 poke a0,10 : sys ke+60
- 13070 mx=21000-50*abs(76-tp) : cw=10760 : s1=0 : s2=0 : s3=0
- 13072 for i=0to 4 : wp(i)=0 : nexti
- 13080 on ungoto 13090,13100,13110,13120
- 13081 mx=mx-700 : fu=376 : rn=60 : ch=1 : fr=1 : hl=1 : f1=1 : f2=0 : sw=1 : goto 13130
- 13090 mx=mx-350 : fu=376 : rn=60 : ch=1 : fr=1 : hl=0 : f1=1 : f2=1 : sw=0 : goto 13130
- 13100 fu=376 : rn=60 : ch=1 : fr=1 : hl=1 : f1=0 : f2=1 : sw=1 : goto 13130
- 13110 mx=mx-700 : fu=376 : rn=30 : ch=1 : fr=1 : hl=1 : f1=0 : f2=1 : sw=1 : goto 13130
- 13120 fu=374 : rn=60 : ch=1 : fr=1 : hl=1 : f1=0 : f2=1 : sw=1
- 13130 cw=cw+fu*6.5+rn*26 : for i=51082to 51103 : poke i,255 : nexti
- 13131 poke 214,20 : print : for i=51062to 51073 : poke i,255 : nexti
- 13132 poke 211,36-len(str$(mx)) : print right$(str$(mx),len(str$(mx))-1);
- 13134 i=ch : ch=0 : gosub 100 : i=fr : fr=0 : gosub 110
- 13140 i=0 : gosub 20 : i=0 : gosub 40
- 13142 i=sw*4 : gosub 50 : i=f2*2 : gosub 90 : i=f1*3 : gosub 80
- 13144 if s2=0then i=hl : gosub 80 : goto 13150
- 13146 if s3=0then i=hl : gosub 90
- 13150 bk=0 : gosub 14450
- 13190 poke ke+562,147 : poke ke+563,94
- 13191 poke l1+12,41 : j=8 : for i=56216to 56225 : poke i,j : poke i+40,8 : j=0 : nexti
- 13195 hd=0 : poke sp+1,225
- 13200 poke a1,sm : sys ke : op=peek(a0)
- 13210 if (op=0) and (rn<60)then i=1 : gosub 40 : goto 13195
- 13212 if (op=1) and (rn>0)then i=-1 : gosub 40 : goto 13195
- 13214 if (op=2) and (fu<376)then i=8 : gosub 20 : goto 13195
- 13216 if (op=3) and (fu>0)then i=-8 : gosub 20 : goto 13195
- 13220 if op=4 and ch<1then i=ch+1 : gosub 100 : goto 13195
- 13222 if op=5 and ch>0then i=ch-1 : gosub 100 : goto 13195
- 13224 if op=6 and fr<1then i=fr+1 : gosub 110 : goto 13195
- 13226 if op=7 and fr>0then i=fr-1 : gosub 110 : goto 13195
- 13230 if op=8then hd=1 : poke sp+1,226 : goto 13200
- 13232 if op=9then hd=2 : poke sp+1,227 : goto 13200
- 13234 if op=10then hd=4 : poke sp+1,229 : goto 13200
- 13236 if op=11then hd=3 : poke sp+1,228 : goto 13200
- 13238 if op<>15then 13244
- 13239 xx=peek(ke+560) : poke sl+15,0
- 13240 if xx>45+(1-rw)*200 or xx<6*lwthen i=hd : gosub 50 : goto 13195
- 13241 if xx>38+(1-rw)*200 or xx<13*lwthen i=hd : gosub 80 : goto 13195
- 13242 if xx>31+(1-rw)*200 or xx<19*lwthen i=hd : gosub 90 : goto 13195
- 13243 goto 13200
- 13244 rem
- 13246 if op=14then 13920
- 13248 if op=13then 13300
- 13250 goto 13195
- 13300 i$="" : gosub 14400 : gosub 13320 : goto 13130
- 13320 cw=cw-fu*6.5-rn*26-(ch+fr)*20 : fu=376 : rn=00 : ch=0 : fr=0 : hl=0 : f1=0 : f2=0 : sw=0
- 13325 for i=0to 4 : poke sp+2+i,225 : nexti : poke sp+7,225 : return
- 13900 poke a0,0 : poke a1,176 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 13910 goto 12000
- 13920 poke 53265,0 : v=fu*.415*128 : i=3 : gosub 990
- 13921 v=fu*.585*128 : i=4 : gosub 990
- 13922 v=rn : i=10 : gosub 990
- 13923 v=wp(4)*2*bw : i=11 : gosub 990
- 13924 v=(wp(2)*7+wp(3)*19)*bw : i=12 : gosub 990
- 13925 v=wp(1)*8*bw : i=13 : gosub 990
- 13926 v=fr*10*fd : i=14 : gosub 990
- 13927 v=ch*10*cd : i=15 : gosub 990
- 13930 goto 10000
- 14029 stop
- 14110 on ungoto 14120,14121,14122,14123
- 14112 un$="Training Camp" : ar$="USA" : return
- 14120 un$="6 REGT, 1 CAV DIV" : ar$="Southeast Asia" : return
- 14121 un$="CBAA, 82 ABN DIV" : ar$="Central America" : return
- 14122 un$="CBAA, 101 AAS DIV" : ar$="the Middle East" : return
- 14123 un$="CBAA, 3 ARM DIV" : ar$="Western Europe" : return
- 14150 if un=0then md$="Training" : return
- 14154 if ms>10then 14158
- 14156 on msgosub 14160,14161,14162,14163,14164,14165,14166,14167,14168,14169
- 14157 goto 14180
- 14158 on ms-10gosub 14170,14171,14172
- 14159 goto 14180
- 14160 md$="Dheadquarters1" : return
- 14161 md$="Ddepot1" : return
- 14162 md$="Dheli-base1" : return
- 14163 md$="DAA guns2" : return
- 14164 md$="Dmobile SAMs2" : return
- 14165 md$="Dtanks3" : return
- 14166 md$="DBMPs & BTRs3" : return
- 14167 md$="Dinfantry3" : return
- 14168 md$="Dbunker3" : return
- 14169 md$="Stroops3" : return
- 14170 md$="Sbase3" : return
- 14171 md$="Clear LZ3" : return
- 14172 md$="Search & Destroy5" : return
- 14180 md$=left$(md$,len(md$)-1)
- 14183 ms$=""
- 14190 if left$(md$,1)="D"then md$="destroy enemy "+right$(md$,len(md$)-1)
- 14191 if ms=13then 14193
- 14192 if left$(md$,1)="S"then md$="support friendly "+right$(md$,len(md$)-1)
- 14193 return
- 14400 poke 53265,of : poke 648,4 : poke a0,0 : poke a1,4 : poke a2,1 : poke a3,4 : poke a4,255
- 14402 poke a5,3 : poke 1024,32 : sys ke+48 : for i=217to 242 : poke i,peek(i) or 128 : nexti
- 14404 poke 214,11 : print : poke 53281,11
- 14406 poke 211,20-int(len(i$)/2+.5) : print i$; : poke 53272,22 : poke 56576,3 : poke 648,sm
- 14408 poke 53269,0 : poke 53265,27
- 14410 poke ke+552,0 : poke ke+553,159 : poke ke+554,0 : poke ke+555,99 : return
- 14440 poke 53280,2
- 14450 poke 53265,0 : poke 56576,0 : poke 53272,32 : poke 53269,ss : ss=255 : poke 53281,bk
- 14490 bk=1 : poke 53265,27 : return
- 14500 sys ke+12 : poke 53265,0 : poke 56576,0 : poke 648,200 : poke 53272,32 : poke 53270,216
- 14520 poke 53269,255 : poke sp,177
- 14540 poke 53280,11 : poke 53281,1 : return
- 14600 if md>10then on md-10goto 14680,14690,14700
- 14605 on mdgoto 14610,14630,14640,14640,14640,14640,14650,14620,14660,14670
- 14610 print "Your commander was outraged by your failure to destroy your ";
- 14611 print "objectives. He places a reprimand in your record. ";
- 14612 print "You're off the flight line and peeling potatoes for the next";
- 14613 print " week!"; : f$="po" : return
- 14620 print "[pwr][pwr]You were wounded in combat. During your recovery at the base ";
- 14621 print "hospital you receive the Purple Heart."; : f$="pu" : return
- 14630 print "[pwr]Congratulations "n$".[pwr][pwr]Your performance during training";
- 14631 print " was superior, you receive the National Defense Service Medal.";
- 14632 f$="st" : return
- 14640 print "[pwr]Congratulations "n$".[pwr][pwr]You have successfully completed";
- 14641 print " a tour of duty in "ar$" and receive ";
- 14642 if un<>3then print "the ";
- 14643 print ar$" campaign ribbon.[lftarr]"; : f$="st" : return
- 14650 print "[pwr]Congratulations "r$" "n$".[pwr][pwr]You have completed another ";
- 14651 print "mission successfully. You receive the Air Medal, honoring ";
- 14652 print "combat flight hours."; : f$="st" : return
- 14660 print "[pwr]Your commanding officer was pleased with your excellent ";
- 14661 print "performance on the mission. You receive the Army Commendation ";
- 14662 print "Medal."; : f$="st" : return
- 14670 print "[pwr][pwr]Your brave behavior on this mission was noticed by your ";
- 14671 print "commander. You receive the Bronze Star for Valor.";
- 14672 f$="st" : return
- 14680 print "[pwr]Your heroic and gallant behavior on this mission was noticed. ";
- 14681 print "You will receive the Silver Star from the Army Chief of Staff.";
- 14682 f$="si" : return
- 14690 print "Your extraordinarily heroic work on this mission was noticed. ";
- 14691 print "You receive America's second highest award : [pwr][pwr] The Distinguished ";
- 14692 print "Service Cross."; : f$="si" : return
- 14700 print "[pwr]Your conspicuous gallantry above and beyond the call of duty ";
- 14701 print "has been recognized. You receive America's highest award : ";
- 14702 print "The Congressional Medal of Honor from the President of the ";
- 14703 print "United States."; : f$="th" : bb=6 : ll=120 : return
- 15000 i$="" : gosub 14400 : sys ke+12 : d$="1" : gosub 6060 : gosub 250 : sys ke+54 : poke 32772,0
- 15010 sys 64738
- 16000 rem
- 16005 poke 53269,0 : if smthen sys ke+54
- 16010 gosub 16050
- 16020 poke 781,b-int(b/256)*256 : poke 782,b/256
- 16030 poke 780,0 : poke 56333,127 : poke 808,237 : sys 65493 : poke 808,234
- 16035 if (st and 191)<>0then 16010
- 16039 poke 792,193 : if smthen sys ke+3
- 16040 return
- 16050 for i=0to len(f$)-1 : poke 1006+i,asc(mid$(f$,i+1,1)) : nexti
- 16070 poke 780,0 : poke 781,8 : poke 782,1 : sys 65466
- 16080 poke 780,len(f$) : poke 781,238 : poke 782,3 : sys 65469
- 16090 return
- 20000 ke=117*256
- 20011 f$="op" : gosub 16000
- 20100 dim rs$(11),s%(47),dc$(11)
- 20110 sm=200 : sp=sm*256+1016 : sh=ke+120 : rl=sh+6 : sx=rl+6 : sy=sx+6
- 20120 a0=165 : a1=a0+1 : a2=a1+1 : a3=a2+1 : a4=a3+1 : a5=a4+1 : a6=a5+1 : a7=a6+1
- 20130 no=ke+144 : l1=no+1 : t1=l1+24 : r1=t1+24 : b1=r1+24 : c1=b1+24 : ex=c1+24 : gr=ex+24
- 20132 sl=gr+24 : cr=sl+24 : l2=cr+24 : t2=l2+24 : r2=t2+24 : b2=r2+24 : c2=b2+24
- 20140 rs=ke+481 : g1=rs+5 : v1=g1+5 : g2=v1+5 : v2=g2+5
- 20150 bt=ke+539 : pt=bt+2 : hr=pt+2 : ml=hr+2 : bc=ml+2 : pc=bc+2
- 20160 db=828 : sv=49*256 : oc=21464 : rs=828+38 : yh=ke+554 : yl=yh+1
- 20170 mb=144*256 : cb=145*256 : tb=146*256 : bb=147*256 : eh=148*256 : ey=eh+128
- 20180 eg=ey+128 : eo=eg+128 : et=eo+128 : tx=ke+564 : ss=255 : bk=1
- 20190 m$="[mgrey]SR [mgrey]NDS [mgrey]SEAC[mgrey]CAC [mgrey]MEC [mgrey]WEC [mgrey]AM [mgrey]PH [mgrey]ACM [mgrey]BSV [mgrey]SS [mgrey]DSC [mgrey]CMOH"
- 20206 read w(0),w(1),w(2),w(3),w(4)
- 20208 read wc(0),wc(1),wc(2),wc(3),wc(4)
- 20210 read c(0),c(1),c(2),c(3),c(4)
- 20220 for i=1to 13 : read s%(i) : nexti
- 20230 read s%(33),s%(34),s%(38)
- 20240 read u(1),u(2),u(3),u(4)
- 20250 read q(0),q(1),q(2)
- 20260 read sf(0),sf(1),sf(2)
- 20270 read r(0),r(1),r(2),r(3),r(4),r(5),r(6)
- 20312 for i=0to 11 : rs$(i)=cl$ : nexti
- 20410 i=59 : gosub 930 : cp=v : if cp=11then poke 648,sm : sys ke+3 : goto 27320
- 20420 rs$(cp)="" : for i=rsto rs+63 : rs$(cp)=rs$(cp)+chr$(peek(i)) : nexti : gosub 4300
- 20500 i=52 : gosub 930 : xp=v
- 20501 i=53 : gosub 930 : yp=v
- 20502 i=54 : gosub 930 : dm=v
- 20503 i=55 : gosub 930 : ht=v
- 20504 i=56 : gosub 930 : tm=v
- 20505 i=57 : gosub 930 : hh=v
- 20506 i=58 : gosub 930 : ln=v
- 20507 i=60 : gosub 930 : ob=v and 3
- 20508 i=3 : gosub 930 : fu=v
- 20509 i=4 : gosub 930 : fu=fu+v
- 20900 poke 53265,0 : sys ke+3 : gosub 14500 : poke ke+551,0 : poke 53277,0 : poke 53271,0
- 20990 i$="[wht]Please Stand By" : gosub 14400 : poke 53276,0 : goto 1000
- 21000 i$="[wht]Please Stand By" : gosub 14400 : print "[clr]" : poke 214,12 : print : gosub 400
- 21010 b=152*256-5 : f$="cr" : gosub 16005
- 21020 poke bt,1 : poke bt+1,0
- 21022 poke pt,56 : poke pt+1,32
- 21024 poke hr,59 : poke hr+1,27
- 21026 poke ml,216 : poke ml+1,200
- 21028 poke bc,0 : poke bc+1,1
- 21030 poke pc,140 : poke pc+1,0
- 21040 sys ke+12 : sys ke+39
- 21100 print "[blk] FATAL CRASH![dn]"
- 21110 print "[blu] "r$" "n$
- 21120 print "[blk] YOUR CAREER AS A PILOT IS OVER," : print " PERMANENTLY."
- 21130 print "[dn] Your personal effects will be sent to your next of kin."
- 21140 poke 214,23 : print
- 21160 print "[cya] ▊[rvs]Continue[rvoff]";
- 21170 poke no,0 : poke l1,30 : poke r1,39 : poke t1,24
- 21180 poke b1,25 : poke c1,1 : poke ex,0 : poke gr,i : poke sl,0
- 21182 poke yh,70
- 21185 poke cr,1 : ss=1 : gosub 14450 : gosub 960
- 21200 poke a1,sm : sys ke : op=peek(a0) : poke 53265,0 : sys ke+12 : poke 53265,0
- 21210 i=46 : gosub 910 : gosub 14500 : gosub 5000 : goto 26000
- 21300 f$="me" : b=152*256-5 : gosub 16005 : poke 53281,11 : sys ke+45 : return
- 22000 poke 53265,0 : poke 53270,200 : poke 53275,0
- 22020 v=dm : gosub 980
- 22090 print "[clr][dn][dn] [blk]What next, hotshot?"
- 22200 print "[blk]"; : i=0
- 22210 poke 214,3 : print : i$=" "
- 22212 print i$"Personally inspect your machine"
- 22214 print i$"for damage"
- 22218 x=0 : gosub 22800
- 22250 print "[blk]"; : i=0 : if ((lo and 12)=12) or ((ob=3) and (hl=1))then print "[lgrey]"; : i=1
- 22252 if wd>1 or fu=0then print "[lgrey]"; : i=1
- 22260 poke 214,7 : print
- 22262 print i$"Take off again immediately"
- 22268 x=1 : gosub 22800
- 22300 print "[blk]"; : i=0 : if ((ob=3) and (hl=1))then print "[lgrey]"; : i=1
- 22302 if (hl=0) or (wd>1)then print "[lgrey]"; : i=1
- 22310 poke 214,11 : print
- 22312 print i$"Rearm and Refuel to continue"
- 22314 print i$"mission without repairing damage"
- 22318 x=2 : gosub 22800
- 22350 print "[blk]"; : i=0 : if ((ob=3) and (hl=1))then print "[lgrey]"; : i=1
- 22352 if (dm=0) or (wd>1) or (hl=0)then print "[lgrey]"; : i=1
- 22360 poke 214,15 : print
- 22362 print i$"Rearm, Refuel, and repair damage"
- 22364 print i$"then continue the mission"
- 22368 x=3 : gosub 22800
- 22400 print "[blk]"; : i=0
- 22410 poke 214,19 : print
- 22412 print i$"Leave your chopper and call it"
- 22414 print i$"quits for this mission"
- 22418 x=4 : gosub 22800
- 22450 poke no,4
- 22460 sys ke+27 : poke ke+562,128 : poke ke+563,87
- 22480 for i=0to 4 : poke 214,i*4+3 : print "[lblu]" : gosub 22600 : nexti : ss=255 : gosub 14450
- 22500 poke a1,sm : sys ke : op=peek(a0)
- 22501 poke 53265,0 : sys ke+12
- 22502 on op+1goto 23000,10000,13000,12000,23500
- 22600 print " [rvs] [rvoff]" : print " [rvs] [rvoff]" : print " ▊▊▊▊▊"; : return
- 22800 j=40 : if i=1then i=40 : j=41
- 22802 poke l1+x,i : poke r1+x,j : poke b1+x,x*4+7 : poke t1+x,x*4+4 : poke c1+x,2
- 22804 poke ex+x,0 : poke sl+x,0 : poke gr+x,x : poke cr+x,1
- 22808 return
- 23000 poke 53265,0
- 23011 poke 53280,11 : poke 53270,216 : poke 53282,15 : poke 53283,11 : poke 53281,0
- 23020 poke a0,0 : poke a1,160 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 23022 poke a0,0 : poke a1,172 : poke a2,0 : poke a3,216 : poke a4,0 : poke a5,4 : sys ke+48
- 23100 poke l1,31 : poke r1,40 : poke t1,23 : poke b1,25 : poke c1,1 : poke ex,0 : poke gr,0
- 23110 poke sl,0 : poke cr,1 : poke no,0
- 23120 sys 52227 : gosub 960 : gosub 23450
- 23190 poke sp,177 : bk=0 : ss=1 : gosub 14450
- 23200 poke a1,sm : sys ke
- 23210 poke 53265,0 : poke 53270,216
- 23220 poke a0,0 : poke a1,160 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 23222 poke a0,0 : poke a1,176 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 23242 poke a0,0 : poke a1,188 : poke a2,0 : poke a3,216 : poke a4,0 : poke a5,4 : sys ke+48
- 23310 sys 52224 : gosub 960 : gosub 23450
- 23390 poke sp,177 : bk=0 : ss=1 : gosub 14450
- 23400 poke sl,0 : poke a1,sm : sys ke
- 23410 poke 53265,0
- 23420 poke a0,0 : poke a1,176 : poke a2,0 : poke a3,192 : poke a4,0 : poke a5,12 : sys ke+51
- 23430 goto 22000
- 23450 poke 214,22 : print : poke 211,31 : print "[dgrey][rvs]▋▆▆▆▆▆▆▆" : poke 211,31
- 23460 print "[rvs]▅[cya]▃✓┘▖▝┘▘[rvoff]"; : poke 56255,11 : poke 56295,3 : poke 52159,247 : poke 52199,255
- 23470 return
- 23500 if ls=1 or wd<2then 23600
- 23505 i=46 : gosub 910 : gosub 910
- 23510 print "[blk][clr][dn][dn][dn][dn][dn][dn][dn] You are seriously wounded and"
- 23520 print "[dn] abandon your craft behind enemy lines."
- 23530 print "[dn] In the chaos of war you completely"
- 23540 print "[dn] disappear. You're missing in action"
- 23550 print "[dn] ([red]MIA[blk])." : s=0 : goto 23900
- 23600 if ls=1then 23700
- 23610 print "[blk][clr][dn][dn][dn][dn][dn][dn][dn][dn][dn] You abandoned your craft behind"
- 23620 print "[dn] enemy lines. However, you are lucky"
- 23630 print "[dn] and evade capture while getting back"
- 23640 print "[dn] to friendly lines." : goto 23900
- 23700 if hl=1then 24000
- 23710 print "[blk][clr][dn][dn][dn][dn][dn][dn][dn][dn] You abandoned your craft behind"
- 23720 print "[dn] friendly lines. Your CO frowns on"
- 23730 print "[dn] pilots who abandon multi-million-"
- 23740 print "[dn] dollar helicopters, but is happy to"
- 23750 print "[dn] have a pilot back."
- 23900 ss=1 : gosub 30000 : poke 53265,0
- 23910 i=46 : gosub 970 : if vthen poke 53265,0 : gosub 21300 : goto 26000
- 24000 i$="[wht]Reviewing Your Record" : gosub 14400 : gosub 5000 : poke ke+535,41
- 24003 i=16 : gosub 930 : ms=v-int(v/256)*256+1 : gosub 14150 : poke 53265,0
- 24010 poke 53270,200 : print "[clr]"; : poke 648,4
- 24020 print "[clr][blk]DEBRIEFING OF [blu]"r$" "n$;
- 24030 print "[pwr][blk]MISSION : [blu]"md$;
- 24040 print "[pwr][pwr][mgrey]Your mission was [red]";
- 24041 if (s<0) and (ob=0)then print "a total disaster"; : goto 24050
- 24042 if (ob=3)then print "an outstanding success"; : goto 24050
- 24044 if (ob=1)then print "moderately successful"; : goto 24050
- 24045 if (ob=2)then print "marginally successful"; : goto 24050
- 24046 print "improperly executed";
- 24050 print "[mgrey], the primary objective was "; : i=-2*((ob and 1)=1) : gosub 24500
- 24051 print "[mgrey], the secondary objective was "; : i=-2*((ob and 2)=2) : gosub 24500
- 24052 if h<1then print "[mgrey], and the enemy was overjoyed by your help"; : goto 24060
- 24053 print "[mgrey], other ememies ";
- 24054 if h<4then print "were virtually untouched"; : goto 24060
- 24055 if h<9then print "took light casualties"; : goto 24060
- 24056 if h<17then print "took moderate casualties"; : goto 24060
- 24057 print "took heavy casualties";
- 24060 print "[mgrey].[pwr][pwr][blk]Mission Score : [blu]"; : v=s : gosub 940
- 24062 print " [blk]Total Score : [blu]"; : v=sc : gosub 940 : print "[lftarr]";
- 24070 poke 648,sm : poke a1,4 : poke a5,sm : sys ke+15 : poke ke+535,121
- 24080 i$="[wht]Reviewing Your Record" : gosub 14400
- 24100 poke bt,1 : poke bt+1,0
- 24102 poke pt,56 : poke pt+1,32
- 24104 poke hr,59 : poke hr+1,27
- 24106 poke ml,216 : poke ml+1,200
- 24108 poke bc,0 : poke bc+1,1
- 24110 poke pc,240 : poke pc+1,140
- 24200 poke 35840,17 : poke a0,0 : poke a1,140 : poke a2,1 : poke a3,140 : poke a4,255 : poke a5,3
- 24202 sys ke+48
- 24205 v=160 : gosub 950 : poke a2,255 : poke a3,0
- 24210 for i=11to 17 : poke a0,i : poke a1,1 : sys ke+75 : nexti : poke tx+19,27
- 24212 poke a3,85 : poke a1,0 : j=28 : for i=18to 22 : poke tx,j : poke a0,i : sys ke+75 : j=29
- 24213 poke 55296+i*40,1 : poke 35840+i*40+1,205 : poke 55296+i*40+1,1 : nexti
- 24216 poke a1,1 : v=31 : gosub 950 : poke tx,30 : poke tx+19,160 : poke a0,23 : sys ke+75
- 24217 for i=36760to 36799 : poke i,204 : nexti
- 24230 for i=0to 19 : poke 51640+i,17 : poke 51660+i,160 : nexti
- 24240 for i=2to 38 : poke 48320+i*8,0 : nexti
- 24250 if nr=0then 24300
- 24260 i$=" Congratulations," : i=12 : j=0 : gosub 920
- 24262 i$=" you have been " : i=13 : j=0 : gosub 920
- 24264 i$=" promoted to " : i=14 : j=0 : gosub 920
- 24266 on nrgoto 24267,24268,24269,24270,24271,24272,24273
- 24267 i$=" Warrant Officer." : goto 24280
- 24268 i$=" 2nd Lieutenant " : goto 24280
- 24269 i$=" 1st Lieutenant " : goto 24280
- 24270 i$=" Captain " : goto 24280
- 24271 i$=" Major. " : goto 24280
- 24272 i$=" Lt. Colonel. " : goto 24280
- 24273 i$=" Colonel. " : goto 24280
- 24280 i=15 : j=2 : gosub 920
- 24290 poke a0,14+nr : poke a1,1 : poke a2,12 : sys ke+42
- 24300 if nm=0then 24400
- 24302 if nm>1then 24310
- 24304 x=18 : i=0 : gosub 24600 : goto 24400
- 24310 if nm>2then 24320
- 24312 x=27 : i=0 : gosub 24600
- 24314 x=9 : i=1 : gosub 24600 : goto 24400
- 24320 x=6 : i=0 : gosub 24600
- 24322 x=30 : i=1 : gosub 24600
- 24324 x=18 : i=2 : gosub 24600
- 24400 i$=" Medals Awarded " : if nm=1then i$=" Medal Awarded : "
- 24401 if nm>0then i=17 : j=6 : gosub 920
- 24450 poke 214,23 : print : poke 211,30 : print "[cya]▊[rvs]Continue[rvoff]";
- 24460 poke no,0 : poke l1,30 : poke r1,39 : poke t1,24 : poke b1,25 : poke c1,1 : poke ex,0
- 24462 poke gr,0 : poke sl,0 : poke cr,1 : poke yh,97 : gosub 960 : poke a0,11 : sys ke+12
- 24497 sys ke+39 : poke a0,11 : sys ke+60 : ss=31 : gosub 14450 : print "[home]"; : poke a1,sm : sys ke
- 24499 goto 25000
- 24500 on i+1goto 24501,24502,24503
- 24501 print "[red]untouched"; : return
- 24502 print "[blu]damaged"; : return
- 24503 print "[grn]annihilated"; : return
- 24600 if r(i)=35then 24620
- 24610 poke a0,r(i)-24 : poke a1,x : poke a2,18 : sys ke+42 : return
- 24620 if x=18then x=13
- 24624 if x=9then x=7
- 24630 for j=11to 13 : poke a0,j : poke a1,x : poke a2,18 : sys ke+42 : x=x+5 : nextj : return
- 25000 poke 53265,0 : sys ke+12 : gosub 14500
- 25002 if bm=0then 26000
- 25003 md=bm-22 : poke 53280,0
- 25010 print "[blk][clr]"; : poke 648,4 : bb=0 : ll=112
- 25020 print "[blk][clr][blk][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr][pwr]"; : gosub 14600 : print "[lftarr]";
- 25030 poke 648,sm : poke a1,4 : poke a5,sm : sys ke+15
- 25040 if f$="st"then ll=120
- 25050 b=152*256-5 : gosub 16005
- 25110 poke bt,1 : poke bt+1,0
- 25120 poke pt,56 : poke pt+1,32
- 25130 poke hr,59 : poke hr+1,27
- 25140 poke ml,216 : poke ml+1,200
- 25150 poke bc,bb : poke bc+1,0
- 25160 poke pc,52+ll : poke pc+1,0
- 25170 poke 53265,0 : sys ke+12 : sys ke+39 : poke ke+535,121 : poke ke+536,38 : poke yh,80
- 25200 ss=1 : gosub 30000
- 25210 gosub 14500
- 26000 d$="1" : gosub 6040 : i$="One Moment Please" : gosub 14400
- 26030 i$=rs$(cp) : gosub 200 : sys ke+63 : rs$(cp)=i$ : gosub 4300
- 26040 r(1)=asc(mid$(rs$(9),49,1))+256*asc(mid$(rs$(9),50,1))
- 26050 r(2)=asc(mid$(rs$(10),49,1))+256*asc(mid$(rs$(10),50,1))
- 26052 if s<=r(2)then 26056
- 26054 rs$(9)=rs$(10) : rs$(10)=rs$(cp) : goto 26060
- 26056 if s<=r(1)then 26060
- 26058 rs$(9)=rs$(cp)
- 26060 print "[clr][blk] ▆▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▃"
- 26061 print " ✓ [pur] Greatest Gunship Missions [blk] ▖"
- 26062 print " ▝┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘▘[dn]"
- 26065 i=asc(mid$(rs$(10),21,1)) : gosub 4600 : print " [blu]"i$" "left$(rs$(10),20);
- 26070 poke 211,27 : v=asc(mid$(rs$(10),49,1))+256*asc(mid$(rs$(10),50,1)) : gosub 940
- 26071 print " pts."
- 26075 j=10 : gosub 800 : print " [red]"dc$(10)
- 26085 i=asc(mid$(rs$(9),21,1)) : gosub 4600 : print " [blu]"i$" "left$(rs$(9),20);
- 26090 poke 211,27 : v=asc(mid$(rs$(9),49,1))+256*asc(mid$(rs$(9),50,1)) : gosub 940
- 26091 print " pts."
- 26095 j=9 : gosub 800 : print " [red]"dc$(9)
- 26100 print "[dgrey]┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐";
- 26102 print "[blk] Your Current Service Record[dn]"
- 26110 print " [blu]"r$" "left$(rs$(cp),20)" "; : v=s : gosub 940 : print " pts."
- 26120 poke bt,1 : poke bt+1,0
- 26122 poke pt,56 : poke pt+1,32
- 26124 poke hr,59 : poke hr+1,27
- 26126 poke ml,216 : poke ml+1,200
- 26128 poke bc,0 : poke bc+1,1
- 26130 poke pc,240 : poke pc+1,148
- 26134 poke 35840,17 : poke a0,0 : poke a1,140 : poke a2,1 : poke a3,140 : poke a4,255 : poke a5,3
- 26136 sys ke+48
- 26138 v=160 : gosub 950 : poke a2,255 : poke a3,0
- 26140 poke a0,12 : poke a1,1 : sys ke+75 : poke a3,85 : poke a1,0 : j=28 : poke tx+19,27
- 26141 for i=13to 22 : poke tx,j : poke a0,i : sys ke+75 : poke 55296+i*40,1 : j=29
- 26142 poke 35840+i*40+1,204 : poke 55296+i*40+1,1 : nexti
- 26143 poke a1,1 : v=31 : gosub 950 : poke tx,30 : poke tx+19,160 : poke a0,23 : sys ke+75
- 26144 for i=36760to 36799 : poke i,204 : nexti
- 26149 for i=0to 19 : poke 51680+i,17 : poke 51700+i,160 : nexti
- 26150 j=0 : i=20 : gosub 970 : i=v+38 : gosub 26600 : i=35
- 26151 for x=13to 17 : for y=3to 7 : poke 55296+x*40+y,0 : nexty : nextx
- 26152 if asc(mid$(rs$(cp),i+1,1))=0then 26160
- 26154 if i=35then gosub 26600 : i=36 : gosub 26600 : i=37 : gosub 26600 : i=35 : goto 26160
- 26156 gosub 26600
- 26160 if j<14then i=i-1 : if i>23then 26152
- 26162 for i=2to 38 : poke 48320+i*8,0 : nexti
- 26170 poke 214,23 : print
- 26172 print "[cya]▊[rvs]Clear Top Scores[rvoff] ▊[rvs]End Game[rvoff] ▊[rvs]Continue[rvoff]";
- 26174 poke l1,0 : poke r1,17 : poke l1+2,30 : poke r1+2,39 : poke l1+1,20 : poke r1+1,28
- 26176 for i=0to 2 : poke t1+i,24 : poke b1+i,25 : poke c1+i,1 : poke ex+i,0 : poke gr+i,i
- 26178 poke sl+i,0 : poke cr+i,1 : nexti
- 26180 poke no,2 : poke cr,64 : gosub 960
- 26190 poke yh,97 : sys ke+12 : sys ke+39 : ss=1 : gosub 14450
- 26200 poke a1,sm : sys ke : op=peek(a0)
- 26210 if op=0then poke 53265,0 : gosub 14500 : rs$(9)=cl$ : rs$(10)=cl$ : goto 26060
- 26215 if op=1then 15000
- 26220 poke 53265,0 : sys ke+12 : d$="1" : gosub 6060
- 26230 i$="[wht]Recording Mission Results" : gosub 14400 : gosub 250 : goto 27000
- 26600 poke a0,i-24 : poke a1,(j-int(j/7)*7)*5+3 : poke a2,int(j/7)*5+13 : sys ke+42
- 26610 j=j+1 : return
- 26999 gosub 30000
- 27000 i=46 : gosub 970 : if vthen op=3 : goto 27310
- 27001 poke ke+535,207 : poke ke+536,32 : poke 53275,0
- 27010 poke 53265,0 : poke 53270,200 : print "[clr]"; : poke 648,4
- 27020 print "[clr][blk][pwr]Fly another [blu]"; : gosub 27900 : print " [blk]in [blu]"ar$;
- 27030 print "[pwr][pwr][pwr][blk]Change your style of mission, but remain in [blu]"ar$;
- 27040 print "[pwr][pwr][pwr][blk]Transfer to a new unit in a different part of the world.[pwr][pwr][pwr]";
- 27050 print "Go on extended R&R --[pwr]Let some other guy risk his life for a";
- 27060 print " while![lftarr]"
- 27190 poke 648,sm : poke a1,4 : poke a5,sm : sys ke+15 : poke ke+535,121 : poke ke+536,38
- 27200 print "[home][dn] [blk]"r$" "n$
- 27210 print "[dn] [blk]What Next ?"
- 27220 poke 214,5 : print : print " [lblu][rvs] [rvoff]◤" : print " [rvs] [rvoff]◤" : print " ▊▊▊▊├"
- 27222 print "[dn] [lblu][rvs] [rvoff]◤" : print " [rvs] [rvoff]◤" : print " ▊▊▊▊├"
- 27224 print "[dn] [mgrey][rvs] [rvoff]◤" : print " [rvs] [rvoff]◤" : print " ▊▊▊▊├"
- 27226 print "[dn] [lred][rvs] [rvoff]◤" : print " [red][rvs] [rvoff]◤" : print " [lblu]▊▊▊▊├"
- 27230 for i=0to 3 : poke l1+i,0 : poke r1+i,40 : poke t1+i,i*4+6 : poke b1+i,i*4+9
- 27232 poke c1+i,2 : poke ex+i,0 : poke gr+i,i : poke sl+i,0 : poke cr+i,1 : next i
- 27234 poke no,3 : poke ke+562,112 : poke ke+563,30
- 27290 sys ke+30 : gosub 14450
- 27300 poke a1,sm : sys ke : op=peek(a0)
- 27310 poke 53265,0 : i=62 : v=op+1 : gosub 990
- 27320 d$="1" : gosub 6060 : poke 648,4
- 27330 print "[dgrey][clr][dn][dn]load "chr$(34)"begin"chr$(34)",8,1[dn][dn][dn][dn][dn]"
- 27340 print "[wht] Please Stand By[dgrey][home]";
- 27350 sys ke+54 : poke 631,13 : poke 198,1
- 27360 poke 56576,3 : poke 53272,22 : poke 53269,0 : poke 53270,200 : poke 53281,11
- 27370 poke 53265,27 : poke 808,237 : new
- 27900 on sfgoto 27920,27930
- 27910 print "Regular Mission"; : return
- 27920 print "Volunteer Mission"; : return
- 27930 print "Hazardous Mission"; : return
- 30000 poke 214,23 : print : poke 211,30 : print "[cya]▊[rvs]Continue[rvoff]";
- 30002 poke no,0 : poke l1,30 : poke r1,39 : poke t1,24 : poke b1,25 : poke c1,1 : poke ex,0
- 30004 gosub 960 : gosub 14450 : poke gr,0 : poke sl,0 : poke cr,1 : poke a1,sm : sys ke : return
- 32006 data 0,2400,1600,2640,400
- 32007 data 0,8,14,38,2
- 32008 data 0,7,3,13,1
- 32010 data 16,20,16,24,28,20,20,20,22,26,25,0,14
- 32020 data -60,-30,-80
- 32030 data 1,1.5,1.8,2.0
- 32040 data 1.5,1.2,1
- 32050 data 1,1.5,2.0
- 32060 data 1,120,400,1000,2500,5000,10000
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement