DIR.-ORDNER
FILE INFORMATION
FILENAME(S): DIR.-ORDNER
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 16:22:59
APPEARS ON: 1 disk(s)
FILE HASH
e4f7af1a3973867c9dc7a28876b3ced44b2fd8fbe0bcccba1facafbeab1116d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY DISK | DIR.-ORDNER | PRG | BrainSkull, Markus Geier | 21 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |.. .d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 00 3F 08 6E 00 8F 20 2A 20 20 20 20 20 20 20 20 |.?.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000040: 5E 08 78 00 8F 20 2A 20 44 49 52 45 43 54 4F 52 |^.x.. * DIRECTOR|
00000050: 59 2D 53 4F 52 54 20 56 31 2E 30 20 20 2A 00 7D |Y-SORT V1.0 *.}|
00000060: 08 82 00 8F 20 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.... * ---------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2A 00 9C 08 |---------- *...|
00000080: 8C 00 8F 20 2A 20 41 55 54 4F 52 3A 20 20 20 20 |... * AUTOR: |
00000090: 20 20 20 20 20 20 20 20 20 20 20 2A 00 BB 08 96 | *....|
000000A0: 00 8F 20 2A 20 45 44 57 49 4E 20 47 4F 45 42 45 |.. * EDWIN GOEBE|
000000B0: 4C 20 20 20 20 20 20 20 20 20 2A 00 DA 08 A0 00 |L *.....|
000000C0: 8F 20 2A 20 53 43 48 55 45 54 5A 53 54 52 2E 20 |. * SCHUETZSTR. |
000000D0: 31 20 20 20 20 20 20 20 20 2A 00 F9 08 AA 00 8F |1 *......|
000000E0: 20 2A 20 38 35 32 32 20 48 45 52 5A 4F 47 45 4E | * 8522 HERZOGEN|
000000F0: 41 55 52 41 43 48 20 20 2A 00 18 09 B4 00 8F 20 |AURACH *...... |
00000100: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000110: 20 20 20 20 20 20 20 2A 00 37 09 BE 00 8F 20 2A | *.7.... *|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 00 41 09 C8 00 89 20 34 33 |*******.A.... 43|
00000140: 30 00 67 09 D2 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0.g.... ********|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 00 7B 09 DC 00 8F 20 55 4E |*******.{.... UN|
00000170: 54 45 52 52 4F 55 54 49 4E 45 4E 00 A1 09 E6 00 |TERROUTINEN.....|
00000180: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 00 BF 09 F0 00 84 31 2C 46 31 2C 46 24 2C 46 |*......1,F1,F$,F|
000001B0: 32 2C 46 33 3A 8B 20 46 31 B2 30 20 A7 20 8E 00 |2,F3:. F1.0 . ..|
000001C0: F1 09 FA 00 99 22 9F 11 22 46 31 3B 46 24 2C 46 |.....".."F1;F$,F|
000001D0: 32 3B 46 33 22 90 22 3A 80 3A 8F 20 22 9F 22 3D |2;F3".":.:. "."=|
000001E0: 43 59 41 4E 3B 20 22 90 22 3D 53 43 48 57 41 52 |CYAN; "."=SCHWAR|
000001F0: 5A 00 17 0A 04 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |Z...... --------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000210: 2D 2D 2D 2D 2D 2D 2D 00 2A 0A 0E 01 8B 20 4E 4F |-------.*.... NO|
00000220: AA 45 4E B1 B2 43 20 A7 20 8E 00 4A 0A 18 01 9E |.EN..C . ..J....|
00000230: 20 35 33 30 35 36 2C 30 2C 32 2C 32 2C 32 33 2C | 53056,0,2,2,23,|
00000240: 31 38 3A 4E 4F B2 4E 4F AA 31 00 7D 0A 22 01 97 |18:NO.NO.1.}."..|
00000250: 20 32 31 34 2C 32 33 3A 97 20 32 31 31 2C 32 3A | 214,23:. 211,2:|
00000260: 9E 20 35 38 37 33 32 3A 99 20 4E 41 24 28 5A 55 |. 58732:. NA$(ZU|
00000270: 28 4E 4F AA 45 4E AB 31 29 29 3B 3A 8E 00 A3 0A |(NO.EN.1));:....|
00000280: 2C 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |,.. ------------|
00000290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002A0: 2D 2D 2D 00 B2 0A 36 01 8B 20 4E 4F B2 30 20 A7 |---...6.. NO.0 .|
000002B0: 20 8E 00 D2 0A 40 01 9E 20 35 33 30 35 36 2C 31 | ....@.. 53056,1|
000002C0: 2C 32 2C 32 2C 32 33 2C 31 38 3A 4E 4F B2 4E 4F |,2,2,23,18:NO.NO|
000002D0: AB 31 00 FF 0A 4A 01 97 20 32 31 34 2C 32 3A 97 |.1...J.. 214,2:.|
000002E0: 20 32 31 31 2C 32 3A 9E 20 35 38 37 33 32 3A 99 | 211,2:. 58732:.|
000002F0: 4E 41 24 28 5A 55 28 4E 4F AA 31 29 29 3A 8E 00 |NA$(ZU(NO.1)):..|
00000300: 25 0B 54 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |%.T.. ----------|
00000310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000320: 2D 2D 2D 2D 2D 00 44 0B 5E 01 99 22 93 90 12 22 |-----.D.^.."..."|
00000330: A3 31 33 29 22 44 49 52 45 43 54 4F 52 59 2D 53 |.13)"DIRECTORY-S|
00000340: 4F 52 54 22 00 60 0B 68 01 99 A3 31 32 29 22 2D |ORT".`.h...12)"-|
00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000360: 00 8F 0B 72 01 99 22 9F 11 20 44 49 53 4B 45 54 |...r..".. DISKET|
00000370: 54 45 20 45 49 4E 4C 45 47 45 4E 20 55 4E 44 20 |TE EINLEGEN UND |
00000380: 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E 22 00 |TASTE DRUECKEN".|
00000390: A5 0B 7C 01 A1 20 54 24 3A 8B 20 54 24 B2 22 22 |..|.. T$:. T$.""|
000003A0: A7 20 33 38 30 00 D8 0B 86 01 99 22 13 11 11 11 |. 380......"....|
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 22 3A 8E 00 FE 0B 90 01 8F 20 2A | ":....... *|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. |
00000400: 0C 9A 01 8F 20 20 42 45 47 49 4E 4E 20 44 45 53 |.... BEGINN DES|
00000410: 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 45 53 | HAUPTPROGRAMMES|
00000420: 00 46 0C A4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.F.... *********|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000440: 2A 2A 2A 2A 2A 2A 00 65 0C AE 01 97 20 35 33 32 |******.e.... 532|
00000450: 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 31 31 3A |80,0:. 53281,11:|
00000460: 8D 20 33 35 30 00 A2 0C B8 01 9F 20 31 2C 38 2C |. 350...... 1,8,|
00000470: 31 35 2C 22 49 22 3A 86 20 41 4E 24 28 31 34 35 |15,"I":. AN$(145|
00000480: 29 2C 4E 41 24 28 31 34 35 29 2C 52 45 24 28 31 |),NA$(145),RE$(1|
00000490: 34 35 29 2C 5A 55 28 31 34 36 29 2C 53 4E 28 31 |45),ZU(146),SN(1|
000004A0: 39 29 00 BB 0C C2 01 81 20 49 B2 31 20 A4 20 31 |9)...... I.1 . 1|
000004B0: 38 3A 87 20 53 4E 28 49 29 3A 82 00 DD 0C CC 01 |8:. SN(I):......|
000004C0: 81 20 49 B2 35 32 39 39 32 20 A4 20 35 33 32 34 |. I.52992 . 5324|
000004D0: 32 3A 87 20 53 3A 97 20 49 2C 53 3A 82 00 F9 0C |2:. S:. I,S:....|
000004E0: D6 01 8D 20 32 34 30 3A 9F 20 32 2C 38 2C 32 2C |... 240:. 2,8,2,|
000004F0: 22 23 22 3A 8D 20 32 34 30 00 2F 0D E0 01 53 B2 |"#":. 240./...S.|
00000500: 31 3A 43 B2 31 3A 4E 24 B2 C7 28 30 29 3A 4E 4E |1:C.1:N$..(0):NN|
00000510: 24 B2 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 |$.N$.N$.N$.N$.N$|
00000520: AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 00 |.N$.N$.N$.N$.N$.|
00000530: 51 0D EA 01 4E 55 24 B2 4E 4E 24 AA 4E 4E 24 AA |Q...NU$.NN$.NN$.|
00000540: 4E 4E 24 3A 52 45 24 28 30 29 B2 4E 4E 24 AA 4E |NN$:RE$(0).NN$.N|
00000550: 24 00 96 0D F4 01 41 4E 24 28 30 29 B2 C7 28 31 |$.....AN$(0)..(1|
00000560: 32 38 29 AA C7 28 31 38 29 AA C7 28 31 29 3A 4E |28)..(18)..(1):N|
00000570: 41 24 28 30 29 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |A$(0)."---------|
00000580: 2D 2D 2D 2D 2D 2D 2D 22 3A 8F 20 54 52 45 4E 4E |-------":. TRENN|
00000590: 53 54 52 49 43 48 00 BC 0D FE 01 8F 20 2A 2A 2A |STRICH...... ***|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DB 0D 08 |************....|
000005C0: 02 8F 20 20 45 49 4E 4C 45 53 45 4E 20 44 45 53 |.. EINLESEN DES|
000005D0: 20 44 49 52 45 43 54 4F 52 59 53 00 01 0E 12 02 | DIRECTORYS.....|
000005E0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000600: 2A 00 2D 0E 1C 02 98 31 2C 22 55 31 20 32 20 30 |*.-....1,"U1 2 0|
00000610: 20 31 38 22 53 3A 99 22 13 96 22 53 22 9D 20 22 | 18"S:.".."S". "|
00000620: 3A 8F 22 96 22 3D 48 45 4C 4C 52 4F 54 00 4A 0E |:."."=HELLROT.J.|
00000630: 26 02 A1 23 32 2C 54 24 3A A1 23 32 2C 53 24 3A |&..#2,T$:.#2,S$:|
00000640: 53 B2 C6 28 53 24 AA 4E 24 29 00 6C 0E 30 02 81 |S..(S$.N$).l.0..|
00000650: 20 42 50 B2 30 20 A4 20 37 3A 98 31 2C 22 42 2D | BP.0 . 7:.1,"B-|
00000660: 50 20 32 22 3B 42 50 AC 33 32 AA 32 00 9F 0E 3A |P 2";BP.32.2...:|
00000670: 02 9E 20 35 32 39 39 32 2C 32 2C 33 2C 58 24 3A |.. 52992,2,3,X$:|
00000680: 41 4E 24 28 43 29 B2 58 24 3A 8B 20 C8 28 58 24 |AN$(C).X$:. .(X$|
00000690: 2C 31 29 B2 4E 24 A7 20 82 3A 89 20 36 30 30 00 |,1).N$. .:. 600.|
000006A0: D7 0E 44 02 9E 20 35 32 39 39 32 2C 32 2C 31 36 |..D.. 52992,2,16|
000006B0: 2C 58 24 3A 4E 41 24 28 43 29 B2 58 24 3A 9E 20 |,X$:NA$(C).X$:. |
000006C0: 35 32 39 39 32 2C 32 2C 31 31 2C 58 24 3A 52 45 |52992,2,11,X$:RE|
000006D0: 24 28 43 29 B2 58 24 00 F9 0E 4E 02 5A 55 28 43 |$(C).X$...N.ZU(C|
000006E0: 29 B2 43 3A 99 22 13 1D 1D 1D 1D 22 43 22 9D 20 |).C:."....."C". |
000006F0: 22 3A 43 B2 43 AA 31 3A 82 00 0B 0F 58 02 8B 20 |":C.C.1:....X.. |
00000700: 54 24 B3 B1 22 22 A7 20 35 34 30 00 4D 0F 62 02 |T$.."". 540.M.b.|
00000710: A0 20 32 3A 97 20 36 35 30 2C 31 32 38 3A 99 22 |. 2:. 650,128:."|
00000720: 13 11 11 90 3E 9F 91 22 3B 3A 43 50 B2 32 3A 4E |....>..";:CP.2:N|
00000730: 4F B2 30 3A 4E 55 B2 30 3A 45 4E B2 43 3A 8B 20 |O.0:NU.0:EN.C:. |
00000740: 45 4E B1 32 33 20 A7 20 45 4E B2 32 33 00 7E 0F |EN.23 . EN.23.~.|
00000750: 6C 02 99 20 C7 28 31 33 29 A3 32 29 4E 41 24 28 |l.. .(13).2)NA$(|
00000760: 4E 55 AA 31 29 3B 3A 4E 55 B2 4E 55 AA 31 3A 8B |NU.1);:NU.NU.1:.|
00000770: 20 4E 55 B3 45 4E AB 31 20 A7 20 36 32 30 00 A4 | NU.EN.1 . 620..|
00000780: 0F 76 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.v.. ***********|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007A0: 2A 2A 2A 2A 00 BA 0F 80 02 8F 20 54 41 53 54 41 |****...... TASTA|
000007B0: 54 55 52 41 42 46 52 41 47 45 00 E0 0F B2 02 8F |TURABFRAGE......|
000007C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 00 F8 0F BC 02 A1 20 54 41 24 3A 8B 20 54 41 24 |...... TA$:. TA$|
000007F0: B2 22 22 A7 20 37 30 30 00 2B 10 C6 02 8B 20 54 |."". 700.+.... T|
00000800: 41 24 B2 22 86 22 A7 20 8B 20 43 50 B1 32 20 A7 |A$.".". . CP.2 .|
00000810: 20 43 50 B2 43 50 AB 31 3A 9E 20 35 33 30 35 36 | CP.CP.1:. 53056|
00000820: 2C 30 2C 32 2C 30 2C 32 33 2C 30 00 49 10 D0 02 |,0,2,0,23,0.I...|
00000830: 8B 20 54 41 24 B2 22 86 22 A7 20 8B 20 43 50 B2 |. TA$.".". . CP.|
00000840: 32 20 A7 20 8D 20 33 31 30 00 89 10 DA 02 8B 20 |2 . . 310...... |
00000850: 54 41 24 B2 22 87 22 A7 20 8B 20 43 50 B3 45 4E |TA$.".". . CP.EN|
00000860: 20 A7 20 8B 20 4E 4F AA 43 50 B3 43 20 A7 20 43 | . . NO.CP.C . C|
00000870: 50 B2 43 50 AA 31 3A 9E 20 35 33 30 35 36 2C 31 |P.CP.1:. 53056,1|
00000880: 2C 32 2C 30 2C 32 33 2C 30 00 A9 10 E4 02 8B 20 |,2,0,23,0...... |
00000890: 54 41 24 B2 22 87 22 A7 20 8B 20 43 50 B1 B2 32 |TA$.".". . CP..2|
000008A0: 33 20 A7 20 8D 20 32 37 30 00 BB 10 EE 02 8B 20 |3 . . 270...... |
000008B0: 54 41 24 B2 22 85 22 A7 38 31 30 00 00 11 F8 02 |TA$.".".810.....|
000008C0: 8B 54 41 24 B2 22 89 22 A7 8B 43 B3 31 34 35 A7 |.TA$."."..C.145.|
000008D0: 46 B2 31 3A 43 B2 43 AA 31 3A 99 22 96 13 1D 1D |F.1:C.C.1:."....|
000008E0: 1D 1D 22 43 AB 31 22 9D 20 9F 22 3A 45 4E B2 45 |.."C.1". .":EN.E|
000008F0: 4E AA 31 3A 8B 45 4E B1 32 33 A7 45 4E B2 32 33 |N.1:.EN.23.EN.23|
00000900: 00 2B 11 02 03 8B 54 41 24 B2 22 89 22 A7 8B 46 |.+....TA$."."..F|
00000910: B2 31 A7 46 B2 30 3A 54 45 B2 30 3A 54 45 24 B2 |.1.F.0:TE.0:TE$.|
00000920: 4E 41 24 28 30 29 3A 89 38 34 30 00 3F 11 0C 03 |NA$(0):.840.?...|
00000930: 8B 20 54 41 24 B2 22 8C 22 A7 20 31 30 30 30 00 |. TA$.".". 1000.|
00000940: 53 11 16 03 8B 20 54 41 24 B2 22 8B 22 A7 20 31 |S.... TA$.".". 1|
00000950: 30 39 30 00 5D 11 20 03 89 20 37 30 30 00 7C 11 |090.]. .. 700.|.|
00000960: 2A 03 54 45 B2 5A 55 28 4E 4F AA 43 50 AB 31 29 |*.TE.ZU(NO.CP.1)|
00000970: 3A 54 45 24 B2 4E 41 24 28 54 45 29 00 B0 11 34 |:TE$.NA$(TE)...4|
00000980: 03 9E 20 35 33 30 35 36 2C 30 2C 43 50 2C 32 2C |.. 53056,0,CP,2,|
00000990: 32 33 2C 31 38 3A 8B 43 B1 32 33 A7 45 4E B2 45 |23,18:.C.23.EN.E|
000009A0: 4E AA 31 3A 8D 32 39 30 3A 45 4E B2 45 4E AB 31 |N.1:.290:EN.EN.1|
000009B0: 00 D5 11 3E 03 81 49 B2 4E 4F AA 43 50 AB 32 A4 |...>..I.NO.CP.2.|
000009C0: 43 AB 31 3A 5A 55 28 49 AA 31 29 B2 5A 55 28 49 |C.1:ZU(I.1).ZU(I|
000009D0: AA 32 29 3A 82 00 F0 11 48 03 97 32 31 34 2C 43 |.2):....H..214,C|
000009E0: 50 3A 97 32 31 31 2C 31 39 3A 9E 35 38 37 33 32 |P:.211,19:.58732|
000009F0: 00 10 12 52 03 99 22 A3 A3 22 54 45 24 3A 8F 22 |...R..".."TE$:."|
00000A00: A3 22 3D 43 4F 4D 4D 4F 44 4F 52 45 2B 22 54 22 |."=COMMODORE+"T"|
00000A10: 00 28 12 5C 03 A1 20 54 41 24 3A 8B 20 54 41 24 |.(.\.. TA$:. TA$|
00000A20: B2 22 22 A7 20 38 36 30 00 6B 12 66 03 8B 20 54 |."". 860.k.f.. T|
00000A30: 41 24 B2 22 86 22 A7 20 8B 43 50 B1 32 A7 43 50 |A$.".". .CP.2.CP|
00000A40: B2 43 50 AB 31 3A 9E 35 33 30 35 36 2C 30 2C 32 |.CP.1:.53056,0,2|
00000A50: 2C 31 39 2C 32 34 2C 33 37 3A 9E 35 33 30 35 36 |,19,24,37:.53056|
00000A60: 2C 30 2C 32 2C 30 2C 32 33 2C 30 00 89 12 70 03 |,0,2,0,23,0...p.|
00000A70: 8B 20 54 41 24 B2 22 86 22 A7 20 8B 20 43 50 B2 |. TA$.".". . CP.|
00000A80: 32 20 A7 20 8D 20 33 31 30 00 CD 12 7A 03 8B 20 |2 . . 310...z.. |
00000A90: 54 41 24 B2 22 87 22 A7 8B 43 50 B3 45 4E 20 A7 |TA$."."..CP.EN .|
00000AA0: 43 50 B2 43 50 AA 31 3A 9E 35 33 30 35 36 2C 31 |CP.CP.1:.53056,1|
00000AB0: 2C 32 2C 31 39 2C 32 34 2C 33 37 3A 9E 35 33 30 |,2,19,24,37:.530|
00000AC0: 35 36 2C 31 2C 32 2C 30 2C 32 33 2C 30 00 EC 12 |56,1,2,0,23,0...|
00000AD0: 84 03 8B 20 54 41 24 B2 22 87 22 A7 20 8B 20 43 |... TA$.".". . C|
00000AE0: 50 B2 32 33 20 A7 20 8D 20 32 37 30 00 FE 12 8E |P.23 . . 270....|
00000AF0: 03 8B 20 54 41 24 B2 22 85 22 A7 39 35 30 00 3C |.. TA$.".".950.<|
00000B00: 13 98 03 8B 20 54 41 24 B2 22 8A 22 A7 20 54 45 |.... TA$.".". TE|
00000B10: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............|
00000B20: 1D 1D 1D 22 3A 43 B2 43 AB 31 3A 45 4E B2 43 3A |...":C.C.1:EN.C:|
00000B30: 8B 45 4E B1 32 33 A7 45 4E B2 32 33 00 61 13 A2 |.EN.23.EN.23.a..|
00000B40: 03 8B 54 41 24 B2 22 8A 22 A7 20 99 22 13 96 1D |..TA$.".". ."...|
00000B50: 1D 1D 1D 22 43 AB 31 22 9D 20 9F 22 3A 89 39 37 |..."C.1". .":.97|
00000B60: 30 00 6B 13 AC 03 89 20 38 36 30 00 84 13 B6 03 |0.k.... 860.....|
00000B70: 9E 20 35 33 30 35 36 2C 31 2C 43 50 2C 32 2C 32 |. 53056,1,CP,2,2|
00000B80: 33 2C 31 38 00 BA 13 C0 03 81 49 B2 43 AB 31 A4 |3,18......I.C.1.|
00000B90: 4E 4F AA 43 50 AB 31 20 A9 AB 31 3A 5A 55 28 49 |NO.CP.1 ..1:ZU(I|
00000BA0: AA 31 29 B2 5A 55 28 49 29 3A 82 3A 5A 55 28 4E |.1).ZU(I):.:ZU(N|
00000BB0: 4F AA 43 50 AB 31 29 B2 54 45 00 D6 13 CA 03 97 |O.CP.1).TE......|
00000BC0: 20 32 31 34 2C 43 50 3A 97 20 32 31 31 2C 32 3A | 214,CP:. 211,2:|
00000BD0: 9E 35 38 37 33 32 00 F5 13 D4 03 99 20 54 45 24 |.58732...... TE$|
00000BE0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000BF0: 20 20 20 20 22 00 FF 13 DE 03 89 20 37 30 30 00 | "...... 700.|
00000C00: 24 14 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |$.... **********|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 2A 2A 2A 2A 00 49 14 F2 03 8F 20 20 53 43 48 52 |****.I.... SCHR|
00000C30: 45 49 42 45 4E 20 44 45 53 20 53 4F 52 54 49 45 |EIBEN DES SORTIE|
00000C40: 52 54 45 4E 20 44 49 52 2E 00 6E 14 FC 03 8F 20 |RTEN DIR..n.... |
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 |**************..|
00000C70: 14 06 04 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 54 |.... 2,8,2,"#":T|
00000C80: B2 31 38 3A 81 20 49 B2 30 A4 B5 28 28 43 AB 32 |.18:. I.0..((C.2|
00000C90: 29 AD 38 29 3A 8B 20 38 AC 49 AA 38 B1 B2 43 AB |).8):. 8.I.8..C.|
00000CA0: 31 A7 54 B2 30 00 C8 14 10 04 98 31 2C 22 42 2D |1.T.0......1,"B-|
00000CB0: 50 20 32 20 30 22 3A 98 32 2C C7 28 54 29 C7 28 |P 2 0":.2,.(T).(|
00000CC0: 53 4E 28 49 AA 32 29 29 00 E8 14 1A 04 81 20 42 |SN(I.2))...... B|
00000CD0: 50 B2 30 A4 37 3A 98 31 2C 22 42 2D 50 20 32 22 |P.0.7:.1,"B-P 2"|
00000CE0: 3B 42 50 AC 33 32 AA 32 00 0C 15 24 04 8B 20 42 |;BP.32.2...$.. B|
00000CF0: 50 AA 38 AC 49 AA 31 B1 B2 43 20 A7 20 98 32 2C |P.8.I.1..C . .2,|
00000D00: 4E 55 24 3B 3A 82 3A 89 31 30 38 30 00 4A 15 2E |NU$;:.:.1080.J..|
00000D10: 04 98 32 2C 41 4E 24 28 5A 55 28 42 50 AA 38 AC |..2,AN$(ZU(BP.8.|
00000D20: 49 AA 31 29 29 4E 41 24 28 5A 55 28 42 50 AA 38 |I.1))NA$(ZU(BP.8|
00000D30: AC 49 AA 31 29 29 52 45 24 28 5A 55 28 42 50 AA |.I.1))RE$(ZU(BP.|
00000D40: 38 AC 49 AA 31 29 29 3B 3A 82 00 81 15 38 04 98 |8.I.1));:....8..|
00000D50: 31 2C 22 55 32 20 32 20 30 20 31 38 22 53 4E 28 |1,"U2 2 0 18"SN(|
00000D60: 49 AA 31 29 3A 99 22 96 13 22 A3 33 36 29 53 4E |I.1):."..".36)SN|
00000D70: 28 49 AA 31 29 22 9D 20 9F 22 3A 8D 32 34 30 3A |(I.1)". .":.240:|
00000D80: 82 00 95 15 42 04 A0 20 32 3A 8D 20 33 35 30 3A |....B.. 2:. 350:|
00000D90: 89 20 34 37 30 00 BA 15 4C 04 8F 20 2A 2A 2A 2A |. 470...L.. ****|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 15 56 04 8F |**********...V..|
00000DC0: 20 20 53 45 4B 54 4F 52 45 4E 20 44 45 53 20 44 | SEKTOREN DES D|
00000DD0: 49 52 45 43 54 4F 52 59 20 54 52 41 43 4B 53 00 |IRECTORY TRACKS.|
00000DE0: 04 16 60 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..`.. **********|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 2A 00 37 16 6A 04 83 20 31 2C 34 2C 37 |****.7.j.. 1,4,7|
00000E10: 2C 31 30 2C 31 33 2C 31 36 2C 32 2C 35 2C 38 2C |,10,13,16,2,5,8,|
00000E20: 31 31 2C 31 34 2C 31 37 2C 33 2C 36 2C 39 2C 31 |11,14,17,3,6,9,1|
00000E30: 32 2C 31 35 2C 31 38 00 5C 16 74 04 8F 20 2A 2A |2,15,18.\.t.. **|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 16 7E |************.{.~|
00000E60: 04 8F 20 20 49 4E 50 55 54 20 4D 41 53 43 48 49 |.. INPUT MASCHI|
00000E70: 4E 45 4E 2D 52 4F 55 54 49 4E 45 00 A0 16 88 04 |NEN-ROUTINE.....|
00000E80: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EA0: 00 EA 16 92 04 83 20 33 32 2C 32 35 33 2C 31 37 |...... 32,253,17|
00000EB0: 34 2C 33 32 2C 31 35 38 2C 31 38 33 2C 33 32 2C |4,32,158,183,32,|
00000EC0: 33 30 2C 32 32 35 2C 33 32 2C 32 35 33 2C 31 37 |30,225,32,253,17|
00000ED0: 34 2C 33 32 2C 31 35 38 2C 31 38 33 2C 31 33 38 |4,32,158,183,138|
00000EE0: 2C 37 32 2C 33 32 2C 32 35 33 00 31 17 9C 04 83 |,72,32,253.1....|
00000EF0: 20 31 37 34 2C 33 32 2C 31 33 39 2C 31 37 36 2C | 174,32,139,176,|
00000F00: 31 33 33 2C 37 33 2C 31 33 32 2C 37 34 2C 33 32 |133,73,132,74,32|
00000F10: 2C 31 36 33 2C 31 38 32 2C 31 30 34 2C 33 32 2C |,163,182,104,32,|
00000F20: 31 31 37 2C 31 38 30 2C 31 36 30 2C 32 2C 31 38 |117,180,160,2,18|
00000F30: 35 00 79 17 A6 04 83 20 39 37 2C 30 2C 31 34 35 |5.y.... 97,0,145|
00000F40: 2C 37 33 2C 31 33 36 2C 31 36 2C 32 34 38 2C 32 |,73,136,16,248,2|
00000F50: 30 30 2C 33 32 2C 31 38 2C 32 32 35 2C 31 34 35 |00,32,18,225,145|
00000F60: 2C 39 38 2C 32 30 30 2C 31 39 36 2C 39 37 2C 32 |,98,200,196,97,2|
00000F70: 30 38 2C 32 34 36 2C 33 32 00 94 17 B0 04 83 20 |08,246,32...... |
00000F80: 32 30 34 2C 32 35 35 2C 39 36 2C 30 2C 30 2C 30 |204,255,96,0,0,0|
00000F90: 2C 30 2C 30 00 B9 17 BA 04 8F 20 2A 2A 2A 2A 2A |,0,0...... *****|
00000FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 17 C4 04 8F 20 |*********...... |
00000FC0: 20 53 43 52 4F 4C 4C 20 4D 41 53 43 48 49 4E 45 | SCROLL MASCHINE|
00000FD0: 4E 2D 52 4F 55 54 49 4E 45 00 FE 17 CE 04 8F 20 |N-ROUTINE...... |
00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 30 |**************.0|
00001000: 18 D8 04 83 20 33 32 2C 32 34 35 2C 32 30 37 2C |.... 32,245,207,|
00001010: 31 33 38 2C 37 32 2C 33 32 2C 32 34 35 2C 32 30 |138,72,32,245,20|
00001020: 37 2C 32 32 34 2C 30 2C 31 37 36 2C 33 2C 37 36 |7,224,0,176,3,76|
00001030: 00 78 18 E2 04 83 20 37 32 2C 31 37 38 2C 32 32 |.x.... 72,178,22|
00001040: 34 2C 32 34 2C 31 37 36 2C 32 34 39 2C 31 33 34 |4,24,176,249,134|
00001050: 2C 32 35 31 2C 33 32 2C 32 34 35 2C 32 30 37 2C |,251,32,245,207,|
00001060: 32 32 34 2C 30 2C 31 34 34 2C 32 34 30 2C 32 32 |224,0,144,240,22|
00001070: 34 2C 33 39 2C 31 37 36 00 BF 18 EC 04 83 20 32 |4,39,176...... 2|
00001080: 33 36 2C 31 33 34 2C 32 35 33 2C 33 32 2C 32 34 |36,134,253,32,24|
00001090: 35 2C 32 30 37 2C 32 32 34 2C 32 35 2C 31 37 36 |5,207,224,25,176|
000010A0: 2C 32 32 37 2C 31 33 34 2C 32 35 32 2C 32 33 32 |,227,134,252,232|
000010B0: 2C 31 33 38 2C 35 36 2C 32 32 39 2C 32 35 31 00 |,138,56,229,251.|
000010C0: 07 19 F6 04 83 20 31 34 34 2C 32 31 38 2C 32 34 |..... 144,218,24|
000010D0: 30 2C 32 31 36 2C 31 33 33 2C 32 35 30 2C 33 32 |0,216,133,250,32|
000010E0: 2C 32 34 35 2C 32 30 37 2C 32 32 34 2C 34 30 2C |,245,207,224,40,|
000010F0: 31 37 36 2C 32 30 37 2C 32 32 38 2C 32 35 33 2C |176,207,228,253,|
00001100: 31 34 34 2C 32 30 33 00 4F 19 00 05 83 20 31 33 |144,203.O.... 13|
00001110: 34 2C 32 35 34 2C 31 30 34 2C 31 37 30 2C 31 36 |4,254,104,170,16|
00001120: 35 2C 31 37 32 2C 37 32 2C 31 36 35 2C 31 37 33 |5,172,72,165,173|
00001130: 2C 37 32 2C 31 36 35 2C 31 37 34 2C 37 32 2C 31 |,72,165,174,72,1|
00001140: 36 35 2C 31 37 35 2C 37 32 2C 32 32 34 2C 30 00 |65,175,72,224,0.|
00001150: 96 19 0A 05 83 20 32 30 38 2C 32 32 2C 31 36 36 |..... 208,22,166|
00001160: 2C 32 35 31 2C 31 39 38 2C 32 35 30 2C 32 34 30 |,251,198,250,240|
00001170: 2C 34 34 2C 33 32 2C 32 34 30 2C 32 33 33 2C 32 |,44,32,240,233,2|
00001180: 33 32 2C 31 38 39 2C 32 34 30 2C 32 33 36 2C 31 |32,189,240,236,1|
00001190: 33 33 2C 31 37 32 00 DE 19 14 05 83 20 31 38 31 |33,172...... 181|
000011A0: 2C 32 31 37 2C 33 32 2C 32 31 39 2C 32 30 37 2C |,217,32,219,207,|
000011B0: 34 38 2C 32 33 36 2C 32 30 32 2C 32 34 30 2C 33 |48,236,202,240,3|
000011C0: 2C 37 36 2C 37 32 2C 31 37 38 2C 31 36 36 2C 32 |,76,72,178,166,2|
000011D0: 35 32 2C 31 39 38 2C 32 35 30 2C 32 34 30 00 28 |52,198,250,240.(|
000011E0: 1A 1E 05 83 20 31 36 2C 33 32 2C 32 34 30 2C 32 |.... 16,32,240,2|
000011F0: 33 33 2C 32 30 32 2C 31 38 39 2C 32 34 30 2C 32 |33,202,189,240,2|
00001200: 33 36 2C 31 33 33 2C 31 37 32 2C 31 38 31 2C 32 |36,133,172,181,2|
00001210: 31 37 2C 33 32 2C 32 31 39 2C 32 30 37 2C 34 38 |17,32,219,207,48|
00001220: 2C 32 33 36 2C 31 36 34 00 6F 1A 28 05 83 20 32 |,236,164.o.(.. 2|
00001230: 35 34 2C 33 32 2C 32 34 30 2C 32 33 33 2C 33 32 |54,32,240,233,32|
00001240: 2C 33 36 2C 32 33 34 2C 31 36 39 2C 33 32 2C 31 |,36,234,169,32,1|
00001250: 34 35 2C 32 30 39 2C 31 33 36 2C 31 39 36 2C 32 |45,209,136,196,2|
00001260: 35 33 2C 31 36 2C 32 34 39 2C 37 36 2C 38 38 00 |53,16,249,76,88.|
00001270: B6 1A 32 05 83 20 32 33 33 2C 34 31 2C 33 2C 31 |..2.. 233,41,3,1|
00001280: 33 2C 31 33 36 2C 32 2C 31 33 33 2C 31 37 33 2C |3,136,2,133,173,|
00001290: 33 32 2C 32 32 34 2C 32 33 33 2C 31 36 34 2C 32 |32,224,233,164,2|
000012A0: 35 34 2C 31 37 37 2C 31 37 32 2C 31 34 35 2C 32 |54,177,172,145,2|
000012B0: 30 39 2C 31 37 37 00 F4 1A 3C 05 83 20 31 37 34 |09,177...<.. 174|
000012C0: 2C 31 34 35 2C 32 34 33 2C 31 33 36 2C 31 39 36 |,145,243,136,196|
000012D0: 2C 32 35 33 2C 31 36 2C 32 34 33 2C 39 36 2C 33 |,253,16,243,96,3|
000012E0: 32 2C 32 35 33 2C 31 37 34 2C 37 36 2C 31 35 38 |2,253,174,76,158|
000012F0: 2C 31 38 33 00 00 00 |,183... |
.. .D.. ************************.?.N.. *
*.^.X.. * DIRECTOR
Y-SORT V1.0 *.}.... * -----------------
-- *...... * AUTOR: *....
.. * EDWIN GOEBEL *.Z. .. * SCHU
ETZSTR. 1 *...... * 8522 HERZOGEN
AURACH *...... * *
.7.... ************************.A.H.. 43
0.G.R.. *******************************.
{.... UNTERROUTINEN...... **************
*****************......1,F1,F$,F2,F3:. F
1.0 . .......".."F1;F$,F2;F3".":.:. "."=
CYAN; "."=SCHWARZ...... ----------------
---------------.*.... NO.EN..C . ..J....
53056,0,2,2,23,18:NO.NO.1.}.".. 214,23:
. 211,2:. 58732:. NA$(ZU(NO.EN.1));:....
,.. -------------------------------...6.
. NO.0 . ..R.@.. 53056,1,2,2,23,18:NO.NO
.1...J.. 214,2:. 211,2:. 58732:.NA$(ZU(N
O.1)):..%.T.. --------------------------
-----.D.^.."...".13)"DIRECTORY-SORT".`.H
...12)"----------------"...R..".. DISKET
TE EINLEGEN UND TASTE DRUECKEN"...|.. T$
:. T$."". 380.X...."....
":....... *********
**********************. .... BEGINN DES
HAUPTPROGRAMMES.F.... *****************
**************.E.... 53280,0:. 53281,11:
. 350...... 1,8,15,"I":. AN$(145),NA$(14
5),RE$(145),ZU(146),SN(19)...B.. I.1 . 1
8:. SN(I):....L.. I.52992 . 53242:. S:.
I,S:....V.. 240:. 2,8,2,"#":. 240./...S.
1:C.1:N$.G(0):NN$.N$.N$.N$.N$.N$.N$.N$.N
$.N$.N$.Q...NU$.NN$.NN$.NN$:RE$(0).NN$.N
$.....AN$(0).G(128).G(18).G(1):NA$(0)."-
---------------":. TRENNSTRICH...... ***
****************************...... EINL
ESEN DES DIRECTORYS...... **************
*****************.-....1,"U1 2 0 18"S:."
.."S". ":."."=HELLROT.J.&..#2,T$:.#2,S$:
S.F(S$.N$).L.0.. BP.0 . 7:.1,"B-P 2";BP.
32.2...:.. 52992,2,3,X$:AN$(C).X$:. H(X$
,1).N$. .:. 600.W.D.. 52992,2,16,X$:NA$(
C).X$:. 52992,2,11,X$:RE$(C).X$...N.ZU(C
).C:."....."C". ":C.C.1:....X.. T$.."".
540.M.B. 2:. 650,128:."....>..";:CP.2:N
O.0:NU.0:EN.C:. EN.23 . EN.23.~.L.. G(13
).2)NA$(NU.1);:NU.NU.1:. NU.EN.1 . 620..
.V.. *******************************....
.. TASTATURABFRAGE...... ***************
****************...... TA$:. TA$."". 700
.+.F.. TA$.".". . CP.2 . CP.CP.1:. 53056
,0,2,0,23,0.I.P.. TA$.".". . CP.2 . . 31
0...Z.. TA$.".". . CP.EN . . NO.CP.C . C
P.CP.1:. 53056,1,2,0,23,0...... TA$.".".
. CP..23 . . 270...... TA$.".".810.....
.TA$."."..C.145.F.1:C.C.1:."......"C.1".
.":EN.EN.1:.EN.23.EN.23.+....TA$."."..F
.1.F.0:TE.0:TE$.NA$(0):.840.?.... TA$.".
". 1000.S.... TA$.".". 1090.]. .. 700.|.
*.TE.ZU(NO.CP.1):TE$.NA$(TE)...4.. 53056
,0,CP,2,23,18:.C.23.EN.EN.1:.290:EN.EN.1
.U.>..I.NO.CP.2.C.1:ZU(I.1).ZU(I.2):....
H..214,CP:.211,19:.58732...R..".."TE$:."
."=COMMODORE+"T".(.\.. TA$:. TA$."". 860
.K.F.. TA$.".". .CP.2.CP.CP.1:.53056,0,2
,19,24,37:.53056,0,2,0,23,0...P.. TA$.".
". . CP.2 . . 310.M.Z.. TA$."."..CP.EN .
CP.CP.1:.53056,1,2,19,24,37:.53056,1,2,0
,23,0...... TA$.".". . CP.23 . . 270....
.. TA$.".".950.<.... TA$.".". TE$.".....
...........":C.C.1:EN.C:.EN.23.EN.23.A..
..TA$.".". ."......"C.1". .":.970.K....
860...... 53056,1,CP,2,23,18......I.C.1.
NO.CP.1 ..1:ZU(I.1).ZU(I):.:ZU(NO.CP.1).
TE.V.J.. 214,CP:. 211,2:.58732...T.. TE$
" "...... 700.$.... **
****************************.I.... SCHR
EIBEN DES SORTIERTEN DIR..N.... ********
**********************...... 2,8,2,"#":T
.18:. I.0..((C.2).8):. 8.I.8..C.1.T.0.H.
...1,"B-P 2 0":.2,G(T)G(SN(I.2))...... B
P.0.7:.1,"B-P 2";BP.32.2...$.. BP.8.I.1.
.C . .2,NU$;:.:.1080.J....2,AN$(ZU(BP.8.
I.1))NA$(ZU(BP.8.I.1))RE$(ZU(BP.8.I.1));
:....8..1,"U2 2 0 18"SN(I.1):."..".36)SN
(I.1)". .":.240:....B. 2:. 350:. 470...
L.. ******************************...V..
SEKTOREN DES DIRECTORY TRACKS...`.. **
****************************.7.J.. 1,4,7
,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18.
\.T.. ******************************.{.~
.. INPUT MASCHINEN-ROUTINE. .... ******
************************...... 32,253,17
4,32,158,183,32,30,225,32,253,174,32,158
,183,138,72,32,253.1.... 174,32,139,176,
133,73,132,74,32,163,182,104,32,117,180,
160,2,185.Y.... 97,0,145,73,136,16,248,2
00,32,18,225,145,98,200,196,97,208,246,3
2...... 204,255,96,0,0,0,0,0...... *****
*************************.Y.D.. SCROLL
MASCHINEN-ROUTINE...N.. ****************
**************.0.X.. 32,245,207,138,72,3
2,245,207,224,0,176,3,76.X.... 72,178,22
4,24,176,249,134,251,32,245,207,224,0,14
4,240,224,39,176...... 236,134,253,32,24
5,207,224,25,176,227,134,252,232,138,56,
229,251...... 144,218,240,216,133,250,32
,245,207,224,40,176,207,228,253,144,203.
O.... 134,254,104,170,165,172,72,165,173
,72,165,174,72,165,175,72,224,0...... 20
8,22,166,251,198,250,240,44,32,240,233,2
32,189,240,236,133,172...... 181,217,32,
219,207,48,236,202,240,3,76,72,178,166,2
52,198,250,240.(.... 16,32,240,233,202,1
89,240,236,133,172,181,217,32,219,207,48
,236,164.O.(.. 254,32,240,233,32,36,234,
169,32,145,209,136,196,253,16,249,76,88.
..2.. 233,41,3,13,136,2,133,173,32,224,2
33,164,254,177,172,145,209,177...<.. 174
,145,243,136,196,253,16,243,96,32,253,17
4,76,158,183...
> CLICK IMAGE PREVIEW FOR FULL MODAL