home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / mlbeg (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  328b  |  12 lines
  1. 5 print"[147]"
  2. 10 ne$ = "[158]message #1"
  3. 20 two$ = "[158]message #2"
  4. 30 three$ = "[158]message #3"
  5. 40 prompt$ = "please enter a number between 1 and 3.  however, exit this
  6. 50 p1$ [178] " routine with any     other number."
  7. 100 [153]prompt$;p1$
  8. 110 [133] a
  9. 120 [139] a [178] 1 [167] [153] ne$:[137] 100
  10. 130 [139] a [178] 2 [167] [153] two$:[137] 100
  11. 140 [139] a [178] 3 [167] [153] three$:[137] 100
  12.