|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12800 (0x3200)
Names: »TERNING.ARK«
└─⟦5c8344fa1⟧ Bits:30004223 REGN version 2.1 til ICL Comet
└─ ⟦this⟧ »TERNING.ARK«
0x0000…0020 93 00 57 00 04 00 36 61 61 61 61 74 69 6e 64 65 78 28 69 6e 74 65 67 65 72 28 66 78 29 2b 62 72 ┆ W 6aaaatindex(integer(fx)+br┆
0x0020…0040 65 64 64 65 2d 31 29 3b 0d 0a 20 66 6f 72 20 6a 3a 3d 66 72 6f 6d 6c 69 6e 65 20 74 6f 20 74 6f ┆edde-1); for j:=fromline to to┆
0x0040…0060 6c 69 6e 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 73 68 00 00 00 00 00 00 00 06 04 00 64 65 63 ┆line do begin sh dec┆
0x0060…0080 3a 3d 64 65 63 3b 0d 0a 20 20 73 68 65 65 74 5b 66 78 2c 6a 5d 2e 61 20 73 70 72 65 61 64 20 73 ┆:=dec; sheetÆfx,jÅ.a spread s┆
0x0080…00a0 68 65 65 74 2e 20 20 20 20 20 20 20 2a 7d 0d 0a 7b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆heet. *å æ* ┆
0x00a0…00c0 20 20 20 20 20 20 20 20 64 69 00 00 00 00 00 00 02 0b 04 00 69 6e 65 20 6d 61 6e 75 61 6c 2e 20 ┆ di ine manual. ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 7d 0d 0a 7b 2a 2a 2a 2a 2a 2a 2a 2a ┆ *å æ********┆
0x00e0…0100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0100…0120 2a 00 00 00 00 00 00 02 0b 04 00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 0d 0a 0d 0a ┆* ****************å ┆
0x0120…0140 74 79 70 65 0d 0a 20 73 74 72 69 6e 67 33 20 3d 20 73 74 72 69 6e 67 5b 33 5d 3b 0d 0a 0d 0a 76 ┆type string3 = stringÆ3Å; v┆
0x0140…0160 61 72 0d 0a 20 66 69 6c 65 6e 61 6d 65 3a 20 73 74 72 31 34 3b 0d 0a 20 00 00 00 00 00 00 02 0b ┆ar filename: str14; ┆
0x0160…0180 04 00 6e 67 5b 31 30 30 5d 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 3b 20 61 62 6f 72 74 3a 3d 66 ┆ ngÆ100Å; FUNCTION; abort:=f┆
0x0180…01a0 61 6c 73 65 3b 0d 20 6e 65 77 73 74 61 74 3a 3d 5b 5d 3b 0d 20 69 66 20 63 68 20 69 6e 20 5b 27 ┆alse; newstat:=ÆÅ; if ch in Æ'┆
0x01a0…01c0 30 27 2e 2e 27 39 27 2c 27 2b 27 2c 27 2d 27 00 00 00 00 00 00 02 0b 04 00 29 27 5d 20 74 68 65 ┆0'..'9','+','-' )'Å the┆
0x01c0…01e0 6e 20 62 65 67 69 6e 0d 20 20 69 66 20 63 68 20 3d 27 28 27 20 74 68 65 6e 0d 20 20 20 53 4b 49 ┆n begin if ch ='(' then SKI┆
0x01e0…0200 46 54 54 59 50 45 28 32 29 0d 20 20 65 6c 73 65 0d 20 20 20 53 4b 49 46 54 54 59 50 45 28 31 29 ┆FTTYPE(2) else SKIFTTYPE(1)┆
0x0200…0220 3b 20 0d 20 20 6e 00 00 00 00 00 00 02 0b 04 00 6f 6e 73 74 61 6e 74 5d 3b 0d 20 20 69 66 20 6e ┆; n onstantÅ; if n┆
0x0220…0240 6f 74 20 28 66 6f 72 6d 75 6c 61 20 69 6e 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 63 65 6c 6c ┆ot (formula in sheetÆfx,fyÅ.cell┆
0x0240…0260 73 74 61 74 75 73 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 20 20 20 67 6f 74 6f 78 79 28 00 00 00 ┆status) then begin gotoxy( ┆
0x0260…0280 00 00 00 02 0b 04 00 69 74 65 28 63 6c 72 65 6f 6c 29 3b 0d 20 20 20 43 4c 45 41 52 43 45 4c 4c ┆ ite(clreol); CLEARCELL┆
0x0280…02a0 53 3b 0d 20 20 20 47 45 54 46 4f 52 4d 55 4c 41 3b 0d 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 ┆S; GETFORMULA; end else beg┆
0x02a0…02c0 69 6e 0d 20 20 20 77 72 69 74 65 28 40 37 29 3b 0d 20 20 20 00 00 00 00 00 00 02 0b 04 00 20 52 ┆in write(@7); R┆
0x02c0…02e0 65 74 20 69 20 66 6f 72 6d 65 6c 20 4a 2f 4e 3f 20 27 2c 74 72 75 65 29 3b 0d 20 20 20 72 65 70 ┆et i formel J/N? ',true); rep┆
0x02e0…0300 65 61 74 0d 20 20 20 20 63 68 3a 3d 55 50 43 41 53 45 28 4b 45 59 29 3b 0d 20 20 20 75 6e 74 69 ┆eat ch:=UPCASE(KEY); unti┆
0x0300…0320 6c 20 63 68 20 69 6e 20 5b 27 4a 00 00 00 00 00 00 02 0b 04 00 20 46 4c 41 53 48 28 31 33 2c 72 ┆l ch in Æ'J FLASH(13,r┆
0x0320…0340 76 73 6f 66 66 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 66 61 6c 73 ┆vsoff+' ',fals┆
0x0340…0360 65 29 3b 0d 20 20 20 69 66 20 63 68 3d 27 4a 27 20 74 68 65 6e 20 45 44 49 54 43 45 4c 4c 20 65 ┆e); if ch='J' then EDITCELL e┆
0x0360…0380 6c 73 00 00 00 00 00 00 02 0b 04 00 72 75 65 3b 0d 20 20 65 6e 64 3b 0d 20 65 6e 64 20 65 6c 73 ┆ls rue; end; end els┆
0x0380…03a0 65 20 62 65 67 69 6e 0d 20 20 69 66 20 63 68 3d 65 73 63 20 74 68 65 6e 20 62 65 67 69 6e 0d 20 ┆e begin if ch=esc then begin ┆
0x03a0…03c0 20 20 6e 65 77 73 74 61 74 3a 3d 28 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 00 00 00 00 00 00 02 ┆ newstat:=(sheetÆfx,fyÅ. ┆
0x03c0…03e0 0b 04 00 29 2a 5b 74 78 74 2c 63 6f 6e 73 74 61 6e 74 5d 3b 0d 20 20 20 45 44 49 54 43 45 4c 4c ┆ )*Ætxt,constantÅ; EDITCELL┆
0x03e0…0400 3b 0d 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 20 20 20 69 66 20 66 6f 72 6d 75 6c 61 ┆; end else begin if formula┆
0x0400…0420 20 69 6e 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 00 00 00 00 00 00 02 0b 04 00 73 20 74 68 65 6e ┆ in sheetÆfx,fyÅ s then┆
0x0420…0440 20 62 65 67 69 6e 0d 20 20 20 20 77 72 69 74 65 28 40 37 29 3b 0d 20 20 20 20 46 4c 41 53 48 28 ┆ begin write(@7); FLASH(┆
0x0440…0460 31 33 2c 27 20 52 65 74 20 69 20 66 6f 72 6d 65 6c 20 4a 2f 4e 3f 20 27 2c 74 72 75 65 29 3b 0d ┆13,' Ret i formel J/N? ',true); ┆
0x0460…0480 20 20 20 20 72 65 70 00 00 00 00 00 00 02 0b 04 00 68 3a 3d 55 50 43 41 53 45 28 4b 45 59 29 3b ┆ rep h:=UPCASE(KEY);┆
0x0480…04a0 0d 20 20 20 20 75 6e 74 69 6c 20 63 68 20 69 6e 20 5b 27 4a 27 2c 27 4e 27 5d 3b 0d 20 20 20 20 ┆ until ch in Æ'J','N'Å; ┆
0x04a0…04c0 46 4c 41 53 48 28 31 33 2c 72 76 73 6f 66 66 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 ┆FLASH(13,rvsoff+' ┆
0x04c0…04e0 00 00 00 00 02 0b 04 00 6c 73 65 29 3b 0d 20 20 20 20 69 66 20 63 68 3d 27 4a 27 20 74 68 65 6e ┆ lse); if ch='J' then┆
0x04e0…0500 20 45 44 49 54 43 45 4c 4c 20 65 6c 73 65 20 61 62 6f 72 74 3a 3d 74 72 75 65 3b 0d 20 20 20 65 ┆ EDITCELL else abort:=true; e┆
0x0500…0520 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 20 20 20 20 53 4b 49 00 00 00 00 00 00 02 0b 04 00 0d ┆nd else begin SKI ┆
0x0520…0540 20 20 20 20 6e 65 77 73 74 61 74 3a 3d 5b 74 78 74 5d 3b 0d 20 20 20 20 43 4c 45 41 52 43 45 4c ┆ newstat:=ÆtxtÅ; CLEARCEL┆
0x0540…0560 4c 53 3b 0d 20 20 20 20 47 45 54 54 45 58 54 3b 0d 20 20 20 65 6e 64 3b 0d 20 20 65 6e 64 3b 0d ┆LS; GETTEXT; end; end; ┆
0x0560…0580 20 65 6e 64 3b 0d 20 69 66 20 6e 6f 00 00 00 00 00 00 02 0b 04 00 65 6e 20 62 65 67 69 6e 0d 20 ┆ end; if no en begin ┆
0x0580…05a0 20 69 66 20 73 3c 3e 63 68 72 28 24 46 46 29 20 74 68 65 6e 20 55 50 44 41 54 45 43 45 4c 4c 53 ┆ if s<>chr($FF) then UPDATECELLS┆
0x05a0…05c0 3b 0d 20 20 47 4f 54 4f 43 45 4c 4c 28 66 78 2c 66 79 29 3b 0d 20 20 69 66 20 61 75 74 6f 63 61 ┆; GOTOCELL(fx,fy); if autoca┆
0x05c0…05e0 6c 63 20 00 00 00 00 00 00 02 0b 04 00 61 6e 74 20 69 6e 20 73 68 65 65 74 5b 66 78 2c 66 79 5d ┆lc ant in sheetÆfx,fyÅ┆
0x05e0…0600 2e 63 65 6c 6c 73 74 61 74 75 73 29 20 74 68 65 6e 20 52 45 43 41 4c 43 55 4c 41 54 45 3b 0d 20 ┆.cellstatus) then RECALCULATE; ┆
0x0600…0620 20 69 66 20 74 78 74 20 69 6e 20 6e 65 77 73 74 61 74 20 74 68 65 6e 20 62 65 00 00 00 00 00 00 ┆ if txt in newstat then be ┆
0x0620…0640 02 0b 04 00 6f 78 79 28 32 2c 66 79 29 3b 77 72 69 74 65 28 63 6c 72 65 6f 6c 29 3b 0d 20 20 20 ┆ oxy(2,fy);write(clreol); ┆
0x0640…0660 66 6f 72 20 69 3a 3d 27 41 27 20 74 6f 20 66 78 6d 61 78 20 64 6f 20 4c 45 41 56 45 43 45 4c 4c ┆for i:='A' to fxmax do LEAVECELL┆
0x0660…0680 28 69 2c 66 79 29 3b 0d 20 20 65 6e 64 3b 0d 20 65 00 00 00 00 00 00 02 0b 04 00 28 31 33 2c 72 ┆(i,fy); end; e (13,r┆
0x0680…06a0 76 73 6f 66 66 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 66 61 6c 73 ┆vsoff+' ',fals┆
0x06a0…06c0 65 29 3b 0d 20 47 4f 54 4f 43 45 4c 4c 28 66 78 2c 66 79 29 3b 0d 65 6e 64 3b 0d 0d 7b 20 46 4f ┆e); GOTOCELL(fx,fy); end; æ FO┆
0x06c0…06e0 52 4d 41 54 20 69 73 20 00 00 00 00 00 00 02 0b 04 16 20 20 20 49 20 61 6c 74 20 69 20 64 69 73 ┆RMAT is I alt i dis┆
0x06e0…0700 73 65 20 6b 61 73 74 3a 0d 20 6a 2c 66 77 2c 64 65 63 2c 6d 61 78 63 69 66 2c 6d 61 78 62 72 65 ┆se kast: j,fw,dec,maxcif,maxbre┆
0x0700…0720 64 64 65 2c 0d 20 66 72 6f 6d 6c 69 6e 65 2c 74 6f 6c 69 6e 65 2c 0d 20 62 72 65 64 64 65 3a 00 ┆dde, fromline,toline, bredde: ┆
0x0720…0740 00 00 00 00 00 02 0b 04 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 20 45 20 52 20 ┆ 7 T E R ┆
0x0740…0760 4e 20 49 20 4e 20 47 20 4b 20 41 20 53 20 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N I N G K A S T ┆
0x0760…0780 74 72 69 6e 67 5b 32 5d 3b 0d 20 69 63 6f 75 6e 74 2c 73 6c 75 74 00 00 00 00 00 00 02 0b 04 37 ┆tringÆ2Å; icount,slut 7┆
0x0780…07a0 44 65 74 74 65 20 72 65 67 6e 65 61 72 6b 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 ┆Dette regneark kan benyttes til ┆
0x07a0…07c0 61 74 20 6b 61 73 74 65 20 6d 65 64 20 74 65 72 6e 69 6e 67 65 72 2e 3a 20 69 6e 74 65 67 65 72 ┆at kaste med terninger.: integer┆
0x07c0…07e0 29 3b 0d 20 76 61 72 0d 20 20 73 3a 20 00 00 00 00 00 00 02 0b 04 37 44 65 72 20 6b 61 73 74 65 ┆); var s: 7Der kaste┆
0x07e0…0800 73 20 6d 65 64 20 31 30 20 74 65 72 6e 69 6e 67 65 72 20 66 6f 72 20 68 76 65 72 20 67 61 6e 67 ┆s med 10 terninger for hver gang┆
0x0800…0820 2c 20 6d 61 6e 20 61 6e 76 65 6e 64 65 72 70 2c 32 33 29 3b 0d 20 20 72 65 70 65 61 74 0d 20 20 ┆, man anvenderp,23); repeat ┆
0x0820…0840 20 72 65 70 00 00 00 00 00 00 02 0b 04 14 27 4f 4d 52 45 47 4e 27 20 6b 6f 6d 6d 61 6e 64 6f 65 ┆ rep 'OMREGN' kommandoe┆
0x0840…0860 6e 2e 72 6e 69 6e 67 65 72 20 66 6f 72 20 68 76 65 72 20 67 61 6e 67 20 6d 61 6e 20 61 6e 76 65 ┆n.rninger for hver gang man anve┆
0x0860…0880 6e 64 65 72 20 20 69 66 20 63 68 3c 3e 72 65 74 75 72 6e 20 74 68 65 6e 20 62 65 00 00 00 00 00 ┆nder if ch<>return then be ┆
0x0880…08a0 00 02 0b 04 38 46 6f 72 20 61 74 20 73 74 61 72 74 65 20 65 6b 73 70 65 72 69 6d 65 6e 74 65 74 ┆ 8For at starte eksperimentet┆
0x08a0…08c0 2c 20 73 6b 61 6c 20 6d 61 6e 20 69 20 66 65 6c 74 65 74 20 41 31 20 73 6b 72 69 76 65 6e 28 73 ┆, skal man i feltet A1 skriven(s┆
0x08c0…08e0 29 2c 31 29 3b 0d 20 20 20 20 20 67 6f 74 6f 78 79 28 00 00 00 00 00 00 02 0b 04 32 61 6e 74 61 ┆),1); gotoxy( 2anta┆
0x08e0…0900 6c 6c 65 74 20 61 66 20 66 6c 61 64 65 72 20 70 7d 20 64 65 6e 20 74 65 72 6e 69 6e 67 2c 20 64 ┆llet af flader på den terning, d┆
0x0900…0920 65 72 20 6b 61 73 74 65 73 20 6d 65 64 2e 73 6b 72 69 76 65 68 3b 0d 20 20 20 20 20 76 61 6c 28 ┆er kastes med.skriveh; val(┆
0x0920…0940 73 2c 69 2c 65 72 72 29 3b 00 00 00 00 00 00 02 0b 04 38 56 65 64 20 65 6e 20 61 6c 6d 69 6e 64 ┆s,i,err); 8Ved en almind┆
0x0940…0960 65 6c 69 67 20 74 65 72 6e 69 6e 67 2c 20 73 6b 61 6c 20 6d 61 6e 20 61 6c 74 73 7d 20 73 6b 72 ┆elig terning, skal man altså skr┆
0x0960…0980 69 76 65 20 36 20 69 20 41 31 2e 6e 64 3b 0d 0d 62 65 67 69 6e 0d 20 6d 61 78 63 69 66 3a 3d 33 ┆ive 6 i A1.nd; begin maxcif:=3┆
0x0980…09a0 00 00 00 00 00 00 02 0b 04 00 44 65 74 20 76 69 6c 20 6a 6f 20 6e 6f 72 6d 61 6c 74 20 6e 6f 6b ┆ Det vil jo normalt nok┆
0x09a0…09c0 20 76 7b 72 65 20 36 2e 3d 66 79 3b 74 6f 6c 69 6e 65 3a 3d 66 79 3b 0d 20 73 74 72 28 6e 6f 72 ┆ være 6.=fy;toline:=fy; str(nor┆
0x09c0…09e0 6d 77 69 64 74 68 2c 74 61 6c 29 3b 0d 20 77 72 69 74 65 28 72 76 73 00 00 00 00 00 00 02 0b 04 ┆mwidth,tal); write(rvs ┆
0x09e0…0a00 00 28 27 20 46 4f 52 4d 41 54 3a 20 41 6e 67 69 76 20 61 6e 74 61 6c 20 64 65 63 69 6d 61 6c 65 ┆ (' FORMAT: Angiv antal decimale┆
0x0a00…0a20 72 20 20 28 6d 61 78 2e 20 27 2b 74 61 6c 2b 27 29 3a 20 27 29 3b 0d 20 47 45 54 49 4e 54 28 34 ┆r (max. '+tal+'): '); GETINT(4┆
0x0a20…0a40 33 2c 64 65 63 2c 6e 6f 72 6d 77 69 64 74 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 ┆3,dec,normwidt Terning ┆
0x0a40…0a60 31 20 3a 73 5b 66 78 5d 3e 6d 61 78 63 69 66 20 74 68 65 6e 0d 20 20 6d 61 78 62 72 65 64 64 65 ┆1 :sÆfxÅ>maxcif then maxbredde┆
0x0a60…0a80 3a 3d 6d 61 78 63 69 66 0d 20 65 6c 73 65 0d 20 20 6d 61 78 62 72 65 64 64 65 3a 3d 6d 61 78 74 ┆:=maxcif else maxbredde:=maxt┆
0x0a80…0aa0 65 67 6e 2b 32 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 32 20 3a 65 64 64 65 2c 74 ┆egn+2 Terning 2 :edde,t┆
0x0aa0…0ac0 61 6c 29 3b 0d 20 4d 53 47 28 27 20 41 6e 67 69 76 20 63 65 6c 6c 65 62 72 65 64 64 65 2e 20 28 ┆al); MSG(' Angiv cellebredde. (┆
0x0ac0…0ae0 6d 61 78 2e 20 27 2b 74 61 6c 2b 27 29 3a 20 27 29 3b 0d 20 47 45 54 49 4e 54 28 33 00 00 00 00 ┆max. '+tal+'): '); GETINT(3 ┆
0x0ae0…0b00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 33 20 3a 28 27 20 46 72 61 20 73 7c 6a 6c 65 20 27 2b ┆ Terning 3 :(' Fra søjle '+┆
0x0b00…0b20 66 78 2b 27 20 6c 69 6e 6a 65 3a 20 27 29 3b 0d 20 47 45 54 49 4e 54 28 32 30 2c 66 72 6f 6d 6c ┆fx+' linje: '); GETINT(20,froml┆
0x0b20…0b40 69 6e 65 2c 66 79 6d 61 78 29 3b 0d 20 4d 53 47 28 27 20 00 00 00 00 00 00 02 0b 04 0b 54 65 72 ┆ine,fymax); MSG(' Ter┆
0x0b40…0b60 6e 69 6e 67 20 34 20 3a 65 3a 20 27 29 3b 0d 20 47 45 54 49 4e 54 28 32 30 2c 74 6f 6c 69 6e 65 ┆ning 4 :e: '); GETINT(20,toline┆
0x0b60…0b80 2c 66 79 6d 61 78 29 3b 0d 20 69 66 20 66 72 6f 6d 6c 69 6e 65 3e 74 6f 6c 69 6e 65 20 74 68 65 ┆,fymax); if fromline>toline the┆
0x0b80…0ba0 6e 20 62 65 67 69 6e 0d 20 20 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 35 20 3a 72 ┆n begin Terning 5 :r┆
0x0ba0…0bc0 6f 6d 6c 69 6e 65 3a 3d 74 6f 6c 69 6e 65 3b 0d 20 20 74 6f 6c 69 6e 65 3a 3d 62 72 65 64 64 65 ┆omline:=toline; toline:=bredde┆
0x0bc0…0be0 3b 0d 20 65 6e 64 3b 20 0d 20 69 66 20 66 77 3e 6e 6f 72 6d 77 69 64 74 68 20 74 68 65 6e 20 6c ┆; end; if fw>normwidth then l┆
0x0be0…0c00 6f 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 36 20 3a 61 6c 73 65 3b 0d 20 62 72 65 ┆o Terning 6 :alse; bre┆
0x0c00…0c20 64 64 65 3a 3d 66 77 20 64 69 76 20 6e 6f 72 6d 77 69 64 74 68 3b 0d 20 69 66 20 28 66 77 20 6d ┆dde:=fw div normwidth; if (fw m┆
0x0c20…0c40 6f 64 20 6e 6f 72 6d 77 69 64 74 68 3e 30 29 20 74 68 65 6e 20 62 72 65 00 00 00 00 00 00 02 0b ┆od normwidth>0) then bre ┆
0x0c40…0c60 04 0b 54 65 72 6e 69 6e 67 20 37 20 3a 65 6c 74 3a 3d 73 68 65 65 74 69 6e 64 65 78 28 69 6e 74 ┆ Terning 7 :elt:=sheetindex(int┆
0x0c60…0c80 65 67 65 72 28 66 78 29 2b 62 72 65 64 64 65 2d 31 29 3b 0d 20 66 6f 72 20 6a 3a 3d 66 72 6f 6d ┆eger(fx)+bredde-1); for j:=from┆
0x0c80…0ca0 6c 69 6e 65 20 74 6f 20 74 6f 6c 69 6e 65 20 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 ┆line to toline Terning┆
0x0ca0…0cc0 20 38 20 3a 5d 2e 64 65 63 3a 3d 64 65 63 3b 0d 20 20 73 68 65 65 74 5b 66 78 2c 6a 5d 2e 66 77 ┆ 8 :Å.dec:=dec; sheetÆfx,jÅ.fw┆
0x0cc0…0ce0 3a 3d 66 77 3b 0d 20 20 69 66 20 66 78 3c 66 78 6d 61 78 20 74 68 65 6e 20 62 65 67 69 6e 0d 20 ┆:=fw; if fx<fxmax then begin ┆
0x0ce0…0d00 20 20 69 66 20 6c 00 00 00 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 39 20 3a 72 20 69 63 6f ┆ if l Terning 9 :r ico┆
0x0d00…0d20 75 6e 74 3a 3d 73 75 63 63 28 66 78 29 20 74 6f 20 73 6c 75 74 66 65 6c 74 20 64 6f 20 62 65 67 ┆unt:=succ(fx) to slutfelt do beg┆
0x0d20…0d40 69 6e 0d 20 20 20 20 20 20 77 69 74 68 20 73 68 65 65 74 5b 69 63 6f 75 6e 74 2c 6a 5d 00 00 00 ┆in with sheetÆicount,jÅ ┆
0x0d40…0d60 00 00 00 02 0b 04 0b 54 65 72 6e 69 6e 67 20 31 30 3a 73 74 61 74 75 73 3a 3d 63 65 6c 6c 73 74 ┆ Terning 10:status:=cellst┆
0x0d60…0d80 61 74 75 73 2b 5b 6c 6f 63 6b 65 64 2c 74 78 74 5d 3b 0d 20 20 20 20 20 20 20 63 6f 6e 74 65 6e ┆atus+Ælocked,txtÅ; conten┆
0x0d80…0da0 74 73 3a 3d 27 27 3b 0d 20 20 20 20 20 20 65 6e 64 3b 0d 20 00 00 00 00 00 00 02 0b 04 1e 2d 2d ┆ts:=''; end; --┆
0x0da0…0dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 20 20 20 ┆---------------------------- ┆
0x0dc0…0de0 20 20 69 63 6f 75 6e 74 3a 3d 73 75 63 63 28 73 6c 75 74 66 65 6c 74 29 3b 0d 20 20 20 20 20 77 ┆ icount:=succ(slutfelt); w┆
0x0de0…0e00 68 69 6c 65 20 28 69 63 6f 75 6e 00 00 00 00 00 00 02 0b 0c 00 20 20 20 20 20 20 61 6e 64 20 28 ┆hile (icoun and (┆
0x0e00…0e20 73 68 65 65 74 5b 69 63 6f 75 6e 74 2c 6a 5d 2e 63 65 6c 6c 73 74 61 74 75 73 2a 5b 6c 6f 63 6b ┆sheetÆicount,jÅ.cellstatus*Ælock┆
0x0e20…0e40 65 64 5d 3c 3e 5b 5d 29 20 64 6f 20 62 65 67 69 6e 0d 20 20 20 20 20 20 77 69 74 68 20 73 68 65 ┆edÅ<>ÆÅ) do begin with she┆
0x0e40…0e60 65 74 00 00 00 00 00 00 02 0b 0c 00 20 20 20 20 20 20 54 20 45 20 52 20 4e 20 49 20 4e 20 47 20 ┆et T E R N I N G ┆
0x0e60…0e80 4b 20 41 20 53 20 54 2e 3d 63 65 6c 6c 73 74 61 74 75 73 2d 5b 6c 6f 63 6b 65 64 5d 3b 0d 20 20 ┆K A S T.=cellstatus-ÆlockedÅ; ┆
0x0e80…0ea0 20 20 20 20 20 69 66 20 66 77 3e 6e 6f 72 6d 77 69 64 74 68 20 74 68 65 6e 00 00 00 00 00 00 02 ┆ if fw>normwidth then ┆
0x0ea0…0ec0 0b 0c 00 69 64 74 68 3b 0d 20 20 20 20 20 20 65 6e 64 3b 20 0d 20 20 20 20 20 20 69 66 20 69 63 ┆ idth; end; if ic┆
0x0ec0…0ee0 6f 75 6e 74 3c 66 78 6d 61 78 20 74 68 65 6e 20 69 63 6f 75 6e 74 3a 3d 73 75 63 63 28 69 63 6f ┆ount<fxmax then icount:=succ(ico┆
0x0ee0…0f00 75 6e 74 29 3b 0d 20 20 20 20 20 65 6e 64 3b 0d 00 00 00 00 00 00 02 0b 0c 00 20 20 65 6e 64 20 ┆unt); end; end ┆
0x0f00…0f20 65 6c 73 65 20 62 65 67 69 6e 0d 20 20 20 20 69 63 6f 75 6e 74 3a 3d 73 75 63 63 28 66 78 29 3b ┆else begin icount:=succ(fx);┆
0x0f20…0f40 0d 20 20 20 20 77 68 69 6c 65 20 28 69 63 6f 75 6e 74 3c 3d 66 78 6d 61 78 29 0d 20 20 20 20 20 ┆ while (icount<=fxmax) ┆
0x0f40…0f60 61 6e 64 20 28 73 68 00 00 00 00 00 00 02 0b 0c 00 2c 6a 5d 2e 63 65 6c 6c 73 74 61 74 75 73 2a ┆and (sh ,jÅ.cellstatus*┆
0x0f60…0f80 5b 6c 6f 63 6b 65 64 5d 3c 3e 5b 5d 29 20 64 6f 20 62 65 67 69 6e 0d 20 20 20 20 20 77 69 74 68 ┆ÆlockedÅ<>ÆÅ) do begin with┆
0x0f80…0fa0 20 73 68 65 65 74 5b 69 63 6f 75 6e 74 2c 6a 5d 20 64 6f 0d 20 20 20 20 20 20 63 65 6c 6c 00 00 ┆ sheetÆicount,jÅ do cell ┆
0x0fa0…0fc0 00 00 00 00 02 0b 0c 00 6c 6c 73 74 61 74 75 73 2d 5b 6c 6f 63 6b 65 64 5d 3b 0d 20 20 20 20 20 ┆ llstatus-ÆlockedÅ; ┆
0x0fc0…0fe0 69 66 20 69 63 6f 75 6e 74 3c 66 78 6d 61 78 20 74 68 65 6e 20 69 63 6f 75 6e 74 3a 3d 73 75 63 ┆if icount<fxmax then icount:=suc┆
0x0fe0…1000 63 28 69 63 6f 75 6e 74 29 3b 0d 20 20 20 20 65 6e 64 3b 20 0d 00 00 00 00 00 00 02 0b 0c 00 20 ┆c(icount); end; ┆
0x1000…1020 65 6e 64 3b 0d 20 65 6e 64 3b 0d 20 77 72 69 74 65 28 61 6c 6c 6f 66 66 29 3b 0d 20 55 50 44 41 ┆end; end; write(alloff); UPDA┆
0x1020…1040 54 45 3b 0d 20 47 4f 54 4f 43 45 4c 4c 28 66 78 2c 66 79 29 3b 0d 65 6e 64 3b 0d 0d 7b 2a 2a 2a ┆TE; GOTOCELL(fx,fy); end; æ***┆
0x1040…1060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 02 0b 0c 00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆************ **********┆
0x1060…1080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x1080…10a0 2a 2a 7d 0d 7b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 6d ┆**å æ* start of m┆
0x10a0…10c0 61 69 6e 00 00 00 00 00 00 02 0b 04 00 72 6f 63 65 64 75 72 65 73 20 20 20 20 20 20 20 20 20 20 ┆ain rocedures ┆
0x10c0…10e0 20 20 20 20 20 20 20 20 20 2a 7d 0d 7b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *å æ*******************┆
0x10e0…1100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 ┆************************** ┆
0x1100…1120 02 0b 04 0a 44 69 73 73 65 20 6b 61 73 74 2a 2a 2a 2a 7d 0d 0d 7b 20 43 4f 4d 4d 41 4e 44 53 20 ┆ Disse kast****å æ COMMANDS ┆
0x1120…1140 69 73 20 61 63 74 69 76 61 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6d 61 69 6e 20 6c 6f 6f 70 20 ┆is activated from the main loop ┆
0x1140…1160 69 6e 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 7d 00 00 00 00 00 00 02 0b 63 0b 28 52 4e 44 28 ┆in this program å c (RND(┆
0x1160…1180 41 31 29 2b 31 29 73 20 61 20 73 6c 61 73 68 20 28 2f 29 2e 20 61 20 70 72 6f 63 65 64 75 72 65 ┆A1)+1)s a slash (/). a procedure┆
0x1180…11a0 20 61 63 74 69 76 61 74 65 73 20 61 20 70 72 6f 63 65 64 75 72 65 7d 0d 7b 20 77 68 69 63 68 20 ┆ activates a procedureå æ which ┆
0x11a0…11c0 77 69 6c 6c 20 65 78 65 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 73 65 20 ┆will exe c (RND(A1)+1)se ┆
0x11c0…11e0 70 72 6f 63 65 64 75 72 65 73 20 61 72 65 20 6c 6f 63 61 74 65 64 20 69 6e 20 74 68 65 7d 0d 7b ┆procedures are located in theå æ┆
0x11e0…1200 20 61 62 6f 76 65 20 6d 6f 64 75 6c 65 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 ┆ above modules. ┆
0x1200…1220 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ c (RND(A1)+1) ┆
0x1220…1240 20 20 20 20 7d 0d 0d 7b 20 66 6f 72 20 65 61 73 79 20 72 65 66 65 72 65 6e 63 65 20 74 68 65 20 ┆ å æ for easy reference the ┆
0x1240…1260 73 6f 75 72 63 65 20 63 6f 64 65 20 6d 6f 64 75 6c 65 20 6e 75 6d 00 00 00 00 00 00 00 06 63 0b ┆source code module num c ┆
0x1260…1280 28 52 4e 44 28 41 31 29 2b 31 29 20 7d 0d 7b 20 63 6f 6d 6d 65 6e 74 20 6f 6e 20 74 68 65 20 72 ┆(RND(A1)+1) å æ comment on the r┆
0x1280…12a0 69 67 68 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c ┆ight following the procedure cal┆
0x12a0…12c0 6c 2e 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b ┆l. c (RND(A1)+┆
0x12c0…12e0 31 29 4d 4d 41 4e 44 53 3b 0d 76 61 72 0d 20 75 64 6c 69 6e 3a 61 72 72 61 79 5b 31 2e 2e 32 5d ┆1)MMANDS; var udlin:arrayÆ1..2Å┆
0x12e0…1300 20 6f 66 20 73 74 72 69 6e 67 5b 31 32 38 5d 3b 0d 20 66 69 72 73 74 6c 69 6e 3a 62 6f 6f 6c 65 ┆ of stringÆ128Å; firstlin:boole┆
0x1300…1320 61 6e 3b 0d 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 3b 0d 20 75 64 6c 69 ┆an; c (RND(A1)+1); udli┆
0x1320…1340 6e 5b 31 5d 3a 3d 27 20 20 54 69 6c 62 61 67 65 20 20 20 20 52 65 6e 73 20 20 20 20 53 6c 75 74 ┆nÆ1Å:=' Tilbage Rens Slut┆
0x1340…1360 20 20 20 20 48 65 6e 74 20 20 20 20 47 65 6d 20 20 20 20 55 64 73 6b 72 69 66 74 00 00 00 00 00 ┆ Hent Gem Udskrift ┆
0x1360…1380 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 20 54 69 6c 62 61 67 65 20 20 20 20 46 6f 72 6d ┆ c (RND(A1)+1) Tilbage Form┆
0x1380…13a0 61 74 20 20 20 20 20 4f 6d 72 65 67 6e 20 20 20 20 20 41 75 74 6f 72 65 67 6e 20 74 69 6c 2f 66 ┆at Omregn Autoregn til/f┆
0x13a0…13c0 72 61 20 20 20 20 3f 20 27 3b 0d 20 46 4c 41 53 48 28 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 ┆ra ? '; FLASH( c (RND┆
0x13c0…13e0 28 41 31 29 2b 31 29 61 6e 64 6f 65 72 20 20 27 2c 66 61 6c 73 65 29 3b 0d 20 72 65 70 65 61 74 ┆(A1)+1)andoer ',false); repeat┆
0x13e0…1400 0d 20 20 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 0d 20 20 77 72 69 74 65 28 63 6c 72 65 6f 6c 2c ┆ gotoxy(0,23); write(clreol,┆
0x1400…1420 27 4b 4f 4d 4d 41 4e 44 4f 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 20 74 ┆'KOMMANDO c (RND(A1)+1) t┆
0x1420…1440 68 65 6e 0d 20 20 20 48 49 47 48 4c 49 47 48 54 4d 53 47 28 75 64 6c 69 6e 5b 31 5d 29 0d 20 20 ┆hen HIGHLIGHTMSG(udlinÆ1Å) ┆
0x1440…1460 65 6c 73 65 0d 20 20 20 48 49 47 48 4c 49 47 48 54 4d 53 47 28 75 64 6c 69 6e 5b 32 5d 29 3b 0d ┆else HIGHLIGHTMSG(udlinÆ2Å); ┆
0x1460…1480 00 00 00 00 00 00 00 06 63 0b 28 52 4e 44 28 41 31 29 2b 31 29 69 66 20 63 68 3d 27 2f 27 20 74 ┆ c (RND(A1)+1)if ch='/' t┆
0x1480…14a0 68 65 6e 20 66 69 72 73 74 6c 69 6e 3a 3d 6e 6f 74 20 66 69 72 73 74 6c 69 6e 3b 0d 20 75 6e 74 ┆hen firstlin:=not firstlin; unt┆
0x14a0…14c0 69 6c 20 63 68 3c 3e 27 2f 27 3b 0d 20 46 4c 41 53 48 28 33 35 2c 72 00 00 00 00 00 00 00 06 0c ┆il ch<>'/'; FLASH(35,r ┆
0x14c0…14e0 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 66 61 6c 73 65 29 3b ┆ ',false);┆
0x14e0…1500 0d 20 63 61 73 65 20 63 68 20 6f 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ case ch of ┆
0x1500…1520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 06 63 09 28 43 31 30 26 43 31 39 ┆ c (C10&C19┆
0x1520…1540 29 75 6c 65 20 7d 0d 20 20 27 53 27 3a 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 77 72 69 74 ┆)ule å 'S': begin writ┆
0x1540…1560 65 28 72 76 73 6f 66 66 29 3b 0d 20 20 20 20 20 20 20 20 73 6c 75 74 3a 3d 74 72 75 65 3b 0d 20 ┆e(rvsoff); slut:=true; ┆
0x1560…1580 20 20 20 20 20 00 00 00 00 00 00 00 06 0c 00 28 41 31 3e 43 31 29 54 3b 20 20 20 20 20 20 20 20 ┆ (A1>C1)T; ┆
0x1580…15a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a0…15c0 20 20 20 20 20 20 20 7b 20 20 30 34 20 7d 0d 20 20 27 47 27 3a 20 53 41 56 45 3b 20 00 00 00 00 ┆ æ 04 å 'G': SAVE; ┆
0x15c0…15e0 00 00 02 0b 0c 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e0…1600 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 20 30 33 20 7d 0d 20 20 27 48 27 3a 20 4c 4f 41 44 3b ┆ æ 03 å 'H': LOAD;┆
0x1600…1620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 02 0b 0c 00 20 20 20 ┆ ┆
0x1620…1640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 20 30 33 20 7d 0d 20 20 27 3f 27 3a 20 ┆ æ 03 å '?': ┆
0x1640…1660 48 45 4c 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HELP; ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 02 0b 04 00 20 20 7b 20 20 30 33 20 7d 0d 20 20 ┆ æ 03 å ┆
0x1680…16a0 27 4f 27 3a 20 52 45 43 41 4c 43 55 4c 41 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'O': RECALCULATE; ┆
0x16a0…16c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 20 30 35 ┆ æ 05┆
0x16c0…16e0 20 00 00 00 00 00 00 02 0b 0c 00 55 54 4f 3b 20 20 20 20 20 20 20 20 28 2a 20 52 45 47 4e 2e 50 ┆ UTO; (* REGN.P┆
0x16e0…1700 41 53 20 2a 29 0d 0d 7b 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 65 72 20 65 6e 20 76 69 64 ┆AS *) æ Dette program er en vid┆
0x1700…1720 65 72 65 75 64 76 69 6b 6c 69 6e 67 20 61 66 20 70 72 6f 67 72 61 6d 6d 00 00 00 00 00 00 02 0b ┆ereudvikling af programm ┆
0x1720…1740 0c 00 4c 43 20 66 72 61 20 20 20 20 7d 0d 7b 20 54 55 52 42 4f 20 50 41 53 43 41 4c 20 7d 0d 0d ┆ LC fra å æ TURBO PASCAL å ┆
0x1740…1760 7b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 6f 6e 61 74 65 64 20 74 6f 20 74 68 65 ┆æ This program is donated to the┆
0x1760…1780 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 00 00 00 00 00 00 02 0b 0c 00 20 20 20 20 20 20 20 ┆ public domain ┆
0x1780…17a0 20 20 20 20 20 7d 0d 7b 20 6e 6f 6e 20 63 6f 6d 6d 65 72 63 69 61 6c 20 75 73 65 20 6f 6e 6c 79 ┆ å æ non commercial use only┆
0x17a0…17c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c0…17e0 20 20 20 20 20 20 00 00 00 00 00 00 02 0b 04 00 52 4f 47 52 41 4d 20 52 45 47 4e 45 41 52 4b 3b ┆ ROGRAM REGNEARK;┆
0x17e0…1800 20 28 2a 24 52 2d 2c 55 2d 2c 41 2b 2c 43 2d 2a 29 0d 0d 63 6f 6e 73 74 0d 20 6d 61 78 74 65 67 ┆ (*$R-,U-,A+,C-*) const maxteg┆
0x1800…1820 6e 20 20 20 20 20 20 3d 20 37 37 3b 20 20 20 7b 20 6d 61 78 69 6d 75 6d 20 6c 65 6e 67 00 00 00 ┆n = 77; æ maximum leng ┆
0x1820…1840 00 00 00 02 0b 04 07 20 20 49 20 61 6c 74 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 20 ┆ I altt å ┆
0x1840…1860 74 6f 6d 3a 73 74 72 69 6e 67 5b 6d 61 78 74 65 67 6e 5d 3d 27 20 20 20 20 20 20 20 20 20 20 20 ┆tom:stringÆmaxtegnÅ=' ┆
0x1860…1880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 02 0b 63 09 28 43 ┆ c (C┆
0x1880…18a0 31 30 2b 44 31 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10+D10) ┆
0x18a0…18c0 20 27 3b 0d 20 66 78 6d 61 78 3a 20 63 68 61 72 20 20 3d 20 27 47 27 3b 20 20 7b 20 6d 61 78 69 ┆ '; fxmax: char = 'G'; æ maxi┆
0x18c0…18e0 6d 75 6d 20 6e 75 6d 62 65 72 20 00 00 00 00 00 00 00 06 63 09 28 43 31 31 2b 44 31 31 29 64 20 ┆mum number c (C11+D11)d ┆
0x18e0…1900 73 68 65 65 74 20 20 20 7d 0d 20 66 79 6d 61 78 20 20 20 20 20 20 20 20 3d 20 32 31 3b 20 20 20 ┆sheet å fymax = 21; ┆
0x1900…1920 7b 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 69 6e 20 73 70 72 ┆æ maximum number of lines in spr┆
[…truncated at 200 lines…]