home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 January
/
1989-01.d64
/
scroll.demo
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
52 lines
10 rem copyright 1989 compute! publications, inc. - all rights reserved
20 ifpeek(52234)<>8thenload"ml-scroll",8,1
30 dimvt$(24):vt$(0)="":fori=1to24:vt$(i)=vt$(i-1)+"":next
40 dima$(127):fori=0to123:reada$(i):ifa$(i)<>"-1"thennexti
50 poke53280,0:poke53281,0:sys52230
60 print"[147][159]":poke702,17:sys52224,7,12,9,14,0,a$(6)
70 print" copyright 1989 compute! pub., inc."
80 printtab(11)"all rights reserved"vt$(5)
90 tx$="":fori=1to16:tx$=tx$+"[209]":nexti
100 printtab(11)""tx$
110 fori=1to9:printtab(11)"[209]"tab(26)"[209]":nexti
120 printtab(11)tx$"[159]"
130 sys52227:x=peek(2):ifxthen130
140 geta$:ifa$=""then140
150 ifa$<"1"ora$>"4"then60
160 onval(a$)goto180,240,330,170
170 sys52230:end
180 print"[147]":poke702,0:fori=0to20step5:forj=0to30step10
190 sys52224,i,j,5,10,100,a$(0)
200 nextj,i
210 printvt$(5)tab(10)"[158]therearenosprites"
220 printvt$(7)tab(15)"usedhere!"vt$(10)tab(14)"pressanykey"
230 sys52227:print"[147]":goto50
240 poke53280,15:poke53281,15:print"[147][144]":poke702,0:tt$=""
250 sys52224,12,12,1,1,150,a$(32)
260 fori=1to32:tt$=tt$+"@":next
270 fori=0to12:printvt$(i+1)tab(19-i)""left$(tt$,i*2+1):next
280 fori=13to18:printvt$(i)tab(7)""left$(tt$,25):next
290 printvt$(23)tab(9)"pressanykeytoexit"
300 printvt$(14)tab(10)"partsofthescreen"
310 printvt$(16)tab(11)"maybeabackdrop"
320 sys52227:goto50
330 print"[147][159]multiple windows..."vt$(23)tab(9)"press any key to exit":poke702,0
340 i=1:j=3
350 gosub390:sys52224,j,i,5,10,255,a$(38)
360 j=j+2:i=i*2:ifi<20then350
370 sys52227
380 goto50
390 printvt$(j-1)tab(i-1)"[176][192][192][192][192][192][192][192][192][192][192][174]"
400 forij=1to5:printtab(i-1)"[221] [221]":next
410 printtab(i-1)"[173][192][192][192][192][192][192][192][192][192][192][189]":return
420 data ,,"[176][192][192][192][192][192][192][192][192][174]","[221]compute![221]","[173][192][192][192][192][192][192][192][192][189]","_"
430 data ,,,,,,,,,"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]","[221] options [221]"
440 data"[221] [221]","[221] (1) demo1 [221]"
450 data"[221] (2) demo2 [221]","[221] (3) demo3 [221]"
460 data"[221] (4) quit [221]","[221] [221]"
470 data"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]",,,,,,,,"_","^","^","_"
480 data,,,"there are",,"** many **",," windows",
490 data" on this",," screen",," just one",," of the",
500 data" possible",," effects",," using...",," smooth","scrolling"
510 data " windows"," 64",,,,,,"_","-1"