20 MODE0:VDU23;8202;0;0;0;:REPEAT:PRINT"Pictures From 4WL"'"Select 1 - 3"'''"1. First Contact"'"2. AWorks"'"3. Quit"
  100 *FX21
  110 REPEAT:A$=GET$:UNTILINSTR("123",A$)
  140 IFA$="1":*LDPIC FCONTAC
  150 IFA$="2":*LDPIC AWORKS
  160 IFA$<>"3":REPEATUNTILGET:CLS
  170 UNTILA$="3"
  180 *DIR $
  190 *EXEC !BOOT