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.
6 EXEC STANIK
7 EXEC BERET
9 GOTO 9
10 PROC BERET:PRINT 1:ENDPROC:PRINT 2:PROC STANIK:PRINT 2:ENDPROC
PRINT 1,2
10 PRINT 1,2;3;4;
20 PRINT ,6,7;7;7;8;6,
30 PRINT 123;
40 PRINT 1,22,333,1000,20000,3,22,345,6543
10 COM ARR(1,10)
20 EXEC INIT
25 FOR COLUMN=0 TO 1
30 EXEC SORT
35 NEXT COLUMN
40 EXEC SHOW
50 GOTO 50
1000 PROC INIT
1005 FOR I = 0 TO 10
1010 ARR(0,I)=RND:ARR(1,I)=RND
1015 NEXT I
1100 ENDPROC
2000 PROC SHOW
2005 FOR I = 0 TO 10
2010 PRINT ARR(0,I),ARR(1,I)
2015 NEXT I
2100 ENDPROC
3000 PROC SORT
3005 GOTO 3013
3010 IF SORTED = 1 THEN GOTO 3100
3013 SORTED = 1
3015 FOR I = 0 TO 9
3020 IF ARR(COLUMN,I) > ARR(COLUMN,I+1)
3025 TMP = ARR(COLUMN,I)
3030 ARR(COLUMN,I) = ARR(COLUMN,I+1)
3035 ARR(COLUMN,I+1) = TMP
3040 SORTED = 0
3045 ENDIF
3050 NEXT I
3055 GOTO 3010
3100 ENDPROC
10 PRINT 1234 ! 45432
20 PRINT 54332 & 130
30 PRINT $BABA AND 0
40 PRINT $BABA OR 0
50 PRINT $CEED EXOR $77BB
10 PRINT "Sarna ma ";2018-2002;" lat"
20 PRINT "Zaraz bedzie rodzic blat"
6 Q0=0:Q1=1:FI=Q1:MQ1=-1:MQ2=-2:Q2=Q1 + Q1:Q23=23:Q7=Q2 + Q2 + Q2 + Q1:Q22=Q23-Q1:Q30=Q23 + Q7:Q3310=3310
75 DIM STPC$(302),ST$(2)
76 STPC$(3,4)=" ":ST$(Q1)="o":ST$(Q2)="w"
77 FOR J=Q0 TO 13:FOR I=Q0 TO Q2:STPC$((20*J) + 5 + I*Q2,(20*J) + I*Q2 + 6)="i ":NEXT I
78 FOR I=Q0 TO 6:STPC$((20*J) + 11 + I*Q2,(20*J) + I*Q2 + 12)=ST$:NEXT I:NEXT J
79 FOR I=285 TO 290 STEP Q2:STPC$(I,I + Q1)="i ":NEXT I:FOR I=291 TO 302 STEP Q2:STPC$(I,I + Q1)=ST$:NEXT I
80 FOR J=Q0 TO Q1:FOR I=25 TO Q30 STEP Q2:STPC$(200*J + I,200*J + I + Q1)=ST$:NEXT I:NEXT J
95 MAXSTEP=151
99 FOR CURSTEP=117 TO 148 STEP Q2
100 W=MAXSTEP-CURSTEP-Q1:W1=MAXSTEP-(CURSTEP + 1)-Q1
120 PRINT W;" krok";STPC$(W*Q2 + Q1,W*Q2 + Q2),
125 PRINT W1;" krok";STPC$(W1*Q2 + Q1,W1*Q2 + Q2)
130 NEXT CURSTEP:CURSTEP=149:W=MAXSTEP-CURSTEP-Q1
200 PRINT W;" krok";STPC$(W*Q2 + Q1,W*Q2 + Q2)
DIM A$(X*2+3)
GOTO 1000+X
def basic_print(*items):
auxbr = ptabw-1
cox = 0
for text in items:
for ch in text:
print(ch, sep="", end="")
cox += 1
if cox >= auxbr:
auxbr += ptabw
for i in range(cox, auxbr+1):
print(" ", sep="", end="")
cox += 1
if cox >= auxbr:
auxbr += ptabw
print()
10 DIM A$(20),B$(20)
20 A$="12345678901234567890"
30 B$="ABCDEFGHIJKLMNOPQRST"
40 A$(2+2,3+3)=B$(15)
50 PRINT A$
60 A$(15)=B$(2)
70 PRINT A$
80 A$(11,15)=B$(1,2)
90 PRINT A$
100 A$(11,15)=B$(1,19)
110 PRINT A$
120 A$(11,15)=B$(10)
130 PRINT A$
5 PRINT "DUPA < DUP",
10 PRINT "DUPA" < "DUP"
15 PRINT "DUP < DUPA",
20 PRINT "DUP" < "DUPA"
25 PRINT "DUPA < DUPA",
30 PRINT "DUPA" < "DUPA"
35 PRINT "a < A",,
40 PRINT "a" < "A"
45 PRINT "A < B",,
50 PRINT "A" < "B"
55 PRINT "A < A",,
60 PRINT "A" < "A"
65 PRINT "B < A",,
70 PRINT "B" < "A"
75 PRINT "0 < 1",,
80 PRINT "0" < "1"
85 PRINT "2 < 2",,
100 PRINT "2" < "2"
105 PRINT "4 < 3",,
110 PRINT "4" < "3"
10 DIM A$(20),B$(20)
20 A$="ADA":B$="BBB"
30 PRINT A$<B$
45 PRINT A$(2)<B$
70 PRINT A$(2,3)<B$
75 B$="ZZZ"
80 PRINT A$(2)<B$(2)
Mater:
Trzymam kciuki za projekt i nie mogę się doczekać kolejnych milestonów ;)10 PRINT ""=""
20 PRINT ""<""
30 PRINT "">""
110 PRINT ""="A"
115 PRINT "A"=""
120 PRINT ""<"A"
125 PRINT "A"<""
130 PRINT "">"A"
135 PRINT "A">""
210 PRINT ""<>"A"
215 PRINT "A"<>""
220 PRINT ""<="A"
225 PRINT "A"<=""
230 PRINT "">="A"
235 PRINT "A">=""
value .ds 2
lda #0
sta value
sta value+1
?get:
jsr getchar
sec
sbc #'0'
bcc ?ret
cmp #10
bcs ?ret
pha
lda value+1
pha
lda value
asl value
rol value+1
asl value
rol value+1
clc
adc value
sta value
pla
adc value+1
asl value
rol
sta value+1
pla
clc
adc value
sta value
bcc ?get
inc value+1
bcs ?get
?ret:
ldx value
ldy value+1
