https://kerekasztal.sinclair.hu/
Nekem tetszik, mert innovatív, egyedi megoldás.csaba írta: 50 LET C$="aiemckgobjfndlhp"
55 LET A=(CODE c$((a-16*INT (A/16))+1-97)*16+CODE c$(INT (A/16)+1)-97[/b]
Kód: Egész kijelölése
45 IF PEEK(48000+A)<>0 THEN POKE f,PEEK(48000+A): NEXT F
49 LET C=A: LET B=0
50 IF C>127 THEN LET C=C-128: LET B=1
51 IF C>63 THEN LET C=C-64: LET B=B+2
52 IF C>31 THEN LET C=C-32: LET B=B+4
53 IF C>15 THEN LET C=C-16: LET B=B+8
54 IF C>7 THEN LET C=C-8: LET B=B+16
55 IF C>3 THEN LET C=C-4: LET B=B+32
56 IF C>1 THEN LET C=C-2: LET B=B+64
57 IF C>0 THEN LET A=A+128
59 POKE (48000+A),B: LET A=BJavaslom a 48000 helyett kisebb szám, mondjuk 32000 használatát, mert így 16k-s gépen nem fut.kpbendi írta:45 IF PEEK(48000+A)<>0 THEN POKE f,PEEK(48000+A): NEXT F
32000 túl alacsony. Az eredeti program is kb. 31000-ig ér a memóriában (sajnos a DATA a legkevésbé hatékony módja az adattárolásnak), így a program módosítására már nem is marad hely. Kis kísérletezgetéssel simán túl lehet lépni 40000-en.makranc írta:Javaslom a 48000 helyett kisebb szám, mondjuk 32000 használatát, mert így 16k-s gépen nem fut.kpbendi írta:45 IF PEEK(48000+A)<>0 THEN POKE f,PEEK(48000+A): NEXT F
Ha így van, akkor lehet, hogy egyedül az egysoros programom fut MINDEN gépen.Asimo írta:32000 túl alacsony. Az eredeti program is kb. 31000-ig ér a memóriában
Kód: Egész kijelölése
45 POKE F, PEEK (32000+A): IF PEEK F=0 THEN GOTO 49
47 NEXT F
49 LET C=A: LET B=0
50 IF C>127 THEN LET C=C-128: LET B=1
51 IF C>63 THEN LET C=C-64: LET B=B+2
52 IF C>31 THEN LET C=C-32: LET B=B+4
53 IF C>15 THEN LET C=C-16: LET B=B+8
54 IF C>7 THEN LET C=C-8: LET B=B+16
55 IF C>3 THEN LET C=C-4: LET B=B+32
56 IF C>1 THEN LET C=C-2: LET B=B+64
57 IF C>0 THEN LET B=B+128
59 POKE (32000+A),B: LET A=BKód: Egész kijelölése
42 POKE F, PEEK (32000+A) : IF PEEK F=0 THEN GOTO 49
44 NEXT F
46 LET I = 128 : LET B = 0 : LET C = A
50 LET N = C >= I : LET B = B + (N * (128 / I)) : LET C = C - ( I * N)
53 IF I > 1 THEN LET I = I / 2 : GOTO 50
55 POKE (32000 + A), B: LET A = B
Mondjuk, ami nincs tiltva, az engedélyezett, nem?Hátha még a +1 lépést is megspórolta volna, akkor lett volna végletekig optimalizált, de sajnos a GO TO 1 nem jó megoldás. Bár nem szerepelt a RUN-al indítás, de nem is szerepelt benne, hogy bármilyen előkészület vagy egyéb instrukció engedélyezett lett volna.
Kód: Egész kijelölése
42 POKE F, PEEK (32000+A) : IF PEEK F=0 THEN GOTO 49
44 NEXT F
46 LET I = 128 : LET B = 0 : LET C = A
50 IF C >= I : LET B = B + (128 / I) : LET C = C - I
53 IF I > 1 THEN LET I = I / 2 : GOTO 50
55 POKE (32000 + A), B: LET A = B