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 7 added 159 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 HIGHLIGHT(BYTE LINE)
BYTE VCOUNT=$D40B
BYTE WSYNC =$D40A
BYTE COLPF2=$D018 ; HINTERGRUND
BYTE COLOR2=710
LINE==LSH 2
LINE==+12
DO
UNTIL VCOUNT = LINE
OD
WSYNC = 0
COLPF2 = $CC
FOR I = 0 TO 7
DO
WSYNC = 0
OD
COLPF2 = COLOR2
RETURN
PROC MAIN()
BYTE SCONSOL
BYTE LINE
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
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
}}}
This page (revision-9) was last changed on 26-Mar-2023 01:20 by Administrator  Top