|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13824 (0x3600)
Names: »B18«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B18«
0x0000…0020 20 30 30 31 30 20 4f 4e 20 45 53 43 20 43 48 41 49 4e 20 22 4d 45 4e 55 45 22 0d 0a 20 30 30 32 ┆ 0010 ON ESC CHAIN "MENUE" 002┆ 0x0020…0040 30 20 52 45 4d 20 52 55 4d 4b 52 49 47 2c 20 46 47 4b 20 32 38 2f 31 32 2f 38 30 2e 0d 0a 20 30 ┆0 REM RUMKRIG, FGK 28/12/80. 0┆ 0x0040…0060 30 33 30 20 52 45 4d 20 45 46 54 45 52 20 43 4f 4d 50 55 54 49 4e 47 20 54 4f 44 41 59 2c 20 4f ┆030 REM EFTER COMPUTING TODAY, O┆ 0x0060…0080 4b 54 20 31 39 38 30 2e 0d 0a 20 30 30 34 30 20 44 49 4d 20 53 56 41 52 24 28 33 29 2c 4b 4f 4d ┆KT 1980. 0040 DIM SVAR$(3),KOM┆ 0x0080…00a0 24 28 31 29 2c 53 4b 49 42 24 28 31 29 2c 50 41 52 54 49 24 28 34 29 2c 54 59 50 45 24 28 31 38 ┆$(1),SKIB$(1),PARTI$(4),TYPE$(18┆ 0x00a0…00c0 29 0d 0a 20 30 30 35 30 20 44 49 4d 20 58 28 32 30 29 2c 59 28 32 30 29 2c 47 28 32 30 29 2c 45 ┆) 0050 DIM X(20),Y(20),G(20),E┆ 0x00c0…00e0 28 32 30 29 2c 42 28 32 30 29 2c 53 4c 41 47 4d 24 28 33 31 2c 33 33 29 0d 0a 20 30 30 36 30 20 ┆(20),B(20),SLAGM$(31,33) 0060 ┆ 0x00e0…0100 52 41 4e 44 4f 4d 49 5a 45 20 0d 0a 20 30 30 37 30 20 44 45 46 20 46 4e 52 28 5a 35 29 3d 49 4e ┆RANDOMIZE 0070 DEF FNR(Z5)=IN┆ 0x0100…0120 54 28 5a 35 2a 52 4e 44 28 30 29 29 0d 0a 20 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a 20 30 30 ┆T(Z5*RND(0)) 0080 REPEAT 00┆ 0x0120…0140 39 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 ┆90 REPEAT 0100 PRINT CH┆ 0x0140…0160 52 28 31 32 29 3b 20 22 57 4f 55 4c 44 20 59 4f 55 20 4c 49 4b 45 20 54 4f 20 53 45 45 20 54 48 ┆R(12); "WOULD YOU LIKE TO SEE TH┆ 0x0160…0180 45 20 52 55 4c 45 53 20 28 59 45 53 2f 4e 4f 29 20 3a 20 22 3b 20 0d 0a 20 30 31 31 30 20 20 20 ┆E RULES (YES/NO) : "; 0110 ┆ 0x0180…01a0 20 20 49 4e 50 55 54 20 53 56 41 52 24 0d 0a 20 30 31 32 30 20 20 20 20 20 49 46 20 53 56 41 52 ┆ INPUT SVAR$ 0120 IF SVAR┆ 0x01a0…01c0 24 3d 22 59 22 20 4f 52 20 53 56 41 52 24 3d 22 59 45 53 22 20 4f 52 20 53 56 41 52 24 3d 22 59 ┆$="Y" OR SVAR$="YES" OR SVAR$="Y┆ 0x01c0…01e0 22 20 54 48 45 4e 20 53 56 41 52 24 3d 22 59 45 53 22 0d 0a 20 30 31 33 30 20 20 20 20 20 49 46 ┆" THEN SVAR$="YES" 0130 IF┆ 0x01e0…0200 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 4f 22 20 4f 52 20 53 56 41 52 ┆ SVAR$="N" OR SVAR$="NO" OR SVAR┆ 0x0200…0220 24 3d 22 4e 22 20 54 48 45 4e 20 53 56 41 52 24 3d 22 4e 4f 22 0d 0a 20 30 31 34 30 20 20 20 55 ┆$="N" THEN SVAR$="NO" 0140 U┆ 0x0220…0240 4e 54 49 4c 20 53 56 41 52 24 3d 22 59 45 53 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 4f 22 0d 0a ┆NTIL SVAR$="YES" OR SVAR$="NO" ┆ 0x0240…0260 20 30 31 35 30 20 20 20 49 46 20 53 56 41 52 24 3d 22 59 45 53 22 20 54 48 45 4e 20 45 58 45 43 ┆ 0150 IF SVAR$="YES" THEN EXEC┆ 0x0260…0280 20 52 45 47 4c 45 52 0d 0a 20 30 31 36 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a ┆ REGLER 0160 PRINT CHR(12) ┆ 0x0280…02a0 20 30 31 37 30 20 20 20 45 58 45 43 20 53 54 41 52 54 0d 0a 20 30 31 38 30 20 20 20 45 58 45 43 ┆ 0170 EXEC START 0180 EXEC┆ 0x02a0…02c0 20 44 49 53 50 4c 41 59 0d 0a 20 30 31 39 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 32 30 30 ┆ DISPLAY 0190 REPEAT 0200┆ 0x02c0…02e0 20 20 20 20 20 45 58 45 43 20 41 46 56 49 4b 4c 49 4e 47 0d 0a 20 30 32 31 30 20 20 20 55 4e 54 ┆ EXEC AFVIKLING 0210 UNT┆ 0x02e0…0300 49 4c 20 57 39 3d 30 20 4f 52 20 42 39 3d 30 0d 0a 20 30 32 32 30 20 20 20 52 45 50 45 41 54 20 ┆IL W9=0 OR B9=0 0220 REPEAT ┆ 0x0300…0320 0d 0a 20 30 32 33 30 20 20 20 20 20 49 4e 50 55 54 20 22 4e 45 57 20 52 4f 55 4e 44 20 28 59 45 ┆ 0230 INPUT "NEW ROUND (YE┆ 0x0320…0340 53 2f 4e 4f 29 20 3a 20 22 2c 53 56 41 52 24 0d 0a 20 30 32 34 30 20 20 20 20 20 49 46 20 53 56 ┆S/NO) : ",SVAR$ 0240 IF SV┆ 0x0340…0360 41 52 24 3d 22 59 22 20 4f 52 20 53 56 41 52 24 3d 22 59 22 20 4f 52 20 53 56 41 52 24 3d 22 59 ┆AR$="Y" OR SVAR$="Y" OR SVAR$="Y┆ 0x0360…0380 45 53 22 20 54 48 45 4e 20 53 56 41 52 24 3d 22 59 45 53 22 0d 0a 20 30 32 35 30 20 20 20 20 20 ┆ES" THEN SVAR$="YES" 0250 ┆ 0x0380…03a0 49 46 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 ┆IF SVAR$="N" OR SVAR$="N" OR SVA┆ 0x03a0…03c0 52 24 3d 22 4e 4f 22 20 54 48 45 4e 20 53 56 41 52 24 3d 22 4e 4f 22 0d 0a 20 30 32 36 30 20 20 ┆R$="NO" THEN SVAR$="NO" 0260 ┆ 0x03c0…03e0 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 59 45 53 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 4f 22 ┆ UNTIL SVAR$="YES" OR SVAR$="NO"┆ 0x03e0…0400 0d 0a 20 30 32 37 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 4e 4f 22 0d 0a 20 30 32 38 30 20 ┆ 0270 UNTIL SVAR$="NO" 0280 ┆ 0x0400…0420 45 4e 44 20 52 55 4d 4b 52 49 47 0d 0a 20 30 32 39 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d ┆END RUMKRIG 0290 REM //-------┆ 0x0420…0440 2d 2d 2d 2f 2f 0d 0a 20 30 33 30 30 20 50 52 4f 43 20 53 54 41 52 54 0d 0a 20 30 33 31 30 20 20 ┆---// 0300 PROC START 0310 ┆ 0x0440…0460 20 54 59 50 45 24 3d 22 41 42 43 44 3e 3c 31 32 33 57 58 59 5a 2a 23 37 38 39 22 3b 20 54 52 55 ┆ TYPE$="ABCD><123WXYZ*#789"; TRU┆ 0x0460…0480 45 3d 31 3b 20 46 41 4c 53 45 3d 30 0d 0a 20 30 33 32 30 20 20 20 4e 3d 31 38 3b 20 42 39 2c 57 ┆E=1; FALSE=0 0320 N=18; B9,W┆ 0x0480…04a0 39 3d 4e 2f 32 3b 20 57 3d 49 4e 54 28 52 4e 44 28 30 29 2a 32 29 0d 0a 20 30 33 33 30 20 20 20 ┆9=N/2; W=INT(RND(0)*2) 0330 ┆ 0x04a0…04c0 53 4c 41 47 4d 24 28 31 29 3d 22 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆SLAGM$(1)="000000000000000000000┆ 0x04c0…04e0 30 30 30 30 30 30 30 30 30 30 30 30 22 0d 0a 20 30 33 34 30 20 20 20 46 4f 52 20 49 3d 31 20 54 ┆000000000000" 0340 FOR I=1 T┆ 0x04e0…0500 4f 20 33 31 0d 0a 20 30 33 35 30 20 20 20 20 20 53 4c 41 47 4d 24 28 49 29 3d 53 4c 41 47 4d 24 ┆O 31 0350 SLAGM$(I)=SLAGM$┆ 0x0500…0520 28 31 29 0d 0a 20 30 33 36 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 33 37 30 20 20 20 46 4f 52 ┆(1) 0360 NEXT I 0370 FOR┆ 0x0520…0540 20 49 3d 31 20 54 4f 20 49 4e 54 28 4e 2f 32 29 0d 0a 20 30 33 38 30 20 20 20 20 20 52 45 50 45 ┆ I=1 TO INT(N/2) 0380 REPE┆ 0x0540…0560 41 54 20 0d 0a 20 30 33 39 30 20 20 20 20 20 20 20 58 28 49 29 3d 52 28 31 30 2d 49 2b 34 29 3b ┆AT 0390 X(I)=R(10-I+4);┆ 0x0560…0580 20 47 28 49 29 3d 31 0d 0a 20 30 34 30 30 20 20 20 20 20 20 20 59 28 49 29 3d 52 28 31 30 2d 49 ┆ G(I)=1 0400 Y(I)=R(10-I┆ 0x0580…05a0 2b 34 29 3b 20 45 28 49 29 3d 35 30 30 3b 20 42 28 49 29 3d 30 0d 0a 20 30 34 31 30 20 20 20 20 ┆+4); E(I)=500; B(I)=0 0410 ┆ 0x05a0…05c0 20 55 4e 54 49 4c 20 53 4c 41 47 4d 24 28 58 28 49 29 2b 31 2c 59 28 49 29 2b 32 20 3a 20 31 29 ┆ UNTIL SLAGM$(X(I)+1,Y(I)+2 : 1)┆ 0x05c0…05e0 3d 22 30 22 0d 0a 20 30 34 32 30 20 20 20 20 20 45 58 45 43 20 53 4d 41 52 4b 28 58 28 49 29 2c ┆="0" 0420 EXEC SMARK(X(I),┆ 0x05e0…0600 59 28 49 29 2c 31 29 0d 0a 20 30 34 33 30 20 20 20 20 20 49 46 20 49 3e 34 20 54 48 45 4e 20 45 ┆Y(I),1) 0430 IF I>4 THEN E┆ 0x0600…0620 28 49 29 3d 33 30 30 0d 0a 20 30 34 34 30 20 20 20 20 20 49 46 20 49 3e 36 20 54 48 45 4e 20 42 ┆(I)=300 0440 IF I>6 THEN B┆ 0x0620…0640 28 49 29 3d 33 0d 0a 20 30 34 35 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 34 36 30 20 20 20 46 ┆(I)=3 0450 NEXT I 0460 F┆ 0x0640…0660 4f 52 20 49 3d 49 4e 54 28 4e 2f 32 29 2b 31 20 54 4f 20 4e 0d 0a 20 30 34 37 30 20 20 20 20 20 ┆OR I=INT(N/2)+1 TO N 0470 ┆ 0x0660…0680 52 45 50 45 41 54 20 0d 0a 20 30 34 38 30 20 20 20 20 20 20 20 58 28 49 29 3d 52 28 49 2f 32 29 ┆REPEAT 0480 X(I)=R(I/2)┆ 0x0680…06a0 2b 32 32 3b 20 47 28 49 29 3d 31 0d 0a 20 30 34 39 30 20 20 20 20 20 20 20 59 28 49 29 3d 52 28 ┆+22; G(I)=1 0490 Y(I)=R(┆ 0x06a0…06c0 49 2f 31 2e 35 29 2b 49 3b 20 45 28 49 29 3d 35 30 30 3b 20 42 28 49 29 3d 30 0d 0a 20 30 35 30 ┆I/1.5)+I; E(I)=500; B(I)=0 050┆ 0x06c0…06e0 30 20 20 20 20 20 55 4e 54 49 4c 20 53 4c 41 47 4d 24 28 58 28 49 29 2b 31 2c 59 28 49 29 2b 32 ┆0 UNTIL SLAGM$(X(I)+1,Y(I)+2┆ 0x06e0…0700 20 3a 20 31 29 3d 22 30 22 0d 0a 20 30 35 31 30 20 20 20 20 20 45 58 45 43 20 53 4d 41 52 4b 28 ┆ : 1)="0" 0510 EXEC SMARK(┆ 0x0700…0720 58 28 49 29 2c 59 28 49 29 2c 31 29 0d 0a 20 30 35 32 30 20 20 20 20 20 49 46 20 49 3e 49 4e 54 ┆X(I),Y(I),1) 0520 IF I>INT┆ 0x0720…0740 28 4e 2f 32 29 2b 34 20 54 48 45 4e 20 45 28 49 29 3d 33 30 30 0d 0a 20 30 35 33 30 20 20 20 20 ┆(N/2)+4 THEN E(I)=300 0530 ┆ 0x0740…0760 20 49 46 20 49 3e 49 4e 54 28 4e 2f 32 29 2b 36 20 54 48 45 4e 20 42 28 49 29 3d 33 0d 0a 20 30 ┆ IF I>INT(N/2)+6 THEN B(I)=3 0┆ 0x0760…0780 35 34 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 35 35 30 20 45 4e 44 50 52 4f 43 20 53 54 41 52 ┆540 NEXT I 0550 ENDPROC STAR┆ 0x0780…07a0 54 0d 0a 20 30 35 36 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 35 ┆T 0560 REM //----------// 05┆ 0x07a0…07c0 37 30 20 50 52 4f 43 20 44 49 53 50 4c 41 59 0d 0a 20 30 35 38 30 20 20 20 45 58 45 43 20 52 41 ┆70 PROC DISPLAY 0580 EXEC RA┆ 0x07c0…07e0 4d 4d 45 0d 0a 20 30 35 39 30 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 4e 0d 0a 20 30 36 30 30 ┆MME 0590 FOR I=1 TO N 0600┆ 0x07e0…0800 20 20 20 20 20 49 46 20 47 28 49 29 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 45 47 4e 28 49 ┆ IF G(I)<>0 THEN EXEC TEGN(I┆ 0x0800…0820 2c 46 41 4c 53 45 29 0d 0a 20 30 36 31 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 36 32 30 20 45 ┆,FALSE) 0610 NEXT I 0620 E┆ 0x0820…0840 4e 44 50 52 4f 43 20 44 49 53 50 4c 41 59 0d 0a 20 30 36 33 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d ┆NDPROC DISPLAY 0630 REM //----┆ 0x0840…0860 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 36 34 30 20 50 52 4f 43 20 41 46 56 49 4b 4c 49 4e 47 0d 0a ┆------// 0640 PROC AFVIKLING ┆ 0x0860…0880 20 30 36 35 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 36 36 30 20 20 20 20 20 49 46 20 57 3d ┆ 0650 REPEAT 0660 IF W=┆ 0x0880…08a0 31 20 54 48 45 4e 20 0d 0a 20 30 36 37 30 20 20 20 20 20 20 20 50 41 52 54 49 24 3d 22 57 48 49 ┆1 THEN 0670 PARTI$="WHI┆ 0x08a0…08c0 54 45 22 3b 20 50 3d 31 3b 20 51 3d 49 4e 54 28 4e 2f 32 29 0d 0a 20 30 36 38 30 20 20 20 20 20 ┆TE"; P=1; Q=INT(N/2) 0680 ┆ 0x08c0…08e0 45 4c 53 45 20 0d 0a 20 30 36 39 30 20 20 20 20 20 20 20 50 41 52 54 49 24 3d 22 42 4c 41 43 4b ┆ELSE 0690 PARTI$="BLACK┆ 0x08e0…0900 22 3b 20 50 3d 49 4e 54 28 4e 2f 32 29 2b 31 3b 20 51 3d 4e 0d 0a 20 30 37 30 30 20 20 20 20 20 ┆"; P=INT(N/2)+1; Q=N 0700 ┆ 0x0900…0920 45 4e 44 49 46 20 0d 0a 20 30 37 31 30 20 20 20 20 20 45 58 45 43 20 43 55 52 28 31 2c 32 30 29 ┆ENDIF 0710 EXEC CUR(1,20)┆ 0x0920…0940 0d 0a 20 30 37 32 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 33 31 29 3b 20 50 41 52 54 49 ┆ 0720 PRINT CHR(31); PARTI┆ 0x0940…0960 24 3b 20 0d 0a 20 30 37 33 30 20 20 20 20 20 49 4e 50 55 54 20 22 21 20 57 48 49 43 48 20 53 50 ┆$; 0730 INPUT "! WHICH SP┆ 0x0960…0980 41 43 45 43 52 41 46 54 20 3a 20 22 2c 4b 4f 4d 24 0d 0a 20 30 37 34 30 20 20 20 20 20 42 31 3d ┆ACECRAFT : ",KOM$ 0740 B1=┆ 0x0980…09a0 30 0d 0a 20 30 37 35 30 20 20 20 20 20 46 4f 52 20 49 3d 50 20 54 4f 20 51 0d 0a 20 30 37 36 30 ┆0 0750 FOR I=P TO Q 0760┆ 0x09a0…09c0 20 20 20 20 20 20 20 49 46 20 54 59 50 45 24 28 49 20 3a 20 31 29 3d 4b 4f 4d 24 20 41 4e 44 20 ┆ IF TYPE$(I : 1)=KOM$ AND ┆ 0x09c0…09e0 47 28 49 29 3d 31 20 54 48 45 4e 20 41 3d 49 3b 20 42 31 3d 31 0d 0a 20 30 37 37 30 20 20 20 20 ┆G(I)=1 THEN A=I; B1=1 0770 ┆ 0x09e0…0a00 20 4e 45 58 54 20 49 0d 0a 20 30 37 38 30 20 20 20 55 4e 54 49 4c 20 42 31 3d 31 0d 0a 20 30 37 ┆ NEXT I 0780 UNTIL B1=1 07┆ 0x0a00…0a20 39 30 20 20 20 49 4e 50 55 54 20 22 43 4f 4d 4d 41 4e 44 20 3a 20 22 2c 4b 4f 4d 24 0d 0a 20 30 ┆90 INPUT "COMMAND : ",KOM$ 0┆ 0x0a20…0a40 38 30 30 20 20 20 49 46 20 4b 4f 4d 24 3d 22 4d 22 20 4f 52 20 4b 4f 4d 24 3d 22 4d 22 20 54 48 ┆800 IF KOM$="M" OR KOM$="M" TH┆ 0x0a40…0a60 45 4e 20 45 58 45 43 20 46 4c 59 54 54 45 0d 0a 20 30 38 31 30 20 20 20 49 46 20 4b 4f 4d 24 3d ┆EN EXEC FLYTTE 0810 IF KOM$=┆ 0x0a60…0a80 22 52 22 20 4f 52 20 4b 4f 4d 24 3d 22 52 22 20 54 48 45 4e 20 0d 0a 20 30 38 32 30 20 20 20 20 ┆"R" OR KOM$="R" THEN 0820 ┆ 0x0a80…0aa0 20 45 58 45 43 20 52 45 47 4c 45 52 0d 0a 20 30 38 33 30 20 20 20 20 20 57 3d 31 2d 28 57 3d 31 ┆ EXEC REGLER 0830 W=1-(W=1┆ 0x0aa0…0ac0 29 0d 0a 20 30 38 34 30 20 20 20 20 20 45 58 45 43 20 44 49 53 50 4c 41 59 0d 0a 20 30 38 35 30 ┆) 0840 EXEC DISPLAY 0850┆ 0x0ac0…0ae0 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 38 36 30 20 20 20 49 46 20 4b 4f 4d 24 3d 22 4c 22 20 4f ┆ ENDIF 0860 IF KOM$="L" O┆ 0x0ae0…0b00 52 20 4b 4f 4d 24 3d 22 4c 22 20 54 48 45 4e 20 45 58 45 43 20 4c 41 53 45 52 0d 0a 20 30 38 37 ┆R KOM$="L" THEN EXEC LASER 087┆ 0x0b00…0b20 30 20 20 20 49 46 20 4b 4f 4d 24 3d 22 53 22 20 4f 52 20 4b 4f 4d 24 3d 22 53 22 20 54 48 45 4e ┆0 IF KOM$="S" OR KOM$="S" THEN┆ 0x0b20…0b40 20 45 58 45 43 20 53 54 41 54 55 53 0d 0a 20 30 38 38 30 20 20 20 49 46 20 4b 4f 4d 24 3d 22 42 ┆ EXEC STATUS 0880 IF KOM$="B┆ 0x0b40…0b60 22 20 4f 52 20 4b 4f 4d 24 3d 22 42 22 20 54 48 45 4e 20 45 58 45 43 20 42 4f 4d 42 45 0d 0a 20 ┆" OR KOM$="B" THEN EXEC BOMBE ┆ 0x0b60…0b80 30 38 39 30 20 20 20 49 46 20 57 39 3d 30 20 4f 52 20 42 39 3d 30 20 54 48 45 4e 20 45 58 45 43 ┆0890 IF W9=0 OR B9=0 THEN EXEC┆ 0x0b80…0ba0 20 53 45 4a 52 0d 0a 20 30 39 30 30 20 20 20 57 3d 31 2d 28 57 3d 31 29 0d 0a 20 30 39 31 30 20 ┆ SEJR 0900 W=1-(W=1) 0910 ┆ 0x0ba0…0bc0 45 4e 44 50 52 4f 43 20 41 46 56 49 4b 4c 49 4e 47 0d 0a 20 30 39 32 30 20 52 45 4d 20 2f 2f 2d ┆ENDPROC AFVIKLING 0920 REM //-┆ 0x0bc0…0be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 39 33 30 20 50 52 4f 43 20 46 4c 59 54 54 45 0d 0a ┆---------// 0930 PROC FLYTTE ┆ 0x0be0…0c00 20 30 39 34 30 20 20 20 46 4f 52 20 44 31 3d 31 20 54 4f 20 32 0d 0a 20 30 39 35 30 20 20 20 20 ┆ 0940 FOR D1=1 TO 2 0950 ┆ 0x0c00…0c20 20 49 46 20 44 31 3d 31 20 54 48 45 4e 20 0d 0a 20 30 39 36 30 20 20 20 20 20 20 20 45 58 45 43 ┆ IF D1=1 THEN 0960 EXEC┆ 0x0c20…0c40 20 46 4c 59 54 31 0d 0a 20 30 39 37 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 39 38 30 20 20 ┆ FLYT1 0970 ELSE 0980 ┆ 0x0c40…0c60 20 20 20 20 20 49 46 20 57 39 2a 42 39 3c 3e 30 20 54 48 45 4e 20 0d 0a 20 30 39 39 30 20 20 20 ┆ IF W9*B9<>0 THEN 0990 ┆ 0x0c60…0c80 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 30 30 30 20 20 20 20 20 20 20 20 20 20 20 45 ┆ REPEAT 1000 E┆ 0x0c80…0ca0 58 45 43 20 43 55 52 28 31 2c 32 30 29 0d 0a 20 31 30 31 30 20 20 20 20 20 20 20 20 20 20 20 50 ┆XEC CUR(1,20) 1010 P┆ 0x0ca0…0cc0 52 49 4e 54 20 43 48 52 28 33 31 29 3b 20 0d 0a 20 31 30 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆RINT CHR(31); 1020 ┆ 0x0cc0…0ce0 49 4e 50 55 54 20 22 44 4f 20 59 4f 55 20 57 49 53 48 20 54 4f 20 4d 4f 56 45 20 41 4e 4f 54 48 ┆INPUT "DO YOU WISH TO MOVE ANOTH┆ 0x0ce0…0d00 45 52 20 53 50 41 43 45 43 52 41 46 54 20 28 59 45 53 2f 4e 4f 29 20 3a 20 22 2c 53 56 41 52 24 ┆ER SPACECRAFT (YES/NO) : ",SVAR$┆ 0x0d00…0d20 0d 0a 20 31 30 33 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 24 3d 22 59 22 20 4f ┆ 1030 IF SVAR$="Y" O┆ 0x0d20…0d40 52 20 53 56 41 52 24 3d 22 59 22 20 4f 52 20 53 56 41 52 24 3d 22 59 45 53 22 20 54 48 45 4e 20 ┆R SVAR$="Y" OR SVAR$="YES" THEN ┆ 0x0d40…0d60 53 56 41 52 24 3d 22 59 45 53 22 0d 0a 20 31 30 34 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆SVAR$="YES" 1040 IF ┆ 0x0d60…0d80 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d ┆SVAR$="N" OR SVAR$="N" OR SVAR$=┆ 0x0d80…0da0 22 4e 4f 22 20 54 48 45 4e 20 53 56 41 52 24 3d 22 4e 4f 22 0d 0a 20 31 30 35 30 20 20 20 20 20 ┆"NO" THEN SVAR$="NO" 1050 ┆ 0x0da0…0dc0 20 20 20 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 59 45 53 22 20 4f 52 20 53 56 41 52 24 3d 22 ┆ UNTIL SVAR$="YES" OR SVAR$="┆ 0x0dc0…0de0 4e 4f 22 0d 0a 20 31 30 36 30 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 24 3d 22 59 45 53 ┆NO" 1060 IF SVAR$="YES┆ 0x0de0…0e00 22 20 54 48 45 4e 20 45 58 45 43 20 46 4c 59 54 32 0d 0a 20 31 30 37 30 20 20 20 20 20 20 20 45 ┆" THEN EXEC FLYT2 1070 E┆ 0x0e00…0e20 4e 44 49 46 20 0d 0a 20 31 30 38 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 30 39 30 20 20 ┆NDIF 1080 ENDIF 1090 ┆ 0x0e20…0e40 20 4e 45 58 54 20 44 31 0d 0a 20 31 31 30 30 20 45 4e 44 50 52 4f 43 20 46 4c 59 54 54 45 0d 0a ┆ NEXT D1 1100 ENDPROC FLYTTE ┆ 0x0e40…0e60 20 31 31 31 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 31 32 30 20 ┆ 1110 REM //----------// 1120 ┆ 0x0e60…0e80 50 52 4f 43 20 46 4c 59 54 31 0d 0a 20 31 31 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 31 ┆PROC FLYT1 1130 REPEAT 11┆ 0x0e80…0ea0 34 30 20 20 20 20 20 56 49 44 45 52 45 3d 46 41 4c 53 45 0d 0a 20 31 31 35 30 20 20 20 20 20 45 ┆40 VIDERE=FALSE 1150 E┆ 0x0ea0…0ec0 58 45 43 20 43 55 52 28 31 2c 32 31 29 0d 0a 20 31 31 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 ┆XEC CUR(1,21) 1160 INPUT "┆ 0x0ec0…0ee0 56 45 43 54 4f 52 53 20 28 58 20 59 29 20 3a 20 22 2c 53 31 2c 53 32 0d 0a 20 31 31 37 30 20 20 ┆VECTORS (X Y) : ",S1,S2 1170 ┆ 0x0ee0…0f00 20 20 20 52 31 3d 53 51 52 28 53 31 2a 53 31 2b 53 32 2a 53 32 29 3b 20 42 31 3d 36 0d 0a 20 31 ┆ R1=SQR(S1*S1+S2*S2); B1=6 1┆ 0x0f00…0f20 31 38 30 20 20 20 20 20 49 46 20 41 3c 50 2b 36 20 54 48 45 4e 20 42 31 3d 31 30 0d 0a 20 31 31 ┆180 IF A<P+6 THEN B1=10 11┆ 0x0f20…0f40 39 30 20 20 20 20 20 49 46 20 41 3c 50 2b 34 20 54 48 45 4e 20 42 31 3d 38 0d 0a 20 31 32 30 30 ┆90 IF A<P+4 THEN B1=8 1200┆ 0x0f40…0f60 20 20 20 20 20 49 46 20 52 31 3e 42 31 20 54 48 45 4e 20 0d 0a 20 31 32 31 30 20 20 20 20 20 20 ┆ IF R1>B1 THEN 1210 ┆ 0x0f60…0f80 20 45 58 45 43 20 43 55 52 28 31 2c 32 32 29 0d 0a 20 31 32 32 30 20 20 20 20 20 20 20 50 52 49 ┆ EXEC CUR(1,22) 1220 PRI┆ 0x0f80…0fa0 4e 54 20 43 48 52 28 33 31 29 3b 20 0d 0a 20 31 32 33 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆NT CHR(31); 1230 PRINT ┆ 0x0fa0…0fc0 22 4f 55 54 20 4f 46 20 52 45 41 43 48 21 22 0d 0a 20 31 32 34 30 20 20 20 20 20 45 4c 53 45 20 ┆"OUT OF REACH!" 1240 ELSE ┆ 0x0fc0…0fe0 0d 0a 20 31 32 35 30 20 20 20 20 20 20 20 49 46 20 42 31 3d 31 30 20 54 48 45 4e 20 42 31 3d 32 ┆ 1250 IF B1=10 THEN B1=2┆ 0x0fe0…1000 30 0d 0a 20 31 32 36 30 20 20 20 20 20 20 20 49 46 20 45 28 41 29 2d 52 31 2a 28 31 38 2d 42 31 ┆0 1260 IF E(A)-R1*(18-B1┆ 0x1000…1020 29 3c 3d 30 20 54 48 45 4e 20 0d 0a 20 31 32 37 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆)<=0 THEN 1270 PRINT ┆ 0x1020…1040 22 54 48 45 20 45 4e 45 52 47 59 20 49 53 20 4f 4e 4c 59 22 3b 20 45 28 41 29 3b 20 22 54 45 52 ┆"THE ENERGY IS ONLY"; E(A); "TER┆ 0x1040…1060 41 2d 4a 4f 55 4c 45 53 21 22 0d 0a 20 31 32 38 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 ┆A-JOULES!" 1280 ELSE ┆ 0x1060…1080 31 32 39 30 20 20 20 20 20 20 20 20 20 56 49 44 45 52 45 3d 54 52 55 45 0d 0a 20 31 33 30 30 20 ┆1290 VIDERE=TRUE 1300 ┆ 0x1080…10a0 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 33 31 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a ┆ ENDIF 1310 ENDIF ┆ 0x10a0…10c0 20 31 33 32 30 20 20 20 55 4e 54 49 4c 20 56 49 44 45 52 45 3d 54 52 55 45 0d 0a 20 31 33 33 30 ┆ 1320 UNTIL VIDERE=TRUE 1330┆ 0x10c0…10e0 20 20 20 45 58 45 43 20 56 49 53 4b 55 44 28 41 29 0d 0a 20 31 33 34 30 20 20 20 58 28 41 29 3d ┆ EXEC VISKUD(A) 1340 X(A)=┆ 0x10e0…1100 58 28 41 29 2b 53 31 3b 20 59 28 41 29 3d 59 28 41 29 2b 53 32 0d 0a 20 31 33 35 30 20 20 20 49 ┆X(A)+S1; Y(A)=Y(A)+S2 1350 I┆ 0x1100…1120 46 20 58 28 41 29 3c 30 20 4f 52 20 58 28 41 29 3e 33 30 20 4f 52 20 59 28 41 29 3c 30 20 4f 52 ┆F X(A)<0 OR X(A)>30 OR Y(A)<0 OR┆ 0x1120…1140 20 59 28 41 29 3e 33 30 20 54 48 45 4e 20 0d 0a 20 31 33 36 30 20 20 20 20 20 45 58 45 43 20 43 ┆ Y(A)>30 THEN 1360 EXEC C┆ 0x1140…1160 55 52 28 35 30 2c 32 30 29 0d 0a 20 31 33 37 30 20 20 20 20 20 50 52 49 4e 54 20 54 59 50 45 24 ┆UR(50,20) 1370 PRINT TYPE$┆ 0x1160…1180 28 41 20 3a 20 31 29 3b 20 22 20 49 53 20 4c 4f 53 54 20 49 4e 20 4f 55 54 45 52 20 53 50 41 43 ┆(A : 1); " IS LOST IN OUTER SPAC┆ 0x1180…11a0 45 21 22 0d 0a 20 31 33 38 30 20 20 20 20 20 45 58 45 43 20 50 41 55 53 45 0d 0a 20 31 33 39 30 ┆E!" 1380 EXEC PAUSE 1390┆ 0x11a0…11c0 20 20 20 20 20 47 28 41 29 3d 30 3b 20 57 39 3d 57 39 2d 28 57 3d 31 29 3b 20 42 39 3d 42 39 2d ┆ G(A)=0; W9=W9-(W=1); B9=B9-┆ 0x11c0…11e0 28 57 3d 30 29 0d 0a 20 31 34 30 30 20 20 20 45 4c 53 45 20 0d 0a 20 31 34 31 30 20 20 20 20 20 ┆(W=0) 1400 ELSE 1410 ┆ 0x11e0…1200 45 58 45 43 20 54 45 47 4e 28 41 2c 54 52 55 45 29 0d 0a 20 31 34 32 30 20 20 20 20 20 45 28 41 ┆EXEC TEGN(A,TRUE) 1420 E(A┆ 0x1200…1220 29 3d 45 28 41 29 2d 52 31 2a 28 32 31 2d 42 31 29 0d 0a 20 31 34 33 30 20 20 20 45 4e 44 49 46 ┆)=E(A)-R1*(21-B1) 1430 ENDIF┆ 0x1220…1240 20 0d 0a 20 31 34 34 30 20 45 4e 44 50 52 4f 43 20 46 4c 59 54 31 0d 0a 20 31 34 35 30 20 52 45 ┆ 1440 ENDPROC FLYT1 1450 RE┆ 0x1240…1260 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 34 36 30 20 50 52 4f 43 20 46 4c 59 ┆M //----------// 1460 PROC FLY┆ 0x1260…1280 54 32 0d 0a 20 31 34 37 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 34 38 30 20 20 20 20 20 42 ┆T2 1470 REPEAT 1480 B┆ 0x1280…12a0 31 3d 30 0d 0a 20 31 34 39 30 20 20 20 20 20 45 58 45 43 20 43 55 52 28 31 2c 32 30 29 0d 0a 20 ┆1=0 1490 EXEC CUR(1,20) ┆ 0x12a0…12c0 31 35 30 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 33 31 29 3b 20 0d 0a 20 31 35 31 30 20 ┆1500 PRINT CHR(31); 1510 ┆ 0x12c0…12e0 20 20 20 20 49 4e 50 55 54 20 22 57 48 49 43 48 20 53 50 41 43 45 43 52 41 46 54 20 3a 20 22 2c ┆ INPUT "WHICH SPACECRAFT : ",┆ 0x12e0…1300 53 4b 49 42 24 0d 0a 20 31 35 32 30 20 20 20 20 20 46 4f 52 20 49 3d 50 20 54 4f 20 51 0d 0a 20 ┆SKIB$ 1520 FOR I=P TO Q ┆ 0x1300…1320 31 35 33 30 20 20 20 20 20 20 20 49 46 20 54 59 50 45 24 28 49 20 3a 20 31 29 3d 53 4b 49 42 24 ┆1530 IF TYPE$(I : 1)=SKIB$┆ 0x1320…1340 20 41 4e 44 20 47 28 49 29 3d 31 20 54 48 45 4e 20 42 31 3d 49 3b 20 49 3d 51 0d 0a 20 31 35 34 ┆ AND G(I)=1 THEN B1=I; I=Q 154┆ 0x1340…1360 30 20 20 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 35 35 30 20 20 20 55 4e 54 49 4c 20 42 31 3c 3e ┆0 NEXT I 1550 UNTIL B1<>┆ 0x1360…1380 30 0d 0a 20 31 35 36 30 20 20 20 49 46 20 42 31 3d 41 20 54 48 45 4e 20 0d 0a 20 31 35 37 30 20 ┆0 1560 IF B1=A THEN 1570 ┆ 0x1380…13a0 20 20 20 20 50 52 49 4e 54 20 22 54 48 49 53 20 53 50 41 43 45 43 52 41 46 54 20 48 41 53 20 4a ┆ PRINT "THIS SPACECRAFT HAS J┆ 0x13a0…13c0 55 53 54 20 42 45 45 4e 20 4d 4f 56 45 44 21 22 0d 0a 20 31 35 38 30 20 20 20 20 20 45 58 45 43 ┆UST BEEN MOVED!" 1580 EXEC┆ 0x13c0…13e0 20 50 41 55 53 45 0d 0a 20 31 35 39 30 20 20 20 45 4c 53 45 20 0d 0a 20 31 36 30 30 20 20 20 20 ┆ PAUSE 1590 ELSE 1600 ┆ 0x13e0…1400 20 41 3d 42 31 0d 0a 20 31 36 31 30 20 20 20 20 20 45 58 45 43 20 46 4c 59 54 31 0d 0a 20 31 36 ┆ A=B1 1610 EXEC FLYT1 16┆ 0x1400…1420 32 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 36 33 30 20 45 4e 44 50 52 4f 43 20 46 4c 59 54 32 ┆20 ENDIF 1630 ENDPROC FLYT2┆ 0x1420…1440 0d 0a 20 31 36 34 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 36 35 ┆ 1640 REM //----------// 165┆ 0x1440…1460 30 20 50 52 4f 43 20 4c 41 53 45 52 0d 0a 20 31 36 36 30 20 20 20 49 46 20 41 3c 50 2b 36 20 54 ┆0 PROC LASER 1660 IF A<P+6 T┆ 0x1460…1480 48 45 4e 20 0d 0a 20 31 36 37 30 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 36 38 30 20 20 ┆HEN 1670 REPEAT 1680 ┆ 0x1480…14a0 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 36 39 30 20 20 20 20 20 20 20 20 20 45 58 45 43 ┆ REPEAT 1690 EXEC┆ 0x14a0…14c0 20 43 55 52 28 31 2c 32 30 29 0d 0a 20 31 37 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆ CUR(1,20) 1700 PRINT ┆ 0x14c0…14e0 43 48 52 28 33 31 29 3b 20 0d 0a 20 31 37 31 30 20 20 20 20 20 20 20 20 20 43 3d 30 0d 0a 20 31 ┆CHR(31); 1710 C=0 1┆ 0x14e0…1500 37 32 30 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 57 48 49 43 48 20 53 50 41 43 45 43 52 ┆720 INPUT "WHICH SPACECR┆ 0x1500…1520 41 46 54 20 49 53 20 54 48 45 20 54 41 52 47 45 54 20 3a 20 22 2c 53 4b 49 42 24 0d 0a 20 31 37 ┆AFT IS THE TARGET : ",SKIB$ 17┆ 0x1520…1540 33 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 4e 0d 0a 20 31 37 34 30 20 20 ┆30 FOR I=1 TO N 1740 ┆ 0x1540…1560 20 20 20 20 20 20 20 20 20 49 46 20 54 59 50 45 24 28 49 20 3a 20 31 29 3d 53 4b 49 42 24 20 41 ┆ IF TYPE$(I : 1)=SKIB$ A┆ 0x1560…1580 4e 44 20 47 28 49 29 3d 31 20 54 48 45 4e 20 43 3d 49 3b 20 49 3d 4e 0d 0a 20 31 37 35 30 20 20 ┆ND G(I)=1 THEN C=I; I=N 1750 ┆ 0x1580…15a0 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 37 36 30 20 20 20 20 20 20 20 55 4e 54 49 4c ┆ NEXT I 1760 UNTIL┆ 0x15a0…15c0 20 43 3e 30 0d 0a 20 31 37 37 30 20 20 20 20 20 55 4e 54 49 4c 20 47 28 43 29 3c 3e 30 0d 0a 20 ┆ C>0 1770 UNTIL G(C)<>0 ┆ 0x15c0…15e0 31 37 38 30 20 20 20 20 20 52 31 3d 53 51 52 28 28 58 28 41 29 2d 58 28 43 29 29 2a 28 58 28 41 ┆1780 R1=SQR((X(A)-X(C))*(X(A┆ 0x15e0…1600 29 2d 58 28 43 29 29 2b 28 59 28 41 29 2d 59 28 43 29 29 2a 28 59 28 41 29 2d 59 28 43 29 29 29 ┆)-X(C))+(Y(A)-Y(C))*(Y(A)-Y(C)))┆ 0x1600…1620 0d 0a 20 31 37 39 30 20 20 20 20 20 49 46 20 52 31 3e 31 32 20 54 48 45 4e 20 0d 0a 20 31 38 30 ┆ 1790 IF R1>12 THEN 180┆ 0x1620…1640 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4f 55 54 20 4f 46 20 52 45 41 43 48 21 22 0d 0a 20 ┆0 PRINT "OUT OF REACH!" ┆ 0x1640…1660 31 38 31 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 38 32 30 20 20 20 20 20 20 20 50 52 49 4e ┆1810 ELSE 1820 PRIN┆ 0x1660…1680 54 20 22 44 49 53 54 41 4e 43 45 22 3b 20 52 31 3b 20 22 2e 20 22 3b 20 0d 0a 20 31 38 33 30 20 ┆T "DISTANCE"; R1; ". "; 1830 ┆ 0x1680…16a0 20 20 20 20 20 20 49 4e 50 55 54 20 22 4c 41 53 45 52 2d 45 4e 45 52 47 59 20 3a 20 22 2c 50 38 ┆ INPUT "LASER-ENERGY : ",P8┆ 0x16a0…16c0 0d 0a 20 31 38 34 30 20 20 20 20 20 20 20 49 46 20 45 28 41 29 2d 50 38 3c 30 20 54 48 45 4e 20 ┆ 1840 IF E(A)-P8<0 THEN ┆ 0x16c0…16e0 0d 0a 20 31 38 35 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 54 48 45 20 41 56 41 49 4c ┆ 1850 PRINT "THE AVAIL┆ 0x16e0…1700 41 42 4c 45 20 45 4e 45 52 47 59 20 49 53 20 4f 4e 4c 59 22 3b 20 45 28 41 29 3b 20 22 54 45 52 ┆ABLE ENERGY IS ONLY"; E(A); "TER┆ 0x1700…1720 41 2d 4a 4f 55 4c 45 53 21 22 0d 0a 20 31 38 36 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 ┆A-JOULES!" 1860 ELSE ┆ 0x1720…1740 31 38 37 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4c 41 53 45 52 52 45 53 55 4c 54 41 54 0d ┆1870 EXEC LASERRESULTAT ┆ 0x1740…1760 0a 20 31 38 38 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 38 39 30 20 20 20 20 20 45 ┆ 1880 ENDIF 1890 E┆ 0x1760…1780 4e 44 49 46 20 0d 0a 20 31 39 30 30 20 20 20 45 4c 53 45 20 0d 0a 20 31 39 31 30 20 20 20 20 20 ┆NDIF 1900 ELSE 1910 ┆ 0x1780…17a0 50 52 49 4e 54 20 22 4e 4f 20 4c 41 53 45 52 20 4f 4e 20 46 49 47 48 54 45 52 53 21 22 0d 0a 20 ┆PRINT "NO LASER ON FIGHTERS!" ┆ 0x17a0…17c0 31 39 32 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 39 33 30 20 20 20 45 58 45 43 20 50 41 55 53 ┆1920 ENDIF 1930 EXEC PAUS┆ 0x17c0…17e0 45 0d 0a 20 31 39 34 30 20 45 4e 44 50 52 4f 43 20 4c 41 53 45 52 0d 0a 20 31 39 35 30 20 52 45 ┆E 1940 ENDPROC LASER 1950 RE┆ 0x17e0…1800 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 39 36 30 20 50 52 4f 43 20 4c 41 53 ┆M //----------// 1960 PROC LAS┆ 0x1800…1820 45 52 52 45 53 55 4c 54 41 54 0d 0a 20 31 39 37 30 20 20 20 50 37 3d 28 50 38 2f 28 28 52 31 2a ┆ERRESULTAT 1970 P7=(P8/((R1*┆ 0x1820…1840 2e 37 29 2b 2e 30 35 29 29 2a 28 32 30 30 2f 28 45 28 43 29 2b 31 29 29 0d 0a 20 31 39 38 30 20 ┆.7)+.05))*(200/(E(C)+1)) 1980 ┆ 0x1840…1860 20 20 45 28 41 29 3d 45 28 41 29 2d 50 38 3b 20 46 54 41 42 3d 54 52 55 45 0d 0a 20 31 39 39 30 ┆ E(A)=E(A)-P8; FTAB=TRUE 1990┆ 0x1860…1880 20 20 20 49 46 20 52 28 50 37 29 3c 31 37 20 54 48 45 4e 20 0d 0a 20 32 30 30 30 20 20 20 20 20 ┆ IF R(P7)<17 THEN 2000 ┆ 0x1880…18a0 46 54 41 42 3d 46 41 4c 53 45 0d 0a 20 32 30 31 30 20 20 20 20 20 50 52 49 4e 54 20 22 4c 41 53 ┆FTAB=FALSE 2010 PRINT "LAS┆ 0x18a0…18c0 45 52 42 45 41 4d 20 44 45 46 4c 45 43 54 45 44 21 22 0d 0a 20 32 30 32 30 20 20 20 20 20 4c 3d ┆ERBEAM DEFLECTED!" 2020 L=┆ 0x18c0…18e0 52 28 35 2a 50 38 2f 28 28 52 31 2a 2e 38 29 2b 2e 30 35 29 29 2b 49 4e 54 28 31 30 30 2f 28 28 ┆R(5*P8/((R1*.8)+.05))+INT(100/((┆ 0x18e0…1900 52 31 2a 2e 35 29 2b 31 29 29 0d 0a 20 32 30 33 30 20 20 20 20 20 50 52 49 4e 54 20 22 45 4e 45 ┆R1*.5)+1)) 2030 PRINT "ENE┆ 0x1900…1920 52 47 59 4c 4f 53 53 20 46 4f 52 20 54 48 45 20 54 41 52 47 45 54 3a 22 3b 20 4c 3b 20 22 54 45 ┆RGYLOSS FOR THE TARGET:"; L; "TE┆ […truncated at 200 lines…]