1 '*IchigoTrek-4K 2 CLV:CLS:A=20+RND(8):Z=(A+3+RND(6))*10 3 FORI=1TO3:GSB26:[J]=[J]+16:NEXT:J=J-64:R=J/8:Q=J-R*8:GSB29 4 FORI=1TOA:GSB26:[J]=[J]+256:NEXT:FORJ=64TO127:[J]=[J]+RND(6):NEXT 5 FORC=48TO57:FORB=0TO7:POKE(C+192)*8+B,~PEEK(C*8+B):NEXT:NEXT 6 [130]="Long Range Sensor":[131]=16:[134]=44 7 [135]="Short Range Sensor":[136]=17:[139]=47 8 [140]="Warp Engine":[141]=10:[142]=10:[144]=66 9 [145]="Impulse Engine":[146]=13:[147]=3:[149]=69 10 [150]="Phaser Cannon":[151]=12:[152]=1:[154]=79 11 [155]="Photon Torpedo":[156]=13:[157]=1:[159]=88 12 [160]="Wait":[161]=3:[162]=5:[164]=95 13 [128]=A:E=3000:T=5:GSB33:GSB27 14 GSB28:?">Command=";:INPUTC:IFC<1ORC>5CONT 15 D=C+2:IF[128+D*5]>0GSB107:GOTO14 16 BEEP:?"---";:GSB42:?"---" 17 GSB[129+D*5]:IF!CGOTO14 18 W=[127+D*5]:Z=Z-W:GSB28 19 IFA<=0GOTO23 20 IFE<=0ORZ<=0GOTO25 21 GSB108:GSB102:GSB114 22 GOTO14 23 GSB117:?"### Mission completed!! ###" 24 S=[128]*Z/10*Z:?"Your Score=";S:END 25 GSB116:?"* Mission failed *":END 26 J=64+RND(64):IF[J]&16CONT ELSERTN 27 GSB44:GSB47 28 GSB50:WAIT99:POKE#B40,0:COPY#B41,#B40,191:LC0,18:RTN 29 FORI=-1TO1:FORJ=-1TO1:M=Q+I:IFM<0||M>7GOTO32 30 N=R+J:IFN<0||N>7GOTO32 31 K=M+N*8+64:[K]=[K]|4096 32 NEXT:NEXT:RTN 33 FORI=0TO63:[I]=46:NEXT 34 S=Q+R*8+64:L=[S]&#F00/256:K=237:IFLGSB39 35 L=[S]&#F0/16:K=66:IFLGSB39 36 L=[S]&15:K=42:IFLGSB39 37 X=RND(8):Y=RND(8):IF[X+Y*8]<>46GOTO37 38 RTN 39 FORI=1TOL 40 J=RND(64):IF[J]<>46GOTO40 41 [J]=K:NEXT:RTN 42 J=125+D*5:K=[J]:L=[J+1]:GSB43:RTN 43 FORI=0TOL:?CHR$(PEEK(K+I));:NEXT:RTN 44 LC0,0:FORK=64TO127:IF[K]&4096&&(![133])?HEX$([K],3);ELSE?"***"; 45 ?" ";:NEXT:IF[133]RTN 46 LCQ*4,R:S=Q+R*8:?HEX$([S+64],3):I=#900+S*4:FORJ=0TO2:POKEI+J,PEEK(I+J)+192:NEXT:RTN 47 FORJ=0TO7:LC0,J+9:FORI=0TO7:IF[138]?"*";ELSE?CHR$([I+J*8]); 48 NEXT:NEXT:IF![138]LCX,Y+9:?CHR$(255) 49 RTN 50 LC9,9:?"Quadrant(";Q+1;",";R+1;")" 51 LC9,10:?"Sector (";X+1;",";Y+1;")" 52 LC9,12:?"Energy =";E;" " 53 LC9,13:?"Torpedo=";T;" " 54 LC9,15:?"Years =";Z/10;".";Z%10;" " 55 LC9,16:?"Aliens =";A;" " 56 LC23,9:?"Status--" 57 LC23,10:?" LRS " 58 LC23,11:?" SRS " 59 LC23,12:?"1WpE " 60 LC23,13:?"2IpE " 61 LC23,14:?"3Psr " 62 LC23,15:?"4Tpd " 63 LC23,16:?"5Wit" 64 FORI=1TO6:J=[128+I*5]:IFJLC23,9+I:?"*":LC28,9+I:?J/10;".";J%10 65 NEXT:RTN 66 GSB96:IF!CRTN 67 E=E-(ABS(Q-U)+ABS(R-V))*50 68 Q=U:R=V:GSB117:GSB29:GSB44:GSB33:GSB47:GSB74:RTN 69 GSB98:IF!CRTN 70 GSB117:E=E-(ABS(X-U)+ABS(Y-V))*30:X=U:Y=V 71 M=Q-(U<0&&Q>0)+(U>7&&Q<7):N=R-(V<0&&R>0)+(V>7&&R<7) 72 IFQ<>M||R<>NQ=M:R=N:GSB33:GSB29:GSB44 73 GSB47 74 B=0:FORI=-1TO1:FORJ=-1TO1:U=X+I:IFU<0||U>7GOTO77 75 V=Y+J:IFV<0||V>7GOTO77 76 IF[U+V*8]=66B=1 77 NEXT:NEXT:IF!BRTN 78 GSB117:E=3000:T=5:FORI=1TO7:[128+I*5]=0:NEXT:GSB27:?"Docked.":RTN 79 ?"Energy=";:INPUTP:IFP<0||P>ECONT 80 IF!PC=0:RTN 81 E=E-P:S=64+Q+R*8:O=[S]&#F00/256+[S]&15:IFOF=P/OELSEF=100 82 FORJ=0TO7:FORI=0TO7:K=I+J*8 83 IF[K]=237&&(80+RND(40)8||V<0||V>8CONT 90 IF!CRTN 91 T=T-1:K=U+V*8:S=64+Q+R*8 92 IF[K]=237GSB86 93 IF[K]=42GSB87 94 GSB47:GSB44:RTN 95 ?"0.";[162];" year passed.":RTN 96 K="Quadrant":L=7:GSB99:IFU<0||U>8||V<0||V>8CONT 97 RTN 98 K="Sector":L=5:GSB99:RTN 99 ?"For ";:GSB43:?":X(1-8)=";:INPUTU:IF!UC=0:RTN 100 ?"For ";:GSB43:?":Y(1-8)=";:INPUTV:IF!VC=0 101 U=U-1:V=V-1:RTN 102 K=[Q+R*8+64]&#F00/256:IF!KRTN 103 M=0:FORI=1TOK:GSB116:?CHR$(237);"attack! ";:N=RND(100):M=M+N*I:E=E-N:NEXT:GSB28 104 IFRND(200)>MRTN 105 D=RND(6)+1:I=128+D*5:IF[I]CONT 106 [I]=RND(30)+10 107 P=[128+D*5]:GSB116:GSB42:?" is damaged!":?P/10;".";P%10;" year for repair.":GSB27:RTN 108 FORD=1TO7:J=128+D*5:IF![J]GOTO111 109 IF!RND(10)GSB112:GOTO111 110 [J]=[J]-W:IF[J]<=0GSB113 111 NEXT:GSB28:RTN 112 ?CHR$(255);"Mr.Fukuno appeared!" 113 GSB117:[J]=0:GSB42:?" is fixed!":GSB27:RTN 114 IF!RND(20)?"Space storm!":GSB105 115 RTN 116 FORB=1TO10:BEEP30,1:WAIT2:NEXT:RTN 117 FORB=1TO3:BEEP10,2:WAIT7:NEXT:RTN