home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
quickdemos
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
49 lines
10 if peek(49152) <> 32 then load"quickscreen",8,1
20 d$="":a$="***************************************"
30 poke53280,0:poke53281,0
40 print"[147]":for x=0 to 250:next x
50 print"[158]"spc(14)"quickscreen![146]"
60 print"[159] boring text displays come alive!"
70 print"[150] character graphic displays zoom!"
80 print""spc(14)"select demo:[146]"
90 print"[153]"spc(5)"1) demo # 1 - screen roll in"
100 print"[153]"spc(5)"2) demo # 2 - screen split"
110 print"[153]"spc(5)"3) demo # 3 - screen merge"
120 get k$:if k$="1"then 310
130 if k$="2"then 370
140 if k$="3"then 430
150 goto120
160 rem ** draw & store screen **
170 sys 49152,7: rem *** screen off
180 print"[159][147]"a$;d$;a$
190 for x=1024 to 1984 step 40:poke x,42:next
200 for x=1063 to 2023 step 40:poke x,42:next
210 print""spc(12)"[150]quickscreen demo"
220 print""spc(6)"a quick sys command moves the"
230 print""spc(12)"screen in or out."
240 print"[158]can be used in basic or machine"
250 print""spc(12)"language programs."
260 print"[156]"spc(9)" press a key continue "
270 sys 49152,0: rem *** store screen
280 print"[147]": rem *** clear screen
290 sys 49152,8: rem *** screen on
300 return
310 rem ** demo # 1 **
320 gosub 160: rem *** draw & store scr
330 sys 49152,1: rem *** move in # 1
340 get k$:ifk$=""then 340
350 sys 49152,2: rem *** move out # 1
360 goto 40
370 rem ** demo # 2 **
380 gosub 160: rem *** draw & store scr
390 sys 49152,3: rem *** move in # 2
400 get k$:ifk$=""then 400
410 sys 49152,4: rem *** move out # 2
420 goto 40
430 rem ** demo # 3 **
440 gosub 160: rem *** draw & store scr
450 sys 49152,5: rem *** move in # 3
460 get k$:ifk$=""then 460
470 sys 49152,6: rem *** move out # 3
480 goto 40