Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
10 GOSUB 100
20 PRINT "MAIN"
30 GOSUB 300
40 GOSUB 500
50 GOTO 30000
100 PRINT "SUB 1"
110 GOSUB 200
120 RETURN
200 PRINT "SUB 1.1"
210 RETURN
300 PRINT "SUB 2"
310 RETURN
500 GOSUB 600
510 PRINT "UNREACHABLE"
600 PRINT "POP"
610 POP
620 RETURN
30000 PRINT "OK!"
graphics:
pha
ldx #$60 ;#6
lda #12 ;close
sta iccmd,x
jsr jciomain ;$e456
lda #3 ;open
sta iccmd,x
pla
sta icax2,x
and #$f0
eor #$1c
sta icax1,x
lda #<sname
sta icbufa,x
lda #>sname
sta icbufa+1,x
jsr jciomain
bmi err
rts
sname .db 'S:',$9b
10 GRAPHICS 2
15 PRINT "Wpisz cyferke: ";
20 INPUT A
30 PRINT #2*3;"wpisales ";A
40 GOTO 15
10 POKE 709,1:POKE 712,100
20 POKE 710,15
30 PRINT PEEK(709)+PEEK(710)
40 DL=PEEK(560) + 256*PEEK(561)
50 PRINT DL
60 POKE DL + 10,7
70 PRINT "kiedy"
80 PRINT "rolnik"
90 PRINT "pole"
100 PRINT "OrZe!"
110 PRINT "TO NIE PATRZY SIE NA MORZE"
;SETCOLOR Y,A,X
setcolor:
stx ?luma
asl
asl
asl
asl
ora ?luma
sta COLPF0S,y ;$2c4+y
;COLOR A
color:
sta COLOR ;$c8
;POSITION YX,A
position:
stx COLCRS ;$55
sty COLCRS+1
sta ROWCRS ;$54
;PLOT YX,A
plot:
jsr position
ldx #$60
lda ICAX1,x ;$34a+x
sta ICAX1Z ;$2a
lda ICAX2,x ;$34b+x
sta ICAX2Z ;$2b
lda ICPUTB+1,x ;$347+x
pha
lda ICPUTB,x ;$346+x
pha
lda COLOR ;$c8
ldy #$92
rts ;JMP (ICPUTB)+1
;DRAWTO YX,A
drawto:
jsr position
lda COLOR ;$c8
sta ATACHR ;$2fb
ldx #$60
lda #17
sta ICCMD,x ;$342+x
lda #$c0
sta ICAX1,x ;$34a+x
lda #0
sta ICAX2,x ;$34b+x
jsr JCIOMAIN ;$e456
;LOCATE YX,A,A
locate:
jsr position
ldx #$60
lda #7 ;GETBT
sta ICCMD,x
lda #1
sta ICBUFL,x ;$348+x
lda #0
sta ICBUFL+1,x
lda INBUFP ;$f3
sta ICBUFA,x ;$344+x
lda INBUFP+1
sta ICBUFA+1,x
jsr JCIOMAIN
bmi ?err
ldy #0
lda (INBUFP),y
locate:
jsr position
ldx #$60
lda #7 ;GETBT
sta ICCMD,x
lda #0
sta ICBUFL,x ;$348+x
sta ICBUFL+1,x
jsr JCIOMAIN
;XIO A,#X,aux1,aux2,"S:"
xio:
sta ICCMD,x
lda #<sname
sta ICBUFA,x
lda #>sname
sta ICBUFA+1,x
lda aux1
sta ICAUX1,x
lda aux2
sta ICAUX2,x
jsr JCIOMAIN
sname .db "S:",$9b
.
ldy #<9
ldx #>9
lda #11
jsr plot
.
lda ICPUTB,x ;$344+x
pha
lda ICPUTB+1,x
pha
.
lda #$60
lda ICAX1,x ;$34a+x
mono:
współrzędna x:Y-MSB,X-LSB.
ldx #<9
ldy #>9
lda #11
sname .db 'S:',$9b
$ tr "\n\233" "\233\n"
90 V$="<atarowe krzaki>"
91 V$(2,2)=CHR$(0):V$(51,51)=CHR$(0):V$(120,120)=CHR$(13)
93 Q=USR(ADR(V$))
.byte TOK_VAR_LOAD
.byte 2
.byte TOK_ADD_VAR
.byte 7
.byte TOK_SADDR
.byte TOK_1
.byte TOK_POKE