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 >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
115 lines
1 rem *********************************
2 rem ** scum-64 menu handler **
3 rem ** written by **
4 rem ** w.m.wilson 1988 **
5 rem *********************************
6 :
10 poke55,255:poke56,31:printchr$(8):if peek(49152)=169 then 30
20 poke147,0:sys57812"scum.code",8,1:sys62631
30 sys49254:gosub2000:poke53280,0:poke53281,0:sys49152
40 get g$:if g$<"0" or g$>"9" then 40
50 g=val(g$):if g=0then g=10
60 on g gosub 110,120,130,140,150,160,170,180,300,400
70 goto30
100 :
110 sys49263:return:rem * display
120 sys49272:return:rem * reflect
130 sys49281:return:rem * 2*1
140 sys49290:return:rem * 3*2
150 sys49299:return:rem * 2*4
160 sys49308:return:rem * 2*5
170 gosub200:sys49317:return:rem * poster
180 gosub200:sys49326:return:rem * knitting
190 :
200 :
201 rem *******************************
202 rem ** picture frame: 7,8 only **
203 rem *******************************
204 :
205 sys49169
210 getg$:ifg$="y"org$="[217]"then return
220 if g$<>"n"andg$<>"[206]"then210
230 sys49186
240 print"";spc(29);:gosub290:poke50474,x%
250 print"";spc(29);:gosub290:poke50475,x%
260 print"";spc(29);:gosub290:poke50476,x%
270 print"";spc(29);:gosub290:poke50477,x%
280 poke50478,1:poke198,0:return
290 x%=0:x=1
291 print"*[157]";:get g$:if g$="" then291
293 g=asc(g$):ifg=13 and x<>1 then print" ";:return
294 if g=20 and x>1 then print"[157]* [157][157]";:x%=x%/10:x=x-1:goto291
295 if g<48 or g>57 then291
296 ifx<=3then printg$;:x%=x%*10+val(g$):x=x+1
297 if x%>199 then g=20:goto 294
298 goto291
300 :
301 rem *******************************
302 rem ** load file **
303 rem *******************************
304 :
310 sys49220:print"";spc(21);:gosub500:sys49372:return
400 :
401 rem *******************************
402 rem ** save file **
403 rem *******************************
404 :
410 sys49203
420 getz$:ifz$<>"d"and z$<>"c"then420
430 sys49220:print"";spc(21);"save: ";
440 ifz$="c"then print"m.code";spc(21);:sa=1:gosub500:sys49335:return
450 print"data";spc(21);:sa=1:gosub500:sys49346:return
500 :
501 rem *******************************
502 rem ** get filename **
503 rem *******************************
504 :
505 f$=""
510 a=len(f$):if a<16 then print"*[157]";
520 getg$:ifg$=""then520
530 g=asc(g$):if(g=13anddv=0)or (g=13anda>0) then 580
540 if g=20 and a>0 and a<16 then print"[157]* [157][157]";:f$=left$(f$,a-1):goto510
550 if g=20 and a=16 then print"[157] [221][157][157]";:f$=left$(f$,a-1):goto510
560 if g>=32 and g<=127 and a<16 thenprintg$;:f$=f$+g$
570 goto 510
580 ifa<16 then print" [157]";
590 sys57812f$,dv,sa:return
2000 :
2001 rem ******************************
2002 rem ** koala pad (default) **
2003 rem ******************************
2004 :
2030 dv=8:sa=1:return
2050 rem ******************************
2052 rem ** cdu paint program **
2053 rem ******************************
2054 :
2056 poke50464,017:poke50465,033:rem bit map
2058 poke50466,081:poke50467,064:rem smem
2060 poke50468,057:poke50469,068:rem cmem
2062 poke50470,033:poke50471,072:rem back
2064 poke50472,000:poke50473,080:rem array
2066 dv=8:sa=0:return
2100 :
2101 rem ******************************
2102 rem ** art studio **
2103 rem ******************************
2104 :
2130 poke50464,000:poke50465,032:rem bit map
2140 poke50466,064:poke50467,063:rem smem
2150 poke50468,056:poke50469,067:rem cmem
2160 poke50470,041:poke50471,067:rem back
2170 poke50472,200:poke50473,080:rem array
2180 dv=8:sa=1:return
2200 :
2201 rem ******************************
2202 rem ** blazing paddles **
2203 rem ******************************
2204 :
2230 poke50464,000:poke50465,032:rem bit map
2240 poke50466,000:poke50467,064:rem smem
2250 poke50468,000:poke50469,068:rem cmem
2260 poke50470,128:poke50471,063:rem back
2270 poke50472,000:poke50473,080:rem array
2280 dv=8:sa=0:return