home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 4 / Ex4side2.d64 / pick.mlp.example (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  916b  |  19 lines
  1. 10 rem pick.mlp.c000 - basic program      example
  2. 20 rem pick.mlp was written by str$arren     (NULL)pruyt and appeared in the (NULL)ay 1986
  3. 30 rem issue of "[212]he [212]ransactor."
  4. 40 rem
  5. 50 print chr$(147);"[176][192][192][192][192][174]":              print "[221][205]enu[221]":print "[173][192][192][192][192][189]"
  6. 60 sys 49152:rem turns on pick.mlp.c000
  7. 70 sys 49155,1,1,4,1:rem defines pick     area at screen location 1, 1.
  8. 80 id=peek(782):rem retrieve pick area    id
  9. 90 m$="one  two  threefour ":x=2:y=2:     w=7:h=6:c=0:rem pop menu definitions
  10. 100 get a$:if a$<>chr$(13)then100:rem if   return key is pressed, continue . . .
  11. 110 if peek(2)=id then sys 49158,x,y,w,    h,c,m$:rem if arrow was on pick area
  12. 120 rem when return key was pressed,       then pop on menu.
  13. 130 on peek(599)goto 150,160,170,180:rem   goto selected menu choice
  14. 140 end:rem otherwise end program
  15. 150 print"[217]our first choice":goto    100
  16. 160 print"[217]our second choice":     goto 100
  17. 170 print"[217]our third choice":    goto 100
  18. 180 print"[217]our forth choice"   :goto 100
  19.