AS64 9
FILE INFORMATION
FILENAME(S): AS64 9
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-12-01 02:21:54
APPEARS ON: 1 disk(s)
FILE HASH
1a3e4724d700c2f5154d4a779de5c754a080cd8f1f497ca3e7033f63d8a74744
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WORKDISK | AS64 9 | PRG | hedning, scooby | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 00 00 86 20 41 24 28 32 30 30 30 29 |....... A$(2000)| 00000010: 00 28 08 01 00 97 20 35 33 32 38 30 2C 36 3A 97 |.(.... 53280,6:.| 00000020: 20 35 33 32 38 31 2C 36 00 38 08 02 00 58 B2 31 | 53281,6.8...X.1| 00000030: 3A 52 B2 31 3A 59 B2 31 00 5C 08 0A 00 99 22 93 |:R.1:Y.1.\....".| 00000040: 05 20 20 20 20 20 20 20 20 20 20 20 B0 C3 C3 AE |. ....| 00000050: B0 C3 C3 AE B0 C3 C3 AE B0 AE B0 AE 00 80 08 14 |................| 00000060: 00 99 20 20 22 20 20 20 20 20 20 20 20 20 20 20 |.. " | 00000070: C7 B0 AE C8 C7 B0 C3 BD C7 B0 C3 BD C7 C8 C7 C8 |................| 00000080: 00 A4 08 1E 00 99 20 20 22 20 20 20 20 20 20 20 |...... " | 00000090: 20 20 20 20 C7 AD BD C8 C7 AD C3 AE C7 AD C3 AE | ............| 000000A0: C7 AD BD C8 00 C8 08 28 00 99 20 20 22 20 20 20 |.......(.. " | 000000B0: 20 20 20 20 20 20 20 20 C7 B0 AE C8 AD C3 AE C8 | ........| 000000C0: C7 B0 AE C8 AD C3 AE C8 00 EC 08 32 00 99 20 20 |...........2.. | 000000D0: 22 20 20 20 20 20 20 20 20 20 20 20 C7 DD DD C8 |" ....| 000000E0: B0 C3 BD C8 C7 AD BD C8 20 20 C7 C8 00 10 09 3C |........ .....<| 000000F0: 00 99 20 20 22 20 20 20 20 20 20 20 20 20 20 20 |.. " | 00000100: AD BD AD BD AD C3 C3 BD AD C3 C3 BD 20 20 AD BD |............ ..| 00000110: 00 3D 09 41 00 99 20 20 22 20 20 20 20 D5 C0 C0 |.=.A.. " ...| 00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 69 09 |............".i.| 00000140: 46 00 99 20 20 22 20 20 20 20 C2 41 20 50 52 4F |F.. " .A PRO| 00000150: 47 52 41 4D 20 42 59 20 54 48 45 20 42 45 41 55 |GRAM BY THE BEAU| 00000160: 54 59 20 44 49 4E 4F 53 C2 00 96 09 50 00 99 20 |TY DINOS....P.. | 00000170: 20 22 20 20 20 20 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 | " ..........| 00000180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000190: C0 C0 C0 C0 B3 22 00 C3 09 55 00 99 20 20 22 20 |....."...U.. " | 000001A0: 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 | . | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 DD 22 00 F2 09 5A 00 99 20 20 22 20 20 20 20 | ."...Z.. " | 000001D0: DD 20 20 20 20 20 12 46 31 92 20 41 53 53 45 4D |. .F1. ASSEM| 000001E0: 42 4C 45 20 50 52 4F 47 52 41 4D 20 20 20 20 20 |BLE PROGRAM | 000001F0: DD 22 00 20 0A 64 00 99 20 22 20 20 20 20 DD 20 |.". .d.. " . | 00000200: 20 20 20 20 12 46 32 92 20 45 44 49 54 20 50 52 | .F2. EDIT PR| 00000210: 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 DD 22 |OGRAM ."| 00000220: 00 4E 0A 6E 00 99 20 22 20 20 20 20 DD 20 20 20 |.N.n.. " . | 00000230: 20 20 12 46 33 92 20 53 41 56 45 20 53 4F 55 52 | .F3. SAVE SOUR| 00000240: 43 45 20 20 20 20 20 20 20 20 20 20 DD 22 00 7C |CE .".|| 00000250: 0A 78 00 99 20 22 20 20 20 20 DD 20 20 20 20 20 |.x.. " . | 00000260: 12 46 34 92 20 4C 4F 41 44 20 53 4F 55 52 43 45 |.F4. LOAD SOURCE| 00000270: 20 20 20 20 20 20 20 20 20 20 DD 22 00 AA 0A 82 | ."....| 00000280: 00 99 20 22 20 20 20 20 DD 20 20 20 20 20 12 46 |.. " . .F| 00000290: 35 92 20 53 41 56 45 20 43 4F 44 45 20 20 20 20 |5. SAVE CODE | 000002A0: 20 20 20 20 20 20 20 20 DD 22 00 D8 0A 8C 00 99 | ."......| 000002B0: 20 22 20 20 20 20 DD 20 20 20 20 20 12 46 36 92 | " . .F6.| 000002C0: 20 51 55 49 54 20 20 20 20 20 20 20 20 20 20 20 | QUIT | 000002D0: 20 20 20 20 20 20 DD 22 00 04 0B 96 00 99 20 22 | ."...... "| 000002E0: 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 | . | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 DD 22 00 30 0B A0 00 99 20 22 20 20 20 20 | .".0.... " | 00000310: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000320: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 |..............."| 00000330: 00 39 0B C8 00 A1 20 41 24 00 50 0B D2 00 8B 20 |.9.... A$.P.... | 00000340: 41 24 B2 22 85 22 20 A7 20 99 20 22 46 31 91 22 |A$."." . . "F1."| 00000350: 00 6E 0B DC 00 8B 20 41 24 B2 22 89 22 20 A7 20 |.n.... A$."." . | 00000360: 99 20 22 46 32 91 22 3A 89 20 32 30 30 30 00 85 |. "F2.":. 2000..| 00000370: 0B E6 00 8B 20 41 24 B2 22 86 22 20 A7 20 99 20 |.... A$."." . . | 00000380: 22 46 33 91 22 00 9C 0B F0 00 8B 20 41 24 B2 22 |"F3."...... A$."| 00000390: 8A 22 20 A7 20 99 20 22 46 34 91 22 00 B3 0B FA |." . . "F4."....| 000003A0: 00 8B 20 41 24 B2 22 87 22 20 A7 20 99 20 22 46 |.. A$."." . . "F| 000003B0: 35 91 22 00 C4 0B 04 01 8B 20 41 24 B2 22 8B 22 |5."...... A$."."| 000003C0: 20 A7 20 80 00 CE 0B 22 01 89 20 32 30 30 00 DF | . ....".. 200..| 000003D0: 0B D0 07 8F 20 2A 20 45 44 49 54 4F 52 20 2A 00 |.... * EDITOR *.| 000003E0: E9 0B DA 07 99 20 22 93 22 00 FF 0B E4 07 99 20 |..... "."...... | 000003F0: 22 13 05 41 53 36 34 20 45 44 49 54 4F 52 22 00 |"..AS64 EDITOR".| 00000400: 30 0C E9 07 99 20 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |0.... ".........| 00000410: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000420: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."| 00000430: 00 40 0C EE 07 58 B2 31 3A 52 B2 31 3A 59 B2 31 |.@...X.1:R.1:Y.1| 00000440: 00 4F 0C F8 07 81 20 54 B2 30 20 A4 20 31 34 00 |.O.... T.0 . 14.| 00000450: 68 0C 02 08 99 20 54 AA 31 3B A3 35 29 22 3E 22 |h.... T.1;.5)">"| 00000460: 3B 41 24 28 52 AA 54 29 00 70 0C 0C 08 82 20 54 |;A$(R.T).p.... T| 00000470: 00 A2 0C 16 08 99 20 22 11 C0 C0 C0 C0 C0 C0 C0 |...... "........| 00000480: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000490: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000004A0: C0 22 00 B2 0C 17 08 8B 20 58 B3 31 20 A7 20 58 |."...... X.1 . X| 000004B0: B2 31 00 C2 0C 18 08 8B 20 59 B3 32 20 A7 20 59 |.1...... Y.2 . Y| 000004C0: B2 31 00 D2 0C 19 08 8B 20 52 B3 32 20 A7 20 52 |.1...... R.2 . R| 000004D0: B2 31 00 FF 0C 1A 08 99 22 13 20 20 20 20 20 20 |.1......". | 000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00000500: 2B 0D 1B 08 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D |+.... ".........| 00000510: 1D 1D 1D 20 20 20 58 3D 22 3B 58 3B 22 20 52 3D |... X=";X;" R=| 00000520: 22 3B 52 3B 22 20 59 3D 22 3B 59 00 46 0D 1C 08 |";R;" Y=";Y.F...| 00000530: 8B 20 41 24 28 52 29 B2 22 22 20 A7 20 41 24 28 |. A$(R)."" . A$(| 00000540: 52 29 B2 22 20 22 00 56 0D 1D 08 5A B2 20 C3 28 |R)." ".V...Z. .(| 00000550: 41 24 28 52 29 29 00 80 0D 1E 08 8B 20 58 B1 5A |A$(R))...... X.Z| 00000560: 20 A7 20 81 20 54 B2 31 A4 58 AB 5A 3A 41 24 28 | . . T.1.X.Z:A$(| 00000570: 52 29 B2 41 24 28 52 29 AA 22 20 22 3A 82 20 54 |R).A$(R)." ":. T| 00000580: 00 9E 0D 1F 08 8F 20 2A 20 46 4C 59 54 54 41 20 |...... * FLYTTA | 00000590: 4D 41 52 4B 4F 52 45 4E 20 4E 45 52 20 2A 00 AE |MARKOREN NER *..| 000005A0: 0D 20 08 81 20 49 B2 31 20 A4 20 31 AA 59 00 B9 |. .. I.1 . 1.Y..| 000005B0: 0D 2A 08 99 20 22 11 22 3B 00 C1 0D 34 08 82 20 |.*.. ".";...4.. | 000005C0: 49 00 D1 0D 3E 08 81 20 49 B2 31 20 A4 20 35 AA |I...>.. I.1 . 5.| 000005D0: 58 00 DC 0D 48 08 99 20 22 1D 22 3B 00 E4 0D 52 |X...H.. ".";...R| 000005E0: 08 82 20 49 00 07 0E 5C 08 8B 20 CA 28 41 24 28 |.. I...\.. .(A$(| 000005F0: 52 29 2C 58 2C 31 29 B3 B1 C7 28 33 32 29 20 A7 |R),X,1)...(32) .| 00000600: 20 89 20 32 32 38 30 00 1C 0E 66 08 99 20 22 12 | . 2280...f.. ".| 00000610: 05 20 92 22 3A 20 89 20 32 35 30 30 00 37 0E E8 |. .": . 2500.7..| 00000620: 08 99 20 22 12 22 3B CA 28 41 24 28 52 29 2C 58 |.. ".";.(A$(R),X| 00000630: 2C 31 29 3B 22 92 22 00 4E 0E C4 09 A1 20 41 24 |,1);".".N.... A$| 00000640: 3A 8F 20 2A 20 56 49 4C 4C 4B 4F 52 20 2A 00 77 |:. * VILLKOR *.w| 00000650: 0E C5 09 8B 20 41 24 B2 22 91 22 20 A7 20 8D 20 |.... A$."." . . | 00000660: 32 36 30 30 3A 52 B2 52 AB 31 3A 59 B2 59 AB 31 |2600:R.R.1:Y.Y.1| 00000670: 3A 89 20 32 30 37 31 00 A1 0E CE 09 8B 20 41 24 |:. 2071...... A$| 00000680: B2 22 11 22 20 A7 20 8D 20 32 36 30 30 3A 20 52 |."." . . 2600: R| 00000690: B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 32 30 37 |.R.1:Y.Y.1:. 207| 000006A0: 31 00 C4 0E CF 09 8B 20 41 24 B2 22 1D 22 20 A7 |1...... A$."." .| 000006B0: 20 8D 20 32 36 30 30 3A 58 B2 58 AA 31 3A 89 20 | . 2600:X.X.1:. | 000006C0: 32 30 37 31 00 E7 0E D0 09 8B 20 41 24 B2 22 9D |2071...... A$.".| 000006D0: 22 20 A7 20 8D 20 32 36 30 30 3A 58 B2 58 AB 31 |" . . 2600:X.X.1| 000006E0: 3A 89 20 32 30 37 31 00 16 0F D3 09 8B 20 41 24 |:. 2071...... A$| 000006F0: B2 C7 28 31 33 29 20 A7 20 8D 20 32 36 32 30 3A |..(13) . . 2620:| 00000700: 58 B2 31 3A 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A |X.1:R.R.1:Y.Y.1:| 00000710: 89 20 32 30 37 31 00 3F 0F D8 09 8B 20 41 24 B2 |. 2071.?.... A$.| 00000720: 22 13 22 20 A7 20 8D 20 32 36 30 30 3A 52 B2 31 |"." . . 2600:R.1| 00000730: 3A 59 B2 31 3A 58 B2 31 3A 89 20 32 30 37 31 00 |:Y.1:X.1:. 2071.| 00000740: 57 0F DD 09 8B 20 41 24 B2 C7 28 32 30 29 20 A7 |W.... A$..(20) .| 00000750: 20 89 20 34 30 30 30 00 69 0F DE 09 8B 20 41 24 | . 4000.i.... A$| 00000760: B2 22 5F 22 20 A7 20 31 30 00 80 0F E2 09 8B 20 |."_" . 10...... | 00000770: 41 24 B3 B1 22 22 20 A7 20 89 20 20 33 30 30 30 |A$.."" . . 3000| 00000780: 00 8B 0F 1E 0A 89 20 32 35 30 30 00 A9 0F 28 0A |...... 2500...(.| 00000790: 99 22 91 22 3B 3A 8F 20 2A 20 52 45 4E 53 41 20 |.".";:. * RENSA | 000007A0: 52 45 56 45 52 53 45 20 2A 00 C3 0F 29 0A 81 20 |REVERSE *...).. | 000007B0: 54 B2 31 20 A4 20 35 AA 58 3A 99 22 1D 22 3B 3A |T.1 . 5.X:.".";:| 000007C0: 82 20 54 00 D6 0F 2D 0A 99 20 CA 28 41 24 28 52 |. T...-.. .(A$(R| 000007D0: 29 2C 58 2C 31 29 00 DC 0F 32 0A 8E 00 E7 0F 3C |),X,1)...2.....<| 000007E0: 0A 99 20 22 91 22 3B 00 01 10 3D 0A 81 20 54 B2 |.. ".";...=.. T.| 000007F0: 31 20 A4 20 35 AA 58 3A 99 22 1D 22 3B 3A 82 20 |1 . 5.X:.".";:. | 00000800: 54 00 14 10 41 0A 99 20 CA 28 41 24 28 52 29 2C |T...A.. .(A$(R),| 00000810: 58 2C 31 29 00 1A 10 46 0A 8E 00 32 10 B8 0B 41 |X,1)...F...2...A| 00000820: 31 24 B2 C8 28 41 24 28 52 29 2C 58 AB 31 29 AA |1$..(A$(R),X.1).| 00000830: 41 24 00 50 10 C2 0B 41 32 24 B2 C9 28 41 24 28 |A$.P...A2$..(A$(| 00000840: 52 29 2C C3 28 41 24 28 52 29 29 AB 58 AA 31 29 |R),.(A$(R)).X.1)| 00000850: 00 62 10 CC 0B 41 24 28 52 29 B2 41 31 24 AA 41 |.b...A$(R).A1$.A| 00000860: 32 24 00 77 10 D6 0B 8F 20 2A 20 48 4F 50 50 41 |2$.w.... * HOPPA| 00000870: 20 52 41 54 54 20 2A 00 81 10 DB 0B 99 20 22 13 | RATT *...... ".| 00000880: 22 00 91 10 E0 0B 81 20 49 B2 31 20 A4 20 31 AA |"...... I.1 . 1.| 00000890: 59 00 9C 10 EA 0B 99 20 22 11 22 3B 00 A4 10 F4 |Y...... ".";....| 000008A0: 0B 82 20 49 00 B2 10 FE 0B 81 20 49 B2 31 20 A4 |.. I...... I.1 .| 000008B0: 20 36 00 BD 10 08 0C 99 20 22 1D 22 3B 00 C5 10 | 6...... ".";...| 000008C0: 12 0C 82 20 49 00 D1 10 1C 0C 99 20 41 24 28 52 |... I...... A$(R| 000008D0: 29 00 DB 10 1D 0C 58 B2 58 AA 31 00 E6 10 26 0C |).....X.X.1...&.| 000008E0: 89 20 32 30 37 31 00 F4 10 A0 0F 8F 20 2A 20 44 |. 2071...... * D| 000008F0: 45 4C 20 2A 00 11 11 AA 0F 58 B2 58 AB 31 3A 8B |EL *.....X.X.1:.| 00000900: 20 58 B2 30 20 A7 20 58 B2 31 3A 89 20 32 30 37 | X.0 . X.1:. 207| 00000910: 31 00 26 11 B4 0F 41 33 24 B2 C8 28 41 24 28 52 |1.&...A3$..(A$(R| 00000920: 29 2C 58 AB 31 29 00 42 11 BE 0F 41 34 24 B2 C9 |),X.1).B...A4$..| 00000930: 28 41 24 28 52 29 2C C3 28 41 24 28 52 29 29 AB |(A$(R),.(A$(R)).| 00000940: 58 29 00 54 11 C8 0F 41 24 28 52 29 B2 41 33 24 |X).T...A$(R).A3$| 00000950: AA 41 34 24 00 5E 11 D2 0F 99 20 22 13 22 00 6E |.A4$.^.... ".".n| 00000960: 11 DC 0F 81 20 49 B2 31 20 A4 20 31 AA 59 00 79 |.... I.1 . 1.Y.y| 00000970: 11 E6 0F 99 20 22 11 22 3B 00 81 11 F0 0F 82 20 |.... ".";...... | 00000980: 49 00 8F 11 FA 0F 81 20 49 B2 31 20 A4 20 36 00 |I...... I.1 . 6.| 00000990: 9A 11 04 10 99 20 22 1D 22 3B 00 A2 11 0E 10 82 |..... ".";......| 000009A0: 20 49 00 B2 11 18 10 99 20 41 24 28 52 29 AA 22 | I...... A$(R)."| 000009B0: 20 22 00 BD 11 22 10 89 20 32 30 37 31 00 00 00 | "...".. 2071...|
....... A$(2000).(.... 53280,6:. 53281,6
.8...X.1:R.1:Y.1.\....".. .CC.
.CC..CC........... " G..HG.C.
G.C.GHGH...... " G..HG.C.G.C.
G..H.H.(.. " G..H.C.HG..H.C.H
...2.. " G..H.C.HG..H GH...<
.. " .....CC..CC. ...=.A..
" U.............................I".I.
F.. " BA PROGRAM BY THE BEAUTY DINOS
B...P.. " ..........................
.....".C.U.. " .
."...Z.. " . .F1. ASSEM
BLE PROGRAM .". .D.. " . .F2.
EDIT PROGRAM .".N.N.. " .
.F3. SAVE SOURCE .".|.X.. "
. .F4. LOAD SOURCE ."....
.. " . .F5. SAVE CODE
.".X.... " . .F6. QUIT
."...... " .
.".0. .. " JCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCK".9.H.. A$.P.R.. A$."." .
. "F1.".N.... A$."." . . "F2.":. 2000..
.... A$."." . . "F3."...... A$."." . . "
F4."...... A$."." . . "F5.".D.... A$."."
. ..N.".. 200...P.. * EDITOR *...Z.. ".
"...... "..AS64 EDITOR".0.... ".........
...............................".@...X.1
:R.1:Y.1.O.... T.0 . 14.H.... T.1;.5)">"
;A$(R.T).P.... T...... "................
........................."...... X.1 . X
.1.B.... Y.2 . Y.1.R.... R.2 . R.1......
". ".
+.... "............ X=";X;" R=";R;" Y=
";Y.F.... A$(R)."" . A$(R)." ".V...Z. C(
A$(R))...... X.Z . . T.1.X.Z:A$(R).A$(R)
." ":. T...... * FLYTTA MARKOREN NER *..
. .. I.1 . 1.Y...*.. ".";.A.4.. I.Q.>..
I.1 . 5.X...H.. ".";...R.. I...\.. J(A$(
R),X,1)..G(32) . . 2280...F.. ".. .": .
2500.7.... ".";J(A$(R),X,1);".".N.D.. A$
:. * VILLKOR *.W.E.. A$."." . . 2600:R.R
.1:Y.Y.1:. 2071...N.. A$."." . . 2600: R
.R.1:Y.Y.1:. 2071.D.O.. A$."." . . 2600:
X.X.1:. 2071...P.. A$."." . . 2600:X.X.1
:. 2071...S.. A$.G(13) . . 2620:X.1:R.R.
1:Y.Y.1:. 2071.?.X.. A$."." . . 2600:R.1
:Y.1:X.1:. 2071.W.... A$.G(20) . . 4000.
I.... A$."_" . 10...... A$.."" . . 3000
...... 2500...(..".";:. * RENSA REVERSE
*.C.).. T.1 . 5.X:.".";:. T.V.-.. J(A$(R
),X,1)...2.....<.. ".";...=.. T.1 . 5.X:
.".";:. T...A.. J(A$(R),X,1)...F...2...A
1$.H(A$(R),X.1).A$.P.B.A2$.I(A$(R),C(A$(
R)).X.1).B.L.A$(R).A1$.A2$.W.V.. * HOPPA
RATT *...... "."...... I.1 . 1.Y......
".";...... I...... I.1 . 6...... ".";.E.
... I.Q.... A$(R).....X.X.1...&.. 2071..
. .. * DEL *.....X.X.1:. X.0 . X.1:. 207
1.&...A3$.H(A$(R),X.1).B...A4$.I(A$(R),C
(A$(R)).X).T.H.A$(R).A3$.A4$.^.R.. ".".N
.... I.1 . 1.Y.Y.... ".";...... I......
I.1 . 6...... ".";...... I...... A$(R)."
"...".. 2071...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL