|
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: 5120 (0x1400)
Names: »B40«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B40«
0x0000…0020 20 30 30 34 30 20 4f 55 54 20 31 2c 30 0d 0a 20 30 30 35 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 4f ┆ 0040 OUT 1,0 0050 REM //----O┆ 0x0020…0040 56 45 52 53 4b 52 49 46 54 20 4f 47 20 49 4e 53 54 52 55 4b 54 49 4f 4e 2d 2d 2d 2d 2f 2f 0d 0a ┆VERSKRIFT OG INSTRUKTION----// ┆ 0x0040…0060 20 30 30 36 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 30 37 30 20 50 52 49 4e 54 ┆ 0060 PRINT CHR(12) 0070 PRINT┆ 0x0060…0080 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 20 43 48 52 28 31 33 30 29 3b 20 22 3c ┆ " "; CHR(130); "<┆ 0x0080…00a0 20 3c 20 3c 20 3c 22 3b 20 43 48 52 28 31 34 34 29 3b 20 22 20 4d 20 45 20 4d 20 4f 20 52 20 59 ┆ < < <"; CHR(144); " M E M O R Y┆ 0x00a0…00c0 20 22 3b 20 0d 0a 20 30 30 38 30 20 50 52 49 4e 54 20 43 48 52 28 31 33 39 29 3b 20 22 3e 20 3e ┆ "; 0080 PRINT CHR(139); "> >┆ 0x00c0…00e0 20 3e 20 3e 22 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 30 30 39 30 20 50 52 49 4e 54 20 0d 0a 20 ┆ > >"; CHR(128) 0090 PRINT ┆ 0x00e0…0100 30 31 30 30 20 50 52 49 4e 54 20 22 55 4e 44 45 52 20 48 56 45 52 54 20 42 4f 47 53 54 41 56 20 ┆0100 PRINT "UNDER HVERT BOGSTAV ┆ 0x0100…0120 47 45 4d 4d 45 52 20 44 45 52 20 53 49 47 20 45 54 20 54 41 4c 2c 20 53 4f 4d 20 44 55 20 4b 41 ┆GEMMER DER SIG ET TAL, SOM DU KA┆ 0x0120…0140 4e 20 46 5d 20 41 54 20 53 45 2c 22 0d 0a 20 30 31 31 30 20 50 52 49 4e 54 20 22 4e 5d 52 20 44 ┆N FÅ AT SE," 0110 PRINT "NÅR D┆ 0x0140…0160 55 20 54 41 53 54 45 52 20 42 4f 47 53 54 41 56 45 54 20 49 4e 44 2e 22 0d 0a 20 30 31 32 30 20 ┆U TASTER BOGSTAVET IND." 0120 ┆ 0x0160…0180 50 52 49 4e 54 20 22 44 55 20 4d 5d 20 53 45 20 32 20 54 41 4c 20 41 44 20 47 41 4e 47 45 4e 2c ┆PRINT "DU MÅ SE 2 TAL AD GANGEN,┆ 0x0180…01a0 20 4f 47 20 48 56 49 53 20 44 45 20 54 49 4c 53 41 4d 4d 45 4e 20 47 49 56 45 52 20 44 45 4e 20 ┆ OG HVIS DE TILSAMMEN GIVER DEN ┆ 0x01a0…01c0 56 41 4c 47 54 45 22 0d 0a 20 30 31 33 30 20 50 52 49 4e 54 20 22 53 55 4d 2c 20 46 5d 52 20 44 ┆VALGTE" 0130 PRINT "SUM, FÅR D┆ 0x01c0…01e0 55 20 32 20 50 4f 49 4e 54 20 4f 47 20 4d 5d 20 50 52 5c 56 45 20 49 47 45 4e 2c 20 4d 4f 44 50 ┆U 2 POINT OG MÅ PRØVE IGEN, MODP┆ 0x01e0…0200 41 52 54 45 4e 20 46 5d 52 20 45 54 20 4d 49 4e 55 53 20 50 4f 49 4e 54 2e 22 0d 0a 20 30 31 34 ┆ARTEN FÅR ET MINUS POINT." 014┆ 0x0200…0220 30 20 50 52 49 4e 54 20 0d 0a 20 30 31 35 30 20 44 45 46 20 46 4e 43 28 58 29 3d 39 35 2b 58 2d ┆0 PRINT 0150 DEF FNC(X)=95+X-┆ 0x0220…0240 36 34 2a 28 58 3e 33 32 29 2d 36 34 2a 28 58 3e 36 34 29 0d 0a 20 30 31 36 30 20 44 49 4d 20 54 ┆64*(X>32)-64*(X>64) 0160 DIM T┆ 0x0240…0260 24 28 37 30 29 2c 50 24 28 32 31 29 2c 53 24 28 31 30 29 2c 4d 56 28 31 36 29 2c 4d 4c 28 31 36 ┆$(70),P$(21),S$(10),MV(16),ML(16┆ 0x0260…0280 29 2c 50 56 28 32 29 2c 50 4c 28 32 29 2c 4e 52 28 32 29 2c 50 54 28 32 29 2c 54 41 4c 28 31 36 ┆),PV(2),PL(2),NR(2),PT(2),TAL(16┆ 0x0280…02a0 29 0d 0a 20 30 31 37 30 20 44 49 4d 20 42 45 53 41 54 28 31 36 29 0d 0a 20 30 31 38 30 20 54 24 ┆) 0170 DIM BESAT(16) 0180 T$┆ 0x02a0…02c0 3d 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 22 0d 0a 20 30 31 39 30 20 50 52 4f 43 20 ┆="ABCDEFGHIJKLMNOP" 0190 PROC ┆ 0x02c0…02e0 50 4c 4f 54 28 58 58 2c 59 59 2c 43 43 29 0d 0a 20 30 32 30 30 20 20 20 50 52 49 4e 54 20 43 48 ┆PLOT(XX,YY,CC) 0200 PRINT CH┆ 0x02e0…0300 52 28 36 29 3b 20 43 48 52 28 46 4e 43 28 58 58 29 29 3b 20 43 48 52 28 46 4e 43 28 59 59 29 29 ┆R(6); CHR(FNC(XX)); CHR(FNC(YY))┆ 0x0300…0320 3b 20 43 48 52 28 43 43 29 3b 20 50 24 3b 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 30 32 31 30 ┆; CHR(CC); P$; CHR(128); 0210┆ 0x0320…0340 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 32 32 30 20 4f 4e 20 45 53 43 20 47 4f 20 54 4f 20 31 34 ┆ ENDPROC 0220 ON ESC GO TO 14┆ 0x0340…0360 36 30 0d 0a 20 30 32 33 30 20 4f 55 54 20 31 2c 33 35 0d 0a 20 30 32 34 30 20 52 45 50 45 41 54 ┆60 0230 OUT 1,35 0240 REPEAT┆ 0x0360…0380 20 0d 0a 20 30 32 35 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 32 36 30 20 20 20 20 20 49 4e ┆ 0250 REPEAT 0260 IN┆ 0x0380…03a0 50 55 54 20 22 49 4e 44 54 41 53 54 20 53 55 4d 4d 45 4e 20 28 32 2d 39 39 39 29 3a 20 22 2c 53 ┆PUT "INDTAST SUMMEN (2-999): ",S┆ 0x03a0…03c0 55 4d 0d 0a 20 30 32 37 30 20 20 20 55 4e 54 49 4c 20 53 55 4d 3d 3e 32 20 41 4e 44 20 53 55 4d ┆UM 0270 UNTIL SUM=>2 AND SUM┆ 0x03c0…03e0 3c 3d 39 39 39 0d 0a 20 30 32 39 30 20 20 20 46 4f 52 20 51 3d 31 20 54 4f 20 31 36 0d 0a 20 30 ┆<=999 0290 FOR Q=1 TO 16 0┆ 0x03e0…0400 33 30 30 20 20 20 20 20 42 45 53 41 54 28 51 29 3d 30 0d 0a 20 30 33 31 30 20 20 20 20 20 54 41 ┆300 BESAT(Q)=0 0310 TA┆ 0x0400…0420 4c 28 51 29 3d 30 0d 0a 20 30 33 32 30 20 20 20 4e 45 58 54 20 51 0d 0a 20 30 33 33 30 20 20 20 ┆L(Q)=0 0320 NEXT Q 0330 ┆ 0x0420…0440 52 45 4d 20 2f 2f 2d 2d 2d 2d 54 41 4c 4c 45 4e 45 20 55 44 56 5b 4c 47 45 53 2d 2d 2d 2d 2f 2f ┆REM //----TALLENE UDVÆLGES----//┆ 0x0440…0460 0d 0a 20 30 33 34 30 20 20 20 52 41 4e 44 4f 4d 49 5a 45 20 0d 0a 20 30 33 35 30 20 20 20 46 4f ┆ 0340 RANDOMIZE 0350 FO┆ 0x0460…0480 52 20 51 3d 31 20 54 4f 20 38 0d 0a 20 30 33 36 30 20 20 20 20 20 54 31 3d 49 4e 54 28 52 4e 44 ┆R Q=1 TO 8 0360 T1=INT(RND┆ 0x0480…04a0 28 30 29 2a 53 55 4d 29 2b 31 3b 20 54 32 3d 53 55 4d 2d 54 31 0d 0a 20 30 33 37 30 20 20 20 20 ┆(0)*SUM)+1; T2=SUM-T1 0370 ┆ 0x04a0…04c0 20 52 45 50 45 41 54 20 0d 0a 20 30 33 38 30 20 20 20 20 20 20 20 50 31 3d 49 4e 54 28 52 4e 44 ┆ REPEAT 0380 P1=INT(RND┆ 0x04c0…04e0 28 30 29 2a 31 36 29 2b 31 3b 20 50 32 3d 49 4e 54 28 52 4e 44 28 30 29 2a 31 36 29 2b 31 0d 0a ┆(0)*16)+1; P2=INT(RND(0)*16)+1 ┆ 0x04e0…0500 20 30 33 39 30 20 20 20 20 20 55 4e 54 49 4c 20 54 41 4c 28 50 31 29 3d 30 20 41 4e 44 20 54 41 ┆ 0390 UNTIL TAL(P1)=0 AND TA┆ 0x0500…0520 4c 28 50 32 29 3d 30 20 41 4e 44 20 50 31 3c 3e 50 32 0d 0a 20 30 34 30 30 20 20 20 20 20 54 41 ┆L(P2)=0 AND P1<>P2 0400 TA┆ 0x0520…0540 4c 28 50 31 29 3d 54 31 3b 20 54 41 4c 28 50 32 29 3d 54 32 0d 0a 20 30 34 31 30 20 20 20 4e 45 ┆L(P1)=T1; TAL(P2)=T2 0410 NE┆ 0x0540…0560 58 54 20 51 0d 0a 20 30 34 32 30 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 53 50 49 4c 4c 45 50 4c ┆XT Q 0420 REM //----SPILLEPL┆ 0x0560…0580 41 44 45 4e 20 4c 41 56 45 53 2d 2d 2d 2d 2f 2f 0d 0a 20 30 34 32 35 20 20 20 4f 55 54 20 31 2c ┆ADEN LAVES----// 0425 OUT 1,┆ 0x0580…05a0 30 0d 0a 20 30 34 33 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 34 34 30 20 ┆0 0430 PRINT CHR(12) 0440 ┆ 0x05a0…05c0 20 20 4b 3d 31 34 34 3b 20 51 3d 30 0d 0a 20 30 34 35 30 20 20 20 46 4f 52 20 4c 3d 32 20 54 4f ┆ K=144; Q=0 0450 FOR L=2 TO┆ 0x05c0…05e0 20 31 31 20 53 54 45 50 20 33 0d 0a 20 30 34 36 30 20 20 20 20 20 46 4f 52 20 56 3d 32 30 20 54 ┆ 11 STEP 3 0460 FOR V=20 T┆ 0x05e0…0600 4f 20 35 30 20 53 54 45 50 20 31 30 0d 0a 20 30 34 37 30 20 20 20 20 20 20 20 51 3d 51 2b 31 3b ┆O 50 STEP 10 0470 Q=Q+1;┆ 0x0600…0620 20 4d 4c 28 51 29 3d 4c 3b 20 4d 56 28 51 29 3d 56 0d 0a 20 30 34 38 30 20 20 20 20 20 20 20 50 ┆ ML(Q)=L; MV(Q)=V 0480 P┆ 0x0620…0640 24 3d 22 20 20 20 22 2b 54 24 28 51 20 3a 20 31 29 2b 22 20 20 20 22 0d 0a 20 30 34 39 30 20 20 ┆$=" "+T$(Q : 1)+" " 0490 ┆ 0x0640…0660 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 2c 4c 2c 4b 29 0d 0a 20 30 35 30 30 20 20 20 20 ┆ EXEC PLOT(V,L,K) 0500 ┆ 0x0660…0680 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 35 31 30 20 20 20 20 20 4e 45 58 54 20 56 0d 0a 20 30 35 ┆ PRINT 0510 NEXT V 05┆ 0x0680…06a0 32 30 20 20 20 4e 45 58 54 20 4c 0d 0a 20 30 35 33 30 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 4c ┆20 NEXT L 0530 REM //----L┆ 0x06a0…06c0 49 4e 49 45 4e 20 4d 45 44 20 53 55 4d 4d 45 4e 2d 2d 2d 2d 2f 2f 0d 0a 20 30 35 34 30 20 20 20 ┆INIEN MED SUMMEN----// 0540 ┆ 0x06c0…06e0 56 3d 32 38 3b 20 4c 3d 31 33 3b 20 4b 3d 31 33 32 3b 20 50 24 3d 22 2c 2c 2c 2c 2c 2c 2c 2c 2c ┆V=28; L=13; K=132; P$=",,,,,,,,,┆ 0x06e0…0700 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 22 0d 0a 20 30 35 35 30 20 20 20 45 58 45 43 20 50 4c 4f 54 ┆,,,,,,,,,,,," 0550 EXEC PLOT┆ 0x0700…0720 28 56 2c 4c 2c 4b 29 0d 0a 20 30 35 36 30 20 20 20 56 3d 32 38 3b 20 4c 3d 31 34 3b 20 4b 3d 31 ┆(V,L,K) 0560 V=28; L=14; K=1┆ 0x0720…0740 32 38 3b 20 50 24 3d 22 53 20 55 20 4d 20 4d 20 45 20 4e 20 20 45 20 52 22 0d 0a 20 30 35 37 30 ┆28; P$="S U M M E N E R" 0570┆ 0x0740…0760 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 2c 4c 2c 4b 29 0d 0a 20 30 35 38 30 20 20 20 50 52 49 ┆ EXEC PLOT(V,L,K) 0580 PRI┆ 0x0760…0780 4e 54 20 53 55 4d 0d 0a 20 30 35 39 30 20 20 20 56 3d 32 38 3b 20 4c 3d 31 35 3b 20 4b 3d 31 33 ┆NT SUM 0590 V=28; L=15; K=13┆ 0x0780…07a0 32 3b 20 50 24 3d 22 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 22 0d 0a 20 ┆2; P$=",,,,,,,,,,,,,,,,,,,,," ┆ 0x07a0…07c0 30 36 30 30 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 2c 4c 2c 4b 29 0d 0a 20 30 36 31 30 20 20 ┆0600 EXEC PLOT(V,L,K) 0610 ┆ 0x07c0…07e0 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 4c 49 4e 49 45 4e 20 4d 45 44 20 53 50 49 4c 4c 45 52 20 4e 52 ┆ REM //----LINIEN MED SPILLER NR┆ 0x07e0…0800 2d 2d 2d 2d 2f 2f 0d 0a 20 30 36 32 30 20 20 20 56 3d 31 32 3b 20 4c 3d 31 38 3b 20 4b 3d 31 34 ┆----// 0620 V=12; L=18; K=14┆ 0x0800…0820 34 3b 20 50 24 3d 22 53 50 49 4c 4c 45 52 20 4e 52 3a 22 0d 0a 20 30 36 33 30 20 20 20 46 4f 52 ┆4; P$="SPILLER NR:" 0630 FOR┆ 0x0820…0840 20 51 3d 31 20 54 4f 20 32 0d 0a 20 30 36 34 30 20 20 20 20 20 56 3d 56 2a 51 2a 51 0d 0a 20 30 ┆ Q=1 TO 2 0640 V=V*Q*Q 0┆ 0x0840…0860 36 35 30 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 2c 4c 2c 4b 29 0d 0a 20 30 36 36 30 20 ┆650 EXEC PLOT(V,L,K) 0660 ┆ 0x0860…0880 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 34 34 29 3b 20 51 3b 20 43 48 52 28 31 32 38 29 0d ┆ PRINT CHR(144); Q; CHR(128) ┆ 0x0880…08a0 0a 20 30 36 37 30 20 20 20 4e 45 58 54 20 51 0d 0a 20 30 36 38 30 20 20 20 52 45 4d 20 2f 2f 2d ┆ 0670 NEXT Q 0680 REM //-┆ 0x08a0…08c0 2d 2d 2d 4c 49 4e 49 45 4e 20 4d 45 44 20 50 4f 49 4e 54 2d 2d 2d 2d 2f 2f 0d 0a 20 30 36 39 30 ┆---LINIEN MED POINT----// 0690┆ 0x08c0…08e0 20 20 20 4c 3d 32 32 3b 20 56 3d 31 32 3b 20 4b 3d 31 34 34 3b 20 50 24 3d 22 20 50 20 4f 20 49 ┆ L=22; V=12; K=144; P$=" P O I┆ 0x08e0…0900 20 4e 20 54 3a 22 0d 0a 20 30 37 30 30 20 20 20 46 4f 52 20 51 3d 31 20 54 4f 20 32 0d 0a 20 30 ┆ N T:" 0700 FOR Q=1 TO 2 0┆ 0x0900…0920 37 31 30 20 20 20 20 20 56 3d 56 2a 51 2a 51 0d 0a 20 30 37 32 30 20 20 20 20 20 45 58 45 43 20 ┆710 V=V*Q*Q 0720 EXEC ┆ 0x0920…0940 50 4c 4f 54 28 56 2c 4c 2c 4b 29 0d 0a 20 30 37 33 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 ┆PLOT(V,L,K) 0730 PRINT CHR┆ 0x0940…0960 28 31 34 34 29 3b 20 50 54 28 51 29 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 30 37 34 30 20 20 20 ┆(144); PT(Q); CHR(128) 0740 ┆ 0x0960…0980 4e 45 58 54 20 51 0d 0a 20 30 37 35 30 20 20 20 52 3d 30 0d 0a 20 30 37 36 30 20 20 20 52 45 4d ┆NEXT Q 0750 R=0 0760 REM┆ 0x0980…09a0 20 2f 2f 2d 2d 2d 2d 43 55 52 53 45 52 45 4e 20 46 4a 45 52 4e 45 53 2d 2d 2d 2d 2f 2f 0d 0a 20 ┆ //----CURSEREN FJERNES----// ┆ 0x09a0…09c0 30 37 37 30 20 20 20 4f 55 54 20 31 2c 30 0d 0a 20 30 37 38 30 20 20 20 4f 55 54 20 30 2c 37 39 ┆0770 OUT 1,0 0780 OUT 0,79┆ 0x09c0…09e0 0d 0a 20 30 37 39 30 20 20 20 4f 55 54 20 30 2c 31 35 32 0d 0a 20 30 38 30 30 20 20 20 4f 55 54 ┆ 0790 OUT 0,152 0800 OUT┆ 0x09e0…0a00 20 30 2c 31 38 36 0d 0a 20 30 38 31 30 20 20 20 4f 55 54 20 30 2c 31 32 35 0d 0a 20 30 38 32 30 ┆ 0,186 0810 OUT 0,125 0820┆ 0x0a00…0a20 20 20 20 4f 55 54 20 31 2c 33 35 0d 0a 20 30 38 33 30 20 20 20 4f 55 54 20 31 2c 31 32 38 0d 0a ┆ OUT 1,35 0830 OUT 1,128 ┆ 0x0a20…0a40 20 30 38 34 30 20 20 20 4f 55 54 20 30 2c 30 0d 0a 20 30 38 35 30 20 20 20 4f 55 54 20 30 2c 30 ┆ 0840 OUT 0,0 0850 OUT 0,0┆ 0x0a40…0a60 0d 0a 20 30 38 36 30 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 50 4c 41 44 45 4e 20 45 52 20 46 5b ┆ 0860 REM //----PLADEN ER FÆ┆ 0x0a60…0a80 52 44 49 47 20 4f 47 20 53 50 49 4c 4c 45 54 20 53 54 41 52 54 45 52 2d 2d 2d 2d 2f 2f 0d 0a 20 ┆RDIG OG SPILLET STARTER----// ┆ 0x0a80…0aa0 30 38 37 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 38 38 30 20 20 20 20 20 46 4f 52 20 56 3d ┆0870 REPEAT 0880 FOR V=┆ 0x0aa0…0ac0 32 31 20 54 4f 20 35 37 20 53 54 45 50 20 33 36 0d 0a 20 30 38 39 30 20 20 20 20 20 20 20 46 4f ┆21 TO 57 STEP 36 0890 FO┆ 0x0ac0…0ae0 52 20 47 3d 31 20 54 4f 20 32 0d 0a 20 30 39 30 30 20 20 20 20 20 20 20 20 20 4c 3d 32 30 3b 20 ┆R G=1 TO 2 0900 L=20; ┆ 0x0ae0…0b00 4b 3d 31 33 30 3b 20 50 24 3d 22 47 20 5b 20 54 22 0d 0a 20 30 39 31 30 20 20 20 20 20 20 20 20 ┆K=130; P$="G Æ T" 0910 ┆ 0x0b00…0b20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 49 4e 50 55 54 2d 2d 2d 2d 2f 2f 0d 0a 20 30 39 32 30 20 20 20 ┆ REM //----INPUT----// 0920 ┆ 0x0b20…0b40 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 39 33 30 20 20 20 20 20 20 20 20 20 20 20 45 ┆ REPEAT 0930 E┆ 0x0b40…0b60 58 45 43 20 50 4c 4f 54 28 56 2d 33 2c 4c 2c 4b 29 0d 0a 20 30 39 34 30 20 20 20 20 20 20 20 20 ┆XEC PLOT(V-3,L,K) 0940 ┆ 0x0b60…0b80 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 39 35 30 20 20 20 20 20 20 20 20 20 20 20 53 24 3d 43 48 ┆ PRINT 0950 S$=CH┆ 0x0b80…0ba0 52 28 4b 45 59 28 30 29 29 0d 0a 20 30 39 36 30 20 20 20 20 20 20 20 20 20 20 20 5a 3d 30 0d 0a ┆R(KEY(0)) 0960 Z=0 ┆ 0x0ba0…0bc0 20 30 39 37 30 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 51 3d 31 20 54 4f 20 31 36 0d 0a 20 ┆ 0970 FOR Q=1 TO 16 ┆ 0x0bc0…0be0 30 39 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 24 3d 43 48 52 28 39 36 2b 51 29 ┆0980 IF S$=CHR(96+Q)┆ 0x0be0…0c00 20 54 48 45 4e 20 53 24 3d 43 48 52 28 36 34 2b 51 29 0d 0a 20 30 39 39 30 20 20 20 20 20 20 20 ┆ THEN S$=CHR(64+Q) 0990 ┆ 0x0c00…0c20 20 20 20 20 20 20 49 46 20 54 24 28 51 20 3a 20 31 29 3d 53 24 28 31 20 3a 20 31 29 20 41 4e 44 ┆ IF T$(Q : 1)=S$(1 : 1) AND┆ 0x0c20…0c40 20 42 45 53 41 54 28 51 29 3d 31 20 54 48 45 4e 20 5a 3d 31 0d 0a 20 31 30 30 30 20 20 20 20 20 ┆ BESAT(Q)=1 THEN Z=1 1000 ┆ 0x0c40…0c60 20 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 30 31 30 20 20 20 20 20 20 20 20 20 55 4e 54 49 ┆ NEXT Q 1010 UNTI┆ 0x0c60…0c80 4c 20 53 24 3d 3e 22 41 22 20 41 4e 44 20 53 24 3c 3d 22 50 22 20 41 4e 44 20 5a 3d 30 0d 0a 20 ┆L S$=>"A" AND S$<="P" AND Z=0 ┆ 0x0c80…0ca0 31 30 32 30 20 20 20 20 20 20 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 44 45 4e 20 55 44 56 41 4c ┆1020 REM //----DEN UDVAL┆ 0x0ca0…0cc0 47 54 45 20 42 52 49 4b 20 56 45 4e 44 45 53 2d 2d 2d 2d 2f 2f 0d 0a 20 31 30 33 30 20 20 20 20 ┆GTE BRIK VENDES----// 1030 ┆ 0x0cc0…0ce0 20 20 20 20 20 50 24 3d 22 20 20 20 20 20 20 20 20 22 3b 20 4b 3d 31 32 38 0d 0a 20 31 30 34 30 ┆ P$=" "; K=128 1040┆ 0x0ce0…0d00 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 2d 33 2c 4c 2c 4b 29 0d 0a 20 31 30 ┆ EXEC PLOT(V-3,L,K) 10┆ 0x0d00…0d20 35 30 20 20 20 20 20 20 20 20 20 50 24 3d 22 20 22 0d 0a 20 31 30 36 30 20 20 20 20 20 20 20 20 ┆50 P$=" " 1060 ┆ 0x0d20…0d40 20 46 4f 52 20 51 3d 31 20 54 4f 20 31 36 0d 0a 20 31 30 37 30 20 20 20 20 20 20 20 20 20 20 20 ┆ FOR Q=1 TO 16 1070 ┆ 0x0d40…0d60 49 46 20 54 24 28 51 20 3a 20 31 29 3d 53 24 28 31 20 3a 20 31 29 20 54 48 45 4e 20 0d 0a 20 31 ┆IF T$(Q : 1)=S$(1 : 1) THEN 1┆ 0x0d60…0d80 30 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 4d 56 28 51 29 2d ┆080 EXEC PLOT(MV(Q)-┆ 0x0d80…0da0 31 2c 4d 4c 28 51 29 2c 4b 29 0d 0a 20 31 30 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 56 ┆1,ML(Q),K) 1090 PV┆ 0x0da0…0dc0 28 47 29 3d 4d 56 28 51 29 3b 20 50 4c 28 47 29 3d 4d 4c 28 51 29 3b 20 4e 52 28 47 29 3d 51 0d ┆(G)=MV(Q); PL(G)=ML(Q); NR(G)=Q ┆ 0x0dc0…0de0 0a 20 31 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 33 30 ┆ 1100 PRINT CHR(130┆ 0x0de0…0e00 29 3b 20 54 41 4c 28 51 29 0d 0a 20 31 31 31 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 ┆); TAL(Q) 1110 ENDIF┆ 0x0e00…0e20 20 0d 0a 20 31 31 32 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 31 33 30 20 20 ┆ 1120 NEXT Q 1130 ┆ 0x0e20…0e40 20 20 20 20 20 4e 45 58 54 20 47 0d 0a 20 31 31 34 30 20 20 20 20 20 20 20 52 45 4d 20 2f 2f 2d ┆ NEXT G 1140 REM //-┆ 0x0e40…0e60 2d 2d 2d 43 48 45 43 4b 20 46 4f 52 20 53 55 4d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 31 35 30 20 20 20 ┆---CHECK FOR SUM----// 1150 ┆ 0x0e60…0e80 20 20 20 20 49 46 20 54 41 4c 28 4e 52 28 31 29 29 2b 54 41 4c 28 4e 52 28 32 29 29 3c 3e 53 55 ┆ IF TAL(NR(1))+TAL(NR(2))<>SU┆ 0x0e80…0ea0 4d 20 54 48 45 4e 20 0d 0a 20 31 31 36 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 51 3d 31 20 54 ┆M THEN 1160 FOR Q=1 T┆ 0x0ea0…0ec0 4f 20 35 30 30 0d 0a 20 31 31 37 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 31 ┆O 500 1170 NEXT Q 11┆ 0x0ec0…0ee0 38 30 20 20 20 20 20 20 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 42 52 49 4b 4b 45 4e 20 56 45 4e ┆80 REM //----BRIKKEN VEN┆ 0x0ee0…0f00 44 45 53 20 49 47 45 4e 2d 2d 2d 2d 2f 2f 0d 0a 20 31 31 39 30 20 20 20 20 20 20 20 20 20 46 4f ┆DES IGEN----// 1190 FO┆ 0x0f00…0f20 52 20 51 3d 31 20 54 4f 20 32 0d 0a 20 31 32 30 30 20 20 20 20 20 20 20 20 20 20 20 4b 3d 31 34 ┆R Q=1 TO 2 1200 K=14┆ 0x0f20…0f40 34 3b 20 50 24 3d 22 20 20 20 22 2b 54 24 28 4e 52 28 51 29 20 3a 20 31 29 2b 22 20 20 20 22 0d ┆4; P$=" "+T$(NR(Q) : 1)+" " ┆ 0x0f40…0f60 0a 20 31 32 31 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 50 56 28 51 29 ┆ 1210 EXEC PLOT(PV(Q)┆ 0x0f60…0f80 2c 50 4c 28 51 29 2c 4b 29 0d 0a 20 31 32 32 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 ┆,PL(Q),K) 1220 PRINT┆ 0x0f80…0fa0 20 0d 0a 20 31 32 33 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 32 34 30 20 20 ┆ 1230 NEXT Q 1240 ┆ 0x0fa0…0fc0 20 20 20 20 20 45 4c 53 45 20 2f 2f 2d 2d 2d 2d 50 4f 49 4e 54 20 46 4f 52 20 52 49 47 54 49 47 ┆ ELSE //----POINT FOR RIGTIG┆ 0x0fc0…0fe0 20 53 55 4d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 32 35 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 51 3d ┆ SUM----// 1250 FOR Q=┆ 0x0fe0…1000 31 20 54 4f 20 32 0d 0a 20 31 32 36 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 4c 4f ┆1 TO 2 1260 EXEC PLO┆ 0x1000…1020 54 28 50 56 28 51 29 2d 31 2c 50 4c 28 51 29 2c 4b 29 0d 0a 20 31 32 37 30 20 20 20 20 20 20 20 ┆T(PV(Q)-1,PL(Q),K) 1270 ┆ 0x1020…1040 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 3b 20 54 41 4c 28 4e 52 28 51 29 29 0d 0a ┆ PRINT CHR(128); TAL(NR(Q)) ┆ 0x1040…1060 20 31 32 38 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 32 39 30 20 20 20 20 20 ┆ 1280 NEXT Q 1290 ┆ 0x1060…1080 20 20 20 20 50 54 28 28 56 2b 31 35 29 2f 33 36 29 3d 50 54 28 28 56 2b 31 35 29 2f 33 36 29 2b ┆ PT((V+15)/36)=PT((V+15)/36)+┆ 0x1080…10a0 33 3b 20 50 54 28 31 29 3d 50 54 28 31 29 2d 31 3b 20 50 54 28 32 29 3d 50 54 28 32 29 2d 31 0d ┆3; PT(1)=PT(1)-1; PT(2)=PT(2)-1 ┆ 0x10a0…10c0 0a 20 31 33 30 30 20 20 20 20 20 20 20 20 20 52 3d 52 2b 31 3b 20 4c 3d 32 32 3b 20 56 56 3d 31 ┆ 1300 R=R+1; L=22; VV=1┆ 0x10c0…10e0 32 3b 20 4b 3d 31 34 34 3b 20 50 24 3d 22 20 50 20 4f 20 49 20 4e 20 54 3a 22 0d 0a 20 31 33 31 ┆2; K=144; P$=" P O I N T:" 131┆ 0x10e0…1100 30 20 20 20 20 20 20 20 20 20 42 45 53 41 54 28 4e 52 28 31 29 29 3d 31 3b 20 42 45 53 41 54 28 ┆0 BESAT(NR(1))=1; BESAT(┆ 0x1100…1120 4e 52 28 32 29 29 3d 31 0d 0a 20 31 33 32 30 20 20 20 20 20 20 20 20 20 49 46 20 56 3d 32 31 20 ┆NR(2))=1 1320 IF V=21 ┆ 0x1120…1140 4f 52 20 52 3d 38 20 54 48 45 4e 20 0d 0a 20 31 33 33 30 20 20 20 20 20 20 20 20 20 20 20 56 3d ┆OR R=8 THEN 1330 V=┆ 0x1140…1160 35 38 0d 0a 20 31 33 34 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 33 35 30 20 20 ┆58 1340 ELSE 1350 ┆ 0x1160…1180 20 20 20 20 20 20 20 20 20 56 3d 32 31 0d 0a 20 31 33 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ V=21 1360 END┆ 0x1180…11a0 49 46 20 0d 0a 20 31 33 37 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 51 3d 31 20 54 4f 20 32 0d ┆IF 1370 FOR Q=1 TO 2 ┆ 0x11a0…11c0 0a 20 31 33 38 30 20 20 20 20 20 20 20 20 20 20 20 56 56 3d 56 56 2a 51 2a 51 0d 0a 20 31 33 39 ┆ 1380 VV=VV*Q*Q 139┆ 0x11c0…11e0 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 56 56 2c 4c 2c 4b 29 0d 0a 20 ┆0 EXEC PLOT(VV,L,K) ┆ 0x11e0…1200 31 34 30 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 34 34 29 3b 20 50 ┆1400 PRINT CHR(144); P┆ 0x1200…1220 54 28 51 29 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 31 34 31 30 20 20 20 20 20 20 20 20 20 4e 45 ┆T(Q); CHR(128) 1410 NE┆ 0x1220…1240 58 54 20 51 0d 0a 20 31 34 32 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 33 30 20 ┆XT Q 1420 ENDIF 1430 ┆ 0x1240…1260 20 20 20 20 4e 45 58 54 20 56 0d 0a 20 31 34 34 30 20 20 20 55 4e 54 49 4c 20 52 3d 38 0d 0a 20 ┆ NEXT V 1440 UNTIL R=8 ┆ 0x1260…1280 31 34 35 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 34 36 30 20 20 20 52 45 4d 20 2f 2f 2d 2d 2d ┆1450 PRINT 1460 REM //---┆ 0x1280…12a0 2d 43 55 52 53 45 52 45 4e 20 53 5b 54 54 45 53 20 49 47 45 4e 20 53 4f 4d 20 53 54 52 45 47 2d ┆-CURSEREN SÆTTES IGEN SOM STREG-┆ 0x12a0…12c0 2d 2d 2d 2f 2f 0d 0a 20 31 34 36 35 20 20 20 4f 4e 20 45 53 43 20 43 48 41 49 4e 20 22 4c 4f 47 ┆---// 1465 ON ESC CHAIN "LOG┆ 0x12c0…12e0 4f 4e 22 0d 0a 20 31 34 37 30 20 20 20 4f 55 54 20 31 2c 30 0d 0a 20 31 34 38 30 20 20 20 4f 55 ┆ON" 1470 OUT 1,0 1480 OU┆ 0x12e0…1300 54 20 30 2c 37 39 0d 0a 20 31 34 39 30 20 20 20 4f 55 54 20 30 2c 31 35 32 0d 0a 20 31 35 30 30 ┆T 0,79 1490 OUT 0,152 1500┆ 0x1300…1320 20 20 20 4f 55 54 20 30 2c 31 32 32 0d 0a 20 31 35 31 30 20 20 20 4f 55 54 20 30 2c 39 33 0d 0a ┆ OUT 0,122 1510 OUT 0,93 ┆ 0x1320…1340 20 31 35 32 30 20 20 20 4f 55 54 20 31 2c 33 35 0d 0a 20 31 35 33 30 20 20 20 4f 55 54 20 31 2c ┆ 1520 OUT 1,35 1530 OUT 1,┆ 0x1340…1360 31 32 38 0d 0a 20 31 35 34 30 20 20 20 4f 55 54 20 30 2c 30 0d 0a 20 31 35 35 30 20 20 20 4f 55 ┆128 1540 OUT 0,0 1550 OU┆ 0x1360…1380 54 20 30 2c 30 0d 0a 20 31 35 36 30 20 20 20 49 4e 50 55 54 20 22 56 49 4c 20 49 20 53 50 49 4c ┆T 0,0 1560 INPUT "VIL I SPIL┆ 0x1380…13a0 4c 45 20 49 47 45 4e 3f 20 22 2c 53 24 0d 0a 20 31 35 36 35 20 20 20 49 46 20 53 24 28 31 20 3a ┆LE IGEN? ",S$ 1565 IF S$(1 :┆ 0x13a0…13c0 20 31 29 3d 22 4e 22 20 4f 52 20 53 24 28 31 20 3a 20 31 29 3d 22 4e 22 20 54 48 45 4e 20 43 48 ┆ 1)="N" OR S$(1 : 1)="N" THEN CH┆ 0x13c0…13e0 41 49 4e 20 22 4c 4f 47 4f 4e 22 0d 0a 20 31 35 37 30 20 55 4e 54 49 4c 20 53 24 28 31 20 3a 20 ┆AIN "LOGON" 1570 UNTIL S$(1 : ┆ 0x13e0…1400 31 29 3d 22 4e 22 20 4f 52 20 53 24 28 31 20 3a 20 31 29 3d 22 4e 22 0d 0a 03 00 00 00 00 00 00 ┆1)="N" OR S$(1 : 1)="N" ┆