Add new attachment

Only authorized users are allowed to upload new attachments.

List of attachments

Kind Attachment Name Size Version Date Modified Author Change note
jpg
IMG_0009.jpg 72.8 kB 1 25-Oct-2010 12:25 Carsten Strotmann
jpg
IMG_0011.jpg 75.5 kB 1 25-Oct-2010 12:25 Carsten Strotmann
atr
workshop.atr 92.2 kB 1 27-Oct-2010 16:24 Gromit

This page (revision-7) was last changed on 05-Nov-2010 08:58 by Carsten Strotmann  

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

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version and

At line 3 changed one line
24th October 2010 "Unperfekthaus" Essen
24th October 2010 "[Unperfekthaus|http://www.unperfekthaus.de/]" Essen
At line 5 changed one line
[{Image src='IMG_0009.jpg' }][{Image src='IMG_0011.jpg' }]
[{Image src='IMG_0009.jpg' width='400'}][{Image src='IMG_0011.jpg' width='400'}]
At line 7 added 180 lines
!!The MENUE Program
{{{
BYTE NUMPLAYER, LEVEL
BYTE CONSOL=53279
BYTE CRSINH=752
PROC PRINTPOS(CARD X, BYTE Y, BYTE ARRAY STR)
BYTE ROWCRS=$54
CARD COLCRS=$55
ROWCRS=Y
COLCRS=X
PRINT(STR)
RETURN
PROC PRINTBPOS(CARD X, BYTE Y, BYTE VALUE)
BYTE ROWCRS=$54
CARD COLCRS=$55
ROWCRS=Y
COLCRS=X
PRINTB(VALUE)
RETURN
PROC CLS()
PUT(125)
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
PROC HIGHLIGHT(BYTE LINE)
BYTE VCOUNT=$D40B
BYTE WSYNC =$D40A
BYTE COLPF2=$D018 ;HINTERGRUND
BYTE COLOR2=710
BYTE I
LINE==LSH 2
LINE==+15
DO
UNTIL VCOUNT=LINE
OD
WSYNC=0
WSYNC=0
COLPF2=$CC
FOR I=0 TO 7
DO
WSYNC=0
OD
COLPF2=COLOR2
RETURN
PROC MAIN()
BYTE SCONSOL, LINE
BYTE ARRAY BALKEN=[$C0
$C2
$C6
$C8
$C8
$C6
$C2
$C0]
CRSINH=1
CLS()
NUMPLAYER=1
LEVEL=1
PRINTPOS(5,10,"ANZAHL SPIELER:")
PRINTPOS(5,12,"LEVEL:")
PRINTPOS(5,16,"SPIEL STARTEN!")
DO
PRINTBPOS(20,10,NUMPLAYER)
PRINTBPOS(20,12,LEVEL)
DO
SCONSOL=CONSOL
UNTIL SCONSOL#7
OD
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
UNTIL SCONSOL=6
OD
RAINBOW()
CRSINH=0
RETURN
}}}
!!The DLI
{{{
; DLI
CARD SDLSTL=$230
CARD VSDLST=$200
BYTE NMIEN =$D40E
CARD DLI2V
DEFINE PLA="$68"
DEFINE PHA="$48"
DEFINE TXA="$8A"
DEFINE TYA="$98"
DEFINE TAX="$AA"
DEFINE TAY="$A8"
DEFINE RTI="$40"
PROC SETDLI(BYTE LINE)
BYTE POINTER P
P = SDLSTL+LINE+5
P^==%$80
RETURN
PROC DLI()
BYTE WSYNC=$D40A
BYTE COLPF2=$D018
[PHA TXA PHA TYA PHA]
WSYNC=0
COLPF2=$CC
VSDLST=DLI2V
[PLA TAY PLA TAX PLA RTI]
RETURN
PROC DLI2()
BYTE WSYNC=$D40A
BYTE COLPF2=$D018
[PHA TXA PHA TYA PHA]
WSYNC=0
COLPF2=$50
VSDLST=DLI
[PLA TAY PLA TAX PLA RTI]
RETURN
PROC MAIN()
SETDLI(8)
DLI2V=DLI2
VSDLST=DLI
SETDLI(12)
NMIEN==%$80
RETURN
}}}
Version Date Modified Size Author Changes ... Change note
7 05-Nov-2010 08:58 2.891 kB Carsten Strotmann to previous
6 28-Oct-2010 10:22 2.449 kB Carsten Strotmann to previous | to last
5 25-Oct-2010 12:36 2.435 kB Carsten Strotmann to previous | to last
4 25-Oct-2010 12:29 0.22 kB Carsten Strotmann to previous | to last
3 25-Oct-2010 12:27 0.189 kB Carsten Strotmann to previous | to last
2 25-Oct-2010 12:27 0.167 kB Carsten Strotmann to previous | to last
1 25-Oct-2010 12:13 0.085 kB Carsten Strotmann to last
« This page (revision-7) was last changed on 05-Nov-2010 08:58 by Carsten Strotmann