home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 2 #4
/
Commodore_Disk_User_Vol.2_4_1989_-.d64
/
ed
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
123 lines
5 print"[147]loading data files......"
10 ifpeek(832)<>255 thenprint"1";:load"boxes",8,1
15 ifpeek (51500)<>76 thenprint"2";:load"object",8,1
20 ifpeek (52000)<>32 or peek(52001)<>212thenprint"3";:load"s.obj",8,1
30 ifpeek (679)<>32 or peek(680)<>253thenprint"4";:load"l.obj",8,1
50 poke 53287,1: poke 650,128
70 ctab=51200: xb=51005: yb=51006
85 for i=0to39: poke 46960+i,0:next
90 poke 53280,0:poke53281,0:poke 646,15: printchr$(147)
100 print" screen/block editor"
110 print" allen webb 1989"
120 print" e[146]dit blocks"
130 print" d[146]esign screens"
140 print" s[146]ave files"
150 print" l[146]oad files"
155 print" ex[146]it"
160 print" press highlighted key[155]"
170 geti$:ifi$=""then170
180 ifi$="e" then 10000
190 ifi$="d" then 20000
200 ifi$="x" then print"[147]":end
210 ifi$="s"then40000
220 ifi$="l"then50000
500 goto 170
10000 printchr$(147);:block=1: char=0: x0=223:y0=129: xc=0: yc=0
10010 col=peek(ctab) and 15
10071 print""tab(14)"[158]edit blocks"
10072 print"
10073 [153]"sysnext block +sys"
10074 [153]"syslast block -sys"
10075 [153]"syserase block esys"
10076 [153]"sysnext character nsys"
10077 [153]"syslast character psys"
10078 [153]"sysset colour _sys"
10079 [153]"sysnext colour f1sys"
10080 [153]"syslast colour f3sys"
10081 [153]"sysput character *sys"
10082 [153]"sysmain menu m sys"
10090 [151] 2040,14
10091 [151] 53276,0: [151] 53277,0: [151]53271,0
10092 [151] 53269,1
10110 [151] 46981,block: [158] 51500,151
10120 [153]" block: cmdcmdcmdsys";block
10130 [153]" character: ": [151]1157,char: [151] 55429,7
10140 [153]" colour ":[129]i[178]0[164]5:[151]55458[170]i,col:[130]
10150 [153]" character no: cmdcmdcmdcmd";char
10200 [151] 53249,y0[170]8[172]yc
10210 xp[178]x0[170]8[172]xc: [151] 53264,xp[173]256:[151]53248,xp[171][194](53264)[172]256
11000 [161]i$:[139]i$[178]""[167]11000
11010 [139] i$[178]"+" [175] block [179]150 [167] block[178]block[170]1:[137]10110
11020 [139] i$[178]"-" [175] block [177]1 [167] block[178]block[171]1:[137]10110
11030 [139] i$[178]"n" [175] char [179]255 [167] char[178]char[170]1:col[178][194](ctab[170]char): [137]10110
11040 [139] i$[178]"p" [175] char [177]0 [167] char [178]char[171]1:col[178][194](ctab[170]char):[137]10110
11050 [139] i$[178]"input" [167] col[178](col[170]1)[175] 15:[137]10110
11060 [139] i$[178]"dim" [175] col [177]0 [167] col[178]col[171]1:[137]10110
11070 [139] i$[178]""[175]xc[179]4 [167] xc[178]xc[170]1:[137]10200
11080 [139] i$[178]"cmd"[175]xc[177]0 [167] xc[178]xc[171]1:[137]10200
11090 [139] i$[178]""[175]yc[179]4 [167] yc[178]yc[170]1:[137]10200
11120 [139] i$[178]"on"[175]yc[177]0 [167] yc[178]yc[171]1:[137]10200
11130 [139] i$[178]"_" [167] [151] ctab[170]char,col:[137]10110
11140 [139]i$[178]"*"[167] 12000
11150 [139]i$[178]"m"[167] [151] 53269,0:[153]"load";:[137]100
11160 [139]i$[178]"e"[167]12100
11500 [137]10110
12000 ba[178](block[171]1)[172]25[170]47104
12010 [151] ba[170]yc[172]5[170]xc,char
12020 [151]46981 ,block: [158]51500,151:[137]11000
12100 ba[178](block[171]1)[172]25[170]47104
12110 [129]i[178]0[164]25:[151]ba[170]i,32:[130]
12120 [137]10110
12200 [143]
20000 [153][199](147): screen[178]1: x0[178]24: y0[178]49: xc[178]0:yc[178]0:block[178]1
20010 [158] 51500,screen
20020 [151] 2040,13
20021 [151] 53276,0: [151] 53277,1: [151]53271,1
20022 [151] 53269,1
20500 [151] 53249,y0[170]40[172]yc
20510 xp[178]x0[170]40[172]xc: [151] 53264,xp[173]256:[151]53248,xp[171][194](53264)[172]256
21000 [161]i$:[139]i$[178]""[167]21000
21010 [139] i$[178]"+"[175] screen[179]150 [167] screen[178]screen[170]1:[141] 25000:[137]21000
21020 [139] i$[178]"-"[175] screen[177]1 [167] screen[178]screen[171]1:[141] 25000:[137]21000
21030 [139]i$[178]"e"[167]24000
21040 [139] i$[178]""[175]xc[179]7 [167] xc[178]xc[170]1:[137]20500
21050 [139] i$[178]"cmd"[175]xc[177]0 [167] xc[178]xc[171]1:[137]20500
21060 [139] i$[178]""[175]yc[179]4 [167] yc[178]yc[170]1:[137]20500
21170 [139] i$[178]"on"[175]yc[177]0 [167] yc[178]yc[171]1:[137]20500
21180 [139]i$[178]"*"[167]26000
21190 [139]i$[178]"m"[167] [151] 53269,0:[153]"load";:[137]100
21200 [139] i$[178]"x" [167] 30000
22000 [137] 21000
24000 sa[178](screen[171]1)[172]40[170]40960: [129]i[178]0[164]40:[151] sa[170]i,0:[130]
24010 [141] 25000:[137]21000
25000 [153][199](147):[158]51500,screen:[142]
26000 sa[178](screen[171]1)[172]40[170]40960
26010 [151] sa[170]yc[172]8[170]xc,block:[141]25000:[137]21000
30000 [153]"load";:[151]53269,0
30010 [151] 46981,block: [158] 51500,151
30020 [153]"syscurrent screen cmdcmdcmdcmd";screen
30030 [153]"syscurrent block cmdcmdcmdcmd";block
30040 [153]"next block sys+"
30050 [153]"previous block sys-"
30060 [153]"next screen sysn"
30070 [153]"previous screen sysp"
30080 [153]"design screen sysxlist"
31000 [161]i$:[139]i$[178]""[167]31000
31010 [139]i$[178]"+"[175]block[179]150[167]block[178]block[170]1:[137]30010
31020 [139]i$[178]"-"[175]block[177]1 [167]block[178]block[171]1:[137]30010
31030 [139]i$[178]"x" [167] [153]"load":[137]20010
31032 [139]i$[178]"n"[175]screen[179]150[167]screen[178]screen[170]1:[137]30010
31034 [139]i$[178]"p"[175]screen[177]1[167]screen[178]screen[171]1:[137]30010
31040 [137]31000
40000 [153]"load save data"
40010 [133]"file name";fi$
40020 [153]"saving....."
40030 [158] 52000 fi$,8,2,40960,51456
40040 [153]"load";:[137]100
50000 [153]"load load data"
50010 [133]"file name";fi$
50020 [153]"loading....."
50030 [158] 679,fi$,8,40960
50035 [158] 679,"boxes",8,832
50040 [153]"load";:[137]100