home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43b.d64 / scrnmanager-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  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.