|
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: 10752 (0x2a00)
Names: »B46«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B46«
0x0000…0020 45 4d 20 44 45 4e 4e 45 20 55 44 46 4f 52 4d 4e 49 4e 47 20 45 52 20 4c 41 56 45 54 20 41 46 3a ┆EM DENNE UDFORMNING ER LAVET AF:┆
0x0020…0040 0d 0a 20 30 30 35 30 20 52 45 4d 20 2f 2f 20 20 20 20 20 20 20 20 20 46 20 47 20 4b 4e 55 44 53 ┆ 0050 REM // F G KNUDS┆
0x0040…0060 45 4e 0d 0a 20 30 30 36 30 20 52 45 4d 20 2f 2f 20 20 20 20 20 20 20 20 20 4b 4f 4c 4c 45 52 55 ┆EN 0060 REM // KOLLERU┆
0x0060…0080 50 56 45 4a 20 31 37 0d 0a 20 30 30 37 30 20 52 45 4d 20 2f 2f 20 20 20 20 20 20 20 20 20 38 39 ┆PVEJ 17 0070 REM // 89┆
0x0080…00a0 30 30 20 52 41 4e 44 45 52 53 20 20 20 20 20 20 20 54 4c 46 2e 3a 20 30 36 20 34 33 20 34 39 20 ┆00 RANDERS TLF.: 06 43 49 ┆
0x00a0…00c0 30 34 0d 0a 20 30 30 38 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 ┆04 0080 REM //----------// 0┆
0x00c0…00e0 30 39 30 20 52 45 4d 20 56 45 52 53 49 4f 4e 20 31 2e 31 2c 20 39 2f 31 2f 38 31 2e 0d 0a 20 30 ┆090 REM VERSION 1.1, 9/1/81. 0┆
0x00e0…0100 31 30 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 31 31 30 20 44 49 ┆100 REM //----------// 0110 DI┆
0x0100…0120 4d 20 49 4e 46 49 58 24 28 32 30 29 2c 50 4f 53 54 24 28 32 30 29 2c 53 54 41 4b 24 28 32 30 29 ┆M INFIX$(20),POST$(20),STAK$(20)┆
0x0120…0140 2c 48 24 28 33 29 2c 53 56 41 52 24 28 31 29 0d 0a 20 30 31 32 30 20 44 49 4d 20 54 41 4c 53 54 ┆,H$(3),SVAR$(1) 0120 DIM TALST┆
0x0140…0160 41 4b 28 31 30 29 2c 4e 41 56 4e 24 28 36 29 2c 41 42 53 54 45 44 28 32 29 2c 54 41 4c 28 33 29 ┆AK(10),NAVN$(6),ABSTED(2),TAL(3)┆
0x0160…0180 0d 0a 20 30 31 33 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 31 34 ┆ 0130 REM //----------// 014┆
0x0180…01a0 30 20 52 45 4d 20 50 52 4f 47 52 41 4d 20 54 41 4c 54 55 52 0d 0a 20 30 31 35 30 20 45 58 45 43 ┆0 REM PROGRAM TALTUR 0150 EXEC┆
0x01a0…01c0 20 46 4f 52 4b 4c 41 52 49 4e 47 0d 0a 20 30 31 36 30 20 52 45 50 45 41 54 20 0d 0a 20 30 31 37 ┆ FORKLARING 0160 REPEAT 017┆
0x01c0…01e0 30 20 20 20 45 58 45 43 20 53 54 41 52 54 0d 0a 20 30 31 38 30 20 20 20 52 45 50 45 41 54 20 0d ┆0 EXEC START 0180 REPEAT ┆
0x01e0…0200 0a 20 30 31 39 30 20 20 20 20 20 45 58 45 43 20 54 41 4c 53 5b 54 0d 0a 20 30 32 30 30 20 20 20 ┆ 0190 EXEC TALSÆT 0200 ┆
0x0200…0220 20 20 45 58 45 43 20 4d 4f 44 54 41 47 53 56 41 52 0d 0a 20 30 32 31 30 20 20 20 20 20 49 46 20 ┆ EXEC MODTAGSVAR 0210 IF ┆
0x0220…0240 44 49 56 4e 55 4c 3d 46 41 4c 53 45 20 54 48 45 4e 20 45 58 45 43 20 42 45 44 5c 4d 4d 45 4c 53 ┆DIVNUL=FALSE THEN EXEC BEDØMMELS┆
0x0240…0260 45 0d 0a 20 30 32 32 30 20 20 20 55 4e 54 49 4c 20 46 5b 52 44 49 47 3d 54 52 55 45 0d 0a 20 30 ┆E 0220 UNTIL FÆRDIG=TRUE 0┆
0x0260…0280 32 33 30 20 20 20 45 58 45 43 20 43 55 52 28 38 2c 32 34 29 0d 0a 20 30 32 34 30 20 20 20 49 4e ┆230 EXEC CUR(8,24) 0240 IN┆
0x0280…02a0 50 55 54 20 22 49 47 45 4e 20 28 4a 41 2f 4e 45 4a 29 20 3a 20 22 2c 53 56 41 52 24 0d 0a 20 30 ┆PUT "IGEN (JA/NEJ) : ",SVAR$ 0┆
0x02a0…02c0 32 35 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 4e 22 ┆250 UNTIL SVAR$="N" OR SVAR$="N"┆
0x02c0…02e0 0d 0a 20 30 32 35 35 20 43 48 41 49 4e 20 22 4c 4f 47 4f 4e 22 0d 0a 20 30 32 36 30 20 45 4e 44 ┆ 0255 CHAIN "LOGON" 0260 END┆
0x02e0…0300 20 50 52 4f 47 52 41 4d 20 54 41 4c 54 55 52 0d 0a 20 30 32 38 30 20 52 45 4d 20 2f 2f 2d 2d 2d ┆ PROGRAM TALTUR 0280 REM //---┆
0x0300…0320 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 32 39 30 20 50 52 4f 43 20 53 54 41 52 54 0d 0a 20 30 ┆--------// 0290 PROC START 0┆
0x0320…0340 33 30 30 20 20 20 54 52 55 45 3d 31 3b 20 46 41 4c 53 45 3d 30 0d 0a 20 30 33 31 30 20 20 20 41 ┆300 TRUE=1; FALSE=0 0310 A┆
0x0340…0360 42 53 54 45 44 28 31 29 2c 41 42 53 54 45 44 28 32 29 3d 30 3b 20 46 5b 52 44 49 47 3d 46 41 4c ┆BSTED(1),ABSTED(2)=0; FÆRDIG=FAL┆
0x0360…0380 53 45 3b 20 53 50 49 4c 4c 45 52 3d 31 0d 0a 20 30 33 32 30 20 20 20 52 41 4e 44 4f 4d 49 5a 45 ┆SE; SPILLER=1 0320 RANDOMIZE┆
0x0380…03a0 20 0d 0a 20 30 33 33 30 20 20 20 4e 41 56 4e 24 3d 43 48 52 28 31 33 30 29 2b 22 41 22 2b 43 48 ┆ 0330 NAVN$=CHR(130)+"A"+CH┆
0x03a0…03c0 52 28 31 32 38 29 2b 43 48 52 28 31 33 30 29 2b 22 42 22 2b 43 48 52 28 31 32 38 29 0d 0a 20 30 ┆R(128)+CHR(130)+"B"+CHR(128) 0┆
0x03c0…03e0 33 34 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 33 35 30 20 20 20 45 58 45 ┆340 PRINT CHR(12) 0350 EXE┆
0x03e0…0400 43 20 56 45 4a 4e 45 54 0d 0a 20 30 33 36 30 20 45 4e 44 50 52 4f 43 20 53 54 41 52 54 0d 0a 20 ┆C VEJNET 0360 ENDPROC START ┆
0x0400…0420 30 33 37 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 33 38 30 20 50 ┆0370 REM //----------// 0380 P┆
0x0420…0440 52 4f 43 20 56 45 4a 4e 45 54 0d 0a 20 30 33 39 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 ┆ROC VEJNET 0390 PRINT CHR(12┆
0x0440…0460 29 0d 0a 20 30 34 30 30 20 20 20 50 52 49 4e 54 20 22 53 54 41 52 54 20 20 31 20 20 20 32 20 20 ┆) 0400 PRINT "START 1 2 ┆
0x0460…0480 20 33 20 20 20 34 20 20 20 35 20 20 20 36 20 20 20 37 20 20 20 38 20 20 20 39 20 20 31 30 22 0d ┆ 3 4 5 6 7 8 9 10" ┆
0x0480…04a0 0a 20 30 34 31 30 20 20 20 50 52 49 4e 54 20 22 20 22 3b 20 4e 41 56 4e 24 28 34 20 3a 20 33 29 ┆ 0410 PRINT " "; NAVN$(4 : 3)┆
0x04a0…04c0 3b 20 4e 41 56 4e 24 28 31 20 3a 20 33 29 3b 20 0d 0a 20 30 34 32 30 20 20 20 50 52 49 4e 54 20 ┆; NAVN$(1 : 3); 0420 PRINT ┆
0x04c0…04e0 22 4f 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d ┆"O---*---*---*---*---*---*---*--┆
0x04e0…0500 2d 2a 2d 2d 2d 4f 22 0d 0a 20 30 34 33 30 20 20 20 50 52 49 4e 54 20 22 4b 52 49 2d 20 20 20 20 ┆-*---O" 0430 PRINT "KRI- ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 58 3e 3e 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X>>13 ┆
0x0520…0540 20 20 20 49 20 56 4f 2d 22 0d 0a 20 30 34 34 30 20 20 20 50 52 49 4e 54 20 22 53 54 52 55 50 20 ┆ I VO-" 0440 PRINT "STRUP ┆
0x0540…0560 32 30 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 3e 3e 58 20 20 ┆20 >>X ┆
0x0560…0580 31 32 20 20 20 49 20 52 55 50 22 0d 0a 20 30 34 35 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 ┆12 I RUP" 0450 PRINT " ┆
0x0580…05a0 20 20 20 4f 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a ┆ O---*---*---*---*---*---*---*┆
0x05a0…05c0 2d 2d 2d 2a 2d 2d 2d 2a 22 0d 0a 20 30 34 36 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 ┆---*---*" 0460 PRINT " ┆
0x05c0…05e0 20 49 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 ┆ I ┆
0x05e0…0600 20 20 20 20 20 20 20 52 41 4e 2d 22 0d 0a 20 30 34 37 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 ┆ RAN-" 0470 PRINT " ┆
0x0600…0620 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 20 20 20 20 20 20 20 20 20 20 20 ┆ I 25 ┆
0x0620…0640 20 20 20 20 20 20 20 33 30 20 44 45 52 53 22 0d 0a 20 30 34 38 30 20 20 20 50 52 49 4e 54 20 22 ┆ 30 DERS" 0480 PRINT "┆
0x0640…0660 20 20 20 20 20 20 20 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a ┆ *---*---*---*---*---*---*┆
0x0660…0680 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 4f 22 0d 0a 20 30 34 39 30 20 20 20 50 52 49 4e 54 20 22 20 20 ┆---*---*---O" 0490 PRINT " ┆
0x0680…06a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 20 20 20 20 20 20 20 20 20 20 ┆ L ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 49 22 0d 0a 20 30 35 30 30 20 20 20 50 52 49 4e 54 20 22 4c 45 4d 20 ┆ I" 0500 PRINT "LEM ┆
0x06c0…06e0 20 20 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 36 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 40 36 ┆
0x06e0…0700 20 20 20 20 20 20 20 49 22 0d 0a 20 30 35 31 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 ┆ I" 0510 PRINT " ┆
0x0700…0720 20 4f 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d ┆ O---*---*---*---*---*---*---*--┆
0x0720…0740 2d 2a 2d 2d 2d 2a 22 0d 0a 20 30 35 32 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 49 ┆-*---*" 0520 PRINT " I┆
0x0740…0760 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 ┆ ┆
0x0760…0780 20 20 20 20 20 47 49 4d 2d 22 0d 0a 20 30 35 33 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆ GIM-" 0530 PRINT " ┆
0x0780…07a0 20 20 49 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 ┆ I ┆
0x07a0…07c0 20 20 20 20 20 35 30 20 4d 49 4e 47 22 0d 0a 20 30 35 34 30 20 20 20 50 52 49 4e 54 20 22 20 20 ┆ 50 MING" 0540 PRINT " ┆
0x07c0…07e0 20 20 20 20 20 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d ┆ *---*---*---*---*---*---*--┆
0x07e0…0800 2d 2a 2d 2d 2d 2a 2d 2d 2d 4f 22 0d 0a 20 30 35 35 30 20 20 20 50 52 49 4e 54 20 22 54 4a 5b 52 ┆-*---*---O" 0550 PRINT "TJÆR┆
0x0800…0820 2d 20 20 58 3e 3e 35 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- X>>54 ┆
0x0820…0840 20 20 20 20 20 20 20 49 22 0d 0a 20 30 35 36 30 20 20 20 50 52 49 4e 54 20 22 42 59 20 20 20 20 ┆ I" 0560 PRINT "BY ┆
0x0840…0860 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 3e 58 20 20 20 20 20 20 ┆60 >>X ┆
0x0860…0880 20 20 20 20 20 49 22 0d 0a 20 30 35 37 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 4f ┆ I" 0570 PRINT " O┆
0x0880…08a0 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a ┆---*---*---*---*---*---*---*---*┆
0x08a0…08c0 2d 2d 2d 2a 22 0d 0a 20 30 35 38 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 49 22 0d ┆---*" 0580 PRINT " I" ┆
0x08c0…08e0 0a 20 30 35 39 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 ┆ 0590 PRINT " I ┆
0x08e0…0900 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 37 30 22 0d 0a 20 ┆ 70" ┆
0x0900…0920 30 36 30 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d ┆0600 PRINT " *---*---*--┆
0x0920…0940 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 2a 2d 2d 2d 4f 22 0d 0a 20 30 36 ┆-*---*---*---*---*---*---O" 06┆
0x0940…0960 31 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10 PRINT " ┆
0x0960…0980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 52 4f 4e 4e 49 4e 47 42 4f 52 47 22 ┆ DRONNINGBORG"┆
0x0980…09a0 0d 0a 20 30 36 32 30 20 20 20 45 58 45 43 20 43 55 52 28 36 30 2c 33 29 0d 0a 20 30 36 33 30 20 ┆ 0620 EXEC CUR(60,3) 0630 ┆
0x09a0…09c0 20 20 50 52 49 4e 54 20 22 54 41 4c 20 31 20 28 31 2d 33 29 3a 22 0d 0a 20 30 36 34 30 20 20 20 ┆ PRINT "TAL 1 (1-3):" 0640 ┆
0x09c0…09e0 45 58 45 43 20 43 55 52 28 36 30 2c 35 29 0d 0a 20 30 36 35 30 20 20 20 50 52 49 4e 54 20 22 54 ┆EXEC CUR(60,5) 0650 PRINT "T┆
0x09e0…0a00 41 4c 20 32 20 28 30 2d 34 29 3a 22 0d 0a 20 30 36 36 30 20 20 20 45 58 45 43 20 43 55 52 28 36 ┆AL 2 (0-4):" 0660 EXEC CUR(6┆
0x0a00…0a20 30 2c 37 29 0d 0a 20 30 36 37 30 20 20 20 50 52 49 4e 54 20 22 54 41 4c 20 33 20 28 31 2d 38 29 ┆0,7) 0670 PRINT "TAL 3 (1-8)┆
0x0a20…0a40 3a 22 0d 0a 20 30 36 38 30 20 45 4e 44 50 52 4f 43 20 56 45 4a 4e 45 54 0d 0a 20 30 36 39 30 20 ┆:" 0680 ENDPROC VEJNET 0690 ┆
0x0a40…0a60 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 0d 0a 20 30 37 30 30 20 50 52 4f 43 20 54 41 ┆REM //----------/ 0700 PROC TA┆
0x0a60…0a80 4c 53 5b 54 0d 0a 20 30 37 31 30 20 20 20 54 41 4c 28 31 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a ┆LSÆT 0710 TAL(1)=INT(RND(0)*┆
0x0a80…0aa0 33 2b 31 29 3b 20 54 41 4c 28 32 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a 35 29 0d 0a 20 30 37 32 ┆3+1); TAL(2)=INT(RND(0)*5) 072┆
0x0aa0…0ac0 30 20 20 20 54 41 4c 28 33 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a 38 2b 31 29 0d 0a 20 30 37 33 ┆0 TAL(3)=INT(RND(0)*8+1) 073┆
0x0ac0…0ae0 30 20 20 20 46 4f 52 20 4e 52 3d 31 20 54 4f 20 33 0d 0a 20 30 37 34 30 20 20 20 20 20 45 58 45 ┆0 FOR NR=1 TO 3 0740 EXE┆
0x0ae0…0b00 43 20 43 55 52 28 37 32 2c 28 32 2a 4e 52 2b 31 29 29 0d 0a 20 30 37 35 30 20 20 20 20 20 50 52 ┆C CUR(72,(2*NR+1)) 0750 PR┆
0x0b00…0b20 49 4e 54 20 54 41 4c 28 4e 52 29 0d 0a 20 30 37 36 30 20 20 20 4e 45 58 54 20 4e 52 0d 0a 20 30 ┆INT TAL(NR) 0760 NEXT NR 0┆
0x0b20…0b40 37 37 30 20 45 4e 44 50 52 4f 43 20 54 41 4c 53 5b 54 0d 0a 20 30 37 38 30 20 52 45 4d 20 2f 2f ┆770 ENDPROC TALSÆT 0780 REM //┆
0x0b40…0b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 37 39 30 20 50 52 4f 43 20 4d 4f 44 54 41 47 ┆-----------// 0790 PROC MODTAG┆
0x0b60…0b80 53 56 41 52 0d 0a 20 30 38 30 30 20 20 20 53 56 41 52 4f 4b 3d 46 41 4c 53 45 0d 0a 20 30 38 31 ┆SVAR 0800 SVAROK=FALSE 081┆
0x0b80…0ba0 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 38 32 30 20 20 20 20 20 45 58 45 43 20 43 55 52 28 ┆0 REPEAT 0820 EXEC CUR(┆
0x0ba0…0bc0 36 30 2c 31 31 29 0d 0a 20 30 38 33 30 20 20 20 20 20 50 52 49 4e 54 20 4e 41 56 4e 24 28 53 50 ┆60,11) 0830 PRINT NAVN$(SP┆
0x0bc0…0be0 49 4c 4c 45 52 2a 33 2d 31 20 3a 20 31 29 3b 20 22 2c 20 44 49 54 22 0d 0a 20 30 38 34 30 20 20 ┆ILLER*3-1 : 1); ", DIT" 0840 ┆
0x0be0…0c00 20 20 20 45 58 45 43 20 43 55 52 28 36 30 2c 31 32 29 0d 0a 20 30 38 35 30 20 20 20 20 20 50 52 ┆ EXEC CUR(60,12) 0850 PR┆
0x0c00…0c20 49 4e 54 20 43 48 52 28 33 30 29 3b 20 0d 0a 20 30 38 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 ┆INT CHR(30); 0860 INPUT "┆
0x0c20…0c40 53 54 59 4b 4b 45 20 3a 20 22 2c 49 4e 46 49 58 24 0d 0a 20 30 38 37 30 20 20 20 20 20 46 4f 52 ┆STYKKE : ",INFIX$ 0870 FOR┆
0x0c40…0c60 20 4c 49 4e 4e 52 3d 31 33 20 54 4f 20 32 32 0d 0a 20 30 38 38 30 20 20 20 20 20 20 20 45 58 45 ┆ LINNR=13 TO 22 0880 EXE┆
0x0c60…0c80 43 20 43 55 52 28 36 30 2c 4c 49 4e 4e 52 29 0d 0a 20 30 38 39 30 20 20 20 20 20 20 20 50 52 49 ┆C CUR(60,LINNR) 0890 PRI┆
0x0c80…0ca0 4e 54 20 43 48 52 28 33 30 29 0d 0a 20 30 39 30 30 20 20 20 20 20 4e 45 58 54 20 4c 49 4e 4e 52 ┆NT CHR(30) 0900 NEXT LINNR┆
0x0ca0…0cc0 0d 0a 20 30 39 31 30 20 20 20 20 20 45 58 45 43 20 54 45 53 54 53 56 41 52 0d 0a 20 30 39 32 30 ┆ 0910 EXEC TESTSVAR 0920┆
0x0cc0…0ce0 20 20 20 20 20 49 46 20 53 56 41 52 4f 4b 3d 54 52 55 45 20 54 48 45 4e 20 45 58 45 43 20 4f 56 ┆ IF SVAROK=TRUE THEN EXEC OV┆
0x0ce0…0d00 45 52 53 5b 54 0d 0a 20 30 39 33 30 20 20 20 20 20 49 46 20 53 56 41 52 4f 4b 3d 46 41 4c 53 45 ┆ERSÆT 0930 IF SVAROK=FALSE┆
0x0d00…0d20 20 54 48 45 4e 20 0d 0a 20 30 39 34 30 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 28 36 30 2c ┆ THEN 0940 EXEC CUR(60,┆
0x0d20…0d40 31 33 29 0d 0a 20 30 39 35 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 46 45 4a 4c 20 49 20 49 ┆13) 0950 PRINT "FEJL I I┆
0x0d40…0d60 4e 50 55 54 21 22 0d 0a 20 30 39 36 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 37 30 20 ┆NPUT!" 0960 ENDIF 0970 ┆
0x0d60…0d80 20 20 55 4e 54 49 4c 20 53 56 41 52 4f 4b 3d 54 52 55 45 0d 0a 20 30 39 38 30 20 20 20 45 58 45 ┆ UNTIL SVAROK=TRUE 0980 EXE┆
0x0d80…0da0 43 20 54 41 4c 56 5b 52 44 49 0d 0a 20 30 39 39 30 20 45 4e 44 50 52 4f 43 20 4d 4f 44 54 41 47 ┆C TALVÆRDI 0990 ENDPROC MODTAG┆
0x0da0…0dc0 53 56 41 52 0d 0a 20 31 30 30 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a ┆SVAR 1000 REM //----------// ┆
0x0dc0…0de0 20 31 30 31 30 20 50 52 4f 43 20 54 45 53 54 53 56 41 52 0d 0a 20 31 30 32 30 20 20 20 4c 5b 4e ┆ 1010 PROC TESTSVAR 1020 LÆN┆
0x0de0…0e00 47 44 45 3d 4c 45 4e 28 49 4e 46 49 58 24 29 3b 20 56 45 4e 53 54 52 45 2c 48 5c 4a 52 45 3d 30 ┆GDE=LEN(INFIX$); VENSTRE,HØJRE=0┆
0x0e00…0e20 0d 0a 20 31 30 33 30 20 20 20 49 46 20 4c 5b 4e 47 44 45 3e 30 20 54 48 45 4e 20 0d 0a 20 31 30 ┆ 1030 IF LÆNGDE>0 THEN 10┆
0x0e20…0e40 34 30 20 20 20 20 20 49 3d 30 0d 0a 20 31 30 35 30 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 ┆40 I=0 1050 REPEAT ┆
0x0e40…0e60 31 30 36 30 20 20 20 20 20 20 20 49 3d 49 2b 31 0d 0a 20 31 30 37 30 20 20 20 20 20 20 20 49 46 ┆1060 I=I+1 1070 IF┆
0x0e60…0e80 20 49 4e 46 49 58 24 28 49 20 3a 20 31 29 3d 22 20 22 20 54 48 45 4e 20 0d 0a 20 31 30 38 30 20 ┆ INFIX$(I : 1)=" " THEN 1080 ┆
0x0e80…0ea0 20 20 20 20 20 20 20 20 49 4e 46 49 58 24 28 49 20 3a 20 4c 5b 4e 47 44 45 2d 49 29 3d 49 4e 46 ┆ INFIX$(I : LÆNGDE-I)=INF┆
0x0ea0…0ec0 49 58 24 28 49 2b 31 20 3a 20 4c 5b 4e 47 44 45 2d 49 29 0d 0a 20 31 30 39 30 20 20 20 20 20 20 ┆IX$(I+1 : LÆNGDE-I) 1090 ┆
0x0ec0…0ee0 20 20 20 49 4e 46 49 58 24 3d 49 4e 46 49 58 24 28 31 20 3a 20 4c 5b 4e 47 44 45 2d 31 29 0d 0a ┆ INFIX$=INFIX$(1 : LÆNGDE-1) ┆
0x0ee0…0f00 20 31 31 30 30 20 20 20 20 20 20 20 20 20 4c 5b 4e 47 44 45 3d 4c 5b 4e 47 44 45 2d 31 0d 0a 20 ┆ 1100 LÆNGDE=LÆNGDE-1 ┆
0x0f00…0f20 31 31 31 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 31 32 30 20 20 20 20 20 20 20 20 20 ┆1110 ELSE 1120 ┆
0x0f20…0f40 49 46 20 49 4e 46 49 58 24 28 49 20 3a 20 31 29 3d 22 28 22 20 54 48 45 4e 20 56 45 4e 53 54 52 ┆IF INFIX$(I : 1)="(" THEN VENSTR┆
0x0f40…0f60 45 3d 56 45 4e 53 54 52 45 2b 31 0d 0a 20 31 31 33 30 20 20 20 20 20 20 20 20 20 49 46 20 49 4e ┆E=VENSTRE+1 1130 IF IN┆
0x0f60…0f80 46 49 58 24 28 49 20 3a 20 31 29 3d 22 29 22 20 54 48 45 4e 20 48 5c 4a 52 45 3d 48 5c 4a 52 45 ┆FIX$(I : 1)=")" THEN HØJRE=HØJRE┆
0x0f80…0fa0 2b 31 0d 0a 20 31 31 34 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 31 35 30 20 20 20 ┆+1 1140 ENDIF 1150 ┆
0x0fa0…0fc0 20 20 55 4e 54 49 4c 20 49 3d 3e 4c 5b 4e 47 44 45 0d 0a 20 31 31 36 30 20 20 20 45 4e 44 49 46 ┆ UNTIL I=>LÆNGDE 1160 ENDIF┆
0x0fc0…0fe0 20 0d 0a 20 31 31 37 30 20 20 20 49 46 20 56 45 4e 53 54 52 45 3d 48 5c 4a 52 45 20 41 4e 44 20 ┆ 1170 IF VENSTRE=HØJRE AND ┆
0x0fe0…1000 4c 45 4e 28 49 4e 46 49 58 24 29 2d 32 2a 48 5c 4a 52 45 3d 35 20 54 48 45 4e 20 0d 0a 20 31 31 ┆LEN(INFIX$)-2*HØJRE=5 THEN 11┆
0x1000…1020 38 30 20 20 20 20 20 53 56 41 52 4f 4b 3d 54 52 55 45 3b 20 4e 3d 30 0d 0a 20 31 31 39 30 20 20 ┆80 SVAROK=TRUE; N=0 1190 ┆
0x1020…1040 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 4c 45 4e 28 49 4e 46 49 58 24 29 0d 0a 20 31 32 30 30 ┆ FOR I=1 TO LEN(INFIX$) 1200┆
0x1040…1060 20 20 20 20 20 20 20 49 46 20 49 4e 46 49 58 24 28 49 20 3a 20 31 29 3c 22 3a 22 20 41 4e 44 20 ┆ IF INFIX$(I : 1)<":" AND ┆
0x1060…1080 49 4e 46 49 58 24 28 49 20 3a 20 31 29 3e 22 2f 22 20 54 48 45 4e 20 0d 0a 20 31 32 31 30 20 20 ┆INFIX$(I : 1)>"/" THEN 1210 ┆
0x1080…10a0 20 20 20 20 20 20 20 4e 3d 4e 2b 31 0d 0a 20 31 32 32 30 20 20 20 20 20 20 20 20 20 49 46 20 4e ┆ N=N+1 1220 IF N┆
0x10a0…10c0 3e 33 20 54 48 45 4e 20 0d 0a 20 31 32 33 30 20 20 20 20 20 20 20 20 20 20 20 53 56 41 52 4f 4b ┆>3 THEN 1230 SVAROK┆
0x10c0…10e0 3d 46 41 4c 53 45 0d 0a 20 31 32 34 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 32 ┆=FALSE 1240 ELSE 12┆
0x10e0…1100 35 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 52 44 28 49 4e 46 49 58 24 28 49 20 3a 20 31 ┆50 IF ORD(INFIX$(I : 1┆
0x1100…1120 29 29 2d 34 38 3c 3e 54 41 4c 28 4e 29 20 54 48 45 4e 20 53 56 41 52 4f 4b 3d 46 41 4c 53 45 0d ┆))-48<>TAL(N) THEN SVAROK=FALSE ┆
0x1120…1140 0a 20 31 32 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 32 37 30 20 20 20 20 ┆ 1260 ENDIF 1270 ┆
0x1140…1160 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 32 38 30 20 20 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 32 ┆ ENDIF 1280 NEXT I 12┆
0x1160…1180 39 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 33 30 30 20 20 20 49 4e 46 49 58 24 3d 49 4e 46 49 ┆90 ENDIF 1300 INFIX$=INFI┆
0x1180…11a0 58 24 2b 22 20 22 0d 0a 20 31 33 31 30 20 45 4e 44 50 52 4f 43 20 54 45 53 54 53 56 41 52 0d 0a ┆X$+" " 1310 ENDPROC TESTSVAR ┆
0x11a0…11c0 20 31 33 32 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 33 33 30 20 ┆ 1320 REM //----------// 1330 ┆
0x11c0…11e0 50 52 4f 43 20 4f 56 45 52 53 5b 54 0d 0a 20 31 33 34 30 20 20 20 4b 2c 4e 3d 30 3b 20 49 3d 31 ┆PROC OVERSÆT 1340 K,N=0; I=1┆
0x11e0…1200 3b 20 50 4f 53 54 24 3d 22 22 3b 20 53 54 41 4b 24 3d 22 22 0d 0a 20 31 33 35 30 20 20 20 57 48 ┆; POST$=""; STAK$="" 1350 WH┆
0x1200…1220 49 4c 45 20 49 4e 46 49 58 24 28 49 20 3a 20 31 29 3c 3e 22 20 22 20 44 4f 20 0d 0a 20 31 33 36 ┆ILE INFIX$(I : 1)<>" " DO 136┆
0x1220…1240 30 20 20 20 20 20 48 24 3d 49 4e 46 49 58 24 28 49 20 3a 20 31 29 0d 0a 20 31 33 37 30 20 20 20 ┆0 H$=INFIX$(I : 1) 1370 ┆
0x1240…1260 20 20 45 58 45 43 20 4c 45 56 0d 0a 20 31 33 38 30 20 20 20 20 20 49 46 20 4c 45 56 45 4c 3c 3e ┆ EXEC LEV 1380 IF LEVEL<>┆
0x1260…1280 2d 31 20 54 48 45 4e 20 0d 0a 20 31 33 39 30 20 20 20 20 20 20 20 49 46 20 4c 45 56 45 4c 3d 36 ┆-1 THEN 1390 IF LEVEL=6┆
0x1280…12a0 20 54 48 45 4e 20 0d 0a 20 31 34 30 30 20 20 20 20 20 20 20 20 20 4b 3d 4b 2b 31 3b 20 50 4f 53 ┆ THEN 1400 K=K+1; POS┆
0x12a0…12c0 54 24 28 4b 20 3a 20 31 29 3d 49 4e 46 49 58 24 28 49 20 3a 20 31 29 0d 0a 20 31 34 31 30 20 20 ┆T$(K : 1)=INFIX$(I : 1) 1410 ┆
0x12c0…12e0 20 20 20 20 20 45 4c 53 45 20 49 4b 4b 45 20 4b 4f 4e 53 54 41 4e 54 0d 0a 20 31 34 32 30 20 20 ┆ ELSE IKKE KONSTANT 1420 ┆
0x12e0…1300 20 20 20 20 20 20 20 49 46 20 4c 45 56 45 4c 3d 31 20 54 48 45 4e 20 0d 0a 20 31 34 33 30 20 20 ┆ IF LEVEL=1 THEN 1430 ┆
0x1300…1320 20 20 20 20 20 20 20 20 20 4e 3d 4e 2b 31 3b 20 53 54 41 4b 24 28 4e 20 3a 20 31 29 3d 49 4e 46 ┆ N=N+1; STAK$(N : 1)=INF┆
0x1320…1340 49 58 24 28 49 20 3a 20 31 29 0d 0a 20 31 34 34 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 ┆IX$(I : 1) 1440 ELSE I┆
0x1340…1360 4b 4b 45 20 56 45 4e 53 54 52 45 50 41 52 41 4e 54 45 53 0d 0a 20 31 34 35 30 20 20 20 20 20 20 ┆KKE VENSTREPARANTES 1450 ┆
0x1360…1380 20 20 20 20 20 49 46 20 4c 45 56 45 4c 3d 30 20 54 48 45 4e 20 0d 0a 20 31 34 36 30 20 20 20 20 ┆ IF LEVEL=0 THEN 1460 ┆
0x1380…13a0 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 5c 4a 52 45 50 41 52 41 4e 54 45 53 0d 0a 20 31 34 ┆ EXEC HØJREPARANTES 14┆
0x13a0…13c0 37 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 34 38 30 20 20 20 20 20 20 20 ┆70 ELSE 1480 ┆
0x13c0…13e0 20 20 20 20 20 20 45 58 45 43 20 41 4e 44 45 54 0d 0a 20 31 34 39 30 20 20 20 20 20 20 20 20 20 ┆ EXEC ANDET 1490 ┆
0x13e0…1400 20 20 45 4e 44 49 46 20 0d 0a 20 31 35 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a ┆ ENDIF 1500 ENDIF ┆
0x1400…1420 20 31 35 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 35 32 30 20 20 20 20 20 45 4e ┆ 1510 ENDIF 1520 EN┆
0x1420…1440 44 49 46 20 0d 0a 20 31 35 33 30 20 20 20 20 20 49 3d 49 2b 31 0d 0a 20 31 35 34 30 20 20 20 45 ┆DIF 1530 I=I+1 1540 E┆
0x1440…1460 4e 44 57 48 49 4c 45 20 0d 0a 20 31 35 35 30 20 20 20 45 58 45 43 20 46 5b 52 44 49 47 41 46 53 ┆NDWHILE 1550 EXEC FÆRDIGAFS┆
0x1460…1480 54 41 4b 0d 0a 20 31 35 36 30 20 45 4e 44 50 52 4f 43 20 4f 56 45 52 53 5b 54 0d 0a 20 31 35 37 ┆TAK 1560 ENDPROC OVERSÆT 157┆
0x1480…14a0 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 35 38 30 20 50 52 4f 43 ┆0 REM //----------// 1580 PROC┆
0x14a0…14c0 20 4c 45 56 0d 0a 20 31 35 39 30 20 20 20 4c 45 56 45 4c 3d 2d 31 0d 0a 20 31 36 30 30 20 20 20 ┆ LEV 1590 LEVEL=-1 1600 ┆
0x14c0…14e0 49 46 20 48 24 3d 22 29 22 20 54 48 45 4e 20 4c 45 56 45 4c 3d 30 0d 0a 20 31 36 31 30 20 20 20 ┆IF H$=")" THEN LEVEL=0 1610 ┆
0x14e0…1500 49 46 20 48 24 3d 22 28 22 20 54 48 45 4e 20 4c 45 56 45 4c 3d 31 0d 0a 20 31 36 32 30 20 20 20 ┆IF H$="(" THEN LEVEL=1 1620 ┆
0x1500…1520 49 46 20 48 24 3d 22 2b 22 20 4f 52 20 48 24 3d 22 2d 22 20 54 48 45 4e 20 4c 45 56 45 4c 3d 33 ┆IF H$="+" OR H$="-" THEN LEVEL=3┆
0x1520…1540 0d 0a 20 31 36 33 30 20 20 20 49 46 20 48 24 3d 22 2a 22 20 4f 52 20 48 24 3d 22 2f 22 20 54 48 ┆ 1630 IF H$="*" OR H$="/" TH┆
0x1540…1560 45 4e 20 4c 45 56 45 4c 3d 34 0d 0a 20 31 36 34 30 20 20 20 49 46 20 48 24 3d 22 5e 22 20 54 48 ┆EN LEVEL=4 1640 IF H$="^" TH┆
0x1560…1580 45 4e 20 4c 45 56 45 4c 3d 35 0d 0a 20 31 36 35 30 20 20 20 49 46 20 48 24 3c 22 3a 22 20 41 4e ┆EN LEVEL=5 1650 IF H$<":" AN┆
0x1580…15a0 44 20 48 24 3e 22 2f 22 20 54 48 45 4e 20 4c 45 56 45 4c 3d 36 0d 0a 20 31 36 36 30 20 20 20 49 ┆D H$>"/" THEN LEVEL=6 1660 I┆
0x15a0…15c0 46 20 4c 45 56 45 4c 3d 2d 31 20 54 48 45 4e 20 53 56 41 52 4f 4b 3d 46 41 4c 53 45 0d 0a 20 31 ┆F LEVEL=-1 THEN SVAROK=FALSE 1┆
0x15c0…15e0 36 37 30 20 45 4e 44 50 52 4f 43 20 4c 45 56 0d 0a 20 31 36 38 30 20 52 45 4d 20 2f 2f 2d 2d 2d ┆670 ENDPROC LEV 1680 REM //---┆
0x15e0…1600 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 36 39 30 20 50 52 4f 43 20 48 5c 4a 52 45 50 41 52 41 4e ┆-------// 1690 PROC HØJREPARAN┆
0x1600…1620 54 45 53 0d 0a 20 31 37 30 30 20 20 20 57 48 49 4c 45 20 53 54 41 4b 24 28 4e 20 3a 20 31 29 3c ┆TES 1700 WHILE STAK$(N : 1)<┆
0x1620…1640 3e 22 28 22 20 44 4f 20 0d 0a 20 31 37 31 30 20 20 20 20 20 4b 3d 4b 2b 31 3b 20 50 4f 53 54 24 ┆>"(" DO 1710 K=K+1; POST$┆
0x1640…1660 28 4b 20 3a 20 31 29 3d 53 54 41 4b 24 28 4e 20 3a 20 31 29 3b 20 4e 3d 4e 2d 31 0d 0a 20 31 37 ┆(K : 1)=STAK$(N : 1); N=N-1 17┆
0x1660…1680 32 30 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 0a 20 31 37 33 30 20 20 20 4e 3d 4e 2d 31 0d 0a 20 ┆20 ENDWHILE 1730 N=N-1 ┆
0x1680…16a0 31 37 34 30 20 45 4e 44 50 52 4f 43 20 48 5c 4a 52 45 50 41 52 41 4e 54 45 53 0d 0a 20 31 37 35 ┆1740 ENDPROC HØJREPARANTES 175┆
0x16a0…16c0 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 37 36 30 20 50 52 4f 43 ┆0 REM //----------// 1760 PROC┆
0x16c0…16e0 20 41 4e 44 45 54 0d 0a 20 31 37 37 30 20 20 20 55 44 3d 46 41 4c 53 45 0d 0a 20 31 37 38 30 20 ┆ ANDET 1770 UD=FALSE 1780 ┆
0x16e0…1700 20 20 57 48 49 4c 45 20 4e 3c 3e 30 20 41 4e 44 20 55 44 3d 46 41 4c 53 45 20 44 4f 20 0d 0a 20 ┆ WHILE N<>0 AND UD=FALSE DO ┆
0x1700…1720 31 37 39 30 20 20 20 20 20 49 4e 4c 45 56 45 4c 3d 4c 45 56 45 4c 3b 20 48 24 3d 53 54 41 4b 24 ┆1790 INLEVEL=LEVEL; H$=STAK$┆
0x1720…1740 28 4e 20 3a 20 31 29 0d 0a 20 31 38 30 30 20 20 20 20 20 45 58 45 43 20 4c 45 56 0d 0a 20 31 38 ┆(N : 1) 1800 EXEC LEV 18┆
0x1740…1760 31 30 20 20 20 20 20 49 46 20 49 4e 4c 45 56 45 4c 3c 3d 4c 45 56 45 4c 20 54 48 45 4e 20 0d 0a ┆10 IF INLEVEL<=LEVEL THEN ┆
0x1760…1780 20 31 38 32 30 20 20 20 20 20 20 20 4b 3d 4b 2b 31 3b 20 50 4f 53 54 24 28 4b 20 3a 20 31 29 3d ┆ 1820 K=K+1; POST$(K : 1)=┆
0x1780…17a0 53 54 41 4b 24 28 4e 20 3a 20 31 29 3b 20 4e 3d 4e 2d 31 0d 0a 20 31 38 33 30 20 20 20 20 20 45 ┆STAK$(N : 1); N=N-1 1830 E┆
0x17a0…17c0 4c 53 45 20 0d 0a 20 31 38 34 30 20 20 20 20 20 20 20 55 44 3d 54 52 55 45 0d 0a 20 31 38 35 30 ┆LSE 1840 UD=TRUE 1850┆
0x17c0…17e0 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 38 36 30 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 0a ┆ ENDIF 1860 ENDWHILE ┆
0x17e0…1800 20 31 38 37 30 20 20 20 4e 3d 4e 2b 31 3b 20 53 54 41 4b 24 28 4e 20 3a 20 31 29 3d 49 4e 46 49 ┆ 1870 N=N+1; STAK$(N : 1)=INFI┆
0x1800…1820 58 24 28 49 20 3a 20 31 29 0d 0a 20 31 38 38 30 20 45 4e 44 50 52 4f 43 20 41 4e 44 45 54 0d 0a ┆X$(I : 1) 1880 ENDPROC ANDET ┆
0x1820…1840 20 31 38 39 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 39 30 30 20 ┆ 1890 REM //----------// 1900 ┆
0x1840…1860 50 52 4f 43 20 46 5b 52 44 49 47 41 46 53 54 41 4b 0d 0a 20 31 39 31 30 20 20 20 57 48 49 4c 45 ┆PROC FÆRDIGAFSTAK 1910 WHILE┆
0x1860…1880 20 4e 3c 3e 30 20 44 4f 20 0d 0a 20 31 39 32 30 20 20 20 20 20 4b 3d 4b 2b 31 3b 20 50 4f 53 54 ┆ N<>0 DO 1920 K=K+1; POST┆
0x1880…18a0 24 28 4b 20 3a 20 31 29 3d 53 54 41 4b 24 28 4e 20 3a 20 31 29 3b 20 4e 3d 4e 2d 31 0d 0a 20 31 ┆$(K : 1)=STAK$(N : 1); N=N-1 1┆
0x18a0…18c0 39 33 30 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 0a 20 31 39 34 30 20 45 4e 44 50 52 4f 43 20 46 ┆930 ENDWHILE 1940 ENDPROC F┆
0x18c0…18e0 5b 52 44 49 47 41 46 53 54 41 4b 0d 0a 20 31 39 35 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d ┆ÆRDIGAFSTAK 1950 REM //-------┆
0x18e0…1900 2d 2d 2d 2f 2f 0d 0a 20 31 39 36 30 20 50 52 4f 43 20 54 41 4c 56 5b 52 44 49 0d 0a 20 31 39 37 ┆---// 1960 PROC TALVÆRDI 197┆
0x1900…1920 30 20 20 20 49 2c 4e 3d 30 3b 20 44 49 56 4e 55 4c 3d 46 41 4c 53 45 0d 0a 20 31 39 38 30 20 20 ┆0 I,N=0; DIVNUL=FALSE 1980 ┆
[…truncated at 200 lines…]