struct myStructure {
 int  myNum;
 char myLetter;
 char myString[30]; // String
};

int main() {
 struct myStructure s1;

 // Assign a value to the string using the strcpy function
 strcpy(s1.myString, "Some text");

 // Print the value
 printf("My string: %s", s1.myString);

 return 0;
}

dim string mystruct
dim integer myaddr = PEEK(VARADDR mystruct)

POKE INTEGER myaddr, 1234  ' store an integer in the "structure"
MID$(mystruct,9,1) = "T"   ' store character, 9th element
MID$(mystruct,10,31) = "A string to store."

i = PEEK(INTEGER myaddr)   ' read the integer
c = MID$(mystruct,9,1)     ' read the character
s$ = MID$(mystruct,10)     ' read the string

Type MyType
MyName As String ' String variable stores a name.
MyBirthDate As Date ' Date variable stores a birthdate.
MySex As Integer ' Integer variable stores sex (0 for female, 1 for male).
End Type

Dim location(3)= "" 'array to store player location
Dim exits(3)= "" 'array to store player exit points
Dim itemsPlayer(10)= "" 'array to store player items
Dim itemsRoom(10)= "" 'array to store items in the room
'etc...

Dim integer room = 1 'current room of player

class Room():
def __init__(self, name, description):
self.name = name
self.description = description
self.exits = {}
self.items = []
self.npcs = []

struct

DIM INTEGER Ships(100,16) ' ShipId, then parameters (see next few lines)
CONST SHIP_TYPE = 1
CONST SHIP_X = 2
CONST SHIP_Y = 3
CONST SHIP_ANGLE = 4
CONST SHIP_SHIELDN = 5
CONST SHIP_SHIELDE = 6
CONST SHIP_SHIELDS = 7
CONST SHIP_SHIELDW = 8
CONST SHIP_SHIELD_MAX = 9
CONST SHIP_HULL = 10
CONST SHIP_ENGINES = 11
CONST SHIP_WEAPONS = 12
CONST SHIP_SENSORS = 13
CONST SHIP_LOGIC = 14  ' 0=None, 1=Attacking, 2=Fleeing
CONST SHIP_LOGIC2 = 15 ' Used as part of the logic
CONST SHIP_POWER = 16

Ships(5,SHIP_X)

CONST num.of.ships = 11
CONST num.of.ship_int = 4
CONST TYPE = 1
CONST XPOS = 2
CONST YPOS = 3
CONST ANGLE = 4

CONST num.of.ship_str = 2
CONST NAME = 1
CONST OWNER = 2
' etc.

' Then define arrays:
DIM SHIP_INT(num.of.ships,num.of.ship_int) As integer
DIM SHIP_STR(num.of.ships,num.of.ship_str) As string

' You can then use the values as:
SHIP_INT(1,TYPE) = 3
SHIP_STR(1,OWNER) = "Geoff"
SHIP_INT(4,ANGLE) = 88
'etc.

Struct address{
  STREET as string 12
  NUMBER as integer
      }

Define Peter type address

Peter.street = "churchroad"
Peter.number = 12

DIM street$(nn) length 12
DIM number%(nn)

Peter = 0 : Charly = 1 : Karen = 2
street$(Peter)="churchroad"
number%(Peter)=12