DataMuseum.dk

Presents historical artifacts from the history of:

Q1 computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Q1 computer

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: 8 B C D I J M P Q R S T q r

⟦9e403ec87⟧ Bits:30008765 50001610, 8" Floppy Disk

    Length: 176808 (0x2b2a8)
    Description: Bits:30008765 50001610
    Types: 8" Floppy Disk

Namespace

flag nrec reclen rec_trk t0 tn name artifact
0 16 79 82 34 34 BITTAR ⟦793e592ec⟧ Q1_Text, reclen=79, q1file
0 25 255 30 30 30 CASINO ⟦7812c52ae⟧ Q1_HexDump, reclen=255, q1file
0 136 79 82 27 29 CASINO1 ⟦229f463b9⟧ Q1_Text, reclen=79, q1file
0 9 255 30 1 1 D ⟦d59f4422e⟧ Q1_HexDump, reclen=255, q1file
0 17 40 130 0 0 INDEX ⟦6807e0413⟧ Q1_HexDump, reclen=40, q1file
0 10 79 82 31 32 J ⟦067b430eb⟧ Q1_Text, reclen=79, q1file
0 14 255 30 3 3 MASTMIND ⟦873a4d868⟧ Q1_HexDump, reclen=255, q1file
0 37 13 225 10 14 MF ⟦c4a44df53⟧ Q1_HexDump, reclen=13, q1file
0 1 13 225 4 4 MO ⟦3286080c5⟧ Q1_HexDump, reclen=13, q1file
0 37 13 225 16 20 MS ⟦4744e269b⟧ Q1_HexDump, reclen=13, q1file
0 3 255 30 2 2 PRINT ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file
0 174 79 82 23 26 RAKN21 ⟦96f3c16e4⟧ Q1_Text, reclen=79, q1file
0 5 255 30 15 15 S ⟦f9b8e39b1⟧ Q1_HexDump, reclen=255, q1file
0 59 79 82 22 22 SKRIV1 ⟦a101e656f⟧ Q1_HexDump, reclen=79, q1file
0 8 255 30 21 21 TIPSRAD ⟦b0e822ba0⟧ Q1_HexDump, reclen=255, q1file
0 14 255 30 33 33 TJUGOETT ⟦a2728a132⟧ Q1_HexDump, reclen=255, q1file

Q1FileSystem

0x00000…00028 (0, 0, 0)    Catalog {f0=0x0000, name=»INDEX   «, nrec=0x0011, reclen=0x0028, rectrack=0x0082, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1)    Catalog {f0=0x0000, name=»D       «, nrec=0x0009, reclen=0x00ff, rectrack=0x001e, track0=0x0001, trackn=0x0001}
0x00050…00078 (0, 0, 2)    Catalog {f0=0x0000, name=»PRINT   «, nrec=0x0003, reclen=0x00ff, rectrack=0x001e, track0=0x0002, trackn=0x0002}
0x00078…000a0 (0, 0, 3)    Catalog {f0=0x0000, name=»MASTMIND«, nrec=0x000e, reclen=0x00ff, rectrack=0x001e, track0=0x0003, trackn=0x0003}
0x000a0…000c8 (0, 0, 4)    Catalog {f0=0x0000, name=»MO      «, nrec=0x0001, reclen=0x000d, rectrack=0x00e1, track0=0x0004, trackn=0x0004}
0x000c8…000f0 (0, 0, 5)    Catalog {f0=0x0000, name=»MH      «, nrec=0x0000, reclen=0x000d, rectrack=0x00e1, track0=0x0005, trackn=0x0009}
0x000f0…00118 (0, 0, 6)    Catalog {f0=0x0000, name=»MF      «, nrec=0x0025, reclen=0x000d, rectrack=0x00e1, track0=0x000a, trackn=0x000e}
0x00118…00140 (0, 0, 7)    Catalog {f0=0x0000, name=»S       «, nrec=0x0005, reclen=0x00ff, rectrack=0x001e, track0=0x000f, trackn=0x000f}
0x00140…00168 (0, 0, 8)    Catalog {f0=0x0000, name=»MS      «, nrec=0x0025, reclen=0x000d, rectrack=0x00e1, track0=0x0010, trackn=0x0014}
0x00168…00190 (0, 0, 9)    Catalog {f0=0x0000, name=»TIPSRAD «, nrec=0x0008, reclen=0x00ff, rectrack=0x001e, track0=0x0015, trackn=0x0015}
0x00190…001b8 (0, 0, 10)   Catalog {f0=0x0000, name=»SKRIV1  «, nrec=0x003b, reclen=0x004f, rectrack=0x0052, track0=0x0016, trackn=0x0016}
0x001b8…001e0 (0, 0, 11)   Catalog {f0=0x0000, name=»RAKN21  «, nrec=0x00ae, reclen=0x004f, rectrack=0x0052, track0=0x0017, trackn=0x001a}
0x001e0…00208 (0, 0, 12)   Catalog {f0=0x0000, name=»CASINO1 «, nrec=0x0088, reclen=0x004f, rectrack=0x0052, track0=0x001b, trackn=0x001d}
0x00208…00230 (0, 0, 13)   Catalog {f0=0x0000, name=»CASINO  «, nrec=0x0019, reclen=0x00ff, rectrack=0x001e, track0=0x001e, trackn=0x001e}
0x00230…00258 (0, 0, 14)   Catalog {f0=0x0000, name=»J       «, nrec=0x000a, reclen=0x004f, rectrack=0x0052, track0=0x001f, trackn=0x0020}
0x00258…00280 (0, 0, 15)   Catalog {f0=0x0000, name=»TJUGOETT«, nrec=0x000e, reclen=0x00ff, rectrack=0x001e, track0=0x0021, trackn=0x0021}
0x00280…002a8 (0, 0, 16)   Catalog {f0=0x0000, name=»BITTAR  «, nrec=0x0010, reclen=0x004f, rectrack=0x0052, track0=0x0022, trackn=0x0022}
0x002a8…002c8 (0, 0, 17)   43 cd 00 00 21 d0 40 0e 16 11 c0 42 cd 64 47 21 d0 40 11 80 00 1b 00 00 00 00 00 00 00 00 00 00   ┆C   ! @    B dG! @              ┆
0x002c8…002d0              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x002d0…002f0 (0, 0, 18)   02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x002f0…002f8              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x002f8…00320 (0, 0, 19)   0x00[0x28]
         […0x9…]
0x00488…004a8 (0, 0, 29)   00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0e 66 e7 00 00 01 00 00 00 00 00 00 00 00 00 00   ┆                 f              ┆
0x004a8…004b0              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x004b0…004d0 (0, 0, 30)   7c 40 00 00 00 00 42 10 00 f3 c5 3a 10 66 b7 ca 33 66 97 32 10 66 00 00 00 00 00 00 00 00 00 00   ┆ö@    B    : f  3f 2 f          ┆
0x004d0…004d8              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x004d8…004f8 (0, 0, 31)   2a 87 00 22 0e 66 21 1a 66 22 87 40 21 98 67 0e 80 11 00 40 1a 46 00 00 00 00 00 00 00 00 00 00   ┆*  " f! f" @! g    @ F          ┆
0x004f8…00500              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00500…00520 (0, 0, 32)   77 78 00 13 23 0d c2 3b 66 2a 15 66 eb 2a fc 40 22 15 66 eb 22 fc 00 00 00 00 00 00 00 00 00 00   ┆wx  #  ;f* f * @" f "           ┆
0x00520…00528              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00528…00548 (0, 0, 33)   40 21 00 66 11 00 42 46 1a 77 78 12 23 1c c2 5a 66 2a fe 40 eb 2a 00 00 00 00 00 00 00 00 00 00   ┆@! f  BF wx #  Zf* @ *          ┆
0x00548…00550              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00550…00570 (0, 0, 34)   13 66 00 fe 40 eb 22 13 66 21 00 00 39 eb 2a 11 66 f9 eb 22 11 66 00 00 00 00 00 00 00 00 00 00   ┆ f  @ " f!  9 * f  " f          ┆
0x00570…00578              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00578…00598 (0, 0, 35)   cd 15 00 c1 fb c9 42 10 00 f3 c5 3e 01 32 10 66 2a 0e 66 22 87 40 00 00 00 00 00 00 00 00 00 00   ┆      B    > 2 f* f" @          ┆
0x00598…005a0              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x005a0…005c0 (0, 0, 36)   c3 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ 3                              ┆
0x005c0…005c8              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x005c8…005f0 (0, 0, 37)   0x00[0x28]
         […0x2…]
0x00640…00660 (0, 0, 40)   00 00 00 00 00 00 00 00 00 8d 87 84 74 6f 67 60 59 4c 45 3e 3b 2b 00 00 00 00 00 00 00 00 00 00   ┆            tog`YLE>;+          ┆
0x00660…00668              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00668…00688 (0, 0, 41)   25 22 00 18 14 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆%"                              ┆
0x00688…00690              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00690…006b8 (0, 0, 42)   0x00[0x28]
         […0x9…]
0x00820…00840 (0, 0, 52)   00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d f5 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00840…00848              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00848…00868 (0, 0, 53)   66 f9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆f                               ┆
0x00868…00870              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00870…00898 (0, 0, 54)   0x00[0x28]
         […0x5…]
0x00960…00980 (0, 0, 60)   00 00 00 00 00 00 00 00 00 00 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00980…00988              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00988…009a8 (0, 0, 61)   00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x009a8…009b0              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x009b0…009d0 (0, 0, 62)   00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x009d0…009d8              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x009d8…009f8 (0, 0, 63)   00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x009f8…00a00              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00a00…00a20 (0, 0, 64)   00 18 00 18 00 18 00 18 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00a20…00a28              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00a28…00a50 (0, 0, 65)   0x00[0x28]
         […0xa…]
0x00be0…00c00 (0, 0, 76)   00 00 00 0d ee 67 2a 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆     g*                         ┆
0x00c00…00c08              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00c08…00c28 (0, 0, 77)   00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00c28…00c30              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00c30…00c50 (0, 0, 78)   00 18 00 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00c50…00c58              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00c58…00c80 (0, 0, 79)   0x00[0x28]
         […0x3…]
0x00cf8…00d18 (0, 0, 83)   00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00d18…00d20              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00d20…00d40 (0, 0, 84)   18 00 00 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00d40…00d48              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00d48…00d68 (0, 0, 85)   18 00 00 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00d68…00d70              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00d70…00d90 (0, 0, 86)   18 00 00 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 18 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00d90…00d98              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00d98…00db8 (0, 0, 87)   18 00 00 00 18 00 18 00 18 00 18 00 18 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
0x00db8…00dc0              00 00 00 00 00 00 00 00                                                                           ┆        ┆
0x00dc0…00de8 (0, 0, 88)   0x00[0x28]
         […0x29…]
0x01450…0154f (1, 0, 0)    DataSector[0xff]
         […0x8…]
0x01d47…01e46 (1, 0, 9)    0x00[0xff]
         […0x14…]
0x03232…03331 (2, 0, 0)    DataSector[0xff]
         […0x2…]
0x0352f…0362e (2, 0, 3)    0x00[0xff]
         […0x19…]
0x04f15…04f35 (2, 0, 29)   01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x04f35…04f55              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
         […0x5…]
0x04ff5…05014              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff      ┆                               ┆
0x05014…05113 (3, 0, 0)    DataSector[0xff]
         […0xd…]
0x05e06…05f05 (3, 0, 14)   0x00[0xff]
         […0xf…]
0x06df6…06e03 (4, 0, 0)    DataSector[0xd]
0x06e03…06e10 (4, 0, 1)    0x00[0xd]
         […0x381…]
0x09b9d…09baa (7, 0, 224)  01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x09baa…09bb7 (8, 0, 0)    0x00[0xd]
         […0xdf…]
0x0a70a…0a717 (8, 0, 224)  01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x0a717…0a724 (9, 0, 0)    0x00[0xd]
         […0xe0…]
0x0b284…0b291 (10, 0, 0)   DataSector[0xd]
         […0x24…]
0x0b465…0b472 (10, 0, 37)  0x00[0xd]
         […0x27c…]
0x0d4be…0d4cb (12, 0, 224) 00 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x0d4cb…0d4d8 (13, 0, 0)   0x00[0xd]
         […0xdf…]
0x0e02b…0e038 (13, 0, 224) 01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x0e038…0e045 (14, 0, 0)   0x00[0xd]
         […0xdf…]
0x0eb98…0eba5 (14, 0, 224) 01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x0eba5…0eca4 (15, 0, 0)   DataSector[0xff]
         […0x4…]
0x0f0a0…0f19f (15, 0, 5)   0x00[0xff]
         […0x17…]
0x10888…108a8 (15, 0, 29)  01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x108a8…108c8              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
         […0x5…]
0x10968…10987              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff      ┆                               ┆
0x10987…10994 (16, 0, 0)   DataSector[0xd]
         […0x24…]
0x10b68…10b75 (16, 0, 37)  0x00[0xd]
         […0xba…]
0x114e7…114f4 (16, 0, 224) 01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x114f4…11501 (17, 0, 0)   0x00[0xd]
         […0x2a1…]
0x1372e…1373b (19, 0, 224) 01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x1373b…13748 (20, 0, 0)   0x00[0xd]
         […0xdf…]
0x1429b…142a8 (20, 0, 224) 01 ff ff ff ff ff ff ff ff ff ff ff ff                                                            ┆             ┆
0x142a8…143a7 (21, 0, 0)   DataSector[0xff]
         […0x7…]
0x14aa0…14b9f (21, 0, 8)   0x00[0xff]
         […0x15…]
0x1608a…160d9 (22, 0, 0)   DataSector[0x4f]
         […0x3a…]
0x172bf…172df (22, 0, 59)  50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆PUT FILE(D)EDIT('***************┆
0x172df…172ff              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   ┆********************************┆
0x172ff…1730e              27 29 28 41 29 3b 45 4e 44 3b 20 20 20 20 20                                                      ┆')(A);END;     ┆
0x1730e…1732e (22, 0, 60)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 800;END;PUT FILE(D) ED┆
0x1732e…1734e              49 54 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   ┆IT                              ┆
0x1734e…1735d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1735d…1737d (22, 0, 61)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 4d 2e 53 54 45 4e 48 41 52 44 54 20 41   ┆('*********        M.STENHARDT A┆
0x1737d…1739d              42 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆B       *********')(A);         ┆
0x1739d…173ac              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x173ac…173cc (22, 0, 62)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x173cc…173ec              49 54 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   ┆IT                              ┆
0x173ec…173fb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x173fb…1741b (22, 0, 63)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 48 5b 4c 53 41 52 20 44 49 47 20 56 5b 4c 4b 4f   ┆('*********     HÄLSAR DIG VÄLKO┆
0x1741b…1743b              4d 4d 45 4e 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆MMEN    *********')(A);         ┆
0x1743b…1744a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1744a…1746a (22, 0, 64)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x1746a…1748a              49 54 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   ┆IT                              ┆
0x1748a…17499              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17499…174b9 (22, 0, 65)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4c 4c 20 20 20 20 20   ┆('*********            TILL     ┆
0x174b9…174d9              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x174d9…174e8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x174e8…17508 (22, 0, 66)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x17508…17528              49 54 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   ┆IT                              ┆
0x17528…17537              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17537…17557 (22, 0, 67)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 51 31 20 2d 20 43 41 53 49 4e 4f 20   ┆('*********         Q1 - CASINO ┆
0x17557…17577              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x17577…17586              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17586…175a6 (22, 0, 68)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 33 3b 50 55   ┆DO L=1 TO 800;END;DO L=1 TO 3;PU┆
0x175a6…175c6              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x175c6…175d5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x175d5…175f5 (22, 0, 69)  28 27 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   ┆('******************************┆
0x175f5…17615              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆*****************')             ┆
0x17615…17624              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17624…17644 (22, 0, 70)  28 41 28 34 37 29 29 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 39 30 30 3b 45 4e 44 3b 50 55   ┆(A(47));END;DO L=1 TO 900;END;PU┆
0x17644…17664              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x17664…17673              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17673…17693 (22, 0, 71)  28 27 20 27 29 28 41 28 34 37 29 29 28 27 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 20 54   ┆(' ')(A(47))('           ***   T┆
0x17693…176b3              52 59 43 4b 20 52 45 54 55 52 4e 20 20 20 2a 2a 2a 27 29 28 41 28 34 36 29 29 3b 44 4f 20 4c 3d   ┆RYCK RETURN   ***')(A(46));DO L=┆
0x176b3…176c2              31 20 54 4f 20 31 38 30 30 3b 45 4e 44 3b 20                                                      ┆1 TO 1800;END; ┆
0x176c2…176e2 (22, 0, 72)  43 41 4c 4c 20 4b 45 59 46 55 4e 28 4b 4b 4b 29 3b 49 46 20 4b 4b 4b 20 54 48 45 4e 20 47 4f 20   ┆CALL KEYFUN(KKK);IF KKK THEN GO ┆
0x176e2…17702              54 4f 20 46 4f 52 54 53 3b 47 4f 20 54 4f 20 49 47 45 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆TO FORTS;GO TO IGEN;            ┆
0x17702…17711              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x17711…17760 (22, 0, 73)  0x20[0x4f]
0x17760…17780 (22, 0, 74)  46 4f 52 54 53 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20   ┆FORTS:GET SKIP LIST(DUMB);      ┆
0x17780…177a0              20 20 20 20 20 20 4c 3d 31 3b 20 41 4d 4f 55 4e 54 3d 32 35 30 3b 20 20 20 20 20 20 20 20 20 20   ┆      L=1; AMOUNT=250;          ┆
0x177a0…177af              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x177af…177cf (22, 0, 75)  50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 34 37 29   ┆PUT FILE(D) SKIP EDIT(' ')(A(47)┆
0x177cf…177ef              29 28 27 53 50 45 4c 45 54 20 56 49 20 53 4b 41 20 53 50 45 4c 41 20 48 45 54 45 52 20 22 42 4c   ┆)('SPELET VI SKA SPELA HETER "BL┆
0x177ef…177fe              41 43 4b 4a 41 43 4b 22 27 29 20 20 20 20 20                                                      ┆ACKJACK"')     ┆
0x177fe…1781e (22, 0, 76)  28 41 28 39 34 29 29 28 27 4c 41 53 20 56 45 47 41 53 20 52 45 47 4c 45 52 20 47 5b 4c 4c 45 52   ┆(A(94))('LAS VEGAS REGLER GÄLLER┆
0x1781e…1783e              2e 27 29 28 41 28 39 34 29 29 28 27 44 55 20 46 5d 52 20 32 35 30 20 4b 52 4f 4e 4f 52 20 41 54   ┆.')(A(94))('DU FÅR 250 KRONOR AT┆
0x1783e…1784d              54 20 53 54 41 52 54 41 20 4d 45 44 2e 27 29                                                      ┆T STARTA MED.')┆
0x1784d…1786d (22, 0, 77)  28 41 28 39 34 29 29 28 27 54 52 59 43 4b 20 52 45 54 55 52 4e 27 29 28 41 28 34 36 29 29 3b 47   ┆(A(94))('TRYCK RETURN')(A(46));G┆
0x1786d…1788d              45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ET SKIP LIST(DUMB);             ┆
0x1788d…1789c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1789c…178bc (22, 0, 78)  43 41 4c 4c 20 53 48 55 46 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆CALL SHUFF;                     ┆
0x178bc…178dc              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   ┆                                ┆
0x178dc…178eb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x178eb…1790b (22, 0, 79)  47 41 4d 45 3a 20 44 4f 20 49 3d 31 20 54 4f 20 39 3b 20 4c 49 4e 45 28 49 29 3d 42 4c 4b 3b 20   ┆GAME: DO I=1 TO 9; LINE(I)=BLK; ┆
0x1790b…1792b              45 4e 44 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 20   ┆END;                            ┆
0x1792b…1793a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1793a…1795a (22, 0, 80)  20 20 20 49 46 20 41 4d 4f 55 4e 54 7f 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 47 47 41 41 3b 20   ┆   IF AMOUNT =0 THEN GOTO GGAA; ┆
0x1795a…1797a              50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 55 20 5b 52 20 50 41 4e 4b   ┆PUT FILE(D)SKIP EDIT('DU ÄR PANK┆
0x1797a…17989              21 21 21 27 29 28 41 28 39 34 29 29 20 20 20                                                      ┆!!!')(A(94))   ┆
0x17989…179a9 (22, 0, 81)  28 27 4a 41 47 20 46 49 4e 4e 53 20 41 4c 4c 54 49 44 20 48 5b 52 20 44 5d 20 44 55 20 4b 5b 4e   ┆('JAG FINNS ALLTID HÄR DÅ DU KÄN┆
0x179a9…179c9              4e 45 52 27 29 28 41 28 34 37 29 29 28 27 46 5c 52 20 41 54 54 20 46 5c 52 4c 4f 52 41 20 4d 45   ┆NER')(A(47))('FÖR ATT FÖRLORA ME┆
0x179c9…179d8              52 20 50 45 4e 47 41 52 2e 2e 2e 2e 2e 27 29                                                      ┆R PENGAR.....')┆
0x179d8…17a27 (23, 0, 0)   DataSector[0x4f]
         […0xad…]
0x1af8a…1afaa (25, 0, 10)  20 20 20 20 20 41 36 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A600:                      ┆
0x1afaa…1afca              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   ┆                                ┆
0x1afca…1afd9              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1afd9…1aff9 (25, 0, 11)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1aff9…1b019              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1b019…1b028              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1b028…1b048 (25, 0, 12)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1b048…1b068              28 27 20 37 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 20 38 2c   ┆(' 7   ') (A(5)) ('           8,┆
0x1b068…1b077              20 39 27 29 20 28 41 28 31 36 29 29 20 20 20                                                      ┆ 9') (A(16))   ┆
0x1b077…1b097 (25, 0, 13)  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   ┆                                ┆
0x1b097…1b0b7              28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(' ') (A(26));                  ┆
0x1b0b7…1b0c6              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b0c6…1b0e6 (25, 0, 14)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 37 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A700;       ┆
0x1b0e6…1b106              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   ┆                                ┆
0x1b106…1b115              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b115…1b135 (25, 0, 15)  20 20 20 20 20 41 36 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A650:                      ┆
0x1b135…1b155              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   ┆                                ┆
0x1b155…1b164              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b164…1b184 (25, 0, 16)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1b184…1b1a4              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1b1a4…1b1b3              4f 52 27 29 20 28 41 34 37 29 29 3b 20 20 20                                                      ┆OR') (A47));   ┆
0x1b1b3…1b1d3 (25, 0, 17)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1b1d3…1b1f3              28 27 20 37 2c 20 38 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 20 39 20   ┆(' 7, 8') (A(5)) ('           9 ┆
0x1b1f3…1b202              20 20 27 29 20 20 20 20 20 20 20 20 20 20 20                                                      ┆  ')           ┆
0x1b202…1b222 (25, 0, 18)  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 28 41   ┆                              (A┆
0x1b222…1b242              28 31 36 29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆(16)) (' ') (A(26));            ┆
0x1b242…1b251              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b251…1b271 (25, 0, 19)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 37 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A700;       ┆
0x1b271…1b291              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   ┆                                ┆
0x1b291…1b2a0              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b2a0…1b2c0 (25, 0, 20)  20 20 20 20 20 41 37 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A700:                      ┆
0x1b2c0…1b2e0              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   ┆                                ┆
0x1b2e0…1b2ef              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b2ef…1b30f (25, 0, 21)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 34 29 3b 20 20 20   ┆              GET LIST (DS4);   ┆
0x1b30f…1b32f              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   ┆                                ┆
0x1b32f…1b33e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b33e…1b35e (25, 0, 22)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 31 30 20 20 27 20 54 48   ┆              IF DS4 = '10  ' TH┆
0x1b35e…1b37e              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1b37e…1b38d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b38d…1b3ad (25, 0, 23)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 20 31 30 20 27 20 54 48   ┆              IF DS4 = ' 10 ' TH┆
0x1b3ad…1b3cd              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1b3cd…1b3dc              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b3dc…1b3fc (25, 0, 24)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 20 20 31 30 27 20 54 48   ┆              IF DS4 = '  10' TH┆
0x1b3fc…1b41c              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1b41c…1b42b              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b42b…1b44b (25, 0, 25)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 31 30 31 31 27 20 54 48   ┆              IF DS4 = '1011' TH┆
0x1b44b…1b46b              45 4e 20 47 4f 20 54 4f 20 41 38 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A850;                  ┆
0x1b46b…1b47a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b47a…1b49a (25, 0, 26)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1b49a…1b4ba              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   ┆                                ┆
0x1b4ba…1b4c9              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b4c9…1b4e9 (25, 0, 27)  20 20 20 20 20 41 38 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A800:                      ┆
0x1b4e9…1b509              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   ┆                                ┆
0x1b509…1b518              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b518…1b538 (25, 0, 28)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1b538…1b558              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1b558…1b567              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1b567…1b587 (25, 0, 29)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1b587…1b5a7              28 27 31 30 20 20 20 27 29 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28 27   ┆('10   ')(A(5)) (' ') (A(10)) ('┆
0x1b5a7…1b5b6              31 31 2c 31 32 27 29 20 20 20 20 20 20 20 20                                                      ┆11,12')        ┆
0x1b5b6…1b5d6 (25, 0, 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 20 20 20 20 20 20 28   ┆                               (┆
0x1b5d6…1b5f6              41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆A(5)) (' ') (A(27));            ┆
0x1b5f6…1b605              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b605…1b625 (25, 0, 31)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 39 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A900;       ┆
0x1b625…1b645              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   ┆                                ┆
0x1b645…1b654              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b654…1b674 (25, 0, 32)  20 20 20 20 20 41 38 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A850:                      ┆
0x1b674…1b694              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   ┆                                ┆
0x1b694…1b6a3              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b6a3…1b6c3 (25, 0, 33)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1b6c3…1b6e3              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1b6e3…1b6f2              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1b6f2…1b712 (25, 0, 34)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1b712…1b732              28 27 31 30 2c 31 31 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 31 32 20   ┆('10,11') (A(5)) ('          12 ┆
0x1b732…1b741              20 20 27 29 20 20 20 20 20 20 20 20 20 20 20                                                      ┆  ')           ┆
0x1b741…1b761 (25, 0, 35)  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 28 41 28 31 36   ┆                           (A(16┆
0x1b761…1b781              29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆)) (' ') (A(26));               ┆
0x1b781…1b790              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b790…1b7b0 (25, 0, 36)  20 20 20 20 20 41 39 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A900:                      ┆
0x1b7b0…1b7d0              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   ┆                                ┆
0x1b7d0…1b7df              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b7df…1b7ff (25, 0, 37)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 35 29 3b 20 20 20   ┆              GET LIST (DS5);   ┆
0x1b7ff…1b81f              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   ┆                                ┆
0x1b81f…1b82e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b82e…1b84e (25, 0, 38)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 31 33 20 20 20 27 20 54   ┆              IF DS5 = '13   ' T┆
0x1b84e…1b86e              48 45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆HEN GO TO A1000;                ┆
0x1b86e…1b87d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b87d…1b89d (25, 0, 39)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 20 31 33 20 27 20 54 48   ┆              IF DS5 = ' 13 ' TH┆
0x1b89d…1b8bd              45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1000;                 ┆
0x1b8bd…1b8cc              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b8cc…1b8ec (25, 0, 40)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 20 20 31 33 27 20 54 48   ┆              IF DS5 = '  13' TH┆
0x1b8ec…1b90c              45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1000;                 ┆
0x1b90c…1b91b              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b91b…1b93b (25, 0, 41)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 31 33 31 34 27 20 54 48   ┆              IF DS5 = '1314' TH┆
0x1b93b…1b95b              45 4e 20 47 4f 20 54 4f 20 41 31 30 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1050;                 ┆
0x1b95b…1b96a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b96a…1b98a (25, 0, 42)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1b98a…1b9aa              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   ┆                                ┆
0x1b9aa…1b9b9              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1b9b9…1b9d9 (25, 0, 43)  20 20 20 20 20 41 31 30 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1000:                     ┆
0x1b9d9…1b9f9              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   ┆                                ┆
0x1b9f9…1ba08              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ba08…1ba28 (25, 0, 44)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1ba28…1ba48              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1ba48…1ba57              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1ba57…1ba77 (25, 0, 45)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1ba77…1ba97              28 27 31 33 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('13   ') (A(5)) (' ') (A(10)) (┆
0x1ba97…1baa6              27 31 34 2c 31 35 27 29 20 20 20 20 20 20 20                                                      ┆'14,15')       ┆
0x1baa6…1bac6 (25, 0, 46)  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 28 41   ┆                              (A┆
0x1bac6…1bae6              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(27));             ┆
0x1bae6…1baf5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1baf5…1bb15 (25, 0, 47)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 31 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1100;      ┆
0x1bb15…1bb35              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   ┆                                ┆
0x1bb35…1bb44              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bb44…1bb64 (25, 0, 48)  20 20 20 20 20 41 31 30 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1050:                     ┆
0x1bb64…1bb84              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   ┆                                ┆
0x1bb84…1bb93              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bb93…1bbb3 (25, 0, 49)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1bbb3…1bbd3              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1bbd3…1bbe2              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1bbe2…1bc02 (25, 0, 50)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1bc02…1bc22              28 27 31 33 2c 31 34 27 29 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28 27   ┆('13,14')(A(5)) (' ') (A(10)) ('┆
0x1bc22…1bc31              31 35 20 20 20 27 29 20 20 20 20 20 20 20 20                                                      ┆15   ')        ┆
0x1bc31…1bc51 (25, 0, 51)  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 28 41   ┆                              (A┆
0x1bc51…1bc71              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(26));             ┆
0x1bc71…1bc80              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bc80…1bca0 (25, 0, 52)  20 20 20 20 20 41 31 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1100:                     ┆
0x1bca0…1bcc0              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   ┆                                ┆
0x1bcc0…1bccf              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bccf…1bcef (25, 0, 53)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 36 29 3b 20 20 20   ┆              GET LIST (DS6);   ┆
0x1bcef…1bd0f              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   ┆                                ┆
0x1bd0f…1bd1e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bd1e…1bd3e (25, 0, 54)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 31 36 20 20 27 20 54 48   ┆              IF DS6 = '16  ' TH┆
0x1bd3e…1bd5e              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1bd5e…1bd6d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bd6d…1bd8d (25, 0, 55)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 20 31 36 20 27 20 54 48   ┆              IF DS6 = ' 16 ' TH┆
0x1bd8d…1bdad              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1bdad…1bdbc              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bdbc…1bddc (25, 0, 56)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 20 20 31 36 27 20 54 48   ┆              IF DS6 = '  16' TH┆
0x1bddc…1bdfc              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1bdfc…1be0b              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1be0b…1be2b (25, 0, 57)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 31 36 31 37 27 20 54 48   ┆              IF DS6 = '1617' TH┆
0x1be2b…1be4b              45 4e 20 47 4f 20 54 4f 20 41 31 32 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1250;                 ┆
0x1be4b…1be5a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1be5a…1be7a (25, 0, 58)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1be7a…1be9a              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   ┆                                ┆
0x1be9a…1bea9              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bea9…1bec9 (25, 0, 59)  20 20 20 20 20 41 31 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1200:                     ┆
0x1bec9…1bee9              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   ┆                                ┆
0x1bee9…1bef8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bef8…1bf18 (25, 0, 60)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1bf18…1bf38              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 4f   ┆EDIT ('DINA SIFFROR   MINA SIFFO┆
0x1bf38…1bf47              52 4f 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆RO') (A(47));  ┆
0x1bf47…1bf67 (25, 0, 61)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1bf67…1bf87              28 27 31 36 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('16   ') (A(5)) (' ') (A(10)) (┆
0x1bf87…1bf96              27 31 37 2c 31 38 27 29 20 20 20 20 20 20 20                                                      ┆'17,18')       ┆
0x1bf96…1bfb6 (25, 0, 62)  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 28 41   ┆                              (A┆
0x1bfb6…1bfd6              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(27));             ┆
0x1bfd6…1bfe5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1bfe5…1c005 (25, 0, 63)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 33 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1300;      ┆
0x1c005…1c025              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   ┆                                ┆
0x1c025…1c034              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c034…1c054 (25, 0, 64)  20 20 20 20 20 41 31 32 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1250:                     ┆
0x1c054…1c074              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   ┆                                ┆
0x1c074…1c083              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c083…1c0a3 (25, 0, 65)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1c0a3…1c0c3              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1c0c3…1c0d2              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1c0d2…1c0f2 (25, 0, 66)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c0f2…1c112              28 27 31 36 2c 31 37 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('16,17') (A(5)) (' ') (A(10)) (┆
0x1c112…1c121              27 31 38 20 20 20 27 29 20 20 20 20 20 20 20                                                      ┆'18   ')       ┆
0x1c121…1c141 (25, 0, 67)  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 28 41 28 35 29   ┆                           (A(5)┆
0x1c141…1c161              29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆) (' ') (A(26));                ┆
0x1c161…1c170              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c170…1c190 (25, 0, 68)  20 20 20 20 20 41 31 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1300:                     ┆
0x1c190…1c1b0              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   ┆                                ┆
0x1c1b0…1c1bf              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c1bf…1c1df (25, 0, 69)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 37 29 3b 20 20 20   ┆              GET LIST (DS7);   ┆
0x1c1df…1c1ff              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   ┆                                ┆
0x1c1ff…1c20e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c20e…1c22e (25, 0, 70)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 31 39 20 20 27 20 54 48   ┆              IF DS7 = '19  ' TH┆
0x1c22e…1c24e              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1c24e…1c25d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c25d…1c27d (25, 0, 71)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 20 31 39 20 27 20 54 48   ┆              IF DS7 = ' 19 ' TH┆
0x1c27d…1c29d              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1c29d…1c2ac              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c2ac…1c2cc (25, 0, 72)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 20 20 31 39 27 20 54 48   ┆              IF DS7 = '  19' TH┆
0x1c2cc…1c2ec              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1c2ec…1c2fb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c2fb…1c31b (25, 0, 73)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 31 39 32 30 27 20 54 48   ┆              IF DS7 = '1920' TH┆
0x1c31b…1c33b              45 4e 20 47 4f 20 54 4f 20 41 31 34 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1450;                 ┆
0x1c33b…1c34a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c34a…1c36a (25, 0, 74)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1c36a…1c38a              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   ┆                                ┆
0x1c38a…1c399              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c399…1c3b9 (25, 0, 75)  20 20 20 20 20 41 31 34 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1400:                     ┆
0x1c3b9…1c3d9              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   ┆                                ┆
0x1c3d9…1c3e8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c3e8…1c408 (25, 0, 76)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1c408…1c428              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1c428…1c437              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1c437…1c457 (25, 0, 77)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c457…1c477              28 27 31 39 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('19   ') (A(5)) (' ') (A(10)) (┆
0x1c477…1c486              27 32 30 2c 32 31 27 29 20 20 20 20 20 20 20                                                      ┆'20,21')       ┆
0x1c486…1c4a6 (25, 0, 78)  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 28 41 28 35 29   ┆                           (A(5)┆
0x1c4a6…1c4c6              29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆) (' ') (A(27));                ┆
0x1c4c6…1c4d5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c4d5…1c4f5 (25, 0, 79)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1500;      ┆
0x1c4f5…1c515              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   ┆                                ┆
0x1c515…1c524              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c524…1c544 (25, 0, 80)  20 20 20 20 20 41 31 34 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1450:                     ┆
0x1c544…1c564              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   ┆                                ┆
0x1c564…1c573              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c573…1c593 (25, 0, 81)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1c593…1c5b3              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1c5b3…1c5c2              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1c5c2…1c5e2 (26, 0, 0)   20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c5e2…1c602              28 27 31 39 2c 32 30 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('19,20') (A(5)) (' ') (A(10)) (┆
0x1c602…1c611              27 32 31 20 20 20 27 29 20 20 20 20 20 20 20                                                      ┆'21   ')       ┆
0x1c611…1c631 (26, 0, 1)   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 28 41 28 35   ┆                            (A(5┆
0x1c631…1c651              29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆)) (' ') (A(26));               ┆
0x1c651…1c660              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c660…1c680 (26, 0, 2)   20 20 20 20 20 41 31 35 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1500:                     ┆
0x1c680…1c6a0              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   ┆                                ┆
0x1c6a0…1c6af              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c6af…1c6cf (26, 0, 3)   20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c6cf…1c6ef              28 27 42 45 4b 4c 41 47 41 52 2c 20 4d 45 4e 20 44 55 20 46 5c 52 4c 4f 52 41 44 45 27 29 20 28   ┆('BEKLAGAR, MEN DU FÖRLORADE') (┆
0x1c6ef…1c6fe              41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20                                                      ┆A(47));        ┆
0x1c6fe…1c71e (26, 0, 4)   20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c71e…1c73e              28 27 53 4b 41 20 56 49 20 46 5c 52 53 5c 4b 41 20 49 47 45 4e 2c 20 4a 20 65 6c 6c 65 72 20 4e   ┆('SKA VI FÖRSÖKA IGEN, J eller N┆
0x1c73e…1c74d              20 3f 27 29 20 28 41 28 34 36 29 29 3b 20 20                                                      ┆ ?') (A(46));  ┆
0x1c74d…1c76d (26, 0, 5)   20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 53 56 41 52 29 3b 20 20   ┆              GET LIST (SVAR);  ┆
0x1c76d…1c78d              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   ┆                                ┆
0x1c78d…1c79c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c79c…1c7bc (26, 0, 6)   20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 3d 20 27 4a 27 20 54 48 45 4e 20 47   ┆            IF SVAR = 'J' THEN G┆
0x1c7bc…1c7dc              4f 20 54 4f 20 41 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆O TO A100;                      ┆
0x1c7dc…1c7eb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c7eb…1c80b (26, 0, 7)   20 20 20 44 39 39 39 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆   D999:                        ┆
0x1c80b…1c82b              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   ┆                                ┆
0x1c82b…1c83a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c83a…1c85a (26, 0, 8)   20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆            END;                ┆
0x1c85a…1c87a              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   ┆                                ┆
0x1c87a…1c889              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c889…1c8d8 (26, 0, 9)   0x20[0x4f]
0x1c8d8…1c8f8 (26, 0, 10)  20 20 20 20 20 41 36 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A600:                      ┆
0x1c8f8…1c918              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   ┆                                ┆
0x1c918…1c927              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1c927…1c947 (26, 0, 11)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1c947…1c967              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1c967…1c976              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1c976…1c996 (26, 0, 12)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1c996…1c9b6              28 27 20 37 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 20 38 2c   ┆(' 7   ') (A(5)) ('           8,┆
0x1c9b6…1c9c5              20 39 27 29 20 28 41 28 31 36 29 29 20 20 20                                                      ┆ 9') (A(16))   ┆
0x1c9c5…1c9e5 (26, 0, 13)  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   ┆                                ┆
0x1c9e5…1ca05              28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(' ') (A(26));                  ┆
0x1ca05…1ca14              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ca14…1ca34 (26, 0, 14)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 37 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A700;       ┆
0x1ca34…1ca54              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   ┆                                ┆
0x1ca54…1ca63              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ca63…1ca83 (26, 0, 15)  20 20 20 20 20 41 36 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A650:                      ┆
0x1ca83…1caa3              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   ┆                                ┆
0x1caa3…1cab2              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cab2…1cad2 (26, 0, 16)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1cad2…1caf2              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1caf2…1cb01              4f 52 27 29 20 28 41 34 37 29 29 3b 20 20 20                                                      ┆OR') (A47));   ┆
0x1cb01…1cb21 (26, 0, 17)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1cb21…1cb41              28 27 20 37 2c 20 38 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 20 39 20   ┆(' 7, 8') (A(5)) ('           9 ┆
0x1cb41…1cb50              20 20 27 29 20 20 20 20 20 20 20 20 20 20 20                                                      ┆  ')           ┆
0x1cb50…1cb70 (26, 0, 18)  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 28 41   ┆                              (A┆
0x1cb70…1cb90              28 31 36 29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆(16)) (' ') (A(26));            ┆
0x1cb90…1cb9f              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cb9f…1cbbf (26, 0, 19)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 37 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A700;       ┆
0x1cbbf…1cbdf              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   ┆                                ┆
0x1cbdf…1cbee              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cbee…1cc0e (26, 0, 20)  20 20 20 20 20 41 37 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A700:                      ┆
0x1cc0e…1cc2e              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   ┆                                ┆
0x1cc2e…1cc3d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cc3d…1cc5d (26, 0, 21)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 34 29 3b 20 20 20   ┆              GET LIST (DS4);   ┆
0x1cc5d…1cc7d              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   ┆                                ┆
0x1cc7d…1cc8c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cc8c…1ccac (26, 0, 22)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 31 30 20 20 27 20 54 48   ┆              IF DS4 = '10  ' TH┆
0x1ccac…1cccc              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1cccc…1ccdb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ccdb…1ccfb (26, 0, 23)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 20 31 30 20 27 20 54 48   ┆              IF DS4 = ' 10 ' TH┆
0x1ccfb…1cd1b              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1cd1b…1cd2a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cd2a…1cd4a (26, 0, 24)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 20 20 31 30 27 20 54 48   ┆              IF DS4 = '  10' TH┆
0x1cd4a…1cd6a              45 4e 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A800;                  ┆
0x1cd6a…1cd79              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cd79…1cd99 (26, 0, 25)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 34 20 3d 20 27 31 30 31 31 27 20 54 48   ┆              IF DS4 = '1011' TH┆
0x1cd99…1cdb9              45 4e 20 47 4f 20 54 4f 20 41 38 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A850;                  ┆
0x1cdb9…1cdc8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cdc8…1cde8 (26, 0, 26)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1cde8…1ce08              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   ┆                                ┆
0x1ce08…1ce17              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ce17…1ce37 (26, 0, 27)  20 20 20 20 20 41 38 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A800:                      ┆
0x1ce37…1ce57              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   ┆                                ┆
0x1ce57…1ce66              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1ce66…1ce86 (26, 0, 28)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1ce86…1cea6              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1cea6…1ceb5              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1ceb5…1ced5 (26, 0, 29)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1ced5…1cef5              28 27 31 30 20 20 20 27 29 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28 27   ┆('10   ')(A(5)) (' ') (A(10)) ('┆
0x1cef5…1cf04              31 31 2c 31 32 27 29 20 20 20 20 20 20 20 20                                                      ┆11,12')        ┆
0x1cf04…1cf24 (26, 0, 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 20 20 20 20 20 20 28   ┆                               (┆
0x1cf24…1cf44              41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆A(5)) (' ') (A(27));            ┆
0x1cf44…1cf53              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cf53…1cf73 (26, 0, 31)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 39 30 30 3b 20 20 20 20 20 20 20   ┆              GO TO A900;       ┆
0x1cf73…1cf93              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   ┆                                ┆
0x1cf93…1cfa2              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cfa2…1cfc2 (26, 0, 32)  20 20 20 20 20 41 38 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A850:                      ┆
0x1cfc2…1cfe2              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   ┆                                ┆
0x1cfe2…1cff1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1cff1…1d011 (26, 0, 33)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1d011…1d031              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1d031…1d040              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1d040…1d060 (26, 0, 34)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1d060…1d080              28 27 31 30 2c 31 31 27 29 20 28 41 28 35 29 29 20 28 27 20 20 20 20 20 20 20 20 20 20 31 32 20   ┆('10,11') (A(5)) ('          12 ┆
0x1d080…1d08f              20 20 27 29 20 20 20 20 20 20 20 20 20 20 20                                                      ┆  ')           ┆
0x1d08f…1d0af (26, 0, 35)  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 28 41 28 31 36   ┆                           (A(16┆
0x1d0af…1d0cf              29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆)) (' ') (A(26));               ┆
0x1d0cf…1d0de              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d0de…1d0fe (26, 0, 36)  20 20 20 20 20 41 39 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A900:                      ┆
0x1d0fe…1d11e              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   ┆                                ┆
0x1d11e…1d12d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d12d…1d14d (26, 0, 37)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 35 29 3b 20 20 20   ┆              GET LIST (DS5);   ┆
0x1d14d…1d16d              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   ┆                                ┆
0x1d16d…1d17c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d17c…1d19c (26, 0, 38)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 31 33 20 20 20 27 20 54   ┆              IF DS5 = '13   ' T┆
0x1d19c…1d1bc              48 45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆HEN GO TO A1000;                ┆
0x1d1bc…1d1cb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d1cb…1d1eb (26, 0, 39)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 20 31 33 20 27 20 54 48   ┆              IF DS5 = ' 13 ' TH┆
0x1d1eb…1d20b              45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1000;                 ┆
0x1d20b…1d21a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d21a…1d23a (26, 0, 40)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 20 20 31 33 27 20 54 48   ┆              IF DS5 = '  13' TH┆
0x1d23a…1d25a              45 4e 20 47 4f 20 54 4f 20 41 31 30 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1000;                 ┆
0x1d25a…1d269              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d269…1d289 (26, 0, 41)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 35 20 3d 20 27 31 33 31 34 27 20 54 48   ┆              IF DS5 = '1314' TH┆
0x1d289…1d2a9              45 4e 20 47 4f 20 54 4f 20 41 31 30 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1050;                 ┆
0x1d2a9…1d2b8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d2b8…1d2d8 (26, 0, 42)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1d2d8…1d2f8              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   ┆                                ┆
0x1d2f8…1d307              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d307…1d327 (26, 0, 43)  20 20 20 20 20 41 31 30 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1000:                     ┆
0x1d327…1d347              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   ┆                                ┆
0x1d347…1d356              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d356…1d376 (26, 0, 44)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1d376…1d396              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1d396…1d3a5              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1d3a5…1d3c5 (26, 0, 45)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1d3c5…1d3e5              28 27 31 33 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('13   ') (A(5)) (' ') (A(10)) (┆
0x1d3e5…1d3f4              27 31 34 2c 31 35 27 29 20 20 20 20 20 20 20                                                      ┆'14,15')       ┆
0x1d3f4…1d414 (26, 0, 46)  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 28 41   ┆                              (A┆
0x1d414…1d434              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(27));             ┆
0x1d434…1d443              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d443…1d463 (26, 0, 47)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 31 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1100;      ┆
0x1d463…1d483              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   ┆                                ┆
0x1d483…1d492              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d492…1d4b2 (26, 0, 48)  20 20 20 20 20 41 31 30 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1050:                     ┆
0x1d4b2…1d4d2              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   ┆                                ┆
0x1d4d2…1d4e1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d4e1…1d501 (26, 0, 49)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1d501…1d521              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1d521…1d530              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1d530…1d550 (26, 0, 50)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1d550…1d570              28 27 31 33 2c 31 34 27 29 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28 27   ┆('13,14')(A(5)) (' ') (A(10)) ('┆
0x1d570…1d57f              31 35 20 20 20 27 29 20 20 20 20 20 20 20 20                                                      ┆15   ')        ┆
0x1d57f…1d59f (26, 0, 51)  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 28 41   ┆                              (A┆
0x1d59f…1d5bf              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(26));             ┆
0x1d5bf…1d5ce              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d5ce…1d5ee (26, 0, 52)  20 20 20 20 20 41 31 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1100:                     ┆
0x1d5ee…1d60e              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   ┆                                ┆
0x1d60e…1d61d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d61d…1d63d (26, 0, 53)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 36 29 3b 20 20 20   ┆              GET LIST (DS6);   ┆
0x1d63d…1d65d              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   ┆                                ┆
0x1d65d…1d66c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d66c…1d68c (26, 0, 54)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 31 36 20 20 27 20 54 48   ┆              IF DS6 = '16  ' TH┆
0x1d68c…1d6ac              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1d6ac…1d6bb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d6bb…1d6db (26, 0, 55)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 20 31 36 20 27 20 54 48   ┆              IF DS6 = ' 16 ' TH┆
0x1d6db…1d6fb              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1d6fb…1d70a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d70a…1d72a (26, 0, 56)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 20 20 31 36 27 20 54 48   ┆              IF DS6 = '  16' TH┆
0x1d72a…1d74a              45 4e 20 47 4f 20 54 4f 20 41 31 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1200;                 ┆
0x1d74a…1d759              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d759…1d779 (26, 0, 57)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 36 20 3d 20 27 31 36 31 37 27 20 54 48   ┆              IF DS6 = '1617' TH┆
0x1d779…1d799              45 4e 20 47 4f 20 54 4f 20 41 31 32 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1250;                 ┆
0x1d799…1d7a8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d7a8…1d7c8 (26, 0, 58)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1d7c8…1d7e8              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   ┆                                ┆
0x1d7e8…1d7f7              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d7f7…1d817 (26, 0, 59)  20 20 20 20 20 41 31 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1200:                     ┆
0x1d817…1d837              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   ┆                                ┆
0x1d837…1d846              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d846…1d866 (26, 0, 60)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1d866…1d886              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 4f   ┆EDIT ('DINA SIFFROR   MINA SIFFO┆
0x1d886…1d895              52 4f 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆RO') (A(47));  ┆
0x1d895…1d8b5 (26, 0, 61)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1d8b5…1d8d5              28 27 31 36 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('16   ') (A(5)) (' ') (A(10)) (┆
0x1d8d5…1d8e4              27 31 37 2c 31 38 27 29 20 20 20 20 20 20 20                                                      ┆'17,18')       ┆
0x1d8e4…1d904 (26, 0, 62)  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 28 41   ┆                              (A┆
0x1d904…1d924              28 35 29 29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆(5)) (' ') (A(27));             ┆
0x1d924…1d933              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d933…1d953 (26, 0, 63)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 33 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1300;      ┆
0x1d953…1d973              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   ┆                                ┆
0x1d973…1d982              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d982…1d9a2 (26, 0, 64)  20 20 20 20 20 41 31 32 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1250:                     ┆
0x1d9a2…1d9c2              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   ┆                                ┆
0x1d9c2…1d9d1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1d9d1…1d9f1 (26, 0, 65)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1d9f1…1da11              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1da11…1da20              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1da20…1da40 (26, 0, 66)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1da40…1da60              28 27 31 36 2c 31 37 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('16,17') (A(5)) (' ') (A(10)) (┆
0x1da60…1da6f              27 31 38 20 20 20 27 29 20 20 20 20 20 20 20                                                      ┆'18   ')       ┆
0x1da6f…1da8f (26, 0, 67)  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 28 41 28 35 29   ┆                           (A(5)┆
0x1da8f…1daaf              29 20 28 27 20 27 29 20 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆) (' ') (A(26));                ┆
0x1daaf…1dabe              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dabe…1dade (26, 0, 68)  20 20 20 20 20 41 31 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1300:                     ┆
0x1dade…1dafe              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   ┆                                ┆
0x1dafe…1db0d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1db0d…1db2d (26, 0, 69)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 20 28 44 53 37 29 3b 20 20 20   ┆              GET LIST (DS7);   ┆
0x1db2d…1db4d              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   ┆                                ┆
0x1db4d…1db5c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1db5c…1db7c (26, 0, 70)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 31 39 20 20 27 20 54 48   ┆              IF DS7 = '19  ' TH┆
0x1db7c…1db9c              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1db9c…1dbab              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dbab…1dbcb (26, 0, 71)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 20 31 39 20 27 20 54 48   ┆              IF DS7 = ' 19 ' TH┆
0x1dbcb…1dbeb              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1dbeb…1dbfa              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dbfa…1dc1a (26, 0, 72)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 20 20 31 39 27 20 54 48   ┆              IF DS7 = '  19' TH┆
0x1dc1a…1dc3a              45 4e 20 47 4f 20 54 4f 20 41 31 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1400;                 ┆
0x1dc3a…1dc49              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dc49…1dc69 (26, 0, 73)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 53 37 20 3d 20 27 31 39 32 30 27 20 54 48   ┆              IF DS7 = '1920' TH┆
0x1dc69…1dc89              45 4e 20 47 4f 20 54 4f 20 41 31 34 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EN GO TO A1450;                 ┆
0x1dc89…1dc98              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dc98…1dcb8 (26, 0, 74)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 3b 20 20 20 20 20 20 20   ┆              GO TO A150;       ┆
0x1dcb8…1dcd8              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   ┆                                ┆
0x1dcd8…1dce7              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dce7…1dd07 (26, 0, 75)  20 20 20 20 20 41 31 34 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1400:                     ┆
0x1dd07…1dd27              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   ┆                                ┆
0x1dd27…1dd36              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dd36…1dd56 (26, 0, 76)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1dd56…1dd76              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1dd76…1dd85              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1dd85…1dda5 (26, 0, 77)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20   ┆              PUT FILE (D) EDIT ┆
0x1dda5…1ddc5              28 27 31 39 20 20 20 27 29 20 28 41 28 35 29 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28   ┆('19   ') (A(5)) (' ') (A(10)) (┆
0x1ddc5…1ddd4              27 32 30 2c 32 31 27 29 20 20 20 20 20 20 20                                                      ┆'20,21')       ┆
0x1ddd4…1ddf4 (26, 0, 78)  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 28 41 28 35 29   ┆                           (A(5)┆
0x1ddf4…1de14              29 20 28 27 20 27 29 20 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆) (' ') (A(27));                ┆
0x1de14…1de23              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1de23…1de43 (26, 0, 79)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 30 30 3b 20 20 20 20 20 20   ┆              GO TO A1500;      ┆
0x1de43…1de63              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   ┆                                ┆
0x1de63…1de72              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1de72…1de92 (26, 0, 80)  20 20 20 20 20 41 31 34 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     A1450:                     ┆
0x1de92…1deb2              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   ┆                                ┆
0x1deb2…1dec1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x1dec1…1dee1 (26, 0, 81)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20   ┆              PUT FILE (D) SKIP ┆
0x1dee1…1df01              45 44 49 54 20 28 27 44 49 4e 41 20 53 49 46 46 52 4f 52 20 20 20 4d 49 4e 41 20 53 49 46 46 52   ┆EDIT ('DINA SIFFROR   MINA SIFFR┆
0x1df01…1df10              4f 52 27 29 20 28 41 28 34 37 29 29 3b 20 20                                                      ┆OR') (A(47));  ┆
0x1df10…1df5f (27, 0, 0)   DataSector[0x4f]
         […0x87…]
0x20908…20928 (28, 0, 54)  20 50 32 32 3a 44 4c 49 4e 3d 43 4c 49 4e 20 43 41 54 20 27 20 20 20 27 3b 50 32 33 3a 20 4c 49   ┆ P22:DLIN=CLIN CAT '   ';P23: LI┆
0x20928…20948              4e 45 28 4c 4c 29 3d 44 4c 49 4e 20 43 41 54 20 42 4c 49 4e 3b 20 20 20 20 20 20 20 20 20 20 20   ┆NE(LL)=DLIN CAT BLIN;           ┆
0x20948…20957              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20957…20977 (28, 0, 55)  50 50 3a 20 4c 4c 3d 4c 4c 2b 31 3b 20 52 45 54 55 52 4e 3b 20 45 4e 44 3b 20 20 20 20 20 20 20   ┆PP: LL=LL+1; RETURN; END;       ┆
0x20977…20997              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   ┆                                ┆
0x20997…209a6              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x209a6…209c6 (28, 0, 56)  2f 2a 20 20 4d 41 49 4e 20 50 52 4f 47 52 41 4d 20 53 54 41 52 54 53 20 20 2a 2f 20 20 20 20 20   ┆/*  MAIN PROGRAM STARTS  */     ┆
0x209c6…209e6              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   ┆                                ┆
0x209e6…209f5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x209f5…20a15 (28, 0, 57)  52 55 4c 45 3a 43 41 4c 4c 20 4b 45 59 46 55 4e 28 4b 4b 4b 29 3b 43 41 4c 4c 20 43 4c 45 45 52   ┆RULE:CALL KEYFUN(KKK);CALL CLEER┆
0x20a15…20a35              28 49 29 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 20   ┆(I);                            ┆
0x20a35…20a44              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20a44…20a64 (28, 0, 58)  49 47 45 4e 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 3b 44 4f 20 4c 3d 31 20 54 4f 20   ┆IGEN:PUT FILE(D) SKIP;DO L=1 TO ┆
0x20a64…20a84              33 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 20 20 20   ┆3;                              ┆
0x20a84…20a93              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20a93…20ab3 (28, 0, 59)  50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆PUT FILE(D)EDIT('***************┆
0x20ab3…20ad3              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   ┆********************************┆
0x20ad3…20ae2              27 29 28 41 29 3b 45 4e 44 3b 20 20 20 20 20                                                      ┆')(A);END;     ┆
0x20ae2…20b02 (28, 0, 60)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 800;END;PUT FILE(D) ED┆
0x20b02…20b22              49 54 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   ┆IT                              ┆
0x20b22…20b31              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20b31…20b51 (28, 0, 61)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 4d 2e 53 54 45 4e 48 41 52 44 54 20 41   ┆('*********        M.STENHARDT A┆
0x20b51…20b71              42 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆B       *********')(A);         ┆
0x20b71…20b80              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20b80…20ba0 (28, 0, 62)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x20ba0…20bc0              49 54 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   ┆IT                              ┆
0x20bc0…20bcf              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20bcf…20bef (28, 0, 63)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 48 5b 4c 53 41 52 20 44 49 47 20 56 5b 4c 4b 4f   ┆('*********     HÄLSAR DIG VÄLKO┆
0x20bef…20c0f              4d 4d 45 4e 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆MMEN    *********')(A);         ┆
0x20c0f…20c1e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20c1e…20c3e (28, 0, 64)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x20c3e…20c5e              49 54 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   ┆IT                              ┆
0x20c5e…20c6d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20c6d…20c8d (28, 0, 65)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4c 4c 20 20 20 20 20   ┆('*********            TILL     ┆
0x20c8d…20cad              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x20cad…20cbc              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20cbc…20cdc (28, 0, 66)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x20cdc…20cfc              49 54 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   ┆IT                              ┆
0x20cfc…20d0b              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20d0b…20d2b (28, 0, 67)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 51 31 20 2d 20 43 41 53 49 4e 4f 20   ┆('*********         Q1 - CASINO ┆
0x20d2b…20d4b              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x20d4b…20d5a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20d5a…20d7a (28, 0, 68)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 33 3b 50 55   ┆DO L=1 TO 800;END;DO L=1 TO 3;PU┆
0x20d7a…20d9a              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x20d9a…20da9              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20da9…20dc9 (28, 0, 69)  28 27 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   ┆('******************************┆
0x20dc9…20de9              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆*****************')             ┆
0x20de9…20df8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20df8…20e18 (28, 0, 70)  28 41 28 34 37 29 29 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 39 30 30 3b 45 4e 44 3b 50 55   ┆(A(47));END;DO L=1 TO 900;END;PU┆
0x20e18…20e38              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x20e38…20e47              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20e47…20e67 (28, 0, 71)  28 27 20 27 29 28 41 28 34 37 29 29 28 27 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 20 54   ┆(' ')(A(47))('           ***   T┆
0x20e67…20e87              52 59 43 4b 20 52 45 54 55 52 4e 20 20 20 2a 2a 2a 27 29 28 41 28 34 36 29 29 3b 44 4f 20 4c 3d   ┆RYCK RETURN   ***')(A(46));DO L=┆
0x20e87…20e96              31 20 54 4f 20 31 38 30 30 3b 45 4e 44 3b 20                                                      ┆1 TO 1800;END; ┆
0x20e96…20eb6 (28, 0, 72)  43 41 4c 4c 20 4b 45 59 46 55 4e 28 4b 4b 4b 29 3b 49 46 20 4b 4b 4b 20 54 48 45 4e 20 47 4f 20   ┆CALL KEYFUN(KKK);IF KKK THEN GO ┆
0x20eb6…20ed6              54 4f 20 46 4f 52 54 53 3b 47 4f 20 54 4f 20 49 47 45 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆TO FORTS;GO TO IGEN;            ┆
0x20ed6…20ee5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20ee5…20f34 (28, 0, 73)  0x20[0x4f]
0x20f34…20f54 (28, 0, 74)  46 4f 52 54 53 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20   ┆FORTS:GET SKIP LIST(DUMB);      ┆
0x20f54…20f74              20 20 20 20 20 20 4c 3d 31 3b 20 41 4d 4f 55 4e 54 3d 32 35 30 3b 20 20 20 20 20 20 20 20 20 20   ┆      L=1; AMOUNT=250;          ┆
0x20f74…20f83              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x20f83…20fa3 (28, 0, 75)  50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 34 37 29   ┆PUT FILE(D) SKIP EDIT(' ')(A(47)┆
0x20fa3…20fc3              29 28 27 53 50 45 4c 45 54 20 56 49 20 53 4b 41 20 53 50 45 4c 41 20 48 45 54 45 52 20 22 42 4c   ┆)('SPELET VI SKA SPELA HETER "BL┆
0x20fc3…20fd2              41 43 4b 4a 41 43 4b 22 27 29 20 20 20 20 20                                                      ┆ACKJACK"')     ┆
0x20fd2…20ff2 (28, 0, 76)  28 41 28 39 34 29 29 28 27 4c 41 53 20 56 45 47 41 53 20 52 45 47 4c 45 52 20 47 5b 4c 4c 45 52   ┆(A(94))('LAS VEGAS REGLER GÄLLER┆
0x20ff2…21012              2e 27 29 28 41 28 39 34 29 29 28 27 44 55 20 46 5d 52 20 32 35 30 20 4b 52 4f 4e 4f 52 20 41 54   ┆.')(A(94))('DU FÅR 250 KRONOR AT┆
0x21012…21021              54 20 53 54 41 52 54 41 20 4d 45 44 2e 27 29                                                      ┆T STARTA MED.')┆
0x21021…21041 (28, 0, 77)  28 41 28 39 34 29 29 28 27 54 52 59 43 4b 20 52 45 54 55 52 4e 27 29 28 41 28 34 36 29 29 3b 47   ┆(A(94))('TRYCK RETURN')(A(46));G┆
0x21041…21061              45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ET SKIP LIST(DUMB);             ┆
0x21061…21070              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21070…21090 (28, 0, 78)  43 41 4c 4c 20 53 48 55 46 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆CALL SHUFF;                     ┆
0x21090…210b0              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   ┆                                ┆
0x210b0…210bf              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x210bf…210df (28, 0, 79)  47 41 4d 45 3a 20 44 4f 20 49 3d 31 20 54 4f 20 39 3b 20 4c 49 4e 45 28 49 29 3d 42 4c 4b 3b 20   ┆GAME: DO I=1 TO 9; LINE(I)=BLK; ┆
0x210df…210ff              45 4e 44 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 20   ┆END;                            ┆
0x210ff…2110e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2110e…2112e (28, 0, 80)  20 20 20 49 46 20 41 4d 4f 55 4e 54 7f 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 47 47 41 41 3b 20   ┆   IF AMOUNT =0 THEN GOTO GGAA; ┆
0x2112e…2114e              50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 55 20 5b 52 20 50 41 4e 4b   ┆PUT FILE(D)SKIP EDIT('DU ÄR PANK┆
0x2114e…2115d              21 21 21 27 29 28 41 28 39 34 29 29 20 20 20                                                      ┆!!!')(A(94))   ┆
0x2115d…2117d (28, 0, 81)  28 27 4a 41 47 20 46 49 4e 4e 53 20 41 4c 4c 54 49 44 20 48 5b 52 20 44 5d 20 44 55 20 4b 5b 4e   ┆('JAG FINNS ALLTID HÄR DÅ DU KÄN┆
0x2117d…2119d              4e 45 52 27 29 28 41 28 34 37 29 29 28 27 46 5c 52 20 41 54 54 20 46 5c 52 4c 4f 52 41 20 4d 45   ┆NER')(A(47))('FÖR ATT FÖRLORA ME┆
0x2119d…211ac              52 20 50 45 4e 47 41 52 2e 2e 2e 2e 2e 27 29                                                      ┆R PENGAR.....')┆
0x211ac…211cc (29, 0, 0)   28 41 28 39 34 29 29 28 27 54 52 59 43 4b 20 52 45 54 55 52 4e 2e 27 29 28 41 28 34 37 29 29 3b   ┆(A(94))('TRYCK RETURN.')(A(47));┆
0x211cc…211ec              47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 47 4f 54 4f 20 44 4f 4e 45 3b 20   ┆GET SKIP LIST(DUMB); GOTO DONE; ┆
0x211ec…211fb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x211fb…2121b (29, 0, 1)   47 47 41 41 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 55 20 48   ┆GGAA: PUT FILE(D)SKIP EDIT('DU H┆
0x2121b…2123b              41 52 20 27 29 28 41 28 37 29 29 28 41 4d 4f 55 4e 54 29 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 27   ┆AR ')(A(7))(AMOUNT)(P'ZZZZZZZZ9'┆
0x2123b…2124a              29 28 27 20 4b 52 4f 4e 4f 52 27 29 20 20 20                                                      ┆)(' KRONOR')   ┆
0x2124a…2126a (29, 0, 2)   28 41 28 33 31 29 29 3b 49 46 20 49 4a 4b 3d 31 20 54 48 45 4e 20 49 4a 4b 3d 32 3b 20 20 20 20   ┆(A(31));IF IJK=1 THEN IJK=2;    ┆
0x2126a…2128a              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   ┆                                ┆
0x2128a…21299              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21299…212b9 (29, 0, 3)   50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 48 55 52 20 4d 59 43 4b 45 54 20 53 41 54 53   ┆PUT FILE(D)EDIT('HUR MYCKET SATS┆
0x212b9…212d9              41 52 20 44 55 3f 20 27 29 28 41 28 32 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆AR DU? ')(A(22));               ┆
0x212d9…212e8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x212e8…21308 (29, 0, 4)   47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 42 45 54 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44   ┆GET SKIP LIST(BET);PUT FILE(D)ED┆
0x21308…21328              49 54 28 42 45 54 29 28 50 27 2d 2d 2d 2d 2d 39 27 29 28 27 20 27 29 28 41 28 31 39 29 29 3b 20   ┆IT(BET)(P'-----9')(' ')(A(19)); ┆
0x21328…21337              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21337…21357 (29, 0, 5)   42 45 54 43 3d 42 45 54 3b 20 41 4d 54 43 3d 41 4d 4f 55 4e 54 3b 20 49 46 20 53 55 42 53 54 52   ┆BETC=BET; AMTC=AMOUNT; IF SUBSTR┆
0x21357…21377              28 42 45 54 43 2c 31 2c 31 29 3d 53 55 42 53 54 52 28 41 4d 54 43 2c 31 2c 31 29 2b 32 20 54 48   ┆(BETC,1,1)=SUBSTR(AMTC,1,1)+2 TH┆
0x21377…21386              45 4e 20 49 4a 4b 3d 31 3b 20 20 20 20 20 20                                                      ┆EN IJK=1;      ┆
0x21386…213a6 (29, 0, 6)   49 46 20 42 45 54 3e 30 20 54 48 45 4e 20 47 4f 54 4f 20 47 47 41 42 3b 20 50 55 54 20 46 49 4c   ┆IF BET>0 THEN GOTO GGAB; PUT FIL┆
0x213a6…213c6              45 28 44 29 45 44 49 54 28 27 53 4f 52 52 59 2c 20 44 45 54 20 47 5d 52 20 4a 41 47 20 49 4e 54   ┆E(D)EDIT('SORRY, DET GÅR JAG INT┆
0x213c6…213d5              45 20 50 5d 21 27 29 28 41 28 34 37 29 29 20                                                      ┆E PÅ!')(A(47)) ┆
0x213d5…213f5 (29, 0, 7)   28 27 54 52 59 43 4b 20 52 45 54 55 52 4e 27 29 28 41 28 34 37 29 29 3b 47 45 54 20 53 4b 49 50   ┆('TRYCK RETURN')(A(47));GET SKIP┆
0x213f5…21415              20 4c 49 53 54 28 44 55 4d 42 29 3b 20 47 4f 54 4f 20 47 41 4d 45 3b 20 20 20 20 20 20 20 20 20   ┆ LIST(DUMB); GOTO GAME;         ┆
0x21415…21424              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21424…21444 (29, 0, 8)   47 47 41 42 3a 20 49 46 20 42 45 54 3c 3d 41 4d 4f 55 4e 54 20 54 48 45 4e 20 47 4f 54 4f 20 53   ┆GGAB: IF BET<=AMOUNT THEN GOTO S┆
0x21444…21464              53 54 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 20 20   ┆ST;                             ┆
0x21464…21473              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21473…21493 (29, 0, 9)   50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 53 4f 52 52 59 2c 20 4d 45 4e 20 44 55 20 48   ┆PUT FILE(D)EDIT('SORRY, MEN DU H┆
0x21493…214b3              41 52 20 49 4e 54 45 20 53 5d 20 4d 59 43 4b 45 54 21 21 27 29 28 41 28 34 37 29 29 28 27 54 52   ┆AR INTE SÅ MYCKET!!')(A(47))('TR┆
0x214b3…214c2              59 43 4b 20 52 45 54 55 52 4e 27 29 20 20 20                                                      ┆YCK RETURN')   ┆
0x214c2…214e2 (29, 0, 10)  28 41 28 34 37 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 47 4f 54   ┆(A(47));GET SKIP LIST(DUMB); GOT┆
0x214e2…21502              4f 20 47 41 4d 45 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   ┆O GAME;                         ┆
0x21502…21511              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21511…21531 (29, 0, 11)  53 53 54 3a 20 50 46 4c 47 3d 30 3b 20 44 46 4c 47 3d 30 3b 20 50 4c 3d 31 3b 20 44 4c 3d 31 3b   ┆SST: PFLG=0; DFLG=0; PL=1; DL=1;┆
0x21531…21551              20 50 43 4e 54 3d 30 3b 20 44 43 4e 54 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ PCNT=0; DCNT=0;                ┆
0x21551…21560              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21560…21580 (29, 0, 12)  20 20 4c 4c 3d 50 4c 3b 43 43 3d 31 3b 43 41 4c 4c 20 44 45 41 4c 3b 20 43 41 4c 4c 20 50 43 41   ┆  LL=PL;CC=1;CALL DEAL; CALL PCA┆
0x21580…215a0              52 44 28 50 43 4e 54 2c 50 46 4c 47 29 3b 50 4c 3d 4c 4c 3b 43 43 3d 32 3b 43 41 4c 4c 20 44 45   ┆RD(PCNT,PFLG);PL=LL;CC=2;CALL DE┆
0x215a0…215af              41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆AL;            ┆
0x215af…215cf (29, 0, 13)  20 4c 4c 3d 44 4c 3b 43 41 4c 4c 20 50 43 41 52 44 28 44 43 4e 54 2c 44 46 4c 47 29 3b 44 4c 3d   ┆ LL=DL;CALL PCARD(DCNT,DFLG);DL=┆
0x215cf…215ef              4c 4c 3b 43 43 3d 31 3b 20 4c 4c 3d 50 4c 3b 43 41 4c 4c 20 44 45 41 4c 3b 43 41 4c 4c 20 50 43   ┆LL;CC=1; LL=PL;CALL DEAL;CALL PC┆
0x215ef…215fe              41 52 44 28 50 43 4e 54 2c 50 46 4c 47 29 3b                                                      ┆ARD(PCNT,PFLG);┆
0x215fe…2161e (29, 0, 14)  20 20 20 50 4c 3d 4c 4c 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 53 4b 49 50 3b   ┆   PL=LL; PUT FILE(DISPLAY)SKIP;┆
0x2161e…2163e              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   ┆                                ┆
0x2163e…2164d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2164d…2166d (29, 0, 15)  48 41 4e 44 3a 49 46 20 50 43 4e 54 3d 32 31 20 54 48 45 4e 20 47 4f 54 4f 20 42 4c 4b 4a 50 3b   ┆HAND:IF PCNT=21 THEN GOTO BLKJP;┆
0x2166d…2168d              43 41 4c 4c 20 50 4f 55 54 3b 4e 44 3a 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 45   ┆CALL POUT;ND: PUT FILE(DISPLAY)E┆
0x2168d…2169c              44 49 54 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆DIT            ┆
0x2169c…216bc (29, 0, 16)  28 27 56 49 4c 4c 20 44 55 20 48 41 20 46 4c 45 52 20 4b 4f 52 54 3f 27 29 28 41 28 34 37 29 29   ┆('VILL DU HA FLER KORT?')(A(47))┆
0x216bc…216dc              28 27 53 56 41 52 41 20 4a 20 45 4c 4c 45 52 20 4e 3a 20 27 29 28 41 28 34 35 29 29 3b 20 20 20   ┆('SVARA J ELLER N: ')(A(45));   ┆
0x216dc…216eb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x216eb…2170b (29, 0, 17)  47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 50 55 54 20 46 49 4c 45 28 44 29 20   ┆GET SKIP LIST(DUMB);PUT FILE(D) ┆
0x2170b…2172b              45 44 49 54 28 44 55 4d 42 29 28 41 28 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EDIT(DUMB)(A(2));               ┆
0x2172b…2173a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2173a…2175a (29, 0, 18)  20 20 20 49 46 20 44 55 4d 42 7f 3d 27 4a 27 20 54 48 45 4e 20 47 4f 54 4f 20 44 50 4c 41 59 3b   ┆   IF DUMB ='J' THEN GOTO DPLAY;┆
0x2175a…2177a              20 43 41 4c 4c 20 44 45 41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ CALL DEAL;                     ┆
0x2177a…21789              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21789…217a9 (29, 0, 19)  20 20 20 43 43 3d 31 3b 4c 4c 3d 50 4c 3b 43 41 4c 4c 20 50 43 41 52 44 28 50 43 4e 54 2c 50 46   ┆   CC=1;LL=PL;CALL PCARD(PCNT,PF┆
0x217a9…217c9              4c 47 29 3b 50 4c 3d 4c 4c 3b 43 41 4c 4c 20 50 4f 55 54 3b 49 46 20 50 43 4e 54 3c 32 32 20 54   ┆LG);PL=LL;CALL POUT;IF PCNT<22 T┆
0x217c9…217d8              48 45 4e 20 47 4f 54 4f 20 4e 44 3b 20 20 20                                                      ┆HEN GOTO ND;   ┆
0x217d8…217f8 (29, 0, 20)  20 20 20 49 46 20 50 46 4c 47 7f 3d 31 20 54 48 45 4e 20 47 4f 54 4f 20 42 55 53 50 31 3b 20 50   ┆   IF PFLG =1 THEN GOTO BUSP1; P┆
0x217f8…21818              43 4e 54 3d 50 43 4e 54 2d 31 30 3b 20 50 46 4c 47 3d 31 31 3b 20 47 4f 54 4f 20 4e 44 3b 20 20   ┆CNT=PCNT-10; PFLG=11; GOTO ND;  ┆
0x21818…21827              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21827…21847 (29, 0, 21)  42 55 53 50 31 3a 20 4c 4c 3d 44 4c 3b 43 43 3d 32 3b 43 41 4c 4c 20 44 45 41 4c 3b 20 43 41 4c   ┆BUSP1: LL=DL;CC=2;CALL DEAL; CAL┆
0x21847…21867              4c 20 50 43 41 52 44 28 44 43 4e 54 2c 44 46 4c 47 29 3b 44 4c 3d 4c 4c 3b 20 20 20 20 20 20 20   ┆L PCARD(DCNT,DFLG);DL=LL;       ┆
0x21867…21876              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21876…21896 (29, 0, 22)  20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 45 44 49 54 28 27 20 27 29 28 41 28   ┆   PUT FILE(DISPLAY)EDIT(' ')(A(┆
0x21896…218b6              39 34 29 29 3b 20 43 41 4c 4c 20 50 4f 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆94)); CALL POUT;                ┆
0x218b6…218c5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x218c5…218e5 (29, 0, 23)  42 55 53 50 3a 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 44 55 20 46 5c 52 4c 4f 52   ┆BUSP: PUT FILE(D)EDIT('DU FÖRLOR┆
0x218e5…21905              41 44 45 21 20 56 49 4c 4c 20 44 55 20 46 4f 52 54 53 5b 54 54 41 3f 27 29 28 41 28 34 37 29 29   ┆ADE! VILL DU FORTSÄTTA?')(A(47))┆
0x21905…21914              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21914…21934 (29, 0, 24)  28 27 53 56 41 52 41 20 4a 20 45 4c 4c 45 52 20 4e 3a 27 29 28 41 28 34 36 29 29 3b 20 20 20 20   ┆('SVARA J ELLER N:')(A(46));    ┆
0x21934…21954              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   ┆                                ┆
0x21954…21963              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21963…21983 (29, 0, 25)  20 20 20 41 4d 4f 55 4e 54 3d 41 4d 4f 55 4e 54 2d 42 45 54 3b 20 20 20 20 20 20 20 20 20 20 20   ┆   AMOUNT=AMOUNT-BET;           ┆
0x21983…219a3              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   ┆                                ┆
0x219a3…219b2              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x219b2…219d2 (29, 0, 26)  4e 58 3a 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 49 46 20 44 55 4d 42   ┆NX: GET SKIP LIST(DUMB); IF DUMB┆
0x219d2…219f2              3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 44 4f 4e 45 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆='N' THEN GOTO DONE;            ┆
0x219f2…21a01              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21a01…21a21 (29, 0, 27)  20 20 20 49 46 20 4c 3c 34 32 20 54 48 45 4e 20 47 4f 54 4f 20 47 41 4d 45 3b 20 43 41 4c 4c 20   ┆   IF L<42 THEN GOTO GAME; CALL ┆
0x21a21…21a41              53 48 55 46 46 3b 20 4c 3d 31 3b 47 4f 54 4f 20 47 41 4d 45 3b 20 20 20 20 20 20 20 20 20 20 20   ┆SHUFF; L=1;GOTO GAME;           ┆
0x21a41…21a50              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21a50…21a70 (29, 0, 28)  42 4c 4b 4a 50 3a 20 4c 4c 3d 44 4c 3b 43 43 3d 32 3b 43 41 4c 4c 20 44 45 41 4c 3b 20 43 41 4c   ┆BLKJP: LL=DL;CC=2;CALL DEAL; CAL┆
0x21a70…21a90              4c 20 50 43 41 52 44 28 44 43 4e 54 2c 44 46 4c 47 29 3b 20 44 4c 3d 4c 4c 3b 20 20 20 20 20 20   ┆L PCARD(DCNT,DFLG); DL=LL;      ┆
0x21a90…21a9f              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21a9f…21abf (29, 0, 29)  20 20 20 20 4c 49 4e 45 28 34 29 3d 27 2a 2a 2a 20 42 4c 41 43 4b 4a 41 43 4b 20 2a 2a 2a 2a 20   ┆    LINE(4)='*** BLACKJACK **** ┆
0x21abf…21adf              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 27 3b 4c 49   ┆                            ';LI┆
0x21adf…21aee              4e 45 28 33 29 3d 42 4c 4b 3b 50 4c 3d 35 3b                                                      ┆NE(3)=BLK;PL=5;┆
0x21aee…21b0e (29, 0, 30)  20 20 20 20 43 41 4c 4c 20 50 4f 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆    CALL POUT;                  ┆
0x21b0e…21b2e              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   ┆                                ┆
0x21b2e…21b3d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21b3d…21b5d (29, 0, 31)  57 49 4e 50 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 47 52 41 54 54 49 53 20   ┆WINP:  PUT FILE(D)EDIT('GRATTIS ┆
0x21b5d…21b7d              44 55 20 56 41 4e 4e 21 21 20 20 56 49 4c 4c 20 44 55 20 46 4f 52 54 53 5b 54 54 41 3f 27 29 28   ┆DU VANN!!  VILL DU FORTSÄTTA?')(┆
0x21b7d…21b8c              41 28 34 37 29 29 20 20 20 20 20 20 20 20 20                                                      ┆A(47))         ┆
0x21b8c…21bac (29, 0, 32)  28 27 53 56 41 52 41 20 4a 20 45 4c 4c 45 52 20 4e 3a 27 29 28 41 28 34 36 29 29 3b 20 20 20 20   ┆('SVARA J ELLER N:')(A(46));    ┆
0x21bac…21bcc              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   ┆                                ┆
0x21bcc…21bdb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21bdb…21bfb (29, 0, 33)  20 20 20 41 4d 4f 55 4e 54 3d 41 4d 4f 55 4e 54 2b 42 45 54 3b 47 4f 54 4f 20 4e 58 3b 20 20 20   ┆   AMOUNT=AMOUNT+BET;GOTO NX;   ┆
0x21bfb…21c1b              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   ┆                                ┆
0x21c1b…21c2a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21c2a…21c4a (29, 0, 34)  44 50 4c 41 59 3a 20 49 46 20 49 4a 4b 3d 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 58 58 32 3b 20   ┆DPLAY: IF IJK=2 THEN GO TO XX2; ┆
0x21c4a…21c6a              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   ┆                                ┆
0x21c6a…21c79              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21c79…21c99 (29, 0, 35)  20 43 41 4c 4c 20 44 45 41 4c 3b 58 58 59 3a 20 4c 4c 3d 44 4c 3b 20 43 43 3d 32 3b 20 43 41 4c   ┆ CALL DEAL;XXY: LL=DL; CC=2; CAL┆
0x21c99…21cb9              4c 20 50 43 41 52 44 28 44 43 4e 54 2c 44 46 4c 47 29 3b 20 44 4c 3d 4c 4c 3b 20 20 20 20 20 20   ┆L PCARD(DCNT,DFLG); DL=LL;      ┆
0x21cb9…21cc8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21cc8…21ce8 (29, 0, 36)  20 20 20 43 41 4c 4c 20 50 4f 55 54 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 45   ┆   CALL POUT; PUT FILE(DISPLAY)E┆
0x21ce8…21d08              44 49 54 28 27 20 27 29 28 41 28 39 34 29 29 3b 20 49 46 20 44 43 4e 54 3d 32 31 20 54 48 45 4e   ┆DIT(' ')(A(94)); IF DCNT=21 THEN┆
0x21d08…21d17              20 47 4f 54 4f 20 42 4c 4b 4a 44 3b 20 20 20                                                      ┆ GOTO BLKJD;   ┆
0x21d17…21d37 (29, 0, 37)  20 20 20 49 46 20 44 43 4e 54 3e 31 36 20 54 48 45 4e 20 47 4f 54 4f 20 44 43 44 44 3b 44 4f 20   ┆   IF DCNT>16 THEN GOTO DCDD;DO ┆
0x21d37…21d57              49 3d 31 20 54 4f 20 35 30 30 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆I=1 TO 500; END;                ┆
0x21d57…21d66              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21d66…21d86 (29, 0, 38)  44 50 4c 41 41 3a 20 49 46 20 49 4a 4b 3d 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 58 58 31 3b 20   ┆DPLAA: IF IJK=2 THEN GO TO XX1; ┆
0x21d86…21da6              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   ┆                                ┆
0x21da6…21db5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21db5…21dd5 (29, 0, 39)  20 43 41 4c 4c 20 44 45 41 4c 3b 58 58 58 3a 20 43 43 3d 32 3b 20 4c 4c 3d 44 4c 3b 20 43 41 4c   ┆ CALL DEAL;XXX: CC=2; LL=DL; CAL┆
0x21dd5…21df5              4c 20 50 43 41 52 44 28 44 43 4e 54 2c 44 46 4c 47 29 3b 20 44 4c 3d 4c 4c 3b 20 20 20 20 20 20   ┆L PCARD(DCNT,DFLG); DL=LL;      ┆
0x21df5…21e04              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21e04…21e24 (29, 0, 40)  20 20 43 41 4c 4c 20 50 4f 55 54 3b 20 49 46 20 44 43 4e 54 3e 32 31 20 54 48 45 4e 20 47 4f 54   ┆  CALL POUT; IF DCNT>21 THEN GOT┆
0x21e24…21e44              4f 20 54 54 4e 4e 3b 44 58 58 3a 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 45 44 49   ┆O TTNN;DXX: PUT FILE(DISPLAY)EDI┆
0x21e44…21e53              54 28 27 20 27 29 28 41 28 39 34 29 29 3b 20                                                      ┆T(' ')(A(94)); ┆
0x21e53…21e73 (29, 0, 41)  20 20 20 49 46 20 44 43 4e 54 3e 31 36 20 54 48 45 4e 20 47 4f 54 4f 20 44 43 44 44 3b 44 4f 20   ┆   IF DCNT>16 THEN GOTO DCDD;DO ┆
0x21e73…21e93              49 3d 31 20 54 4f 20 35 30 30 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆I=1 TO 500; END;                ┆
0x21e93…21ea2              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21ea2…21ec2 (29, 0, 42)  20 20 20 47 4f 54 4f 20 44 50 4c 41 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆   GOTO DPLAA;                  ┆
0x21ec2…21ee2              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   ┆                                ┆
0x21ee2…21ef1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21ef1…21f11 (29, 0, 43)  58 58 31 3a 20 43 41 4c 4c 20 20 58 44 45 41 4c 3b 20 47 4f 20 54 4f 20 58 58 58 3b 58 58 32 3a   ┆XX1: CALL  XDEAL; GO TO XXX;XX2:┆
0x21f11…21f31              20 43 41 4c 4c 20 58 44 45 41 4c 3b 20 47 4f 20 54 4f 20 58 58 59 3b 20 20 20 20 20 20 20 20 20   ┆ CALL XDEAL; GO TO XXY;         ┆
0x21f31…21f40              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x21f40…21f60 (29, 0, 44)  54 54 4e 4e 3a 20 49 46 20 44 46 4c 47 7f 3d 31 20 54 48 45 4e 20 47 4f 54 4f 20 57 49 4e 50 3b   ┆TTNN: IF DFLG =1 THEN GOTO WINP;┆
0x21f60…21f80              20 44 46 4c 47 3d 31 31 3b 20 44 43 4e 54 3d 44 43 4e 54 2d 31 30 3b 20 47 4f 54 4f 20 44 58 58   ┆ DFLG=11; DCNT=DCNT-10; GOTO DXX┆
0x21f80…21f8f              3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆;              ┆
0x21f8f…21faf (29, 0, 45)  42 4c 4b 4a 44 3a 20 43 4c 49 4e 3d 4c 49 4e 45 28 36 29 3b 20 49 46 20 53 55 42 53 54 52 28 43   ┆BLKJD: CLIN=LINE(6); IF SUBSTR(C┆
0x21faf…21fcf              4c 49 4e 2c 35 2c 31 29 7f 3d 27 4f 27 20 54 48 45 4e 20 43 4c 49 4e 3d 42 4c 4b 3b 20 20 44 4c   ┆LIN,5,1) ='O' THEN CLIN=BLK;  DL┆
0x21fcf…21fde              3d 35 3b 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆=5;            ┆
0x21fde…21ffe (29, 0, 46)  20 20 44 4c 49 4e 3d 43 4c 49 4e 20 43 41 54 20 27 20 20 20 27 3b 4c 49 4e 45 28 34 29 3d 44 4c   ┆  DLIN=CLIN CAT '   ';LINE(4)=DL┆
0x21ffe…2201e              49 4e 20 43 41 54 20 27 2a 2a 2a 20 42 4c 41 43 4b 4a 41 43 4b 20 2a 2a 2a 20 20 20 20 20 20 20   ┆IN CAT '*** BLACKJACK ***       ┆
0x2201e…2202d              20 20 20 27 3b 43 41 4c 4c 20 50 4f 55 54 3b                                                      ┆   ';CALL POUT;┆
0x2202d…2204d (29, 0, 47)  47 4f 20 54 4f 20 42 55 53 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆GO TO BUSP;                     ┆
0x2204d…2206d              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   ┆                                ┆
0x2206d…2207c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2207c…2209c (29, 0, 48)  44 43 44 44 3a 20 43 41 4c 4c 20 50 4f 55 54 3b 49 46 20 44 43 4e 54 3e 50 43 4e 54 20 54 48 45   ┆DCDD: CALL POUT;IF DCNT>PCNT THE┆
0x2209c…220bc              4e 20 47 4f 54 4f 20 42 55 53 50 3b 20 49 46 20 44 43 4e 54 3c 50 43 4e 54 20 54 48 45 4e 20 47   ┆N GOTO BUSP; IF DCNT<PCNT THEN G┆
0x220bc…220cb              4f 54 4f 20 57 49 4e 50 3b 20 20 20 20 20 20                                                      ┆OTO WINP;      ┆
0x220cb…220eb (29, 0, 49)  50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 2a 2a 2a 20 4c 49 4b 41 20 2a 2a 2a 20 20 20   ┆PUT FILE(D)EDIT('*** LIKA ***   ┆
0x220eb…2210b              20 20 56 49 4c 4c 20 44 55 20 46 4f 52 54 53 5b 54 54 41 3f 27 29 28 41 28 34 37 29 29 20 20 20   ┆  VILL DU FORTSÄTTA?')(A(47))   ┆
0x2210b…2211a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2211a…2213a (29, 0, 50)  28 27 53 56 41 52 41 20 4a 20 45 4c 4c 45 52 20 4e 3a 27 29 28 41 28 34 35 29 29 3b 47 4f 20 54   ┆('SVARA J ELLER N:')(A(45));GO T┆
0x2213a…2215a              4f 20 4e 58 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   ┆O NX;                           ┆
0x2215a…22169              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22169…22189 (29, 0, 51)  44 4f 4e 45 3a 20 47 4f 54 4f 20 52 55 4c 45 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆DONE: GOTO RULE;END;            ┆
0x22189…221a9              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   ┆                                ┆
0x221a9…221b8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x221b8…22207 (29, 0, 52)  0x20[0x4f]
         […0x1…]
0x22256…22276 (29, 0, 54)  20 50 32 32 3a 44 4c 49 4e 3d 43 4c 49 4e 20 43 41 54 20 27 20 20 20 27 3b 50 32 33 3a 20 4c 49   ┆ P22:DLIN=CLIN CAT '   ';P23: LI┆
0x22276…22296              4e 45 28 4c 4c 29 3d 44 4c 49 4e 20 43 41 54 20 42 4c 49 4e 3b 20 20 20 20 20 20 20 20 20 20 20   ┆NE(LL)=DLIN CAT BLIN;           ┆
0x22296…222a5              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x222a5…222c5 (29, 0, 55)  50 50 3a 20 4c 4c 3d 4c 4c 2b 31 3b 20 52 45 54 55 52 4e 3b 20 45 4e 44 3b 20 20 20 20 20 20 20   ┆PP: LL=LL+1; RETURN; END;       ┆
0x222c5…222e5              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   ┆                                ┆
0x222e5…222f4              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x222f4…22314 (29, 0, 56)  2f 2a 20 20 4d 41 49 4e 20 50 52 4f 47 52 41 4d 20 53 54 41 52 54 53 20 20 2a 2f 20 20 20 20 20   ┆/*  MAIN PROGRAM STARTS  */     ┆
0x22314…22334              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   ┆                                ┆
0x22334…22343              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22343…22363 (29, 0, 57)  52 55 4c 45 3a 43 41 4c 4c 20 4b 45 59 46 55 4e 28 4b 4b 4b 29 3b 43 41 4c 4c 20 43 4c 45 45 52   ┆RULE:CALL KEYFUN(KKK);CALL CLEER┆
0x22363…22383              28 49 29 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 20   ┆(I);                            ┆
0x22383…22392              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22392…223b2 (29, 0, 58)  49 47 45 4e 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 3b 44 4f 20 4c 3d 31 20 54 4f 20   ┆IGEN:PUT FILE(D) SKIP;DO L=1 TO ┆
0x223b2…223d2              33 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 20 20 20   ┆3;                              ┆
0x223d2…223e1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x223e1…22401 (29, 0, 59)  50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆PUT FILE(D)EDIT('***************┆
0x22401…22421              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   ┆********************************┆
0x22421…22430              27 29 28 41 29 3b 45 4e 44 3b 20 20 20 20 20                                                      ┆')(A);END;     ┆
0x22430…22450 (29, 0, 60)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 800;END;PUT FILE(D) ED┆
0x22450…22470              49 54 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   ┆IT                              ┆
0x22470…2247f              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2247f…2249f (29, 0, 61)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 4d 2e 53 54 45 4e 48 41 52 44 54 20 41   ┆('*********        M.STENHARDT A┆
0x2249f…224bf              42 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆B       *********')(A);         ┆
0x224bf…224ce              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x224ce…224ee (29, 0, 62)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x224ee…2250e              49 54 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   ┆IT                              ┆
0x2250e…2251d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2251d…2253d (29, 0, 63)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 48 5b 4c 53 41 52 20 44 49 47 20 56 5b 4c 4b 4f   ┆('*********     HÄLSAR DIG VÄLKO┆
0x2253d…2255d              4d 4d 45 4e 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆MMEN    *********')(A);         ┆
0x2255d…2256c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2256c…2258c (29, 0, 64)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x2258c…225ac              49 54 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   ┆IT                              ┆
0x225ac…225bb              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x225bb…225db (29, 0, 65)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4c 4c 20 20 20 20 20   ┆('*********            TILL     ┆
0x225db…225fb              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x225fb…2260a              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x2260a…2262a (29, 0, 66)  44 4f 20 4c 3d 31 20 54 4f 20 32 36 30 3b 45 4e 44 3b 50 55 54 20 46 49 4c 45 28 44 29 20 45 44   ┆DO L=1 TO 260;END;PUT FILE(D) ED┆
0x2262a…2264a              49 54 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   ┆IT                              ┆
0x2264a…22659              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22659…22679 (29, 0, 67)  28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 51 31 20 2d 20 43 41 53 49 4e 4f 20   ┆('*********         Q1 - CASINO ┆
0x22679…22699              20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20   ┆        *********')(A);         ┆
0x22699…226a8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x226a8…226c8 (29, 0, 68)  44 4f 20 4c 3d 31 20 54 4f 20 38 30 30 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 33 3b 50 55   ┆DO L=1 TO 800;END;DO L=1 TO 3;PU┆
0x226c8…226e8              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x226e8…226f7              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x226f7…22717 (29, 0, 69)  28 27 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   ┆('******************************┆
0x22717…22737              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆*****************')             ┆
0x22737…22746              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22746…22766 (29, 0, 70)  28 41 28 34 37 29 29 3b 45 4e 44 3b 44 4f 20 4c 3d 31 20 54 4f 20 39 30 30 3b 45 4e 44 3b 50 55   ┆(A(47));END;DO L=1 TO 900;END;PU┆
0x22766…22786              54 20 46 49 4c 45 28 44 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T FILE(D) EDIT                  ┆
0x22786…22795              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22795…227b5 (29, 0, 71)  28 27 20 27 29 28 41 28 34 37 29 29 28 27 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 20 54   ┆(' ')(A(47))('           ***   T┆
0x227b5…227d5              52 59 43 4b 20 52 45 54 55 52 4e 20 20 20 2a 2a 2a 27 29 28 41 28 34 36 29 29 3b 44 4f 20 4c 3d   ┆RYCK RETURN   ***')(A(46));DO L=┆
0x227d5…227e4              31 20 54 4f 20 31 38 30 30 3b 45 4e 44 3b 20                                                      ┆1 TO 1800;END; ┆
0x227e4…22804 (29, 0, 72)  43 41 4c 4c 20 4b 45 59 46 55 4e 28 4b 4b 4b 29 3b 49 46 20 4b 4b 4b 20 54 48 45 4e 20 47 4f 20   ┆CALL KEYFUN(KKK);IF KKK THEN GO ┆
0x22804…22824              54 4f 20 46 4f 52 54 53 3b 47 4f 20 54 4f 20 49 47 45 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆TO FORTS;GO TO IGEN;            ┆
0x22824…22833              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22833…22882 (29, 0, 73)  0x20[0x4f]
0x22882…228a2 (29, 0, 74)  46 4f 52 54 53 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20   ┆FORTS:GET SKIP LIST(DUMB);      ┆
0x228a2…228c2              20 20 20 20 20 20 4c 3d 31 3b 20 41 4d 4f 55 4e 54 3d 32 35 30 3b 20 20 20 20 20 20 20 20 20 20   ┆      L=1; AMOUNT=250;          ┆
0x228c2…228d1              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x228d1…228f1 (29, 0, 75)  50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 34 37 29   ┆PUT FILE(D) SKIP EDIT(' ')(A(47)┆
0x228f1…22911              29 28 27 53 50 45 4c 45 54 20 56 49 20 53 4b 41 20 53 50 45 4c 41 20 48 45 54 45 52 20 22 42 4c   ┆)('SPELET VI SKA SPELA HETER "BL┆
0x22911…22920              41 43 4b 4a 41 43 4b 22 27 29 20 20 20 20 20                                                      ┆ACKJACK"')     ┆
0x22920…22940 (29, 0, 76)  28 41 28 39 34 29 29 28 27 4c 41 53 20 56 45 47 41 53 20 52 45 47 4c 45 52 20 47 5b 4c 4c 45 52   ┆(A(94))('LAS VEGAS REGLER GÄLLER┆
0x22940…22960              2e 27 29 28 41 28 39 34 29 29 28 27 44 55 20 46 5d 52 20 32 35 30 20 4b 52 4f 4e 4f 52 20 41 54   ┆.')(A(94))('DU FÅR 250 KRONOR AT┆
0x22960…2296f              54 20 53 54 41 52 54 41 20 4d 45 44 2e 27 29                                                      ┆T STARTA MED.')┆
0x2296f…2298f (29, 0, 77)  28 41 28 39 34 29 29 28 27 54 52 59 43 4b 20 52 45 54 55 52 4e 27 29 28 41 28 34 36 29 29 3b 47   ┆(A(94))('TRYCK RETURN')(A(46));G┆
0x2298f…229af              45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 55 4d 42 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ET SKIP LIST(DUMB);             ┆
0x229af…229be              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x229be…229de (29, 0, 78)  43 41 4c 4c 20 53 48 55 46 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆CALL SHUFF;                     ┆
0x229de…229fe              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   ┆                                ┆
0x229fe…22a0d              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22a0d…22a2d (29, 0, 79)  47 41 4d 45 3a 20 44 4f 20 49 3d 31 20 54 4f 20 39 3b 20 4c 49 4e 45 28 49 29 3d 42 4c 4b 3b 20   ┆GAME: DO I=1 TO 9; LINE(I)=BLK; ┆
0x22a2d…22a4d              45 4e 44 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 20   ┆END;                            ┆
0x22a4d…22a5c              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                                                      ┆               ┆
0x22a5c…22a7c (29, 0, 80)  20 20 20 49 46 20 41 4d 4f 55 4e 54 7f 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 47 47 41 41 3b 20   ┆   IF AMOUNT =0 THEN GOTO GGAA; ┆
0x22a7c…22a9c              50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 55 20 5b 52 20 50 41 4e 4b   ┆PUT FILE(D)SKIP EDIT('DU ÄR PANK┆
0x22a9c…22aab              21 21 21 27 29 28 41 28 39 34 29 29 20 20 20                                                      ┆!!!')(A(94))   ┆
0x22aab…22acb (29, 0, 81)  28 27 4a 41 47 20 46 49 4e 4e 53 20 41 4c 4c 54 49 44 20 48 5b 52 20 44 5d 20 44 55 20 4b 5b 4e   ┆('JAG FINNS ALLTID HÄR DÅ DU KÄN┆
0x22acb…22aeb              4e 45 52 27 29 28 41 28 34 37 29 29 28 27 46 5c 52 20 41 54 54 20 46 5c 52 4c 4f 52 41 20 4d 45   ┆NER')(A(47))('FÖR ATT FÖRLORA ME┆
0x22aeb…22afa              52 20 50 45 4e 47 41 52 2e 2e 2e 2e 2e 27 29                                                      ┆R PENGAR.....')┆
0x22afa…22bf9 (30, 0, 0)   DataSector[0xff]
         […0x18…]
0x243e1…244e0 (30, 0, 25)  0x00[0xff]
         […0x3…]
0x247dd…247fd (30, 0, 29)  01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x247fd…2481d              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
         […0x5…]
0x248bd…248dc              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff      ┆                               ┆
0x248dc…2492b (31, 0, 0)   DataSector[0x4f]
         […0x9…]
0x24bf2…24c41 (31, 0, 10)  0x20[0x4f]
0x24c41…24c90 (31, 0, 11)  0x00[0x4f]
         […0x98…]
0x27b78…27c77 (33, 0, 0)   DataSector[0xff]
         […0xd…]
0x2896a…28a69 (33, 0, 14)  0x00[0xff]
         […0xe…]
0x2985b…2987b (33, 0, 29)  01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x2987b…2989b              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
         […0x5…]
0x2993b…2995a              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff      ┆                               ┆
0x2995a…299a9 (34, 0, 0)   DataSector[0x4f]
         […0xf…]
0x29e4a…29e99 (34, 0, 16)  0x00[0x4f]
         […0x40…]
0x2b259…2b279 (34, 0, 81)  01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x2b279…2b299              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
0x2b299…2b2a8              ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff                                                      ┆               ┆

Reduced view