home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 151 / 151.d81 / b.program (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  67 lines
  1. 10 poke55,0:poke56,56:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53280,0:poke53281,0:print"[147]"
  4. 40 sys57812"font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 50 poke53272,31
  6. 52 sp$="                                       "
  7. 53 h$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  8. 60 fori=1to5:readmn$(i):next
  9. 70 data"   [207]ption [207]ne    "
  10. 72 data"   [207]ption [212]wo    "
  11. 74 data"   [207]ption [212]hree  "
  12. 76 data"   [207]ption [198]our   "
  13. 78 data"   [209]uit          "
  14. 80 poke214,5:print"[154]":tb=11:my=1
  15. 90 fori=1to5:printtab(tb)mn$(i):next
  16. 100 poke214,4+my:print"[154]"
  17. 110 printtab(tb)""mn$(my)"[145]"
  18. 120 geta$:ifa$=""then120
  19. 130 printtab(tb)mn$(my)
  20. 140 ifa$=chr$(13)then180
  21. 150 ifa$="[145]"thenmy=my-1:ifmy<1thenmy=5
  22. 160 ifa$=""thenmy=my+1:ifmy>5thenmy=1
  23. 170 goto100
  24. 180 print"[147]"
  25. 190 onmygoto200,300,400,500,600
  26. 197 :
  27. 198 :rem option 1
  28. 199 :
  29. 200 c=2:x=1:y=1:xx=19:yy=3:gosub800
  30. 210 gosub900:goto80
  31. 297 :
  32. 298 :rem option 2
  33. 299 :
  34. 300 c=3:x=11:y=2:xx=19:yy=3:gosub800
  35. 310 gosub900:goto80
  36. 397 :
  37. 398 :rem option 3
  38. 399 :
  39. 400 c=4:x=5:y=11:xx=19:yy=3:gosub800
  40. 410 gosub900:goto80
  41. 497 :
  42. 498 :rem option 4
  43. 499 :
  44. 500 c=5:x=17:y=18:xx=19:yy=3:gosub800
  45. 510 gosub900:goto80
  46. 597 :
  47. 598 :rem quit
  48. 599 :
  49. 600 c=2:x=8:y=9:xx=19:yy=3:gosub800
  50. 610 gosub900:goto80
  51. 797 :
  52. 798 :rem box subroutine
  53. 799 :
  54. 800 poke646,c
  55. 810 poke214,y:print
  56. 820 printtab(x)"[176]"left$(h$,xx)"[174]"
  57. 830 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  58. 840 printtab(x)"[173]"left$(h$,xx)"[189]"
  59. 850 return
  60. 897 :
  61. 898 :rem get subroutine
  62. 899 :
  63. 900 poke214,y+2:print:printtab(x+2)mn$(my)
  64. 910 geta$:ifa$=""then910
  65. 920 print"[147]":return
  66. 10000 d=peek(186):n$="b.program":open15,d,15,"s0:"+n$:close15:saven$,d:end
  67.