home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 2 #7
/
utv2n7s1.d64
/
visual
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
14KB
|
295 lines
10 sys65409
20 poke53265,0:poke53280,6:poke53281,14:poke649,0:poke808,225
30 forx=0to30:reada:poke828+x,a:nextx
35 data72,152,72,173,12,32,195,255,104,168,104
36 data162,4,32,186,255,169,0,32,189,255,32,192,255,174,12,3
37 data32,201,255,96
40 print"[147][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
50 print"[214][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][214]"
60 print"[214][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][214]";
70 print"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
80 print"[158][161][146][161][161][146][161][188] [146][190][172][172][187][146][187][161][146][161][161][146][161] [190][188][146] [161][146][161]"
90 print"[161][146][161][161][146][161] [146] [188][188][146][162] [161][146][161][161][146][161][161][188][190][146][161][161][146][161]"
100 print"[188][188][190][146][190] [146] [172][187][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]"
110 print" [188][190] [188][162][146][190] [162][162][146] [162][162][146] [188][190][188][190][188][162][162][146][190]"
120 print" [190][188][146] [188] [146][190][161][172][188][146] [172][172][187][146][187]"
130 print"[161][188][190][146][161] [146] [161][146][161][161][146][161][188][188][146][162]"
140 print"[161][146][161][161][146][161] [146] [161][146][161][190][146][190][172][187][161][146][161]"
150 print"[188][190][188][190][188][162][146][190][188][162][146][190] [162][162][146]"
160 print"(c) 1988 louis k. avanzi"
170 print"worksheets for:":print"- [158]text screens"
180 print"- [158]custom characters":print"- [158]sprite design"
190 print"- [158]music staffs"
200 print"mps 801/803 or compatible required"
210 forl=1104to1904step40:pokel,86:pokel+54272,2:pokel+1,116:pokel+54273,6
220 pokel+38,106:pokel+54310,6:pokel+39,86:pokel+54311,2:next
230 poke2023,86:poke56295,2:poke53265,27:forz=1to7500:next:goto1320
240 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto240
250 print#4," text screen worksheet"
260 print#4," [197][197][197][197] [197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":print#4
270 forll=1to3
280 print#4," 1 1 2 2 3 3"
290 print#4," 0 5 0 5 0 5 0 5"
300 print#4:forl=1024to1984step40
310 print#4," "+str$(l)+str$(l+54272);
320 print#4," [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
330 print#4,str$(l+54311)+str$(l+39)+"":next
340 print#4," [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
350 print#4:next:close4:return
360 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto360
370 print#4," custom characters worksheet"
380 print#4," [197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":print#4:print#4
390 forl=1to5:print#4," memory address = [164][164][164][164][164][164][164] memory address = [164][164][164][164][164][164][164]";
400 print#4," memory address = [164][164][164][164][164][164][164]":print#4
410 print#4," 1 1 1"
420 print#4," 2631 poke 2631 poke";
430 print#4," 2631 poke"
440 print#4," 84268421 value 84268421 value";
450 print#4," 84268421 value"
460 print#4," memory memory memory"
470 print#4," address+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164] address+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]";
480 print#4," address+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]"
490 forll=1to7:print#4," +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164] ";
500 print#4," +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164] ";
510 print#4," +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]":next
520 print#4," [183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183]";
530 print#4," [183][183][183][183][183][183][183][183]":print#4:print#4:print#4:next
540 close4:return
550 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto550
560 print#4," sprite designer worksheet"
570 print#4," [197][197][197][197][197][197] [197][197][197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":print#4:print#4:forl=1to3
580 print#4," memory address = [164][164][164][164][164][164][164]":print#4
590 print#4," 1 1 1 poke values"
600 print#4," 2631 2631 2631"
610 print#4," 842684218426842184268421";
620 print#4," byte1 byte2 byte3":print#4," memory";
630 print#4," [165] [165]"
640 print#4," address+ 0 [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
650 print#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":forll=3to9step3
660 print#4," +"+str$(ll)+" [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
670 print#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":next:forll=12to60step3
680 print#4," +"+right$(str$(ll),2);
690 print#4," [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165][164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":next
700 print#4," [183][183][183][183][183][183][183][183][207][183][183][183][183][183][183][183][207][183][183][183][183][183][183][183]"
710 print#4:print#4:next:close4:return
720 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto720
730 print#4," monthly planner"
740 print#4," [183][183][183][183][183][183][183] [183][183][183][183][183][183][183]":print#4
750 print#4," month [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print#4
760 print#4," [207][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183]";
770 print#4,"[183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208]"
780 print#4," [165] sunday [167] monday [167] tuesday [167] wedne";
790 print#4,"sday[167] thursday [167] friday [167] saturday [167]"
800 print#4," [204][175][175][175][175][175][175][1