_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

3D DIAGRAM

FILE INFORMATION

FILENAME(S): 3D DIAGRAM

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-11-30 19:38:26

APPEARS ON: 1 disk(s)

FILE HASH

0d3c20f598c97f8d81b63568999eaa8540ab4cf32a6be6ad4e74cc494e390f4b

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LA MIX 1 3D DIAGRAM PRG Curtcool, Brian 23 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 08 08 00 00 20 20  00 1E 08 0A 00 8F 20 2A  |......  ...... *|
00000010: 2A 2A 20 33 44 2D 47 52  41 46 20 2A 2A 2A 00 5A  |** 3D-GRAF ***.Z|
00000020: 08 14 00 97 35 33 32 38  31 2C 31 35 3A 99 C7 28  |....53281,15:..(|
00000030: 31 34 29 22 93 90 11 20  20 20 20 30 4E 53 4B 45  |14)"...    0NSKE|
00000040: 53 20 44 41 54 41 20 46  52 41 20 44 49 53 4B 45  |S DATA FRA DISKE|
00000050: 54 54 45 20 28 4A 2F 4E  29 22 00 6C 08 1E 00 A1  |TTE (J/N)".l....|
00000060: 51 24 3A 8B 51 24 B2 22  22 A7 33 30 00 83 08 28  |Q$:.Q$."".30...(|
00000070: 00 8B 51 24 B2 22 4A 22  B0 51 24 B2 22 CA 22 A7  |..Q$."J".Q$.".".|
00000080: 36 36 30 00 AA 08 32 00  99 22 93 11 1D 1D 1D 1D  |660...2.."......|
00000090: 1D 1D 1D 1D 1D 1D 1D 1D  12 1C 20 33 C4 2D C4 49  |.......... 3.-.I|
000000A0: 41 47 52 41 4D 4D 45 52  20 22 00 D7 08 3C 00 99  |AGRAMMER "...<..|
000000B0: 22 11 90 20 20 C4 45 52  20 45 52 20 31 39 20 45  |"..  .ER ER 19 E|
000000C0: 4E 48 45 44 45 52 20 50  41 41 20 48 56 45 52 1D  |NHEDER PAA HVER.|
000000D0: 59 2D 41 4B 53 45 2E 00  00 09 46 00 85 22 11 1F  |Y-AKSE....F.."..|
000000E0: 20 20 C9 4E 44 54 41 53  54 20 45 4E 48 45 44 53  |  .NDTAST ENHEDS|
000000F0: 53 54 4F 45 52 52 45 4C  53 45 20 3A 22 3B 55 56  |STOERRELSE :";UV|
00000100: 00 2D 09 50 00 85 22 11  1F 20 20 C9 4E 44 54 41  |.-.P.."..  .NDTA|
00000110: 53 54 20 4E 41 56 4E 45  54 20 50 41 41 20 58 2D  |ST NAVNET PAA X-|
00000120: 41 4B 53 45 4E 20 3A 20  22 3B 4E 48 24 00 56 09  |AKSEN : ";NH$.V.|
00000130: 5A 00 99 22 11 90 20 20  C4 45 52 20 45 52 20 4D  |Z.."..  .ER ER M|
00000140: 41 58 49 4D 41 4C 54 20  53 45 4B 53 20 53 4F 45  |AXIMALT SEKS SOE|
00000150: 4A 4C 45 52 2E 22 00 7C  09 64 00 85 22 11 1F 20  |JLER.".|.d..".. |
00000160: 20 C9 4E 44 54 41 53 54  20 41 4E 54 41 4C 20 53  | .NDTAST ANTAL S|
00000170: 4F 45 4A 4C 45 52 20 3A  22 3B 4E 44 00 A2 09 6E  |OEJLER :";ND...n|
00000180: 00 99 22 11 90 20 20 C4  45 52 20 45 52 20 46 52  |.."..  .ER ER FR|
00000190: 41 20 45 54 20 54 49 4C  20 54 52 45 20 4C 41 47  |A ET TIL TRE LAG|
000001A0: 2E 22 00 C4 09 78 00 85  22 11 1F 20 20 C9 4E 44  |."...x.."..  .ND|
000001B0: 54 41 53 54 20 41 4E 54  41 4C 20 4C 41 47 20 3A  |TAST ANTAL LAG :|
000001C0: 22 3B 4E 42 00 D2 09 82  00 81 49 B2 30 A4 4E 42  |";NB......I.0.NB|
000001D0: AB 31 00 0C 0A 8C 00 99  22 11 1F 20 20 C9 4E 44  |.1......"..  .ND|
000001E0: 54 41 53 54 20 4E 41 56  4E 45 54 20 50 41 41 22  |TAST NAVNET PAA"|
000001F0: 3B 49 AA 31 22 2E 20 59  2D 41 4B 53 45 20 3A 22  |;I.1". Y-AKSE :"|
00000200: 3B 3A 85 4E 56 24 28 49  29 3A 82 49 00 19 0A 96  |;:.NV$(I):.I....|
00000210: 00 86 48 48 28 32 2C 36  29 00 2D 0A A0 00 99 22  |..HH(2,6).-...."|
00000220: 93 22 3B 3A 81 49 B2 30  A4 4E 42 AB 31 00 51 0A  |.";:.I.0.NB.1.Q.|
00000230: A5 00 99 20 22 90 D6 41  45 52 44 49 45 52 20 46  |... "..AERDIER F|
00000240: 4F 52 22 3B 49 AA 31 22  2E 20 4C 41 47 20 3A 11  |OR";I.1". LAG :.|
00000250: 22 00 5D 0A AA 00 81 4A  B2 31 A4 4E 44 00 7A 0A  |".]....J.1.ND.z.|
00000260: B4 00 99 22 1E D3 4F 45  4A 4C 45 20 4E 52 2E 22  |..."..OEJLE NR."|
00000270: 4A 22 20 3A 20 22 3B 3A  85 54 00 AA 0A BE 00 8B  |J" : ";:.T......|
00000280: B5 28 54 AD 55 56 29 B1  31 39 A7 99 22 11 9E D6  |.(T.UV).19.."...|
00000290: 41 45 52 44 49 45 4E 20  45 52 20 46 4F 52 20 48  |AERDIEN ER FOR H|
000002A0: 4F 45 4A 2E 22 3A 89 31  38 30 00 BD 0A C8 00 48  |OEJ.":.180.....H|
000002B0: 48 28 49 2C 4A 29 B2 54  3A 82 4A 2C 49 00 F5 0A  |H(I,J).T:.J,I...|
000002C0: D2 00 97 35 33 32 38 30  2C 30 3A 97 35 33 32 38  |...53280,0:.5328|
000002D0: 31 2C 30 3A 99 C7 28 31  34 32 29 22 93 95 11 11  |1,0:..(142)"....|
000002E0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000002F0: 11 11 11 22 3B 00 04 0B  DC 00 46 24 B2 22 1D 1D  |...";.....F$."..|
00000300: 1D 1D 1D 22 00 43 0B E6  00 81 49 B2 31 A4 34 3A  |...".C....I.1.4:|
00000310: 99 20 46 24 3B 22 DF 12  20 20 20 20 20 20 20 20  |. F$;"..        |
00000320: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000330: 20 20 20 20 20 DF 22 3A  46 24 B2 46 24 AA 22 1D  |     .":F$.F$.".|
00000340: 22 3A 82 00 72 0B F0 00  99 22 13 1D 1D 1D 1D 1D  |":..r...."......|
00000350: 05 AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
00000360: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
00000370: AF 22 00 89 0B FA 00 81  49 B2 31 A4 31 39 3A 99  |."......I.1.19:.|
00000380: 22 1D 1D 1D 1D 1D CC 22  3B 00 B3 0B 04 01 99 20  |"......";...... |
00000390: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
000003A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 BA  |               .|
000003B0: 22 3A 82 00 D3 0B 0E 01  99 22 13 22 3B 3A 81 49  |":.......".";:.I|
000003C0: B2 31 A4 34 3A 99 22 11  11 11 11 1D 1D 1D 1D 1D  |.1.4:.".........|
000003D0: 1D 22 3B 00 FC 0B 18 01  99 20 22 AF AF AF AF AF  |.";...... ".....|
000003E0: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
000003F0: AF AF AF AF AF AF AF AF  AF 22 3A 82 00 4B 0C 22  |.........":..K."|
00000400: 01 46 31 24 B2 22 13 11  11 11 11 11 11 11 11 11  |.F1$."..........|
00000410: 11 11 11 11 11 11 11 11  11 11 11 22 3A 46 24 B2  |...........":F$.|
00000420: 22 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |"...............|
00000430: 1D 1D 1D 1D 22 3A 46 24  B2 46 24 AA 46 24 AA 46  |....":F$.F$.F$.F|
00000440: 24 3A 43 4F 24 B2 22 1F  9E 1C 22 00 71 0C 2C 01  |$:CO$."...".q.,.|
00000450: 99 22 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
00000460: 11 11 11 11 11 11 11 11  11 11 11 22 3B 4E 48 24  |...........";NH$|
00000470: 3B 00 A6 0C 36 01 81 48  B2 30 A4 4E 42 AB 31 3A  |;...6..H.0.NB.1:|
00000480: 99 22 13 11 9D 9D 9D 9D  9D 9D 9D 22 3B CA 28 46  |.".........";.(F|
00000490: 24 2C 31 2C 48 AA 34 34  29 CA 28 43 4F 24 2C 48  |$,1,H.44).(CO$,H|
000004A0: AA 31 2C 31 29 3B 00 C1  0C 40 01 54 54 24 B2 4E  |.1,1);...@.TT$.N|
000004B0: 56 24 28 48 29 3A 81 49  B2 31 A4 C3 28 54 54 24  |V$(H):.I.1..(TT$|
000004C0: 29 00 DD 0C 4A 01 99 20  CA 28 54 54 24 2C 49 2C  |)...J.. .(TT$,I,|
000004D0: 31 29 3B 22 9D 11 22 3B  3A 82 49 2C 48 00 F6 0C  |1);"..";:.I,H...|
000004E0: 4F 01 8B 55 56 B3 B1 31  A7 99 22 13 28 2A 9D 22  |O..UV..1..".(*."|
000004F0: 55 56 22 9D 29 22 00 22  0D 54 01 99 20 22 13 05  |UV".)".".T.. "..|
00000500: 1D 1D 1D 11 11 11 11 31  35 9D 9D 11 11 11 11 11  |.......15.......|
00000510: 31 30 9D 9D 11 11 11 11  11 35 9D 11 11 11 11 11  |10.......5......|
00000520: 30 22 00 46 0D 5E 01 46  33 24 B2 46 31 24 3A 81  |0".F.^.F3$.F1$:.|
00000530: 48 B2 30 A4 4E 42 AB 31  3A 99 CA 28 43 4F 24 2C  |H.0.NB.1:..(CO$,|
00000540: 48 AA 31 2C 31 29 00 6B  0D 68 01 46 32 24 B2 C8  |H.1,1).k.h.F2$..|
00000550: 28 46 24 2C 38 AA 34 AC  28 4E 44 AB 31 29 AA 48  |(F$,8.4.(ND.1).H|
00000560: 29 3A 99 46 31 24 3B 46  32 24 3B 00 8F 0D 72 01  |):.F1$;F2$;...r.|
00000570: 81 49 B2 4E 44 A4 31 A9  AB 31 3A 8B B5 28 48 48  |.I.ND.1..1:..(HH|
00000580: 28 48 2C 49 29 AD 55 56  29 B2 30 A7 35 30 30 00  |(H,I).UV).0.500.|
00000590: A8 0D 7C 01 81 4A B2 31  A4 B5 28 48 48 28 48 2C  |..|..J.1..(HH(H,|
000005A0: 49 29 AD 55 56 29 AA 48  00 C1 0D 86 01 8B B5 28  |I).UV).H.......(|
000005B0: 48 48 28 48 2C 49 29 AD  55 56 29 B2 30 A7 35 30  |HH(H,I).UV).0.50|
000005C0: 30 00 EB 0D 90 01 8B 4A  B2 31 A7 99 22 95 12 20  |0......J.1..".. |
000005D0: DF 22 3B CA 28 43 4F 24  2C 48 AA 31 2C 31 29 3B  |.";.(CO$,H.1,1);|
000005E0: 22 20 20 92 91 9D 9D 9D  9D 22 3B 00 04 0E 9A 01  |"  ......";.....|
000005F0: 8B 4A B1 31 A7 99 22 A7  20 12 20 20 92 91 9D 9D  |.J.1..". .  ....|
00000600: 9D 9D 22 3B 00 0B 0E A4  01 82 4A 00 18 0E C2 01  |..";......J.....|
00000610: 99 22 A7 DF 12 20 DF 22  00 3F 0E F4 01 99 3A 46  |."... .".?....:F|
00000620: 32 24 B2 C8 28 46 32 24  2C C3 28 46 32 24 29 AB  |2$..(F2$,.(F2$).|
00000630: 34 29 3A 99 46 31 24 3B  46 32 24 3B 3A 82 49 00  |4):.F1$;F2$;:.I.|
00000640: 4F 0E FE 01 46 31 24 B2  46 31 24 AA 22 11 22 00  |O...F1$.F1$.".".|
00000650: 72 0E 08 02 46 32 24 B2  C8 28 46 24 2C 39 AA 34  |r...F2$..(F$,9.4|
00000660: AC 28 4E 44 AB 31 29 29  3A 99 46 33 24 3B 46 32  |.(ND.1)):.F3$;F2|
00000670: 24 3B 00 79 0E 12 02 82  48 00 8B 0E 1C 02 81 49  |$;.y....H......I|
00000680: B2 31 A4 4E 44 3A 99 46  33 24 3B 00 B1 0E 26 02  |.1.ND:.F3$;...&.|
00000690: 46 32 24 B2 C8 28 46 24  2C 39 AA 34 AC 28 49 AB  |F2$..(F$,9.4.(I.|
000006A0: 31 29 29 3A 99 46 32 24  3B 3A 81 4A B2 31 A4 4E  |1)):.F2$;:.J.1.N|
000006B0: 42 00 CF 0E 30 02 8B 4A  B1 31 B0 48 48 28 32 2C  |B...0..J.1.HH(2,|
000006C0: 49 AB 31 29 B2 30 A7 99  22 95 12 DF 9D 22 3B 00  |I.1).0.."....";.|
000006D0: DF 0E 3A 02 99 22 11 1D  22 3B 3A 82 4A 2C 49 00  |..:.."..";:.J,I.|
000006E0: F2 0E 44 02 A1 41 24 3A  8B 41 24 B2 22 22 A7 35  |..D..A$:.A$."".5|
000006F0: 38 30 00 2F 0F 4E 02 97  35 33 32 38 31 2C 31 35  |80./.N..53281,15|
00000700: 3A 99 C7 28 31 34 29 22  92 93 11 90 20 20 20 20  |:..(14)"....    |
00000710: 20 20 20 D3 4B 41 4C 20  56 41 45 52 44 49 45 52  |   .KAL VAERDIER|
00000720: 4E 45 20 53 41 56 45 53  20 28 4A 2F 4E 29 22 00  |NE SAVES (J/N)".|
00000730: 42 0F 58 02 A1 41 24 3A  8B 41 24 B2 22 22 A7 36  |B.X..A$:.A$."".6|
00000740: 30 30 00 59 0F 62 02 8B  41 24 B3 B1 22 4A 22 AF  |00.Y.b..A$.."J".|
00000750: 41 24 B3 B1 22 CA 22 A7  80 00 90 0F 6C 02 9F 31  |A$..".".....l..1|
00000760: 35 2C 38 2C 31 35 3A 9F  32 2C 38 2C 32 2C 22 40  |5,8,15:.2,8,2,"@|
00000770: 30 3A 44 49 41 47 52 41  4D 44 41 54 41 2C 53 2C  |0:DIAGRAMDATA,S,|
00000780: 57 22 3A 8D 38 30 30 3A  52 24 B2 C7 28 31 33 29  |W":.800:R$..(13)|
00000790: 00 B2 0F 76 02 98 32 2C  4E 42 3B 52 24 3B 4E 44  |...v..2,NB;R$;ND|
000007A0: 3B 52 24 3B 4E 48 24 3B  52 24 3B 55 56 3A 8D 38  |;R$;NH$;R$;UV:.8|
000007B0: 30 30 00 E7 0F 80 02 81  49 B2 30 A4 4E 42 AB 31  |00......I.0.NB.1|
000007C0: 3A 98 32 2C 4E 56 24 28  49 29 3A 81 4A B2 30 A4  |:.2,NV$(I):.J.0.|
000007D0: 4E 44 3A 98 32 2C 48 48  28 49 2C 4A 29 3A 8D 38  |ND:.2,HH(I,J):.8|
000007E0: 30 30 3A 82 4A 2C 49 00  F4 0F 8A 02 A0 32 3A A0  |00:.J,I......2:.|
000007F0: 31 35 3A 80 00 1D 10 94  02 97 31 39 38 2C 30 3A  |15:.......198,0:|
00000800: 99 22 11 90 20 20 20 20  C5 52 20 44 49 53 4B 45  |."..    .R DISKE|
00000810: 54 54 45 4E 20 49 20 28  4A 2F 4E 29 22 00 30 10  |TTEN I (J/N)".0.|
00000820: 9E 02 A1 41 24 3A 8B 41  24 B2 22 22 A7 36 37 30  |...A$:.A$."".670|
00000830: 00 45 10 A8 02 86 4E 56  24 28 32 39 29 2C 48 48  |.E....NV$(29),HH|
00000840: 28 32 2C 36 29 00 72 10  B2 02 9F 31 35 2C 38 2C  |(2,6).r....15,8,|
00000850: 31 35 3A 9F 32 2C 38 2C  32 2C 22 30 3A 44 49 41  |15:.2,8,2,"0:DIA|
00000860: 47 52 41 4D 44 41 54 41  2C 53 2C 52 22 3A 8D 38  |GRAMDATA,S,R":.8|
00000870: 30 30 00 8B 10 BC 02 84  32 2C 4E 42 2C 4E 44 2C  |00......2,NB,ND,|
00000880: 4E 48 24 2C 55 56 3A 8D  38 30 30 00 C0 10 C6 02  |NH$,UV:.800.....|
00000890: 81 49 B2 30 A4 4E 42 AB  31 3A 84 32 2C 4E 56 24  |.I.0.NB.1:.2,NV$|
000008A0: 28 49 29 3A 81 4A B2 30  A4 4E 44 3A 84 32 2C 48  |(I):.J.0.ND:.2,H|
000008B0: 48 28 49 2C 4A 29 3A 8D  38 30 30 3A 82 4A 2C 49  |H(I,J):.800:.J,I|
000008C0: 00 D0 10 D0 02 A0 32 3A  A0 31 35 3A 89 32 31 30  |......2:.15:.210|
000008D0: 00 F0 10 20 03 84 31 35  2C 45 2C 45 24 2C 45 31  |... ..15,E,E$,E1|
000008E0: 2C 45 32 3A 8B 45 B2 35  30 B0 45 B3 32 30 A7 8E  |,E2:.E.50.E.20..|
000008F0: 00 03 11 2A 03 99 45 24  3A A0 32 3A A0 31 35 3A  |...*..E$:.2:.15:|
00000900: 90 3A 8E 00 00 00                                 |.:....          |
......  ...... *** 3D-GRAF ***.Z....5328
1,15:.G(14)"...    0NSKES DATA FRA DISKE
TTE (J/N)".L....Q$:.Q$."".30...(..Q$."J"
.Q$."J".660...2.."................ 3D-DI
AGRAMMER ".W.<.."..  DER ER 19 ENHEDER P
AA HVER.Y-AKSE....F.."..  INDTAST ENHEDS
STOERRELSE :";UV.-.P.."..  INDTAST NAVNE
T PAA X-AKSEN : ";NH$.V.Z.."..  DER ER M
AXIMALT SEKS SOEJLER.".|.D.."..  INDTAST
 ANTAL SOEJLER :";ND...N.."..  DER ER FR
A ET TIL TRE LAG.".D.X.."..  INDTAST ANT
AL LAG :";NB.R....I.0.NB.1......"..  IND
TAST NAVNET PAA";I.1". Y-AKSE :";:.NV$(I
):.I......HH(2,6).-. ..".";:.I.0.NB.1.Q.
... ".VAERDIER FOR";I.1". LAG :.".]....J
.1.ND.Z....".SOEJLE NR."J" : ";:.T......
.(T.UV).19.."..VAERDIEN ER FOR HOEJ.":.1
80...H.HH(I,J).T:.J,I...R..53280,0:.5328
1,0:.G(142)".......................";...
..F$.".....".C....I.1.4:. F$;"..        
                     .":F$.F$.".":..R...
."......................................
."......I.1.19:.".....L";...... "       
                       .":..S....".";:.I
.1.4:."..........";...... ".............
.................":..K.".F1$."..........
...........":F$."...................":F$
.F$.F$.F$:CO$."...".Q.,.."..............
...........";NH$;...6..H.0.NB.1:."......
...";J(F$,1,H.44)J(CO$,H.1,1);.A.@.TT$.N
V$(H):.I.1.C(TT$)...J.. J(TT$,I,1);"..";
:.I,H...O..UV..1..".(*."UV".)".".T.. "..
.......15.......10.......5......0".F.^.F
3$.F1$:.H.0.NB.1:.J(CO$,H.1,1).K.H.F2$.H
(F$,8.4.(ND.1).H):.F1$;F2$;...R..I.ND.1.
.1:..(HH(H,I).UV).0.500...|..J.1..(HH(H,
I).UV).H.A.....(HH(H,I).UV).0.500......J
.1..".. .";J(CO$,H.1,1);"  ......";.....
.J.1..". .  ......";......J...B.."... ."
.?....:F2$.H(F2$,C(F2$).4):.F1$;F2$;:.I.
O...F1$.F1$.".".R...F2$.H(F$,9.4.(ND.1))
:.F3$;F2$;.Y....H......I.1.ND:.F3$;...&.
F2$.H(F$,9.4.(I.1)):.F2$;:.J.1.NB.O.0..J
.1.HH(2,I.1).0.."....";...:.."..";:.J,I.
..D..A$:.A$."".580./.N..53281,15:.G(14)"
....       SKAL VAERDIERNE SAVES (J/N)".
B.X..A$:.A$."".600.Y.B..A$.."J".A$.."J".
....L..15,8,15:.2,8,2,"@0:DIAGRAMDATA,S,
W":.800:R$.G(13)...V..2,NB;R$;ND;R$;NH$;
R$;UV:.800......I.0.NB.1:.2,NV$(I):.J.0.
ND:.2,HH(I,J):.800:.J,I..... 2: 15:.....
..198,0:."..    ER DISKETTEN I (J/N)".0.
...A$:.A$."".670.E....NV$(29),HH(2,6).R.
...15,8,15:.2,8,2,"0:DIAGRAMDATA,S,R":.8
00......2,NB,ND,NH$,UV:.800...F..I.0.NB.
1:.2,NV$(I):.J.0.ND:.2,HH(I,J):.800:.J,I
.P.P. 2: 15:.210... ..15,E,E$,E1,E2:.E.5
0.E.20.....*..E$: 2: 15:.:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL