From 9159c6d6cc6534fcdedb693b20d57f1baeb3bd91 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Tue, 24 May 2016 13:40:57 -0400 Subject: [PATCH] ksp: update the VAB sequence --- ksp/Makefile | 6 +++- ksp/loading.pcx | Bin 10557 -> 21763 bytes ksp/title.pcx | Bin 5889 -> 5619 bytes ksp/vab.bas | 89 +++++++++++++++++++++++++----------------------- 4 files changed, 52 insertions(+), 43 deletions(-) diff --git a/ksp/Makefile b/ksp/Makefile index b63f1398..8ecf705c 100644 --- a/ksp/Makefile +++ b/ksp/Makefile @@ -12,11 +12,12 @@ VAB.BAS: vab.bas LOADING.BAS: loading.bas $(TXT2BAS) < loading.bas > LOADING.BAS -ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS +ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS VAB.HGR $(DOS33) -y ksp.dsk SAVE B LOADING.HGR $(DOS33) -y ksp.dsk SAVE B SQUAD.HGR $(DOS33) -y ksp.dsk SAVE B TITLE.HGR $(DOS33) -y ksp.dsk SAVE A VAB.BAS + $(DOS33) -y ksp.dsk SAVE B VAB.HGR $(DOS33) -y ksp.dsk SAVE A LOADING.BAS @@ -29,5 +30,8 @@ SQUAD.HGR: squad.pcx TITLE.HGR: title.pcx $(PCX2HGR) title.pcx > TITLE.HGR +VAB.HGR: vab.pcx + $(PCX2HGR) vab.pcx > VAB.HGR + clean: rm -f *~ *.HGR diff --git a/ksp/loading.pcx b/ksp/loading.pcx index fb5cfa9d7f3827be05103aa4a1dda8c1a6a7104b..2bc83bf9dbd6d7dde0dea3a23ad92119a4e34375 100644 GIT binary patch literal 21763 zcmeI4*|H?pS%tH*jv@$xdx-EWaLL>7X1oj$nLW3Mxo zwRct>A&Af|VeLAZd-#X-4|~Y0YW?+Fr@vbG?{824y!`#??@!jh(|@PGJAHSitA?L0 z=hIR4(|J3cAKCFZy}Lu3oqSrB)05@2oL(-cfAgN^)7H)}Cei7<@EIJ}&ePL{fgdhE zV-&F+K%E-fM2#fph2~YSiV2{Men2dcF&0c(+rvYK{kMAIPph3&bZS>=>Ljw?~j+$Gw=L8yT&CF(6$+ShBA^I5T?Y! zc`xpnT8(xBF7eJqD}n+H1BOFp2oeaiqEPZH4I;8I7(z^pE9i`zd#r?a2sJFb@`EOT zaT4NQfC|Vj~79hDvJFz*Md5Ys2R=kf~yZiaxwWdRj`(D(|LYp z`TQ2f9=4=#ks(A{y}3_`^sUHv#N?s6#~)^e)h|`13a$_BBaHCdHSr*=LQ&5MdQ6>( z3QZXD!Tp%+ga6@;zpCSEk|Y!zQ-^>?0H?1&U=J<2UeI?61=IjB!=aM$#e!L((}#kJ zpUH#oFF!9*gBkC@H7A7vV!$AocBWS!Q1$^y((x3ZAC_?s9D0}Y+v!iV^;8OX zguGnVtC6%3j|7}b4(ve-vMR3Z_9<| zVLCI6YnYFR6Ho6*cvq9l$+AV-y}!Jn-{{^H6{RgxT;Dhhl1c6C-1XPMlq8tgv>p)e z*-jcOGSIm)gUGGvK(|i}+=B~^2`PQRduMso7}q@obs#M~1P5j3Sx8hB4z=qrXzsYH zBDUEl$!EDflr~mi%LfjH@O?WY#~YaU<^0LQ*(BU%3(~SOw<4}M&UiR90}z{nXXOmD zoLtn{P@**)QuC)D`}rg}$yn|kKL5abLi)BfFmB783t8m9Z>qU8xvbRJ%FG|PQM0F0 z(!MaVCS;f5VyGgGD?om>xLuew74!WuGt8z=kywaQJ(A1mqh;(Dg7Bl}ekuk7bRA`f zMfpa5JKgPtVJDO+ zXeb~4S;@n|tZuj}N@6VdI4%&uX?e;e{=WMnNDL9-u0ameBMq~2`uW1?qj_M&kSMO} zpPtgSaD*AmD!n6N@s$s>oXVHVXdble%?3@BH?+_}DR9jJ6}fwZS% zK&C!mizE`DL(uBdbgtztu^D^iZJmUf6-hcoGVkB3na%+>$IiaUr-%492cgw!j#t^r zay&Kxs+@s128B@JWJ&FD4J~KRCyKxtMyN4Cim6vzn20bKR0I8<`5B4IR^qU}ebK0) zOyw^e38*R`D~E%Fm^(t6kYbpk)=+Rv%Fr1v5yw(fz8mOr*WAw;GZmm}s3RT4|(w+Qs2?8uVQ5`wm_)CKKql|v@AD(P1OblQ{; zIaCz%BYQ%=oIZ1WADX!v2oPm1pZQW9!&*N9V7~r2&9>(%PQul$vTcq7}@dO zg}9tRp>cOaleLvt2Luojw4e>(6V8h(LQuCjmxBuJXzHg%ATkiL@%bp9Vdl0egP)Zi z)^UUPL%MVvFuD+Od~U`o+~DrI=*I;te|(|Hc--WX6Vc$|%7H`_j^B~ho`YF{PaNE| za$LE8Oea)#96|t>MIKgU*phPBcqHd&uNPp@SRedkfbJu&!4Z1I{igVQa=Vi?NS1I=bx<2xF%)3bX6%abL0Ai(%|SRVvFbZmJ61`$Js@yz5>9wLMyEUH!t z2sl)$?(x8m`4-sm+D;8ik*mRxCIEOck*8QGtvnR2(Gtv7(C&bPV>;ogHxFSO&GA9L} zFTZh20FgsAk3N!R8HnRdE$uLe1SUHXK`@t8kqMBIwV9E)7gy;DN|u5mEi5EBBO)lK z8iK@B@)|{W$cKMTE>H=+oP}5c@~kVKh^UQNl=um(-8z#((`#Vy0Ch);gm(AHB4GIa zK&+7@3imib9t!+GwfX`?zTN#Inck%wYS#Bnp#Wp1mPzkulSQBmA6J}eZ}cjE;bae& z??_ol5ZDI?CaqHa3pX_zLn=ZMu-OuFv~Kci6vBTML9WuLPwG%(78Jnf<|l~}8l>rF#Nc5)l8mM|4p(vV!nhQG3Y1;$UN!5qJ~KUba5JxnRpO$%jhO`U zK}n<6n6{q(IMNDAp6crI>QK)tiiqcZvd>8XaS!k{aq}eNP6cE>s!3Q|Db#Jsx!%+D zM9hTD)N(?~t~F6rv{ZLRh5(s`{rkj*-khl)MeH}y8#%#DlK8laAKo6pI_qc?Jo@5k zy_+^HGt}P#T6m}Rxu|ze8zP2WhsM+RJP|Hrlh?@$M+)~Z6Pm_2a~Kj_&Id9bb`w~J zczhc2STxqGz2@HD)W+rcj*4|zTp;m2CfCqe%{SLG=so?hBT5{jvDv(&L>(6^nS9#N zMr5<6+@WfN743A{`*0cWpKjDJ7I`K+kRIrMUtZuZUsmqemTV#NY)F}_jzOhF?}+Y9 zxi8hIzSLqMojQfp_csEDyE9=*Q zAkVzhk}2RbFw!5OxvYF~EHFeIaxmByYp^Cc0eDt}Iw_K^I5{6*Ls4fd;pL5{snHb3 zt4Prfn7yIm{9d$g2R`iKWxlFLvHtF@*l8)IVF)`^Jj9-b!ld)QoY;L)MiVFL1BM{f z?&%5dMw5wH2bwdGStdy6=cmreP^YQbL#>V=MjrK`cFiDDacjgSL}A#FjnYn4D0Zv_ zIgEWy=OE0qciV{E8AkC{c2 zGXtD_oMQrMPQ0yiW7{xC*TS{g2TH$l=ghZ{!>WQa;nwU{@pv-@wLAFZIxcE^?rWs$PUhIdx$X9ekiL6LPHgP|nM>9L&Il zNKP_*<)g-15ZwXo%h1&XiAs3rqMiC2aE_UAx(BrV>>lNWc6>C7kGNs?;~4GB{hroESJ3hq;f5BHzdp} z5&+qeRuLFbnJ!~4yMcgM*!x~j$!n%vzGej6$Jd##jaUm(BvGm zTeSu{FKN| zOIC1GHZIHw$2s4#ifYT257Jy`nL)UPuB=|N2T)kDv@ygfMgo_g&SqUlkDWs+-Xmpg zsM3<}wOn7MY8TbH;-S5=I_G7F2+;Oxsm;g^t8Y83)GCK;kypu95i6U80DZVym9vCR zR@VxPnSl4Bh<224r`P8h2(_T!He`{CDIP{;$!dWUb$ikUwUJ7PJ00R_dFISg(vvb8wFd!|6-}q>jJ9j+dUDVzaigN?t<~9l}J2%ZRru>^~e21#;*V zEFCMSgf)X+GOFf4I&hYR1E=hT+;Un;|kAj2_ief65??4o> zn&RWEBEb<9>op}WYM|v5!;6?*&BbiUqJE21og9EB5lU=irWA9tTpbz_S}huLq>>0w z&H_xv0r-kY4l{|(6Mbo!2vCwg+$=aI&gYhct$QChj;mXNtJaR@^KtUf4mhVy6CRLI zh?TLFs-TrTa+L0FC(dnK6=H=}_qjP(0(Otn8&X(}I0)b4(ULyH zK&SEhvgT{yxb49N%YZ{lObp=4wgGmRE=Gw=^o1nLrjWr+BB4a}Tb`_hU(_O_TR@>P z(}#N{@Gt!)l=>q}q8D@NN-T`Wo{yF@4wHQOX4x;WY@w;e(-Q_gP+uRDsAbOE%B&!BITZY>+X$^&d*bgxjOKxU|^WME7YaepduMFN> z8@W48*t|3~h$RE!R7Lv?iqwGUQ@{NT=fF*^uPqaZkLlNIA@@4)!XFnjS>v)Q@Y{aA z`9xigKd_D1nHvj?Gk_-zIjzvaBK?(AV5?m--Y;VP30bisyVg4HwIoL@evxogXT@&0wE4N~2f z9X=0830HukP`zKvW(G=ZN=%lrrq(~#V)|8^9t z{mSt%KQw?l7L2P0EqG!ho&#d9RA9swMEfJi)r`DhHCPViySEAqrPGfYOj6-_<{=Ji z)~GMAL?gW6KxHCqQ+F1m*Zt1(PIE_bWzlp<%t1C`G6xQJD*eHts}x=Zug=DDMW(|B zjV@~-v^FsEQ$0L{7yw`!NCmJ#;;e*$3!U7f+38r5KU3E8rc(s6TJb#B2RTF_m2^Rn zxfKLp*O7U{5;x)^-mQExu%bx1gIuBQ@+|bJufc%HhhC%zQ*=+aBbH(Ppf?w?`40K$9$)`=!L1jRYCst- zMcoJnEde7Y#VEo-!bn^O?SjJKDgzpmu%PJyxsHVB=Q)$R{#iCId(Z`Cyc+*-)WwC& zMFHzViqgg`u!)xhl@$)Z@xhI)U~mh~!h}9+3*zz-iU2{Ni3p0Y*apO^6dgyFZG?-X%tH9VnxDB&TZ zL(-8W;A5asoIbS0$H`OeW+3&uftP$X3{ZBs4;)-$fEehlk?n0(~tMgcU%42Ho*uYzpN zdzZ)Y=;`Z?b^hap@OUw9^(GTMKZ^p8ge0Fz8P5Y1eH6SePYGJd^)*CB%gHjG7wIyk zr;^f$5ww#Jo{-*CDtqrB_TIJd9R~JvC;h5Fug~3W{Kq~j6CyXny5hWsgRJF6CL~)% zZjcDSWv&|oZdbt`r}+JC=}hOy#crI@Knuv6eiK11BO@#3Hs9#m^UH><5g6+5NEo>8@7blu!AIis|1gn>^ z5LlC{mqN1{H{_mH&NY$LJ{+XbnMW#ilmZIji)vhp>%z~{ie--Ej1i6kk|73~c=?Sh zxsacljbHF2Xevc`74E|-aU2>i3%Oe~?K5nNpBh>^V4bLrAEQNv&|fA~wK;B3{B>Da9ET(&R4&F^sK*WjkgKUnL*HadsD^=_?=h=cvX? zI>3zqDW?u+K^s@Ja~`5^a5$C-SlM&*sSe$J;YWLI9q2O!rsRx0I#wHxh0y1ZA+1kq zcG{rcexP2KV>+ltlRBjw8sCmZMr9JyC=BIue$G6|LKA9JbdBeha4%lMI8=5Co@2wIuN3EO$0fJth706y zEA$V?z;x1Z894(?k+KbNPQTLC?20(*h{w80yv`Z80+1g`bGP6}LKShfp2i`1_QVbT z>NNt{Ak9ZwXyC)YSz;kWiSDAeMS^im8(rzi2_btfoR-V-+g8$k?Sqc}#DJt4#ib^S$H(F1mn=g$;bdw5M{Y6uZTBilt0*FiMT9ZEPpEX z=OuyukJhjztgKoz$M~}TXKH(vLt*_y zajfYaNf0ttBZm3hh> zJ%w^)Ko=hb;0#8ZC?iB3)uuX_i26k*+x;g@)+;i16ykoi2tfKwGEq+k3#|GJA_?w&ooX zd7)?0lQ!E>?#%#MnA&u=P_b9iB3 z(X32|tLBMdpOxI>9EA)>0h1A=M({YA-69*b*RCy~xW+VG43o_Kvjf~Reii784f=S; z#3}338y`)b!+mXTI_Vr2jO?0Z3!>G7^SFNtyn2X3%k|(8s9O!HyZkp$es4u?kxh7t zmWA7>(JJYom|;}r#T3YB&7>Nn&Ht-ggm)C+%)qw~wY(i3ta$<@S1-$-0{~wDBgfGJ ziDt`QgzEnW*6JS<>)sl3pa6v1yQWpZvS!8iBvo<0^FDO6hepdbE8MXqe`81_vzIPL zA!dVuH+z(C7Fnjarf?*n?jD~FfHfAvPN!R&;^WDadoELVoZE-^zO{4lL=&RCN z4&5cbmh~`&%8_o;&T!Y!KvJv!>L{JT`!xbz7kjx0M@B$NW8&`pEY5CarSY9P|W`9sX)T;iqM!3Hl8o|behoBw$6ExLXoM-9PZl1RFr;Fqy4?K&lDS9l zdXk{CRKJXju)i5yZ|utXh|RN9Y@(3xgvb|EzA$btd-sRqtdQ{s3okl5M21ol_IU2l zmj|2y*${%a9DVYc#HzdD@x9bBy>I$Ch|r%khsssZx;&75u6A=kF(uvveA}%;95lNk zI9;>n(}VoG)o=-Nl=37J2n6eu?T2Y=0R+UG5xXDrNBV&kH)XcjE82M=lcfbNKCtKF zYvvRW&OQ^hdm9v2LV8AHun@-dU6!|D{EtdWPX?%^G4FS4-lgH>llxw|{;<4NzHybv zzx(B7sQeC*fy?r2nssP+i+;{}{Q2g}mSVE|%b;O+2dk&)5bCN)X^Soh_#!rAm*wX$ zk&(<7K6n*Rhl07l=d%2gaUcEZEsc|p{@I_C3gN@;id_hcxO#<-!W0nkm;RQ&M9B4^2JRJWHu+aG!r45kYI7| z;#bw(^1G4k2#)Yx{TDopmvnP>=vjGyxP@_6Z27Do`EhYqZDzQU0_T7kph;>Z#U8%k zggMWw>f?j3T>PF0n<^EBesBPyu4JW72Lt7fL(q(J?X~vF zx_$X1!heRks;bO9XP#%d!vg4wSwl?}4Z_7PSkr?Qp&tQ}S6b(C&UK_CLj5=}c=dlMC zzqVes^~&M(%iJS=#-AWs|_2w!Uf*1#xLZ7czD>ISDef(>9cg z6owsDw5^ZY`q|W{d3B-|p|nv;LjXI<8}Gre6L0Re_0!hd`XEGi8j(K5Oh6KeiX>{w zitC~9Oj-0{4IA2+vj)YFClYBxgmB=cEXJ4xAi$T+KM>-w!@mRS8Q=xD0uKw zC3=-Q{SoU(4sGCclvq%5)2J&sE#01y4A9#0TyFSH&bga&Lj7_vDg%o8jb9Ko<);n@ zc8{f)tFCiNlGbC!C+LvK24Y~Me37#QXS-SQz`_Nkk36N;AZZLp%|78P`oMXdHKgix zq`eo%R&HYsOhfo#BQbNb9M(Ifv+L4|d&jJtBo6C}1s(^bRU}7S|0GX>SaF2TiQEY` z<0dXdkHIFsJ7~o%ljozjhYgE#mxY3Sb9Uwpy{+$N6Yi>Q0H9hqPxVhN zrO(ZBfzhOaGxjevXrZ0K6qY)$jSZ=mD#p5d~Se zWtr-yF%JnRj z6DtJftoRWbge-+amL;_dR};%!Jz;!au39(3L0=j^XhKrlaGA&MOf{{05RyTt5{}2^ zyFE7N#7M|oBecs8EA28q9D#QO4uymxArFBWm&z)=bg;p}YVM|*A~$kjNY@A?t5@1{ zpWQ7@bfxz$uO=W-;(}U%;gioKQx3@Meazq~c7W?JS`+NRH4VqY^TM!aHpXd6br2hM+hKq52e6Wr`ETlWw#wZ795fY7rFe- zdF%?bNYU0DV|5=BtceS&CFuU+{KV%Z-Q$3B!i36ItLF}SrKM>H3yd3e&f3BGHHu>P zqw*Ii=cWp#cVRh<>$DBpYVgGf@E>WTeU>RJX+WKygj4Z?OB4zaRqbTJycyYBDj!ZfH^&9mg24JXW>wMwt1u=h5)%VYOhT-L>?Q&Ezk zzEMsWX50+jY|$T_4wT%`_T9N4l#78CXDsiCt+)@2SO81A7P(8zgL=KMYpX za-XID!YAaJ3vPnrW&<`cy{?Hp1hk}hT|t-dvm4pj`8nn*0GHMYO`>;=FyUZo5MQ}z zgA*%LE0jv&KyDKwFv@vfr~txFmk`Q&%x&s|QqP2osYyj!c|1b`<{Mfb9b~Z+Oy&!B zykU$yBuOa+5E}_llEW6IGs5YlD-uC<`Kb5SUZNeiz6>!tBb~UgmAWU8DSLj$&k2BUZ01mvdwUBPHmkuM@7q6b^`fvpiIRSx|X3c)@{^q0YlVsELF&L12I9T{xn4g z#}gAEFP_MEKWjuSHC)4RMApdhBWf4|JsCcilp3(-b#j`b?X-!zotep5nuG}m4 zQF;)B!a#bJ&8F1MMn=@*$uwx3A*~!H6g;MK`XPll#lGeHZbg%`vyfor;IkXgBj z$(kR}fHK_U)C>i{p^;^nwV$Ago+G*K+@nJ+R2}eg<5y^HVOyRWlzQbrVL_{hyP6{o z>k0Glh+kGX?-iF)NPu}FGGuLtRWavAQ~o@}Pu!gKaniEEtD5bbYD(C3bb7^`ic7vD zVgW-Yi8+jT9MfFbmX*NJ)>Ae_PCn;4g}4j5xH0ICW8}oeAtsd=Wn#-9raWZCm4Bj_ zQ^u37%hn%}5GO>G?JGAFjVah(aj!h=ecRoiMK&b1;7i8^RxYw!KajGvitmFa}xD!MVU6*`VgsFb@;0dA(YZ6a-!X@OX8g?TG(d|5{7Zx}i0H$s5s2j?o zdf?!<47YXy#rHBTBAYyWgt4nt2L z{BfX3TJk;wqFO`137V)t49_Kous=TsQ8@CK1y{enOTd zQA#!F^v1FXbrjA=8TBFHtUjDpf_C40K2njN$7D*r;ZOVXbdwE87;O)Wyljz=XxVG} z)9(f88b|`$^2O1BZZZ*+w(g%2@!Q}l6?MY9xj?}R2Au6>$5z`oZSkD%O@4;SG?>Jv zepV_{K=Xx~QabbRWH|=+^wVn~YZQ+#VvV%*<#bQC{OcOd`V(SZ#6u=C!|2ofHG+kl z0-LuK4!!-v_q=L+S~?=2I}c0Qhym`iUXHJ)AaU5c_V{44_0Q6~`P$;$t109d{|Y#_ zZTY?}f3NNnp*e=&KkUsZd=~M9;XK-M(_ZJE_K>n;8RdUwcwKi$rQ5T^IPTXWbw7_p z;#^5o;0v5B9VD{v@>Y>mt?{vuhb3QN(*M*PeAUDv;@|nnlyIzHw{IL^1Mzs6ve52} zMlL?ztEBapEwc?Jk55{E#UFI5hK?x{;r-UXRD!{met3o4mLE41`BwTL=VbyJZIo%o zrz357rhUfj;=<{#C!<+)vGbK9IMd_WmKLc$u_}t7cDc zd8O@ti~UR#OyEL}F+GX&k+=40+>M^~`rS#N9c;gy01;E0vdfB^31gL?)n=B!Pw)5C6B{LLRMQuoO=CvGDK^$FY7hb*%$cN zIvXX?K*lhtv*k=7fR`d;Wp%Rl@26M^aOOxAC`ncMKm5=K1RAa;(PlNfX;?rWeE-Jj zyiixkJ9gOh&q!Rf8;%;n7fS7>eOG+wtkD|ARYkW#suA$+rT6-Oey(t8F>G%5gA3Wv z&x*|t?O(;j^CShGJm!#(N3B0=|2{f$46-5M1!*(8Pa6TI&Ckc7Iu6;?N}pj5$NjhM zGW_j_?k_7E1;E*Zw7sU=N2_!H5GLVoo8^t)|L6Aq O>iYTa=Lq~CMBu+vtxO>R diff --git a/ksp/title.pcx b/ksp/title.pcx index 720a37b7a0b7071b25ca3c2f537d7fb1cde6a670..4943f40c86a851fa7109774265f1864134e7a0e0 100644 GIT binary patch delta 516 zcmXX@yKWOv5Iu9}i1qGTP=UfD(MCozAdu*2==ls98YEh1DEI-I5mkPG5{Vx`_wHt6 zTeh(+gh&w{9TFr39SzL2(~ahyIj{Tb?w{N5o);Hl01@qFah(Z~c2JBe-vkI4gZ0IT zEfVdtxL-$55(A~B-5KoNYH>&jQ94F}1fr8EBJ>|VL60B_Az^L@gJx$s> zi)p@KkbpqvaL6h2Bxiwo@F}Eov$;}7z}q;1PM~Y(+!N_CXLi?*>l?DN*Y%Z~$J^+R zmKlC;ximp%nRATZRg!(LcLyC>_ULGrhL_o4M!PrMd9a}4a(Aek~RsR7Ta)%oL delta 834 zcmX|;yZ(!Y>d6D=Q5aeuBYH@GA(`HnY3$ z<-O!-An^|h(LzCsKt!;xiRaAfW8a%$X3zcId+yy|mmgn!@t`>65&|qfEYAB5Ep}M3thajGQPD9<4tQJ>BmDrZ#xY2Gg!~v+U1g9%O78T zg=aL;21g>ubiKv;theY8FAK`ziybgY% zU06|AW^!s#Yw=Rq)Fd#N=WUBO%Jo%QYWG-H>#v{%_CD5b9%$efdYJ4{Eo+@S*lyBmr zYHh?}B<3Epu9J!9)rBoyI`)et{R;@gq>}C8C;V$QjQ#zfhUE!Ks!v7z;$sUO!5^{` z-@-4rvv00d9=2;>ascWdrQfn@C$D?(_U<-pA`j#(Ymk;n7M$2F%qRGL*p$S1 THEN XDRAW 2 AT 126, Y+13*J - 274 IF T >2 THEN XDRAW 2 AT 154, Y+13*J - 278 NEXT J - 279 Y=Y+13*F - 280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")"; - 285 INPUT E - 287 EN(I) = E - 290 XDRAW 1 AT 140, Y+8 - 292 IF E >1 THEN XDRAW 1 AT 126, Y+8 - 294 IF E >2 THEN XDRAW 1 AT 154, Y+8 - 297 Y=Y+6 - 300 NEXT I - 510 PRINT "HOW MANY STRUTS? (1-20000)"; - 520 INPUT ST +1000 REM *** VAB *** +1010 HIMEM: 8135 +1020 POKE 232,199: POKE 233,31 +1030 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L +1035 HGR : ROT= 0: SCALE= 2 +1037 PRINT CHR$(4);"BLOAD VAB.HGR,A$2000" +1040 GOTO 1150 +1090 END +1100 DATA 3,0,8,0,18,0,33,0,53,53 +1101 DATA 53,63,63,63,44,44,44,0,0,40 +1102 DATA 45,54,54,54,63,63,63,36,36,36 +1103 DATA 45,5,0,40,53,55,63,60,44,5 +1104 DATA 0 +1150 X=132:Y=28 +1155 XDRAW 1 AT X,Y+2 +1200 HOME +1205 INVERSE : VTAB 21: HTAB 7 +1207 PRINT " VEHICLE ASSEMBLY BUILDING " +1208 NORMAL +1209 PRINT +1220 PRINT "HOW MANY STAGES? (1-3)"; +1225 INPUT S +1230 FOR I = 1 TO S +1240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)"; +1245 INPUT T +1247 ST(I) = T +1260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)"; +1265 INPUT F +1267 FT(I) = F +1268 FOR J = 1 TO F +1270 XDRAW 2 AT X, Y+13*J +1272 IF T >1 THEN XDRAW 2 AT X-14, Y+13*J +1274 IF T >2 THEN XDRAW 2 AT X+14, Y+13*J +1278 NEXT J +1279 Y=Y+13*F +1280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")"; +1285 INPUT E +1287 EN(I) = E +1290 XDRAW 1 AT X, Y+8 +1292 IF E >1 THEN XDRAW 1 AT X-14, Y+8 +1294 IF E >2 THEN XDRAW 1 AT X+14, Y+8 +1297 Y=Y+6 +1300 NEXT I +1310 PRINT "HOW MANY STRUTS? (1-20000)"; +1320 INPUT ST +1330 PRINT "PARACHUTES? (Y/N)"; +1340 INPUT P$