1 BORDER 1: PAPER 7: INK 0: CLS : POKE 23658,8: POKE 23609,80 
   3 REM \#020\#001**** ZX BISMARCK ****\#020\#000
  10 CLS : PRINT #1;"\* 1984 YT2FSG Goran Stankovic"
  15 GO SUB 1000
  20 CLEAR : LET wi=INT (RND*18)-9
  25 LET a1=INT (RND*12)
  30 LET b1=INT (RND*10)+18
  35 LET h=INT (RND*50)+25
  40 PRINT AT 20,0; INK 4;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::"; INK 5;"\::\::\::\::\::\::\::\::\::\::\::\::\::"
  45 PRINT AT 21,0; INK 1;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::"
  50 INK 4: FOR i=93 TO 121
  55 LET hx=SIN (((i-87)*4.5+180)*PI /180)*h: LET hx=ABS hx
  60 PLOT i+16,hx+16: DRAW 0,-hx 
  65 NEXT i
  70 INK 0: PRINT AT 19,a1;CHR$ 144
  75 PRINT AT 19,b1;CHR$ 145;CHR$ 146;CHR$ 147
  80 PRINT AT 0,0;"Vetar"
  85 PRINT AT 1,1;wi
  90 IF wi<0 THEN PRINT AT 2,0;"<---"
  95 IF wi>0 THEN PRINT AT 2,0;"--->" :
 110 INPUT "Ugao=";w 
 115 LET w0=w: LET w=w*2*PI /360
 130 INPUT "Brzina=";v0
 135 PRINT AT 21,2; PAPER 1; INK 7;w0;"  ";v0;"  "
 140 LET vx=v0*COS w+wi
 150 LET vy=v0*SIN w
 160 LET a=-5/vx/vx: LET b=vy/vx
 165 LET x0=a1*8+8: LET y0=24: LET y1=32
 170 FOR x=x0 TO 255 STEP 3
 180 LET y=INT ((x-x0)*(x-x0)*a+(x-x0)*b+y0+0.5)
 182 IF y<8 OR y>175 THEN LET x=300: GO TO 230
 185 IF y<20 AND x>(b1*8+4) AND x<(b1*8+24) THEN GO TO 250
 190 IF POINT (x,y)=1 THEN GO TO 300
 210 PLOT x,y 
 215 PLOT INVERSE 1;x-3,y1
 220 LET y1=y 
 230 NEXT x
 240 GO TO 110
 250 PRINT AT 19,b1; INK 2;CHR$ 148;CHR$ 148;CHR$ 148: BEEP 0.2,-24: FOR i=0 TO 50: NEXT i
 255 PRINT AT 19,b1; INK 3;CHR$ 149;CHR$ 149;CHR$ 149: BEEP 0.2,-18: FOR i=0 TO 50: NEXT i
 260 PRINT AT 19,b1;"   ": FOR i=0 TO 100: NEXT i
 270 GO TO 20
 300 LET x2=(x-3)/8: LET y2=21-y1/8
 310 PRINT AT y2,x2; INK 2;CHR$ 148: BEEP 0.2,-24: FOR i=0 TO 50: NEXT i
 315 PRINT AT y2,x2; INK 3;CHR$ 149: FOR i=0 TO 50: NEXT i
 320 PRINT AT y2,x2;" "
 330 LET x=300: GO TO 230
1000 RESTORE 1040: LET a=USR "A"
1010 FOR i=0 TO 47
1020 READ b: POKE a+i,b
1030 NEXT i
1040 DATA 1, 2, 132, 72, 48, 112, 120, 240
1050 DATA 2, 1, 0, 248, 127, 61, 31, 15
1060 DATA 24, 60, 254, 126, 255, 85, 255, 255
1070 DATA 4, 14, 4, 31, 255, 87, 255, 254
1180 DATA 34, 148, 89, 46, 116, 154, 41, 68
1190 DATA 137, 32, 2, 128, 1, 64, 4, 145
1100 RETURN