Option EXPLICIT
Option DEFAULT NONE

Type JobRec
LinkID     As INTEGER
LastName   As STRING LENGTH 15
Age        As INTEGER
Occupation As STRING LENGTH 20
Salary     As INTEGER
End Type

Dim job As JobRec
Dim i As INTEGER

Print "LinkID | Last Name       | Age | Occupation           | Salary  "
Print "-------+-----------------+-----+----------------------+---------"

Open "jobs.dbt" For random As #1
Seek #1,1
Struct LOAD #1, job
PrintRec

Seek #1,Struct(SIZEOF "JobRec")*2+1
Struct LOAD #1, job
PrintRec

Close #1
End

Sub printrec
' Format: LinkID (4 digits right-aligned)
Print Right$("    " + Str$(job.LinkID), 4) + " | ";

' Format: Name (15 chars left-aligned)
Print Left$(job.LastName + Space$(15), 15) + " | ";

' Format: Age (3 chars right-aligned)
Print Right$("   " + Str$(job.Age), 3) + " | ";

' Format: Occupation (20 chars left-aligned)
Print Left$(job.Occupation + Space$(20), 20) + " | ";

' Format: Salary (8 chars right-aligned)
Print Right$("        " + Str$(job.Salary), 8)

End Sub

LinkID | Last Name       | Age | Occupation           | Salary
-------+-----------------+-----+----------------------+---------
  1 | Butt            |  63 | Analyst              |   116000
  3 | Venere          |  63 | Analyst              |   106000

[11] #INCLUDE "jobrec.str"
Error : Invalid character: #

 'arrays with calibration values per pixel (192)
 dim Po1(191)  'offset subbank 1
 dim Po0(191)  'offset subbank 0
 dim Pa(191)   'alpha
 dim Pkt(191)  'temperature impact
 dim Pkv(191)  'voltage impact
 dim Vir(191)  'voltage from sensor element and after conversion temperature
 dim Toffs(191):math set 2,Toffs()'Temperature offsets for manual calibration
 
 'debugging to see how much heap memory left, tune array dimension until error message
 'dim vzz(250) '2kb free on PicoMite (non-VGA)
 
 'define the colors
 dim col%(15)              'always need assign 15 colors, default=0 (black)
 
 'scaling buffers and math matrices
 dim f_t(191),f_v(191)                     'scratchpad temp/voltage
 size%=5                                   'pixel size
 x_off%=size%:if selfie=0 then x_off%=-x_off%
 dim Toa(15,11)                            'this is Vir() in 2D form for math
 dim c(15,44)                              'array for intermediate results math
 dim d(11,44),b_e(30,15),b_o(30,15)        'conversion arrays for scaling
 dim x_s%(1394),y_s%(1394)                 'arrays for screen coordinates
 fill_matrix                               'fill conversion matrices
 dim scrn_2D(30,44)                        '2D buffer for math
 dim scrn_1De(1394),scrn_1Do(1394)         'even/odd 1D arrays for 61x45 screen

RUN
Game*Mite initialized
[429] Colour map scrn_1Ds(),scrn_1Ds(),col%()
Error : Invalid syntax

dim a%(100)
dim col%(15)=(0,0,0,0,0,0,0,0,0,0,80,80,80,80,80,80)
for i=0 to 100:a%(i)=i:next

math window a%(),0,15,a%()'IN CASE NEEDED

colour map a%(),a%(),col%()

for I =0 to 1394
Array(I) = col%(Array(i))
Next

framebuffer create
framebuffer write F

dim col%(15)=(0,0,0,0,0,0,0,0,0,0,0,0,rgb(white),rgb(green),rgb(cyan),rgb(red))
dim indx(3)=(12,13,14,15)
dim paint(3)

colour map indx(),paint(),col%()

for i=0 to 3
 box i*64,0,64,64,1,paint(i),paint(i)
next

framebuffer copy F,N

MODE 2
Map Reset
For U=0 To 159
x1=U/128-1.25
For V=0 To 239
y1=V/128-1
  X=0:Y=X:Z=-2.4
  Do
    k=Sqr(X*X+Z*Z)-2
    d=1-Sqr(k*k+Y*Y)
    X=X+x1*d:Y=Y+y1*d:Z=Z+d
  Loop Until d<.005
  v1=Atn(Z/X):u1=Atn(Y/k)
  sColor(): Pixel U,V
  v1=3.13-v1
  sColor(): Pixel 319-U,V
Next
Next

Sub sColor()
p=Sin(Int((u1+v1)*40)*99)*98
c=15 And ((u1-v1+p)*24*Abs(Sin(p)))
Color Map(c)
End Sub

Dim integer cr(15)=(0,15,7,1,0,0,0,0,0,0,0,0,0,0,0,0)
Dim integer cm(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map cm(),cm()
Do
T=cm(0):Tr=cr(0)
For i=0 To 14:cm(i)=cm(i+1):cr(i)=cr(i+1):Next
cm(15)=T:cr(15)=Tr
a=int(16*rnd()):cm(a)=cr(a)
For i=0 To 15:Map(i)=cm(i):Next
Map Set
Pause 50
Loop