�6
 � �14,2)"I M O G E N"
� � �0,4)"Select level :"'�5)"1 : BALLOONACY"'�5)"2 : WHIP-IT"'�5)"3 : DUCK-EGG-BLUES"'�5)"4 : APPLE-SOURCE"'�5)"5 : DRIPPING-STUFF"'�5)"6 : SAXAPHOBIA"'�5)"7 : PAVLOV-WAS-HERE"'�5)"8 : HAMSTER-JAM";
#� � '�5)"9 : SEE-SWORD"'�4)"10 : DOWN-AND-OUT"'�4)"11 : TENDER-HOOKS"'�4)"12 : FIRE-WORKS"'�4)"13 : GNU-PROBLEM"'�4)"14 : FOLLOW-ME"'�4)"15 : BABOONACY"'�4)"16 : TIME-FLIES"'�4)"17 : End Sequence"
(# � �0,23),A:� A<1 � A>17 � �Th@
P *LOAD FLAG 70
U OLDA=?&70:� OLDA=A � �tj@
Z! � �11,23)"Sorting Levels..."
d *ACC. D.TA* WR 
n  ?&70=A:*SAVE FLAG 0070 0071
x *CDIR LEVTEMP
�k � LEVEL=1 � 17:� �18,24) LEVEL;:�"RENAME D.TA"+�((LEVEL+A-OLDA+16) �17+65)+" LEVTEMP.TA"+�(LEVEL+64):�
�f �"ACCESS D R":�"ACCESS LEVTEMP R":�"DELETE D":�"RENAME LEVTEMP D":�"ACCESS D DL":�"ACCESS D.* LR"
� �"IMOGEN"
�

00000000  0d 00 0a 07 20 eb 36 0d  00 14 1a 20 f1 20 8a 31  |.... .6.... . .1|
00000010  34 2c 32 29 22 49 20 4d  20 4f 20 47 20 45 20 4e  |4,2)"I M O G E N|
00000020  22 0d 00 1e ca 20 f1 20  8a 30 2c 34 29 22 53 65  |".... . .0,4)"Se|
00000030  6c 65 63 74 20 6c 65 76  65 6c 20 3a 22 27 8a 35  |lect level :"'.5|
00000040  29 22 31 20 3a 20 42 41  4c 4c 4f 4f 4e 41 43 59  |)"1 : BALLOONACY|
00000050  22 27 8a 35 29 22 32 20  3a 20 57 48 49 50 2d 49  |"'.5)"2 : WHIP-I|
00000060  54 22 27 8a 35 29 22 33  20 3a 20 44 55 43 4b 2d  |T"'.5)"3 : DUCK-|
00000070  45 47 47 2d 42 4c 55 45  53 22 27 8a 35 29 22 34  |EGG-BLUES"'.5)"4|
00000080  20 3a 20 41 50 50 4c 45  2d 53 4f 55 52 43 45 22  | : APPLE-SOURCE"|
00000090  27 8a 35 29 22 35 20 3a  20 44 52 49 50 50 49 4e  |'.5)"5 : DRIPPIN|
000000a0  47 2d 53 54 55 46 46 22  27 8a 35 29 22 36 20 3a  |G-STUFF"'.5)"6 :|
000000b0  20 53 41 58 41 50 48 4f  42 49 41 22 27 8a 35 29  | SAXAPHOBIA"'.5)|
000000c0  22 37 20 3a 20 50 41 56  4c 4f 56 2d 57 41 53 2d  |"7 : PAVLOV-WAS-|
000000d0  48 45 52 45 22 27 8a 35  29 22 38 20 3a 20 48 41  |HERE"'.5)"8 : HA|
000000e0  4d 53 54 45 52 2d 4a 41  4d 22 3b 0d 00 23 c7 20  |MSTER-JAM";..#. |
000000f0  f1 20 27 8a 35 29 22 39  20 3a 20 53 45 45 2d 53  |. '.5)"9 : SEE-S|
00000100  57 4f 52 44 22 27 8a 34  29 22 31 30 20 3a 20 44  |WORD"'.4)"10 : D|
00000110  4f 57 4e 2d 41 4e 44 2d  4f 55 54 22 27 8a 34 29  |OWN-AND-OUT"'.4)|
00000120  22 31 31 20 3a 20 54 45  4e 44 45 52 2d 48 4f 4f  |"11 : TENDER-HOO|
00000130  4b 53 22 27 8a 34 29 22  31 32 20 3a 20 46 49 52  |KS"'.4)"12 : FIR|
00000140  45 2d 57 4f 52 4b 53 22  27 8a 34 29 22 31 33 20  |E-WORKS"'.4)"13 |
00000150  3a 20 47 4e 55 2d 50 52  4f 42 4c 45 4d 22 27 8a  |: GNU-PROBLEM"'.|
00000160  34 29 22 31 34 20 3a 20  46 4f 4c 4c 4f 57 2d 4d  |4)"14 : FOLLOW-M|
00000170  45 22 27 8a 34 29 22 31  35 20 3a 20 42 41 42 4f  |E"'.4)"15 : BABO|
00000180  4f 4e 41 43 59 22 27 8a  34 29 22 31 36 20 3a 20  |ONACY"'.4)"16 : |
00000190  54 49 4d 45 2d 46 4c 49  45 53 22 27 8a 34 29 22  |TIME-FLIES"'.4)"|
000001a0  31 37 20 3a 20 45 6e 64  20 53 65 71 75 65 6e 63  |17 : End Sequenc|
000001b0  65 22 0d 00 28 23 20 e8  20 8a 30 2c 32 33 29 2c  |e"..(# . .0,23),|
000001c0  41 3a e7 20 41 3c 31 20  84 20 41 3e 31 37 20 8c  |A:. A<1 . A>17 .|
000001d0  20 8d 54 68 40 0d 00 50  12 20 2a 4c 4f 41 44 20  | .Th@..P. *LOAD |
000001e0  46 4c 41 47 20 37 30 0d  00 55 1e 20 4f 4c 44 41  |FLAG 70..U. OLDA|
000001f0  3d 3f 26 37 30 3a e7 20  4f 4c 44 41 3d 41 20 8c  |=?&70:. OLDA=A .|
00000200  20 8d 74 6a 40 0d 00 5a  21 20 f1 20 8a 31 31 2c  | .tj@..Z! . .11,|
00000210  32 33 29 22 53 6f 72 74  69 6e 67 20 4c 65 76 65  |23)"Sorting Leve|
00000220  6c 73 2e 2e 2e 22 0d 00  64 14 20 2a 41 43 43 2e  |ls..."..d. *ACC.|
00000230  20 44 2e 54 41 2a 20 57  52 20 0d 00 6e 20 20 3f  | D.TA* WR ..n  ?|
00000240  26 37 30 3d 41 3a 2a 53  41 56 45 20 46 4c 41 47  |&70=A:*SAVE FLAG|
00000250  20 30 30 37 30 20 30 30  37 31 0d 00 78 12 20 2a  | 0070 0071..x. *|
00000260  43 44 49 52 20 4c 45 56  54 45 4d 50 0d 00 82 6b  |CDIR LEVTEMP...k|
00000270  20 e3 20 4c 45 56 45 4c  3d 31 20 b8 20 31 37 3a  | . LEVEL=1 . 17:|
00000280  f1 20 8a 31 38 2c 32 34  29 20 4c 45 56 45 4c 3b  |. .18,24) LEVEL;|
00000290  3a ff 22 52 45 4e 41 4d  45 20 44 2e 54 41 22 2b  |:."RENAME D.TA"+|
000002a0  bd 28 28 4c 45 56 45 4c  2b 41 2d 4f 4c 44 41 2b  |.((LEVEL+A-OLDA+|
000002b0  31 36 29 20 83 31 37 2b  36 35 29 2b 22 20 4c 45  |16) .17+65)+" LE|
000002c0  56 54 45 4d 50 2e 54 41  22 2b bd 28 4c 45 56 45  |VTEMP.TA"+.(LEVE|
000002d0  4c 2b 36 34 29 3a ed 0d  00 96 66 20 ff 22 41 43  |L+64):....f ."AC|
000002e0  43 45 53 53 20 44 20 52  22 3a ff 22 41 43 43 45  |CESS D R":."ACCE|
000002f0  53 53 20 4c 45 56 54 45  4d 50 20 52 22 3a ff 22  |SS LEVTEMP R":."|
00000300  44 45 4c 45 54 45 20 44  22 3a ff 22 52 45 4e 41  |DELETE D":."RENA|
00000310  4d 45 20 4c 45 56 54 45  4d 50 20 44 22 3a ff 22  |ME LEVTEMP D":."|
00000320  41 43 43 45 53 53 20 44  20 44 4c 22 3a ff 22 41  |ACCESS D DL":."A|
00000330  43 43 45 53 53 20 44 2e  2a 20 4c 52 22 0d 00 aa  |CCESS D.* LR"...|
00000340  0e 20 d7 22 49 4d 4f 47  45 4e 22 0d ff           |. ."IMOGEN"..|
0000034d