1 IFA=0THENA=1:LOAD"SCRNMANAGER.OBJ",8,1
5 REM  ****************************
10 REM *** SCREENMANAGER - DEMO ***
15 REM *** WRITTEN 13.11.87 BY  ***
16 REM *** K.KAEHLER            ***
17 REM *** SKALITZER STR.134A   ***
18 REM *** 1000 BERLIN 36       ***
20 REM ****************************
25 :
30 REM --- VARIABLEN ---
35 :
40 TA=49300: REM TABELLENSTART
50 AN=49152: REM ANSCHALTEN
60 AUS=49193:REM AUSSCHALTEN
65 :
66 PO=170:FG=1:H=1
70 FORI=0TO8:READ CO(I):NEXT
71 :
72 REM --- ZONENDATEN EINLESEN ---
73 :
74 XX=TA
75 READQ:IFQ>-1THENPOKEXX,Q:XX=XX+1:GOTO75
76 :
80 REM --- SCREEN AUFBAUEN ---
90 :
100 POKE53280,0:POKE49266,0:PRINT"[147][144]"
110 PRINTTAB(10)"[192][192] SCREENMANAGER [192][192]"
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]";
120 PRINT"      THE ULTIMATE SCREEN-UTILITY!      [146]";
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]"
130 PRINT:PRINTTAB(12)"PROGRAM AND DEMO"
140 PRINT:PRINTTAB(6)"WRITTEN IN 1987 BY K.KAEHLER"
145 PRINT:PRINT:PRINT"                                        ";
150 PRINT"              C64 DEFEATED              ";
160 PRINT"             AMIGA-COPPER!!             ";
165 PRINT"                                        ";
170 PRINT:PRINT:PRINT"          >> SCREENMANAGER <<           "
240 :
250 REM --- EINSCHALTEN ---
260 :
270 SYS AN
280 :
300 REM --- ANIMATION ---
310 :
320 REM BLINKENDE BALKEN (#2 & #6)
325 :
330 FL=FL+1:IFFL>8THENFL=0
340 POKE49311,CO(FL)
350 POKE49357,CO(FL)
360 :
500 REM BEWEGLICHER BALKEN (#5)
510 :
520 PO=PO+FG
530 IFPO<170ORPO>188THENFG=-FG
540 POKE49342,PO
550 :
560 REM WANDERNDER FARBBALKEN(#4)
570 :
575 POKE49325+H*2,6
580 H=H+1:IFH>7THENH=1:RC=RND(0)*16
590 POKE49325+H*2,RC
799 GOTO330
800 :
801 REM --- FARBDATEN ---
802 :
805 DATA 0,11,12,15,1,15,12,11,0
1000 :
1001 REM --- ZONENDATAS ---
1002 :
1030 DATA 48,11,4,12,3,15,3,1,3,128
1031 :
1032 DATA 70,0,12,128
1033 :
1034 DATA 95,6,1,14,2,1,1,14,2,6,3,128
1035 :
1036 DATA 122,6,5,6,6,6,5,6,5,6,5,6,5,6,5,128
1037 :
1038 DATA 177,11,2,12,2,1,1,12,2,11,2,128
1039 :
1040 DATA 214,6,3,0,7,6,3,128
1041 :
1050 DATA 235,1,3,15,3,12,3,11,3,128
2000 DATA 0,-1