home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #11
/
Commodore_Disk_User_Vol.3_11_1990_-.d64
/
b.o.s.s.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
454b
|
25 lines
3 poke53280,14:poke646,14:poke53281,6
5 if a=0thena=1:load"the boss",8,1
6 if a=1thena=2:load"map1",8,1
7 sys49152
8 clr
10 'cls
20 'border 10
30 'back 2
40 'ink 1
50 'at 1,5:print"the boss demo......"
60 'pointer on
70 'at 12,10:print"this may be moved"
80 'at 17,10:print"with a joystick port 2"
90 'pos 158,158
100 'clkon
110 ti$="123000"
120 'at 23,0:print"press a key for the piccy bit...."
130 geta$:ifa$=""then130
140 'hires
150 l=1
160 'fill l
170 geta$:ifa$=""then170
180 'lores
190 end