TYPE agt
    nama AS STRING
    pekerjaan AS STRING
    umur AS INTEGER
    alamat AS STRING
END TYPE
DIM member(10) AS agt
DIM imb AS INTEGER
DIM aksi AS STRING

0
INPUT "Apa yang ingin anda Lakukan ([I]nput, [P]rint atau [K]eluar)"; aksi$
IF aksi = "i" THEN
    GOTO 1
ELSEIF aksi = "p" THEN
    GOTO 2
ELSEIF aksi = "k" THEN
    STOP
ELSE
    GOTO 0
END IF

1
INPUT "Nama"; member(imb).nama$
INPUT "Pekerjaan"; member(imb).pekerjaan$
INPUT "Umur"; member(imb).umur$
INPUT "Alamat"; member(imb).alamat$
imb = imb + 1

INPUT "Input lagi ([Y]a)"; aksi$
IF aksi = "y" THEN
    GOTO 1
ELSE
    GOTO 0
END IF

2
PRINT "No","Nama","Pekerjaan","Umur","Alamat"
DIM i AS INTEGER
i = 0
WHILE member(i).nama <> ""
    PRINT i+1, member(i).nama,member(i).pekerjaan,member(i).umur,member(i).alamat
    i = i + 1
WEND
GOTO 0