TYPE CARD
 NAME as String
 PHONE as Integer
 ADDRESS as String
 EMAIL as String
END TYPE

...

DIM CARDFILE(500) As CARD 'Define a new "Cardfile" variable, with up to 500 "Cards" in it

'LIST OPTIONS
OPTION PICO OFF
OPTION RESOLUTION 1280x720 @ 372000KHz
OPTION DISPLAY 60, 160
OPTION HDMI PINS  1, 3, 5, 7
OPTION SDCARD GP29, GP30, GP31, GP32
OPTION KEYBOARD REPEAT 400,50
OPTION AUDIO I2S GP10,GP22', ON PWM CHANNEL 11
OPTION RTC AUTO ENABLE
OPTION COUNT GP0,GP1,GP2,GP3
OPTION MODBUFF ENABLE  512
OPTION PLATFORM HDMIUSBI2S
OPTION HEARTBEAT PIN GP25
> List
Type tBox
 bLeft As integer
 bTop As Integer
 bWidth As Integer
 bHeight As Integer
 bFore As Integer
 bBack As Integer
 bHiFore As Integer
 bHiBack As Integer
 bHeading As String
 bFont As integer
End Type
Dim Boxes(255) As tBox

Sub DrawBox(bID As Integer)
 Box Boxes(bID).bLeft*MM.FONTWIDTH-2,Boxes(bID).bTop*MM.FONTHEIGHT-2,Boxes(bID).bWidth*MM.FONTWIDTH+4,Boxes(bID).bHeight*MM.FONTHEIGHT+4,,1,0
 Text Boxes(bID).bLeft*MM.FONTWIDTH,Boxes(bID).bTop*MM.FONTHEIGHT,Boxes(bID).bHeading
 Text Boxes(bID).bLeft*MM.FONTWIDTH,(Boxes(bID).bTop+1)*MM.FONTHEIGHT,"L"+Str$(Boxes(bID).bLeft)+",T"+Str$(Boxes(bID).bTop)
 Text Boxes(bID).bLeft*MM.FONTWIDTH,(Boxes(bID).bTop+2)*MM.FONTHEIGHT,"W"+Str$(Boxes(bID).bWidth)+",H"+Str$(Boxes(bID).bHeight)
 TILE Boxes(bID).bLeft,Boxes(bID).bTop,RGB(green),RGB(magenta),Boxes(bID).bWidth*MM.FONTWIDTH\8,1
 TILE Boxes(bID).bLeft,Boxes(bID).bTop+1,RGB(yellow),RGB(blue),Boxes(bID).bWidth*MM.FONTWIDTH\8,Boxes(bID).bHeight-1
End Sub

Sub DRBs(n%) 'Draw Random Boxes
 If MM.FONTHEIGHT<> MM.Info(TILE HEIGHT) Then
   If MM.FONTHEIGHT>7 Then TILE HEIGHT MM.FONTHEIGHT Else TILE HEIGHT 8
 EndIf
 If n%<1 Then n%=1
 If n%>255 Then n%=255
 For i=0 To n%
   Boxes(i).bTop=Rnd*(MM.HEIGHT-5)
   Boxes(i).bHeight=2+Rnd*Rnd*(MM.HEIGHT-Boxes(i).bTop-4)
   Boxes(i).bLeft=Rnd*(MM.WIDTH-10)
   Boxes(i).bWidth=4+Rnd*Rnd*(MM.WIDTH-Boxes(i).bLeft-6)
   Boxes(i).bHeading="Box "+Str$(i)
   DrawBox i
 Next i
End Sub

'File save method for Screen Definitions
RUN
DRBs 255 ' draw 255 random boxes
B:
CHDIR "Screens"
Open "st.bas" for output as 1
Struct Save #1, Boxes()
Close #1

' Display method for previously SAVED screens (Boxes())
B:
CHDIR "Screens"
RUN ' to DIM the Boxes() array
Tile height 12
timer=0:open "st.bas" for INPUT as 1:struct load #1,Boxes():for i=0 to 255:DrawBox i:next i:close 1:? timer
'272.81 to restore array from B:and draw screens

> B:
> CHDIR "/Screens"
> RUN ' to DIM the Boxes() array
> Tile height 12
> timer=0:open "st.bas" for RANDOM as 1:Seek 1,1:struct load #1,Boxes(10):DrawBox 10:close 1:? timer
[16] Box Boxes(bID).bLeft*MM.FONTWIDTH-2,Boxes(bID).bTop*MM.FONTHEIGHT-2,Boxes(bID).bWidth*MM.FONTWIDTH+4,Boxes(bID).bHeight*MM.FONTHEIGHT+4,,1,0
Error : Unknown structure member
>

' ============================================
' TEST 75: Random access file with struct array (write and read in reverse)
' Also tests alignment of array elements where the type definition is not a
' multiple of 8 bytes
' tests comments in type definitions
' ============================================
Print "TEST 75: Random access file with struct array"

' Define a struct type with integer and string for this test
Type FileRecord
 id As INTEGER 'comment
' another comment
 label As STRING length 20
rem yet another comment
End Type

' Create a struct array with test data
Dim fileArr75(4) As FileRecord
For i% = 0 To 4
 fileArr75(i%).id = (i% + 1) * 100
 fileArr75(i%).label = "Record" + Str$((i% + 1) * 100)
Next i%

' Write each struct element to file sequentially
Open "structtest.dat" For random As #1
For i% = 0 To 4
 Struct Save #1, fileArr75(i%)
Next i%
Close #1

' Calculate struct size for seeking (INTEGER=8 bytes, STRING=256 bytes = 264 bytes per record)
Dim structSize75% = Struct(sizeof,"FileRecord")

' Read back in reverse order using SEEK
Dim readArr75(4) As FileRecord
Open "structtest.dat" For Random As #1
For i% = 4 To 0 Step -1
 ' Seek to byte position (1-based, so first record at position 1)
 Seek #1, i% * structSize75% + 1
 Struct Load #1, readArr75(4 - i%)
Next i%
Close #1

' Verify the data was read correctly in reverse
ok% = 1
Dim expectedId%, expectedLabel$,labelNum%
For i% = 0 To 4
 ' readArr75(0) should have fileArr75(4) data, readArr75(1) should have fileArr75(3), etc.
 expectedId% = (5 - i%) * 100
 expectedLabel$ = "Record" + Str$(expectedId%)
 If readArr75(i%).id <> expectedId% Then
   Print "    Index"; i%; ": Expected id"; expectedId%; " got"; readArr75(i%).id
   ok% = 0
 EndIf
 If readArr75(i%).label <> expectedLabel$ Then
   Print "    Index"; i%; ": Expected label '"; expectedLabel$; "' got '"; readArr75(i%).label; "'"
   ok% = 0
 EndIf
 ' Also verify using VAL() that the embedded number is correct
 labelNum% = Val(Mid$(readArr75(i%).label, 7))
 If labelNum% <> expectedId% Then
   Print "    Index"; i%; ": VAL extraction failed, expected"; expectedId%; " got"; labelNum%
   ok% = 0
 EndIf
Next i%

If ok% Then
 Print "  PASS: Random access file write and reverse read with strings"
Else
 Print "  FAIL: Random access file reverse read failed"
EndIf

' Clean up the test file
Kill "structtest.dat"

TYPE point
 x as float
 y as float
END TYPE

DIM PointArray(100) as point

' Now access the x and y components of the 5th element:
PRINT PointArray(5).x
PRINT PointArray(5).y

DIM PointArray(100,2)
CONST x=1
CONST y=2

' Now access the x and y components of the 5th element:
PRINT PointArray(5,x)
PRINT PointArray(5,y)

Type FuelValve
  demand As FLOAT       ' The % open value we are trying to set the valve to
  highAlarm As FLOAT    ' The % opening of the valve that we should never exceed
  lowAlarm AS FLOAT     ' The % opening of the valve that we should never drop below
  feedback AS FLOAT     ' The % open value read back from the valve
  alarmIsActive AS INTEGER   ' If 0 then healthy. if 1 then alarmed
End Type

 Dim valve1 As FuelValve

Function SetAlarmFlag(passedInValve AS FuelValve) As FuelValve
 ' First - set the return variable (SetAlarmFlag) to equal the values in the valve variable passed in
 Struct Copy passedInValve To SetAlarmFlag

 ' Now clear the .alarmIsActive flag (in case it's already set)
 SetAlarmFlag.alarmIsActive = 0

 ' Now see if we need to set the flag
 IF passedInValve.demand > valve.highAlarm THEN SetAlarmFlag.alarmIsActive = 1  
 IF passedInValve.feedback > valve.highAlarm THEN SetAlarmFlag.alarmIsActive = 1
 IF passedInValve.demand < valve.lowAlarm THEN SetAlarmFlag.alarmIsActive = 1
 IF passedInValve.feedback < valve.lowAlarm THEN SetAlarmFlag.alarmIsActive = 1
End Function

valve1 = SetAlarmFlag(valve1)

IF valve1.alarmIsActive = 1 THEN PRINT "ALARM! We're all going to die!"

IF <condition>
<commands>
ELSE
<other commands>
END IF

SUB subprogram-name [(parameter-list)]
<commands>
END SUB

IF <condition> GOTO <label-or-line-number>

GOSUB <label-or-line-number>

Dim temperature_degC(1000) As integer
Dim humidity_percent(1000) As integer
Dim airpressure_mbar(1000) As integer
Dim unix_time_sec(1000) As integer ' seconds since 1.1.1970

' And now a Sub, that shall print the temperature and the time..
Sub PrintWeatherData(degC As integer, tUnix As integer)
 Print "We had "; degC; "°C at time"; tUnix; " (unix-sec)"
End Sub

' We execute the Sub by:
PrintWeatherData(temperature_degC(1), unix_time_sec(1))

Type weatherData
 temperature_degC As integer
 humidity_percent As integer
 airpressure_mbar As integer
 unix_time As integer ' seconds since 1.1.1970
End Type

Dim weatherDataRecordings(1000) As weatherData

' And now a Sub, that shall print the temperature and the time..
Sub PrintWeatherData(d As weatherData)
 Print "We had "; d.temperature_degC; "°C at time"; d.unix_time; " (unix-sec)"
End Sub

' We execute the Sub by:
PrintWeatherData(weatherDataRecordings(1))

' But once later we decide to have a Sub, that shall print the temperature and the pressure and the time..
Sub PrintWeatherData2(d As weatherData)
 Print "We had "; d.temperature_degC; "°C and "; d.airpressure_mbar; "mbar at time"; d.unix_time; " (unix-sec)"
End Sub

' We execute the Sub by:
PrintWeatherData2(weatherDataRecordings(1))

' Supports 13 shots at the same time: 0: id | 1: x | 2: y | 3: GPR 1 | 4: GPR 2 | 5: GPR 3
' The three first slots are for the player shots, the other ones for enemies
dim g_shots(12,5)
' Object data: 0: obj id | 1: x | 2: y | 3: life | 4: GPR 1 | 5: GPR 2 | 6: shadow
dim g_obj(20,6)

Type EmpRec
 EmpName as string * 20
 HomeAddress as string * 60
 DOB as string * 10
 SSN as string * 10
 SpouseName as string * 20
 HomePhone as string * 10
 CellNumber as string * 10
 HourlyRate as float
 HireDate as string *10
END TYPE

DIM EmployeeFile(500) as EmpRec

 '
 OPTION EXPLICIT
 OPTION DEFAULT INTEGER
 OPTION BASE 0
 
TYPE room
 t AS FLOAT
 h AS FLOAT
END TYPE
 
 DIM readings(144) AS room
 DIM n

 ' set up dummy data
 FOR n = 1 TO 144
   READ readings(n).t,readings(n).h
 NEXT n
 
 SETTICK 10000, plotroom, 1 'every 10 seconds. *60 for 10 minutes = 1 day
 plotroom
 DO
   ' do other things
 LOOP
 
FUNCTION thisreading(p AS INTEGER) AS room
 ' p = pin number for DHT22
 LOCAL FLOAT tmpr, hmid
 DEVICE HUMID p, tmpr ,hmid
 thisreading.t = tmpr
 thisreading.h = hmid
END FUNCTION

SUB plotroom
 LOCAL n, fromaddr, toaddr, starttime AS FLOAT
 LOCAL ydata(144) AS FLOAT
 LOCAL byteSize = Struct(SIZEOF, "room")
 LOCAL pt1 AS room, pt2 AS room
 
 starttime = TIMER
 ' the slow way. even slower if we used a 2 dimension array
 'for n = 1 to 143
 'readings(n) = readings(n+1)
 'next n
 
 ' it would be faster to use MEMORY COPY
 toaddr = PEEK(VARADDR readings())
 fromaddr = toaddr + byteSize
 MEMORY COPY FLOAT fromaddr, toaddr, 144*2
 
 readings(144) = thisreading(22)
 CLS
 ' the slow way:
 'for n = 1 to 143
 'pt1 = scalep(readings(n))
 'pt2 = scalep(readings(n+1))
 'line n*2,pt1.t,n*2+2,pt2.t,1,rgb(red)
 'line n*2,pt1.h,n*2+2,pt2.h,1,rgb(cyan)
 'next n
 
 'the really slow way:
 'for n = 1 to 143
 'line n*2,scalep(readings(n)).t,n*2+2,scalep(readings(n+1)).t,1,rgb(yellow)
 'line n*2,scalep(readings(n)).h,n*2+2,scalep(readings(n+1)).h,1,rgb(cyan)
 'next n
 
 ' the fast way to plot data
 ' use memory copy to extract each member of the type
 ' LINE PLOT doesn't like typed arrays
 ' you can then use all the features of the MATH command
 fromaddr = PEEK(VARADDR readings())
 toaddr = PEEK(VARADDR ydata())
 MEMORY COPY FLOAT fromaddr, toaddr, 145,2 ' get the temperatures
 MATH SCALE ydata(),-4,ydata()
 MATH ADD ydata(),MM.VRES,ydata()
 LINE PLOT ydata(),144,,2,,,RGB(YELLOW)
 
 MEMORY COPY FLOAT fromaddr+8, toaddr, 145,2 ' get the humidity
 MATH SCALE ydata(),-3,ydata()
 MATH ADD ydata(),MM.VRES,ydata()
 LINE PLOT ydata(),144,,2,,,RGB(CYAN)
 
 struct PRINT readings(144)
 PRINT TIMER - starttime  
END SUB
 
FUNCTION scalep(x AS room) AS room
 scalep.t = MM.VRES - x.t*4
 scalep.h = MM.VRES - x.h*3
END FUNCTION
 
dummydata:
 DATA 21.3,45.7
 DATA 21.5,44.9
 DATA 21.5,43.4
 DATA 21.6,42.2
 DATA 21.6,41.8
 DATA 21.5,41.8
 DATA 21.3,40.9
 DATA 21  ,43
 DATA 21.1,43.9
 DATA 21.3,43.4
 DATA 21.2,43.7
 DATA 21.2,43.5
 DATA 21.4,43.3
 DATA 21.2,43
 DATA 21.2,43.7
 DATA 21.2,44.3
 DATA 21.2,44.3
 DATA 21.3,44.5
 DATA 21.5,43.1
 DATA 21.5,43.5
 DATA 21.4,43.1
 DATA 21.4,43.8
 DATA 21.3,42.8
 DATA 21.2,42.4
 DATA 20.9,43.9
 DATA 20.8,44.6
 DATA 20.7,44.8
 DATA 20.8,44.9
 DATA 20.9,46
 DATA 20.8,46.3
 DATA 20.7,47
 DATA 20.8,47.7
 DATA 21.2,46.8
 DATA 21.3,46.4
 DATA 20.9,48.5
 DATA 20.8,49.2
 DATA 20.7,49.5
 DATA 20.6,49.8
 DATA 20.5,49.9
 DATA 20.5,50
 DATA 20.4,49.5
 DATA 20.3,49.9
 DATA 20.3,49.9
 DATA 20.5,48.2
 DATA 20.2,49.4
 DATA 20.1,50.1
 DATA 20  ,50.2
 DATA 20  ,50.2
 DATA 19.9,50.4
 DATA 19.8,50.4
 DATA 19.7,50.7
 DATA 19.7,50.7
 DATA 19.5,50.9
 DATA 19.5,51
 DATA 19.4,51
 DATA 19.4,51.1
 DATA 19.3,51.4
 DATA 19.2,51.4
 DATA 19.2,51.2
 DATA 19.1,51.6
 DATA 19.1,51.7
 DATA 19  ,51.8
 DATA 19  ,51.8
 DATA 18.9,52.2
 DATA 18.9,52.1
 DATA 18.9,52.6
 DATA 18.8,52.6
 DATA 18.8,53
 DATA 18.8,52.8
 DATA 18.7,53.2
 DATA 18.7,53.3
 DATA 18.7,53.2
 DATA 18.6,53.3
 DATA 18.6,53.3
 DATA 18.6,53.4
 DATA 18.6,53.4
 DATA 18.5,53.5
 DATA 18.5,53.9
 DATA 18.5,53.8
 DATA 18.4,53.8
 DATA 18.4,53.7
 DATA 18.4,53.9
 DATA 18.3,54.1
 DATA 18.3,54.1
 DATA 18.2,54
 DATA 18.2,54.1
 DATA 18.2,54.2
 DATA 18.1,54.6
 DATA 18,  54.6
 DATA 18,  54.5
 DATA 18,  54.4
 DATA 18,  54.5
 DATA 17.9,54.6
 DATA 17.9,54.6
 DATA 18.3,53.9
 DATA 18.7,53
 DATA 18.7,52.5
 DATA 18.7,52.5
 DATA 18.6,52.8
 DATA 18.4,53.8
 DATA 18.5,53.8
 DATA 18.7,53.1
 DATA 18.7,53.1
 DATA 18.4,53.8
 DATA 18.5,54.3
 DATA 18.8,53.9
 DATA 18.9,53.6
 DATA 18.7,54.3
 DATA 18.8,54.4
 DATA 18.9,54.3
 DATA 18.7,55
 DATA 18.9,55.8
 DATA 18.9,55.4
 DATA 19,  55.2
 DATA 19.3,54.8
 DATA 19.2,54.9
 DATA 19.3,55.2
 DATA 19.3,55.4
 DATA 19.4,55
 DATA 19.5,54.9
 DATA 19.5,54.9
 DATA 19.7,54.5
 DATA 19.7,54.6
 DATA 19.8,54.5
 DATA 19.9,54.4
 DATA 20,  54.1
 DATA 20.1,54.4
 DATA 20.2,54.4
 DATA 20.2,54.2
 DATA 20.3,53.9
 DATA 20.3,53.9
 DATA 20.3,35.2
 DATA 20.9,53.5
 DATA 21,  53.4
 DATA 21.2,53.1
 DATA 21.5,53.2
 DATA 21.5,52.9
 DATA 21.7,52.7
 DATA 21.8,52.4
 DATA 21.7,52.6
 DATA 21.7,52.4
 DATA 21.8,52.4
 DATA 22,  52.3
 DATA 22.2,52