home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / dissolver.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  59 lines
  1. 10 rem copyright 1990 - compute publications intl ltd - all rights reserved
  2. 60 print chr$(147)
  3. 70 poke 53281,0:poke53280,11
  4. 80 print chr$(8);spc(244);chr$(152);"loading dissolver object code..."
  5. 90 a=a+1
  6. 100 if a=1 then load "dissolver.obj",8,1
  7. 110 rem *** copy rom character set ****
  8. 120 sys 52880,1,14336,40960
  9. 130 rem ***** enable on block zero ****
  10. 140 poke 53272,30
  11. 150 rem *** dissolve all chr$ set *****
  12. 160 sys 52963,0,0,255
  13. 170 print chr$(147)
  14. 180 rem *** print 'invisible' lines ***
  15. 190 print spc(48);chr$(155);"dissolver is a program"
  16. 200 print spc(9)" that allows you to
  17. 210 [143] *** undissolve half set ******
  18. 220 [158] 52963,1,0,127
  19. 230 [129] t[178]1 [164] 1000:[130]
  20. 240 [153] [166]84);[199](152);"dissolve one character at a time"
  21. 250 [129] t[178]1 [164] 1000:[130]
  22. 260 [153] [166]56);[199](158);"01234"
  23. 270 [129] c[178]48 [164] c[170]4
  24. 280 [143] *** dissolve a character ******
  25. 290 [158] 52963,0,c,c
  26. 300 [130]
  27. 310 [143] ** another 'invisible' lines **
  28. 320 [153] [166]48);[199](152);[199](18);"or work with a group"
  29. 330 [153] [166]8);[199](18);"closeclosecloseof charactersclose closeclose";[199](146)
  30. 340 [143] *** undissolve half set ******
  31. 350 [158] 52963,1,128,255
  32. 360 [129] t[178]1 [164] 1500:[130]
  33. 370 [153] [166]56);[199](158);"01234"
  34. 380 [143] *** undissolve five numbers **
  35. 390 c[178]48
  36. 400 [158] 52963,1,c,c[170]4
  37. 410 [153] [166]44);[199](152);"or with a complete character set"
  38. 420 [143] *** print 255 characters ******
  39. 430 [129] c[178]0 [164] 255
  40. 440 [151] 1704[170]c,c
  41. 450 [130]
  42. 460 [129] t[178]1 [164] 1500:[130]
  43. 470 [143] *** dissolve full set *********
  44. 480 [158] 52963,0,0,255
  45. 490 [129] t[178]1 [164] 1500:[130]
  46. 500 [153] [199](147)
  47. 510 [143] *** print 'invisible' lines ***
  48. 520 [153] [166]166);[199](155);"or change between different"
  49. 530 [153] [166]52)"character sets."
  50. 540 [143] *** undissolve full set ******
  51. 550 [158] 52963,1,0,255
  52. 560 [129] t[178]1 [164] 1500:[130]
  53. 590 [143] *** dissolve old set **********
  54. 600 [158] 52963,0,0,255
  55. 660 [129] t[178]1 [164] 1500:[130]
  56. 670 [153] [199](147)
  57. 680 [143] *** start again ***************
  58. 690 [137] 120
  59.