home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64 / scrnmanager-demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.8 KB  |  84 lines
  1. 1 ifa=0thena=1:load"scrnmanager.obj",8,1
  2. 5 rem  ****************************
  3. 10 rem *** screenmanager - demo ***
  4. 15 rem *** written 13.11.87 by  ***
  5. 16 rem *** k.kaehler            ***
  6. 17 rem *** skalitzer str.134a   ***
  7. 18 rem *** 1000 berlin 36       ***
  8. 20 rem ****************************
  9. 25 :
  10. 30 rem --- variablen ---
  11. 35 :
  12. 40 ta=49300: rem tabellenstart
  13. 50 an=49152: rem anschalten
  14. 60 aus=49193:rem ausschalten
  15. 65 :
  16. 66 po=170:fg=1:h=1
  17. 70 fori=0to8:read co(i):next
  18. 71 :
  19. 72 rem --- zonendaten einlesen ---
  20. 73 :
  21. 74 xx=ta
  22. 75 readq:ifq>-1thenpokexx,q:xx=xx+1:goto75
  23. 76 :
  24. 80 rem --- screen aufbauen ---
  25. 90 :
  26. 100 poke53280,0:poke49266,0:print"[147][144]"
  27. 110 printtab(10)"[192][192] screenmanager [192][192]"
  28. 115 print:print"[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]";
  29. 120 print"      the ultimate screen-utility!      [146]";
  30. 125 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]"
  31. 130 print:printtab(12)"program and demo"
  32. 140 print:printtab(6)"written in 1987 by k.kaehler"
  33. 145 print:print:print"                                        ";
  34. 150 print"              c64 defeated              ";
  35. 160 print"             amiga-copper!!             ";
  36. 165 print"                                        ";
  37. 170 print:print:print"          >> screenmanager <<           "
  38. 240 :
  39. 250 rem --- einschalten ---
  40. 260 :
  41. 270 sys an
  42. 280 :
  43. 300 rem --- animation ---
  44. 310 :
  45. 320 rem blinkende balken (#2 & #6)
  46. 325 :
  47. 330 fl=fl+1:iffl>8thenfl=0
  48. 340 poke49311,co(fl)
  49. 350 poke49357,co(fl)
  50. 360 :
  51. 500 rem beweglicher balken (#5)
  52. 510 :
  53. 520 po=po+fg
  54. 530 ifpo<170orpo>188thenfg=-fg
  55. 540 poke49342,po
  56. 550 :
  57. 560 rem wandernder farbbalken(#4)
  58. 570 :
  59. 575 poke49325+h*2,6
  60. 580 h=h+1:ifh>7thenh=1:rc=rnd(0)*16
  61. 590 poke49325+h*2,rc
  62. 799 goto330
  63. 800 :
  64. 801 rem --- farbdaten ---
  65. 802 :
  66. 805 data 0,11,12,15,1,15,12,11,0
  67. 1000 :
  68. 1001 rem --- zonendatas ---
  69. 1002 :
  70. 1030 data 48,11,4,12,3,15,3,1,3,128
  71. 1031 :
  72. 1032 data 70,0,12,128
  73. 1033 :
  74. 1034 data 95,6,1,14,2,1,1,14,2,6,3,128
  75. 1035 :
  76. 1036 data 122,6,5,6,6,6,5,6,5,6,5,6,5,6,5,128
  77. 1037 :
  78. 1038 data 177,11,2,12,2,1,1,12,2,11,2,128
  79. 1039 :
  80. 1040 data 214,6,3,0,7,6,3,128
  81. 1041 :
  82. 1050 data 235,1,3,15,3,12,3,11,3,128
  83. 2000 data 0,-1
  84.