40 POKE65495,0
50 CLEAR300:HIMH(18),J(18),EX(10)
60 A$(0)=BDER2FD4GL2HU4":A$(1)="BD6BR2RNRU6G":A$(2)=BDER2FDGL2GD2R4":A$(3)="BDER2FDGNLFDGL2H":A$(4)="BR4ND6G3R4":A$(5)="BRNR4D
3ER2FD2GL2H":A$(6)="BRNR3GD4FR2E
UHL2":A$(7)="R4G3D3"
70 A$(8)=BRR2FDGFDGL2HUEHUE":A$(9)="BD6R2EU4HL2GDFR2"
80 GOSUB780:SC=0
90 GOSUB210
100 T$=STR$(SC)
110 COLOR5,0:LINE(104,3)-(D,13),PSET,BF
120 D=106
130 FORT=2TOLEN(T$)
140 E$=MID$(T$,T,1)
150 E=VAL(E$)
160 DRAW"C0BM"+STR$(D)+",5"+A$(E)
170 D=D+7
180 NEXT
190 COLOR5,0
200 RETURN
210 PMODE2,1:COLOR0,5:PCLS:SCREEN1,1
220 D$=NR5D10R5BU10BR3D10U5R5NU5D5BU10BR3D10R5U10L5BR8ND10R5D5L5BR8BU5ND10R5D5L5BR8BU5NR5D5NR3D5R8BU10BR3ND10R5D5L5RF4D”:DRAW”BM92,30”+D$
230 DR$="ND10R5D5NL5D5BR8BU10L5D5R5D5L5BR12BU10L3D5R3D5L3BR8U10R3D5NL3D5BR4NU10R5U10BR4D10R3BR6U10NL2R2":DRAW"BM92,44"+DR$
240 DRAW"BM20,120D10R5U5L5BR8D5R5NU5D5BR12R5D10G2L3H2BR11BU10NR4D6NR3D6R4BU12BR4ND12F6ND6U6BR4NR4D6R4D6NL4BR12BU12ND12R4D6NL4BU6BR4NR4D6NR3D6R4BU12BR4R2NR2ND12BR6NR4D6NR2D6R4BU12BR4ND12R4D6L4R1F3D3BU12BR4NR4D6R4D6NL4BU12BR4NR4D6NR2D6R4BU12BR4ND12F6ND6U6
250 DRAW"BM160,150D2BR4BU2R4D12L4U6NR4U6BR8D6R4NU4D6"
260 P=PEEK(65280):IFP=254ORP=126THEN270ELSE260
270 PMODE4,1:PCLS:SCREEN1,1:COLOR5,0:FORCF=1TO2:Q1=127:Q2=96:Q3=96:FORT=127TO0STEP-3:Q1=Q1+3:Q2=Q2+2.2:Q3=Q3-2.2:LINE(T,Q3)-(Q1,Q2),PSET,B:NEXT:COLOR0,0:NEXT:COLOR5,0
280 PMODE0,1:SCREEN1,1
290 PMODE4,1:PCLS
300 DRAW"BM50,50R4NR4D2LG2FR4EH2":PAINT(53,54),5,5310 GET(50,50)-(58,55),H,G:GET(100,100)-(108,105),J,G:PCLS:FORX=1TO20:PSET(RND(10)+100,RND(10)+150,5):NEXT:GET(100,150)-(110,160),EX,G
320 PCLS:SCREEN1,1
330 V1=RND(191):V=RND(255):O1=100:O2=100:EM=200:AS=127:SD=96:DS=96
340 LINE(0,0)-(255,16),PSET,BF
350 COLOR0,1
360 A=0:B=0
370 FORT=1TO2
380 A=A+1:B=B+1
390 DRAW"BM"+STR$(A)+","+STR$(B)+D$
400 NEXT
410 A=200:B=0:FORT=1TO2:A=A+1:B=B+1:DRAW"BM"+STR$(A)+","+STR$(B)+DR$:NEXT
420 D=104:GOSUB100
430 SCREEN1,1
440 X=RND(5)+2:X1=RND(5)+2
450 EM=EM-F3
460 IFEM<5THEN760ELSELINE(200,14)-(EM,14),PRESET
470 JH=JOYSTK(0):JV=JOYSTK(1)
480 WE=JH*255/63
490 EW=JV*191/63+16+5
500 IFWE<5THENWE=5ELSEIFWE>250THENWE=250
510 IFEW<191THENEW=101ELSEIFEW<19+5THENEW=19+5
520 LINE(AS-5,SD-5)-(AS+5,SD+5),PRESET,B
530 LINE(0,SD)-(8,SD),PRESET:LINE(255,DS)-(247,DS),PRESET:LINE(0,EW)-(8,EW),PSET:SD-EW:LINE(255,EW)-(247,EW),PSET:DS=EW540 LINE(AS,17)-(AS,22),PRESET:LINE(AS,191)-(AS,185),PRESET:LINE(WE,17)-(WE,22),PSET:LINE(WE,191)-(WE,185) PSET:AS=WE
550 LINE(WE-5,EW-5)-(WE+5,EW+5),PSET,B
560 P=PEEK(65280):IFP=126ORP=254GOSUB640
570 RN=RND(20):IFRN=1THENX1=-X1:PLAY"L255V31O1;CD" ELSE IF RN=2THENX=-X:PLAY"L255V31O1;CD"
580 IFX=4>5THENFORT=1TO7STEP2:CIRCLE(V+4,V1+3),T:NEXT:FORT=1TO7STEP2:CIRCLE(V+4,V1+3),T,0:NEXT:V=RND(255):V1=RND(191):PLAY"L50D5DGDGDGDGD":X4=0
590 V=V+X: IFV>247THENV=7ELSEIFV<7THENV=247
600 V1=V1+X1: IFV1>185THENV1=24ELSEIFV1<24THENV1=185
610 PUT(01,02)-(01+8,02+5) ,J,PSET:PUT(V,V1)-(V+8,V1+5) ,H,PSET:01=V:02=V1
620 IFINKEY$="Q"THEN910
630 GOTO450
640 PRESET(WE,EW):PUT(V,V1)-(V+8,V1+5),H,PSET:PH=PPOINT(WE,EW):LINE(WE,22)-(WE,185),PSET:LINE(10,EW)-(245,EW),PSET:LINE(WE,22)-( WE,185),PRESET:LINE(10,EW)-(245,EW),PRESET:PLAY"L255V3101;12;11;10;9;8"
650 IFPH<>20THEN660ELSEEM=EM-5:X4=X4+1:RETURN
660 PUT(WE-5,EW-5)-(WE+5,EW+5),EX,PSET
670 DRAW"C0BRM72,3D4ND4R4NU4D4BR3NU8BR4U8NL2R2BR3D5BD2D"
680 PLAY"L30V31O1;12;2;12;2;12;1;12;1;L255O1;4;3;2;1;4;3;2;1;4;3;2;1;4;3;2;1;4;3;2;1;4;3;2;1;4;32;1;4;3;2;1":PUT(WE-5,EW-5)-(WE+5,EW+5),J,PSET
690 SC=SC+EM:GOSUB100:EM=200
700 LINE(200,14)-(0,14),PSET
710 V=RND(255):V1=RND(191):IFSGN(X)=-1THENX=RND(5)+2ELSEX=(RND(5)+2)*-1
720 IFSGN(X1)=-1THENX1=RND(5)+2ELSEX1=(RND(5)+2)*-1
730 IFSC>SC(1) THENIFGP<>1THENCOLORS,0:FORCF=1T02:Q1=127:Q2=104:Q3=104:FORT=127TO0STEP-3:Q1=Q1+3:Q2=Q2+2:Q3=Q3-2:LINE(T,Q3)-(OQ,Q2),PSET,B:NEXTT:COLOR0,0:NEXT:COLORS,0:GP=1
740 DRAW"C5BM72,3D4ND4R4NU4D4BR3NU8BR4U8NL2R2BR3D5BD2D"
750 GOTO450
760 PLAY"L20V3101;6;5;4;3;2;1;L30;6;5;4;3;2;1;L50;6;5;4;3;2;1;L70;6;5;4;3;2;1;L90;6;5;4;3;2;1;L130;6;5;4;3;2;1;L200;6;5;4;3;2;1":FORT=1T050:LINE(RND(255),RND(191))-(AS,SD),PSET: NEXT
770 GOTO910
780 CLS
790 PRINT@11,"CHOPPER":PRINT@32+11,"ASSAULT":PRINT@32*2+7,"BY JENS PETERSEN"
800 PRINT@32*4,"PRESS LEVEL OF DIFFICULTY"
810 PRINT@32#4,"1- BEGINNER" :PRINT@32*5,"2- EXPERT": PRINT@32*6,"3- PRO"
820 PLAY"L255V31O1":FORT=1024TO1535:Z=PEEK(T):IFZ>63THENPOKET,Z-64:PLAY"1"
830 NEXT
840 A$=INKEY$:IFA$=""THENB40ELSEIFVAL(A$)<1ORVAL(A$))>THEN840850 PLAY"L255V31O1;1;2;3;4;5;6;7;8;9;10;11;12"
860 PRINT@256,"name";
870 POKE282,0
880 INPUTNA$:IFNA$=""THEN860
890 POKE282,1
900 U7=VAL(A$)+2:F3=VAL(A$):RETURN
910 CLS