1000  ' ST ALERT BOXES
1010  ' (c) 1987 Antic Publishing
1020  ' Ver 120286
1030  ' Written by Dr. Ron Schaefer
1040  '
1050  '-------------------------
1060   gosub INITAES
1070   fullw 2
1080   clearw 2
1090  '
1100  '-------------------------
1110   while CHOICE<3
1120      TYPE$="3"
1130      TEXT$="Choose a box|and click the mouse."
1140      BUTTON$="One|Two|Quit"
1150      DEFAULT.BUTTON=1
1160      gosub FORM.ALERT
1170      if CHOICE=1 then ?"You chose number 1"
1180      if CHOICE=2 then ?"You chose number 2"
1190      if CHOICE=3 then ?"Good bye"
1200   wend
1210  end
1220  '
1230  '------------------------------
1240  FORM.ALERT:
1250   N#=ADDRIN
1260   poke GINTIN, DEFAULT.BUTTON
1270   ALERT$="["+TYPE$+"]"
1280   ALERT$=ALERT$+"["+TEXT$+"]"
1290   ALERT$=ALERT$+"["+BUTTON$+"]"
1300   ALERT$=ALERT$+chr$(0)+CHR$(0)
1310   poke N#, varptr( ALERT$ )
1320   gemsys( 52 )
1330   CHOICE=peek( GINTOUT )
1340  return
1350  '
1360  '----------------------------------
1370  INITAES:
1380   A#=GB
1390   CONTROL=peek( A# )
1400   GLOBAL=peek( A#+4 )
1410   GINTIN=peek( A#+8 )
1420   GINTOUT=peek( A#+12 )
1430   ADDRIN=peek( A#+16 )
1440   ADDROUT=peek( A#+20 )
1450  return