home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 69 / 069.d81 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 7 :
  2. 8 :rem lower top of basic to $4000
  3. 9 :
  4. 10 poke52,64:poke56,64:clr
  5. 17 :
  6. 18 :rem set bkgd and brdr color
  7. 19 :
  8. 20 poke53281,0:poke53280,0
  9. 30 ifpeek(49152)=32then60
  10. 37 :
  11. 38 :rem bload demo screen and ml
  12. 39 :
  13. 40 sys57812"demo",8,0:poke780,0:poke781,0:poke782,64:sys65493
  14. 50 sys57812"copy.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  15. 57 :
  16. 58 :rem     set global variables
  17. 59 :
  18. 60 z=40:cm=49152:a=16384:c=54272:f=1024:r=1184
  19. 97 :
  20. 98 :rem       main menu
  21. 99 :
  22. 100 print"[147][129]   [195] [207] [208] [217] [205] [197] [205]    1 9 9 0    [196] [197] [205] [207]
  23. 110 [153][163]10)"cont(atncont)rea (NULL)croll"
  24. 120 [153][163]10)"cont((NULL)cont)indow (NULL)croll"
  25. 130 [153][163]10)"cont((NULL)cont)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  26. 140 geta$:ifa$<>"a"anda$<>"w"anda$<>"r"then140
  27. 150 ifa$="a"then200
  28. 160 ifa$="w"then300
  29. 170 goto500
  30. 197 :
  31. 198 :rem   area scroll routine
  32. 199 :
  33. 200 print"[147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  34. 210 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":v=0
  35. 220 poke214,22:print:print"     [195][210][211][210]-[213][208]/[196][207][215][206] [154]scrolls    [205] [154]menu
  36. 230 [158]cm,a[170]z[172]v,r,240:[158]cm,a[170]f[170]z[172]v,r[170]c,240
  37. 240 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177]"m"[167]240
  38. 250 [139]a$[178]""[167][139]v[179]18[167]v[178]v[170]1
  39. 260 [139]a$[178]"on"[167][139]v[167]v[178]v[171]1
  40. 270 [139]a$[178]"m"[167]100
  41. 280 [137]230
  42. 297 :
  43. 298 :[143]   window scroll routine
  44. 299 :
  45. 300 d[178]30:s[178]1150:z[178]40:cm[178]49152:x[178]6:y[178]0
  46. 310 [153]"loadsys     ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  47. 320 [129]i[178]0[164]6:[153]"     (NULL)                              (NULL)":[130]
  48. 330 [153]"     /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  49. 340 [151]214,22:[153]:[153]"      len(NULL)(NULL)(NULL) (NULL)val(NULL)(NULL)cont scroll    (NULL) contmenu"
  50. 350 b[178]a[170]x[170]y:e[178]b[170]f:g[178]s[170]c:[129]i[178]0[164]6
  51. 360 [158]cm,b[170]i[172]z,s[170]i[172]z,d
  52. 370 [158]cm,e[170]i[172]z,g[170]i[172]z,d
  53. 380 [130]
  54. 390 [161]a$:[139]a$[178]""[167]390
  55. 400 [139]a$[178]"cmd"[167][139]x[167]x[178]x[171]1
  56. 410 [139]a$[178]""[167][139]x[179]z[171]d[171]2[167]x[178]x[170]1
  57. 420 [139]a$[178]""[167][139]y[179]681[167]y[178]y[170]z
  58. 430 [139]a$[178]"on"[167][139]y[167]y[178]y[171]z
  59. 440 [139]a$[178]"m"[167]100
  60. 450 [137]350
  61. 497 :
  62. 498 :[143]   return to loadstar
  63. 499 :
  64. 500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  65. 510 [139]er%[179][177]63[167][153]"load":[128]
  66. 520 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  67. 530 [153]"run"
  68. 540 [151]631,13:[151]632,13:[151]198,2:[128]
  69. 10000 [159]15,8,15,"s0:bits":[160]15:[148]"bits",8:[128]
  70.