home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_21_1988_Transactor_Publishing.d64
/
placeholder.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
40 lines
100 rem: placeholder example
110 rem: first load data into $c000
120 rem: then show off
130 rem: paul blair 5/85
140 :
150 goto330
160 m=53280:rt=49152:printchr$(31)
170 pokem,15:pokem+1,15
180 print"[147] test placeholder":sysrt
190 print:print"hello there! ";:gosub290
200 print"from transactor magazine":gosub290
210 print:print:print"as you can see, ";:gosub290
220 print"screen control is easy":gosub290
230 print:print:print" now i'm here":gosub290
240 print:print:print:print:print"now down here":gosub290
250 print:print"have fun!!";:gosub290
260 print" have fun!!";:gosub290
270 print" have fun!!":gosub290:end
280 :
290 fordelay=1to1000:next:sysrt:return
300 :
310 rem: load m/c into $c000
320 :
330 s=49152:f=49237
340 fori=stof:reada:cs=cs+a:pokei,a:next
350 ifcs<>10286thenprint"error":end
360 clr:goto160
370 :
380 data 169, 2, 141, 32, 208, 56, 32, 240
390 data 255, 138, 72, 152, 72, 24, 160, 12
400 data 162, 24, 32, 240, 255, 160, 192, 169
410 data 68, 32, 51, 192, 32, 228, 255, 240
420 data 251, 162, 24, 32, 255, 233, 169, 15
430 data 141, 32, 208, 104, 168, 104, 170, 24
440 data 76, 240, 255, 132, 93, 133, 92, 160
450 data 0, 177, 92, 240, 6, 32, 210, 255
460 data 200, 208, 246, 96, 18, 32, 80, 82
470 data 69, 83, 83, 32, 65, 78, 89, 32
480 data 75, 69, 89, 32, 146, 0