home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #7 / utv2n7s1.d64 / visual (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  14KB  |  295 lines
  1. 10 sys65409
  2. 20 poke53265,0:poke53280,6:poke53281,14:poke649,0:poke808,225
  3. 30 forx=0to30:reada:poke828+x,a:nextx
  4. 35 data72,152,72,173,12,32,195,255,104,168,104
  5. 36 data162,4,32,186,255,169,0,32,189,255,32,192,255,174,12,3
  6. 37 data32,201,255,96
  7. 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]";
  8. 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]"
  9. 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]";
  10. 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]";
  11. 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]"
  12. 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]"
  13. 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]"
  14. 110 print" [188][190] [188][162][146][190] [162][162][146]  [162][162][146] [188][190][188][190][188][162][162][146][190]"
  15. 120 print" [190][188][146] [188] [146][190][161][172][188][146] [172][172][187][146][187]"
  16. 130 print"[161][188][190][146][161]  [146] [161][146][161][161][146][161][188][188][146][162]"
  17. 140 print"[161][146][161][161][146][161]  [146] [161][146][161][190][146][190][172][187][161][146][161]"
  18. 150 print"[188][190][188][190][188][162][146][190][188][162][146][190]  [162][162][146]"
  19. 160 print"(c) 1988   louis k. avanzi"
  20. 170 print"worksheets for:":print"- [158]text screens"
  21. 180 print"- [158]custom characters":print"- [158]sprite design"
  22. 190 print"- [158]music staffs"
  23. 200 print"mps 801/803 or compatible required"
  24. 210 forl=1104to1904step40:pokel,86:pokel+54272,2:pokel+1,116:pokel+54273,6
  25. 220 pokel+38,106:pokel+54310,6:pokel+39,86:pokel+54311,2:next
  26. 230 poke2023,86:poke56295,2:poke53265,27:forz=1to7500:next:goto1320
  27. 240 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto240
  28. 250 print#4,"        text screen worksheet"
  29. 260 print#4,"        [197][197][197][197] [197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":print#4
  30. 270 forll=1to3
  31. 280 print#4,"                           1    1    2    2    3    3"
  32. 290 print#4,"                 0    5    0    5    0    5    0    5"
  33. 300 print#4:forl=1024to1984step40
  34. 310 print#4,"     "+str$(l)+str$(l+54272);
  35. 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]";
  36. 330 print#4,str$(l+54311)+str$(l+39)+"":next
  37. 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]"
  38. 350 print#4:next:close4:return
  39. 360 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto360
  40. 370 print#4,"      custom characters worksheet"
  41. 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
  42. 390 forl=1to5:print#4," memory address = [164][164][164][164][164][164][164]  memory address = [164][164][164][164][164][164][164]";
  43. 400 print#4,"  memory address = [164][164][164][164][164][164][164]":print#4
  44. 410 print#4,"           1                         1                         1"
  45. 420 print#4,"           2631     poke             2631     poke";
  46. 430 print#4,"             2631     poke"
  47. 440 print#4,"           84268421 value            84268421 value";
  48. 450 print#4,"            84268421 value"
  49. 460 print#4," memory                    memory                      memory"
  50. 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]";
  51. 480 print#4,"  address+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]"
  52. 490 forll=1to7:print#4,"        +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]  ";
  53. 500 print#4,"       +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]  ";
  54. 510 print#4,"       +"+right$(str$(ll),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]":next
  55. 520 print#4,"           [183][183][183][183][183][183][183][183]                  [183][183][183][183][183][183][183][183]";
  56. 530 print#4,"                  [183][183][183][183][183][183][183][183]":print#4:print#4:print#4:next
  57. 540 close4:return
  58. 550 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto550
  59. 560 print#4,"       sprite designer worksheet"
  60. 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
  61. 580 print#4,"                       memory address = [164][164][164][164][164][164][164]":print#4
  62. 590 print#4,"                       1       1       1           poke values"
  63. 600 print#4,"                       2631    2631    2631"
  64. 610 print#4,"                       842684218426842184268421";
  65. 620 print#4," byte1 byte2 byte3":print#4,"            memory";
  66. 630 print#4,"             [165]       [165]"
  67. 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]";
  68. 650 print#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":forll=3to9step3
  69. 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]";
  70. 670 print#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":next:forll=12to60step3
  71. 680 print#4,"                   +"+right$(str$(ll),2);
  72. 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
  73. 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]"
  74. 710 print#4:print#4:next:close4:return
  75. 720 poke780,4:poke782,0:sys828:ifpeek(783)and1thenclose4:gosub1750:goto720
  76. 730 print#4,"            monthly  planner"
  77. 740 print#4,"            [183][183][183][183][183][183][183]  [183][183][183][183][183][183][183]":print#4
  78. 750 print#4," month [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print#4
  79. 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]";
  80. 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]"
  81. 780 print#4," [165] sunday  [167]  monday  [167]  tuesday [167] wedne";
  82. 790 print#4,"sday[167] thursday [167]  friday  [167] saturday [167]"
  83. 800 print#4," [204][175][175][175][175][175][175][1