Print MM.Ver,MM.Device$
Print " very basic pump house var test"

Option base 1

'VAR restore ' gives error if used

Dim pump$(2,7,2) length 5

Input "1st run y/n ";k$
If k$="n" Then GoTo here
blank

show

fill

show

here:
Print " restored "
VAR restore

show

Print " run a 2nd time"


Sub blank
Print "fill blank enteries"
For p=1 To 2
For d=1 To 7
pump$(p,d,1)="--:--"
pump$(p,d,2)="---"
Next d
Next p
End Sub

Sub fill
Print "fill with data"
For p=1 To 2
For d=1 To 7
pt=Int(Rnd*1440)
ph=Int(pt\60)
pm=pt-(ph*60)
pump$(p,d,1)=Str$(ph,2)+":"+Str$(pm,2)
pump$(p,d,2)=Str$(Int(Rnd*720),3)
Next d
Next p
VAR save pump$()
End Sub

Sub show
Print
For d=1 To 7
Print pump$(1,d,1);" ";pump$(1,d,2);" | ";
Print pump$(2,d,1);" ";pump$(2,d,2)
Next d
Print
End Sub

VAR restore ' gives error if used
Dim pump$(2,7,2) length 5

Dim pump$(2,7,2) length 5
VAR restore ' will not give an error

Dim pump$(2,10,2) length 5