This page (revision-9) was last changed on 26-Mar-2023 01:20 by Administrator 

This page was created on 25-Oct-2010 10:13 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
9 26-Mar-2023 01:20 2 KB Administrator to previous ACTION Workshop 1 ==> Action Workshop 1
8 26-Mar-2023 01:20 2 KB Administrator to previous | to last
7 03-Feb-2023 15:21 2 KB Carsten Strotmann to previous | to last
6 28-Oct-2010 08:22 2 KB Carsten Strotmann to previous | to last
5 25-Oct-2010 10:36 2 KB Carsten Strotmann to previous | to last
4 25-Oct-2010 10:29 220 bytes Carsten Strotmann to previous | to last
3 25-Oct-2010 10:27 189 bytes Carsten Strotmann to previous | to last
2 25-Oct-2010 10:27 167 bytes Carsten Strotmann to previous | to last
1 25-Oct-2010 10:13 85 bytes Carsten Strotmann to last

Page References

Incoming links Outgoing links
Action Workshop 1
Action Workshop 1

Version management

Difference between version and

At line 1 changed one line
!!!ACTION! Workshop 1 organized by [ABBUC|http://abbuc.de]
!!!Action! Workshop 1 organized by [ABBUC|https://abbuc.de]
At line 3 changed one line
24th October 2010 "[Unperfekthaus|http://www.unperfekthaus.de/]" Essen
24th October 2010 "[Unperfekthaus|https://www.unperfekthaus.de/]" Essen
At line 10 removed one line
At line 13 removed 5 lines
PROC PRINTPOS(CARD X, BYTE Y,
BYTE ARRAY STR)
BYTE ROWCRS=$54
CARD COLCRS=$55
At line 19 changed 2 lines
ROWCRS = Y
COLCRS = X
PROC PRINTPOS(CARD X, BYTE Y, BYTE ARRAY STR)
BYTE ROWCRS=$54
CARD COLCRS=$55
ROWCRS=Y
COLCRS=X
At line 24 changed 3 lines
PROC PRINTBPOS(CARD X, BYTE Y,
BYTE VALUE)
BYTE ROWCRS=$54
PROC PRINTBPOS(CARD X, BYTE Y, BYTE VALUE)
BYTE ROWCRS=$54
At line 28 changed 3 lines
ROWCRS = Y
COLCRS = X
ROWCRS=Y
COLCRS=X
At line 33 changed one line
At line 36 changed one line
RETURN
RETURN
PROC RAINBOW()
BYTE VCOUNT=$D40B,
WSYNC=$D40A,
COLPF2=$D018,
RTCLK=20,
I,J
FOR J=1 TO 192
DO
FOR I=1 TO 192
DO
WSYNC=0
COLPF2 = VCOUNT+RTCLK
OD
OD
RETURN
At line 54 added one line
At line 39 changed 19 lines
BYTE VCOUNT=$D40B
BYTE WSYNC =$D40A
BYTE COLPF2=$D018 ; HINTERGRUND
BYTE COLOR2=710
BYTE I
LINE==LSH 2
LINE==+12
DO
UNTIL VCOUNT = LINE
OD
WSYNC = 0
COLPF2 = $CC
FOR I = 0 TO 7
DO
WSYNC = 0
OD
BYTE VCOUNT=$D40B
BYTE WSYNC =$D40A
BYTE COLPF2=$D018 ;HINTERGRUND
BYTE COLOR2=710
BYTE I
LINE==LSH 2
LINE==+15
At line 59 changed 2 lines
COLPF2 = COLOR2
RETURN
DO
UNTIL VCOUNT=LINE
OD
WSYNC=0
WSYNC=0
COLPF2=$CC
At line 62 changed 3 lines
PROC MAIN()
BYTE SCONSOL
BYTE LINE
FOR I=0 TO 7
DO
WSYNC=0
OD
COLPF2=COLOR2
RETURN
At line 66 changed 2 lines
CRSINH = 1
PROC MAIN()
BYTE SCONSOL, LINE
BYTE ARRAY BALKEN=[$C0
$C2
$C6
$C8
$C8
$C6
$C2
$C0]
CRSINH=1
At line 69 changed 4 lines
NUMPLAYER = 1
LEVEL = 1
NUMPLAYER=1
LEVEL=1
At line 74 changed 2 lines
PRINTPOS(5,12,"LEVEL:")
PRINTPOS(5,16,"SPIEL STARTEN!")
PRINTPOS(5,12,"LEVEL:")
PRINTPOS(5,16,"SPIEL STARTEN!")
DO
PRINTBPOS(20,10,NUMPLAYER)
PRINTBPOS(20,12,LEVEL)
At line 77 changed 8 lines
DO
PRINTBPOS(20,10, NUMPLAYER)
PRINTBPOS(20,12, LEVEL)
DO
SCONSOL = CONSOL
UNTIL SCONSOL # 7
OD
DO
SCONSOL=CONSOL
UNTIL SCONSOL#7
OD
At line 86 changed 14 lines
IF SCONSOL=5 THEN
LEVEL==&7
LEVEL==+1
LINE = 12
ELSEIF SCONSOL=3 THEN
NUMPLAYER==&1
NUMPLAYER==+1
LINE = 10
FI
DO
HIGHLIGHT(LINE)
UNTIL CONSOL=7
OD
IF SCONSOL=5 THEN
LEVEL==&7
LEVEL==+1
LINE= 12
At line 109 added 10 lines
ELSEIF SCONSOL=3 THEN
NUMPLAYER==&1
NUMPLAYER==+1
LINE=10
FI
DO
HIGHLIGHT(LINE)
UNTIL CONSOL=7
OD
At line 121 added 2 lines
RAINBOW()
CRSINH=0
At line 104 changed one line
RETURN
RETURN
This page (revision-9) was last changed on 26-Mar-2023 01:20 by Administrator  Top