home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1992 November
/
1992-11.d64
/
prg1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
517b
|
19 lines
10 rem copyright 1992
15 rem compute publications intl ltd
20 rem all rights reserved
25 x=x+1:ifx=1thenload"program2",8,1
30 ifx=2thenload"bamov",8,1
35 print"[147]":poke53280,0:poke53281,0
40 print"[154]this is program one of the bamov demo."
45 print"program two is under basic's rom."
50 print"it will clear the screen and"
55 print"change the screen and border colors"
60 print"while displaying a message."
65 fort=1to5000:nextt
70 gosub50000
75 poke53280,0:poke53281,0:print"[147][154]back at program one now!"
80 end
50000 gosub50005
50001 sys53090:return
50005 sys53090:goto10