home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / windows (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  87 lines
  1. 1 ifpeek(39936)<>169orpeek(39937)<>147thenload"windows.ml",8,1
  2. 2 print"[134][147][144]";:poke53280,.:poke53281,.:poke650,128
  3. 4 ifpeek(806)=202andpeek(807)=241thensys39936:poke55,255:poke56,155
  4. 5 goto100
  5. 6 :
  6. 9 :         setup window #1
  7. 10 print"[134][133]"le$:return
  8. 15 :
  9. 16 :        setup window #2
  10. 20 print"[134][133]"le$:return
  11. 25 :
  12. 26 :        setup window #3
  13. 30 print"[134][133]"le$:return
  14. 35 :
  15. 36 :       setup main window
  16. 40 print"[134][133][137]":return
  17. 45 :
  18. 50 print"      [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]":return
  19. 60 a=a+1:ifa>122thena=35
  20. 62 c=int(rnd(0)*3)+1
  21. 65 return
  22. 100 le$="[137]":c$(1)="":c$(2)="":c$(3)=""
  23. 105 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][174]":bl$="[173][192][192][192][192][192][192][192][192][192][192][192][189]":print"[134][147]";
  24. 110 print"[154][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][174]"
  25. 112 fora=1to9:print"[221]"tab(38)"[221]":next
  26. 115 print"[171][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][179]"
  27. 120 rem    print"[158][194]y: [210]ichard [198]. [196]aley  &  [211]ally [202]. [196]aley"
  28. 130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][179][205][193][201][206] [215][201][206][196][207][215][154][171][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  29. 140 print""tl$""tl$""tl$
  30. 150 fora=1to10:forb=1to3:printc$(b)"[221]"spc(11)"[221]";:next:print:next
  31. 160 print""bl$""bl$""bl$:print"[159]  [215]indow #1    [215]indow #2    [215]indow #3"
  32. 165 gosub40
  33. 170 print"[147]        [158][215][201][206][196][207][215][211] [196][197][205][207] [208][210][207][199][210][193][205]"
  34. 175 print"        [153][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  35. 180 print" [154][212]he [215][201][206][196][207][215][211] routine was written by:"
  36. 190 print"[158] [210]ichard [198]. [196]aley  &  [211]ally [202]. [196]aley"
  37. 195 gosub50:poke198,.:wait198,1
  38. 210 print"[147][159]   [212]o set a window, you must [208][210][201][206][212]"
  39. 220 print"an [198]1 symbol at the upper-left corner"
  40. 230 print"and an [198]2 symbol at the lower-right"
  41. 240 print"corner. [212]his is easily done by using"
  42. 250 print"the [208][210][201][206][212] statement and the cursor"
  43. 260 print"keys.":gosub50:poke198,.:wait198,1
  44. 270 print"[147][159]   [212]he following [194][193][211][201][195] line was used"
  45. 280 print"to set this [205][193][201][206] [215][201][206][196][207][215][159]:"
  46. 290 print"[208][210][201][206][212]"chr$(34);:poke212,.
  47. 295 print"[198]sq][197]qqqqqqqq]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]][201][146]";
  48. 300 printchr$(34)"":gosub50:poke198,.:wait198,1
  49. 310 print"[147]   [159][215]ith [215][201][206][196][207][215][211], you can scroll some-"
  50. 320 print"thing in a [215][201][206][196][207][215] and not lose other"
  51. 330 print"valuable data on the screen."
  52. 340 gosub50:a=1:gosub10:poke198,.
  53. 350 geta$:ifa$<>""then370
  54. 360 a=a+1:print"-->"a:goto350
  55. 370 print"[147]":gosub40
  56. 380 print"[147][159]   [205]ultiple windows help out also ..."
  57. 390 gosub50:a=1:poke198,.
  58. 400 geta$:ifa$<>""then450
  59. 410 gosub10:print"-->"a;
  60. 420 gosub20:print"-->"a*2;
  61. 430 gosub30:print"-->"a/2;
  62. 440 a=a+1:goto400
  63. 450 gosub10:print"[147]":gosub20:print"[147]":gosub30:print"[147]":gosub40
  64. 460 print"[147][159]   [206]ote that there is a small bug in"
  65. 470 print"windows. [198]or example, when you:"
  66. 480 print"10 [208][210][201][206][212]"chr$(34)"[211][207][205][197][212][200][201][206][199] "chr$(34)";:[199][207][212][207] 10"
  67. 490 print"   [212]he semicolon will cause only part"
  68. 500 print"of the statement to be printed when"
  69. 510 print"it's carried over to the next line.":gosub50:gosub20:poke198,.
  70. 520 geta$:ifa$<>""then550
  71. 530 print"[211][207][205][197][212][200][201][206][199] ";
  72. 540 fora=1to100:next:goto520
  73. 550 print"[147]":gosub40:print"[147]        [159]*** [197]nd [207]f [196]emo ***"
  74. 560 print"[208]ress '[209]' to [209]uit, '[210]' to [210][213][206] again.":a=35
  75. 570 geta$:ifa$<>""then620
  76. 580 gosub10:gosub60:print"[192][192][192][192] "c$(c)chr$(a)" [192][192][192][192]";
  77. 590 gosub20:print"[192][192][192][192] "c$(c)chr$(a+1)" [192][192][192][192]";
  78. 600 gosub30:print"[192][192][192][192] "c$(c)chr$(a+2)" [192][192][192][192]";
  79. 610 goto570
  80. 620 ifa$="q"ora$="[209]"then650
  81. 630 ifa$="r"ora$="[210]"thenrun
  82. 640 goto570
  83. 650 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  84. 660 print"[147]";:ifer<>63thenend
  85. 665 poke55,.:poke56,160:poke806,202:poke807,241:print"[147]";
  86. 670 load"hello connect",8
  87.