home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  96 lines
  1. 0 if(peek(788)=047)and(peek(789)=192)thensys49155
  2. 1 poke53281,0:poke53280,0:print"[147]"tab(7)"[159]loading four character sets"
  3. 2 printtab(13)"please wait..."
  4. 3 ifa=.thena=1:load"bload.o",8,1
  5. 4 sys828,49152,"animate.o"
  6. 5 sys828,57344,"font1"
  7. 6 sys828,59392,"font2"
  8. 7 sys828,61440,"font3"
  9. 8 sys828,63488,"font4"
  10. 9 goto100
  11. 10 :
  12. 100 poke56576,(peek(56576)and252)or.
  13. 110 poke53272,(peek(53272)and15)or48
  14. 120 poke648,204
  15. 130 poke53272,(peek(53272)and240)or14
  16. 140 poke53280,.:poke53281,.
  17. 150 :
  18. 160 si$="[193][194][157][157][161][162][145]"
  19. 170 fa$="[195][196][157][157][163][164][145]"
  20. 180 :
  21. 200 print"[147]           [154]loadstar presents:"
  22. 210 print"[158][176][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][174]";
  23. 220 print"[220]                                      [221]";
  24. 230 print"[220]          font animator demo          [158][221]";
  25. 240 print"[220]           by: mike maynard           [158][221]";
  26. 250 print"[220]                                      [221]";
  27. 260 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][192][189]"
  28. 270 print"             [154]copyright 1988":poke198,.
  29. 275 print"       [129] press space to continue."
  30. 280 poke49158,.:sys49152
  31. 290 ifpeek(203)<>60then290
  32. 300 print"[147]";:poke49158,10
  33. 310 print"[158]    font animator [154]works by stepping"
  34. 320 print"through multiple character sets."
  35. 330 print"each character set contains different"
  36. 340 print"sequences for the characters."
  37. 350 print"    some characters have been altered,"
  38. 360 print"others have not. as you read this text,"
  39. 370 print"the animator is active -- only the"
  40. 380 print"alphabet looks exactly the same in"
  41. 390 print"every character set; so, you don't see"
  42. 400 print"anything change."
  43. 410 print"        [129]press space to continue."
  44. 420 ifpeek(203)<>60then420
  45. 430 print"[145][167][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][165]"
  46. 440 print"[154]    however, as you can see above, the"
  47. 450 print"character that represents the shifted"
  48. 460 print"asterisk has been changed to a ball"
  49. 470 print"that slowly moves to the right. as the"
  50. 480 print"four character sets are flipped in"
  51. 490 print"sequence, the balls appear to move."
  52. 500 print"[129]        press space to continue.":poke198,.
  53. 510 ifpeek(203)<>60then510
  54. 520 print"[147]    [154]one of the major uses of [158]font"
  55. 530 print"animator [154]is to have multiple objects"
  56. 540 print"being animated on the screen at once."
  57. 550 print"[159]"tab(6)si$tab(31)si$
  58. 560 printtab(8)"[129]press space to continue":poke198,.
  59. 570 ifpeek(203)<>60then570
  60. 580 print"[145]"tab(8)"                       ":nm=2
  61. 590 forzz=1to100
  62. 600 r=int(rnd(.)*17):c=int(rnd(.)*37)
  63. 610 print"";:fora=.tor:print:next:forb=.toc:print"";:next
  64. 620 ad=peek(209)+peek(210)*256+peek(211)
  65. 630 ad=peek(209)+peek(210)*256+peek(211)
  66. 640 ifpeek(ad)<>32orpeek(ad+1)<>32orpeek(ad+40)<>32orpeek(ad+41)<>32then660
  67. 650 print"[159]"si$:nm=nm+1
  68. 660 next
  69. 670 print"[154]we're animating"nm"[154]aliens -- no problem!";
  70. 680 print"        [129]press space to continue.":poke198,.
  71. 690 ifpeek(203)<>60then690
  72. 700 print"[147][154]  of course, you have to keep up with"
  73. 710 print"   the location of all those aliens!"
  74. 720 print"[158]     [176][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][174]"
  75. 730 print"     [220]                           [146][158][221]"
  76. 740 print"     [220]   the possibilities are   [146][158][221]"
  77. 750 print"     [220]          endless!!        [146][158][221]"
  78. 760 print"     [220]                           [146][158][221]"
  79. 770 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][189][156]"
  80. 780 fora=1to20:printsi$;:next:print"[155]"
  81. 790 fora=1to20:printfa$;:next
  82. 800 fora=3to.step-1
  83. 810 poke49158,a
  84. 820 forb=1to1000*(4-a):next
  85. 830 next
  86. 840 fora=.to3:poke49158,a
  87. 850 forb=1to1000*(4-a):next:next
  88. 860 print"[154]    press:  r [154]- return to loadstar"
  89. 870 print"            v [154]- view demo again"
  90. 880 a=peek(203):ifa<>17anda<>31then880
  91. 890 print"[147]":sys49155:ifa=31then100
  92. 900 poke53272,21:poke56576,199:poke648,4:print"[147]"
  93. 910 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  94. 920 ifer<>63thenend
  95. 930 load"hello connect",8
  96.