home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / multiwindows (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  78 lines
  1. 5 a=a+1
  2. 6 ifa=1thenload"multiwin.ml1",8,1
  3. 7 ifa=2thenload"multiwin.ml2",8,1
  4. 8 gosub60100:clr
  5. 9 :
  6. 10 rem  you must move memsiz down for           ml and screen storage by
  7. 11 rem  copying line 20 to your own             program!!!
  8. 15 :
  9. 20 poke51,0:poke52,148:poke55,0:poke56,148:clr
  10. 25 :
  11. 30 rem  *** sys numbers for ml ***              s1,s2,s3,w1,w2,w3,r1,r2,r3
  12. 35 :
  13. 40 s1=828:r1=889:w1=37888:w2=38083:w3=38278
  14. 42 s2=38473:r2=38534:s3=38595:r3=38656
  15. 45 :
  16. 70 za=23:zb=19:zc=24:zd=39:ze=59903
  17. 72 :
  18. 73 poke53280,6:poke53281,6
  19. 75 printchr$(142)"[147]              multiwindows"
  20. 80 print"            by kenny lawson"
  21. 99 :
  22. 105 print"   [159]windows are used to display infor-"
  23. 110 print"mation over text or graphics on the"
  24. 115 print"screen. unfortunately, the commodore 64"
  25. 120 print"didn't come with windowing capabilities"
  26. 125 print"built-in. multiwindows gives you the"
  27. 130 print"windows that commodore left out!"
  28. 135 print"   multiwindows lets you save data in"
  29. 140 print"three different places on the screen."
  30. 142 print"      press any key to continue.":poke198,.
  31. 144 geta$:ifa$=""then144
  32. 148 print"[145]                                      ":poke37889,.
  33. 150 syss1:sysw1:print"[144]multiwindow #1"
  34. 160 fora=1to2000:next
  35. 170 syss2:sysw2:print"[144][153]multiwindow #2"
  36. 180 fora=1to2000:next
  37. 190 syss3:sysw3:print"[152]multiwindow #3"
  38. 200 fora=1to2000:next
  39. 240 sysr3:fora=1to200:next:sysr2:fora=1to200:next:sysr1
  40. 250 print"      press any key to continue.":poke198,.
  41. 260 geta$:ifa$=""then260
  42. 270 print"[145][159]note: your text will not scroll inside"
  43. 280 print"      the window at any time. you must"
  44. 290 print"      format all printing yourself."
  45. 300 print"[154]  the following pokes will change the"
  46. 310 print"color of each window. these pokes must"
  47. 320 print"be done before the corresponding window"
  48. 330 print"is activated."
  49. 340 print"poke 37889,color  [154]-  window #1"
  50. 350 print"poke 38084,color  [154]-  window #2"
  51. 360 print"poke 38278,color  [154]-  window #3"
  52. 370 syss1:poke37889,7:sysw1:print"[158]press: d - see demo again"
  53. 372 print"q - quit"
  54. 375 poke198,.
  55. 380 geta$:ifa$<>"d"anda$<>"[196]"anda$<>"q"anda$<>"[209]"then380
  56. 390 sysr1:ifa$="d"ora$="[196]"thenfora=1to300:next:goto75
  57. 400 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  58. 410 ifer<>63thenend
  59. 420 poke51,.:poke52,160:poke55,.:poke56,160:load"hello connect",8
  60. 59999 goto59999
  61. 60100 poke53280,14:poke53281,14
  62. 60110 print"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  63. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  64. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  65. 60140 fora=217to242:pokea,peek(a)or128:next:rem reset screen line link table
  66. 60150 print"          [204][207][193][196][211][212][193][210] [208]resents:"
  67. 60160 print"         [149]                   "
  68. 60170 print"         [149]   [205]ultiwindows     "
  69. 60180 print"         [149]                    "
  70. 60190 print"         [149]  by [203]enny [204]awson   "
  71. 60200 print"         [149]                    "
  72. 60210 print"         [149] ([195])opyright  1987  "
  73. 60220 print"         [149]                    "
  74. 60230 print"                             "
  75. 60240 print"        [208]ress [211][208][193][195][197] to continue."
  76. 60250 geta$:ifa$<>" "then60250
  77. 60260 return
  78.