home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / select (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  61 lines
  1. 0 rem select (wayne happ, 1985)       :
  2. 1 :
  3. 2 rem 4 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 28
  6. 5 :
  7. 6 rem keyword      routine  line  ser #
  8. 7 rem s/select     sel     10388   145
  9. 8 rem s/when       whn     10412   146
  10. 9 rem s/otherwise  oth     10448   147
  11. 10 rem s/endselect wn3     10438   148
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 143 .asc "selec[212]whe[206]"
  16. 144 .asc "otherwis[197]endselec[212]"
  17. 1143 .word sel-1,whn-1
  18. 1144 .word oth-1,wn3-1
  19. 10388 sel bne sel1
  20. 10390 lda #0
  21. 10392 sel1 sta sflg2
  22. 10394 beq sel2
  23. 10396 jsr $ad8a
  24. 10398 ldx #<seltst
  25. 10400 ldy #>seltst
  26. 10402 jsr $bbd4
  27. 10404 sel2 lda #1
  28. 10406 sta sflg1
  29. 10408 rts
  30. 10410 ;
  31. 10412 whn beq oth1
  32. 10414 jsr $ad8a
  33. 10416 lda sflg1
  34. 10418 beq wn1
  35. 10420 lda sflg2
  36. 10422 bne wn2
  37. 10424 lda $61
  38. 10426 bne wn3
  39. 10428 wn1 jmp $a93b
  40. 10430 wn2 lda #<seltst
  41. 10432 ldy #>seltst
  42. 10434 jsr $bc5b
  43. 10436 bne wn1
  44. 10438 wn3 lda #0
  45. 10440 sta sflg1
  46. 10442 jsr $79
  47. 10444 jmp $a940
  48. 10446 ;
  49. 10448 oth beq oth1
  50. 10450 lda sflg1
  51. 10452 bne wn3
  52. 10454 beq wn1
  53. 10456 oth1 jmp $af08
  54. 10458 ;
  55. 10460 sflg1  .byte 0
  56. 10462 ;
  57. 10464 sflg2  .byte 0
  58. 10466 ;
  59. 10468 seltst *=*+5
  60. 10470 ;
  61.