home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 10 rem **** fun things menu ****
  2. 20 rem simple action programs operated by space bar or joystick firebutton for
  3. 25 rem handicapped persons.
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 50 print"[147]":ss=70:poke53280,0:poke53281,0:poke53272,31
  6. 55 v=53248:s=54272:fori=stos+24:pokei,0:next:fori=v+27tov+29:pokei,0:next
  7. 60 fori=v+37tov+46:pokei,0:next:fori=vtov+16:pokei,0:next:pokev+23,0
  8. 65 fori=828to1023:pokei,0:next
  9. 800 :
  10. 805 rem **** menu & control ***
  11. 810 print"[147][158]"
  12. 815 print"            [198][213][206] [212][200][201][206][199][211] [205][197][206][213] [146]"
  13. 820 print"    [217]our [199]enie":print
  14. 822 print"[159]    [211]huttle [204]aunch":print
  15. 825 print"[156]    [208]aratrooper":print
  16. 830 print"    [210]acehorse":print
  17. 835 print"    [196]ancing [205]ouse":print
  18. 840 print"[129]    [198]lower [208]ower":print
  19. 845 print"[150]    [198]ireworks":print
  20. 850 print"[153]    [211]low down scanner":print
  21. 855 print"[154]    [211]peed up scanner":print
  22. 857 print"[155]    [209]uit to [204][207][193][196][211][212][193][210]
  23. 860 [143] *** vertical scan ***
  24. 865 p[178]0:[129]r[178]1187[164](1187[170]720)[169]80
  25. 870 p[178]p[170]1:f[178]0:bb[178][194](r):[151]r,bb[176]128
  26. 875 [129]t[178]1[164]ss:[141]890:[130]:[151]r,bb[175]127
  27. 880 [139]f[178]1[167]900
  28. 885 [130]:[137]865
  29. 890 [161]a$:[139][194](56320)[179]112[176]a$[178]" "[167]f[178]1
  30. 895 [142]
  31. 900 :
  32. 905 [143]....transfer control....
  33. 910 [139]p[178]1[167]b$[178]"ft.your genie"
  34. 915 [139]p[178]2[167]b$[178]"ft.shuttle launch"
  35. 920 [139]p[178]3[167]b$[178]"ft.paratrooper"
  36. 925 [139]p[178]4[167]b$[178]"ft.racehorse"
  37. 930 [139]p[178]5[167]b$[178]"ft.dancing mouse"
  38. 935 [139]p[178]6[167]b$[178]"ft.flower power"
  39. 940 [139]p[178]7[167]b$[178]"ft.fireworks"
  40. 950 [139]p[178]8[167]ss[178]ss[170]30:[139]ss[177]150[167]ss[178]150
  41. 955 [139]p[178]9[167]ss[178]ss[171]30:[139]ss[179]10[167]ss[178]10
  42. 960 [139]p[178]8[176]p[178]9[167]865
  43. 965 [139]p[178]10[167][153]"load(NULL)hank you and goodby!stop":[137]39000
  44. 970 [153]"loadstop"
  45. 975 [153]"new"
  46. 980 [153]"load"[199](34)b$[199](34)","dv
  47. 985 [153]"run
  48. 990 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
  49. 10000 d=peek(186):n$="ft.menu":open15,d,15,"s0:"+n$:close15:saven$,d:end
  50. 39000 fort=0to2000:next
  51. 39010 poke53371,0
  52. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  53. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  54. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  55. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  56. 40040 close2:open2,i,2:close2:ifstthen40060
  57. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  58. 40060 next:return
  59. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  60. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  61. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  62.