home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 November
/
1993-11.d64
/
vertiscroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
799b
|
25 lines
10 rem ** vertiscroll editor **
20 if a=0thena=1:load"vs.code",8,1
30 if b=0thenb=1:load"vs.letters",8,1
40 s=16928:e=17407
50 print"[147] vertiscroll - scroll text editor"
60 print" press space to enter the text editor."
70 print" you can use 12 lines maximum."
80 print" please type an '@' at the end of your
90 [153]" text and press return to store."
100 [161] a$:[139] a$[179][177]" "[167]100
110 [153]"load";:[159] 1,0:[132]1,t$:[160]1
120 [129] x[178]1024 [164] 1503:[151] s[170]x[171]1024,[194](x):[151] x,42:[130]
130 [153]"loadpress space to see your vertiscroll."
140 [161] a$:[139] a$[179][177]" "[167]140
150 [158]16384
160 [153]"loadpress 's' to save, or 'e' to edit."
170 [161] k$:[139]k$[178]""[167]170
180 [139] k$[178]"e"[167] [158] 16387:[137]40
190 [158]16387
200 [133]"save filename";f$
210 f$[178]"@0:"[170]f$:[159]1,8,1,f$:[151]252,s[173]256:[151]251,s[171][194](252)[172]256
220 [151]782,e[173]256:[151]781,e[171][194](782)[172]256:[151]780,251:[158]65496:[160]1
230 [153]"cont"
240 [139] st[179][177]0[167] [153]"error during save!":[128]