home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 71
/
64er_Magazin_Sonderheft_71_19xx_Markt__Technik_de_Side_B.d64
/
scrnmanager-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
84 lines
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