home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #5 / Commodore_Disk_User_Vol.2_5_1989_-.d64 / scum.menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  3.1 KB  |  115 lines
  1. 1 rem *********************************
  2. 2 rem ** scum-64 menu handler        **
  3. 3 rem ** written by                  **
  4. 4 rem ** w.m.wilson 1988             **
  5. 5 rem *********************************
  6. 6 :
  7. 10 poke55,255:poke56,31:printchr$(8):if peek(49152)=169 then 30
  8. 20 poke147,0:sys57812"scum.code",8,1:sys62631
  9. 30 sys49254:gosub2000:poke53280,0:poke53281,0:sys49152
  10. 40 get g$:if g$<"0" or g$>"9" then 40
  11. 50 g=val(g$):if g=0then g=10
  12. 60 on g gosub 110,120,130,140,150,160,170,180,300,400
  13. 70 goto30
  14. 100 :
  15. 110 sys49263:return:rem * display
  16. 120 sys49272:return:rem * reflect
  17. 130 sys49281:return:rem * 2*1
  18. 140 sys49290:return:rem * 3*2
  19. 150 sys49299:return:rem * 2*4
  20. 160 sys49308:return:rem * 2*5
  21. 170 gosub200:sys49317:return:rem * poster
  22. 180 gosub200:sys49326:return:rem * knitting
  23. 190 :
  24. 200 :
  25. 201 rem *******************************
  26. 202 rem ** picture frame: 7,8 only   **
  27. 203 rem *******************************
  28. 204 :
  29. 205 sys49169
  30. 210 getg$:ifg$="y"org$="[217]"then return
  31. 220 if g$<>"n"andg$<>"[206]"then210
  32. 230 sys49186
  33. 240 print"";spc(29);:gosub290:poke50474,x%
  34. 250 print"";spc(29);:gosub290:poke50475,x%
  35. 260 print"";spc(29);:gosub290:poke50476,x%
  36. 270 print"";spc(29);:gosub290:poke50477,x%
  37. 280 poke50478,1:poke198,0:return
  38. 290 x%=0:x=1
  39. 291 print"*[157]";:get g$:if g$="" then291
  40. 293 g=asc(g$):ifg=13 and x<>1 then print" ";:return
  41. 294 if g=20 and x>1 then print"[157]* [157][157]";:x%=x%/10:x=x-1:goto291
  42. 295 if g<48 or g>57 then291
  43. 296 ifx<=3then printg$;:x%=x%*10+val(g$):x=x+1
  44. 297 if x%>199 then g=20:goto 294
  45. 298 goto291
  46. 300 :
  47. 301 rem *******************************
  48. 302 rem ** load file                 **
  49. 303 rem *******************************
  50. 304 :
  51. 310 sys49220:print"";spc(21);:gosub500:sys49372:return
  52. 400 :
  53. 401 rem *******************************
  54. 402 rem ** save file                 **
  55. 403 rem *******************************
  56. 404 :
  57. 410 sys49203
  58. 420 getz$:ifz$<>"d"and z$<>"c"then420
  59. 430 sys49220:print"";spc(21);"save: ";
  60. 440 ifz$="c"then print"m.code";spc(21);:sa=1:gosub500:sys49335:return
  61. 450 print"data";spc(21);:sa=1:gosub500:sys49346:return
  62. 500 :
  63. 501 rem *******************************
  64. 502 rem ** get filename              **
  65. 503 rem *******************************
  66. 504 :
  67. 505 f$=""
  68. 510 a=len(f$):if a<16 then print"*[157]";
  69. 520 getg$:ifg$=""then520
  70. 530 g=asc(g$):if(g=13anddv=0)or (g=13anda>0) then 580
  71. 540 if g=20 and a>0 and a<16 then print"[157]* [157][157]";:f$=left$(f$,a-1):goto510
  72. 550 if g=20 and a=16 then print"[157] [221][157][157]";:f$=left$(f$,a-1):goto510
  73. 560 if g>=32 and g<=127 and a<16 thenprintg$;:f$=f$+g$
  74. 570 goto 510
  75. 580 ifa<16 then print" [157]";
  76. 590 sys57812f$,dv,sa:return
  77. 2000 :
  78. 2001 rem ******************************
  79. 2002 rem ** koala pad (default)      **
  80. 2003 rem ******************************
  81. 2004 :
  82. 2030 dv=8:sa=1:return
  83. 2050 rem ******************************
  84. 2052 rem ** cdu paint program        **
  85. 2053 rem ******************************
  86. 2054 :
  87. 2056 poke50464,017:poke50465,033:rem bit map
  88. 2058 poke50466,081:poke50467,064:rem smem
  89. 2060 poke50468,057:poke50469,068:rem cmem
  90. 2062 poke50470,033:poke50471,072:rem back
  91. 2064 poke50472,000:poke50473,080:rem array
  92. 2066 dv=8:sa=0:return
  93. 2100 :
  94. 2101 rem ******************************
  95. 2102 rem ** art studio               **
  96. 2103 rem ******************************
  97. 2104 :
  98. 2130 poke50464,000:poke50465,032:rem bit map
  99. 2140 poke50466,064:poke50467,063:rem smem
  100. 2150 poke50468,056:poke50469,067:rem cmem
  101. 2160 poke50470,041:poke50471,067:rem back
  102. 2170 poke50472,200:poke50473,080:rem array
  103. 2180 dv=8:sa=1:return
  104. 2200 :
  105. 2201 rem ******************************
  106. 2202 rem ** blazing paddles          **
  107. 2203 rem ******************************
  108. 2204 :
  109. 2230 poke50464,000:poke50465,032:rem bit map
  110. 2240 poke50466,000:poke50467,064:rem smem
  111. 2250 poke50468,000:poke50469,068:rem cmem
  112. 2260 poke50470,128:poke50471,063:rem back
  113. 2270 poke50472,000:poke50473,080:rem array
  114. 2280 dv=8:sa=0:return
  115.