10 REM PICK.MLP.C000 - BASIC PROGRAM      EXAMPLE
20 REM PICK.MLP WAS WRITTEN BY STR$ARREN     (null)PRUYT AND APPEARED IN THE (null)AY 1986
30 REM ISSUE OF "[212]HE [212]RANSACTOR."
40 REM
50 PRINT CHR$(147);"[176][192][192][192][192][174]":              PRINT "[221][205]ENU[221]":PRINT "[173][192][192][192][192][189]"
60 SYS 49152:REM TURNS ON PICK.MLP.C000
70 SYS 49155,1,1,4,1:REM DEFINES PICK     AREA AT SCREEN LOCATION 1, 1.
80 ID=PEEK(782):REM RETRIEVE PICK AREA    ID
90 M$="ONE  TWO  THREEFOUR ":X=2:Y=2:     W=7:H=6:C=0:REM POP MENU DEFINITIONS
100 GET A$:IF A$<>CHR$(13)THEN100:REM IF   RETURN KEY IS PRESSED, CONTINUE . . .
110 IF PEEK(2)=ID THEN SYS 49158,X,Y,W,    H,C,M$:REM IF ARROW WAS ON PICK AREA
120 REM WHEN RETURN KEY WAS PRESSED,       THEN POP ON MENU.
130 ON PEEK(599)GOTO 150,160,170,180:REM   GOTO SELECTED MENU CHOICE
140 END:REM OTHERWISE END PROGRAM
150 PRINT"[217]OUR FIRST CHOICE":GOTO    100
160 PRINT"[217]OUR SECOND CHOICE":     GOTO 100
170 PRINT"[217]OUR THIRD CHOICE":    GOTO 100
180 PRINT"[217]OUR FORTH CHOICE"   :GOTO 100