1 Odpowiedź przez maw

(16 odpowiedzi, napisanych Różne)

Szkoda, że nie miałeś okazji dodać swojego :(

Finalny kod (niestety, jeszcze z paroma błędami):

0 GOSUB 32000
1 GOSUB 32600
2 GOSUB 31100
3 GOSUB 31000
11111 END 
31000 ENTER "H6:PA25_31000.LST"
31100 REM 31100 - LOADING SCREEN, INTRODUCTION
31101 REM SOME INFO BEFORE DEMO MODE AND LOADING SCREEN BY MAW
31102 E=24:L=E-1:W=25:ED=52:DIM BE$(E):BE$="BOOT ERROR              ":DIM PA25$(E):PA25$="PRIMA APRILIS COMPO 2025":POKE 82,2
31103 FOR I=0 TO W:? CHR$(125):? BE$:? "be patient...":SOUND 0,8,ED,10:ED=ED+(ED=52)*8-(ED=60)*8:NEXT I
31104 SOUND 0,12,ED,10:ED=ED+8:IF ED=68 THEN ED=52:REM BCA #ORYGINAL MOGL ZABIC PIA/KOREKTA MAW
31105 ? CHR$(125);BE$:IF E=0 THEN W=W-1:IF W=0 THEN POKE 54018,60:GOTO 31110
31106 LL=L*RND(0)+1:IF PA25$(LL,LL)="*" THEN 31104
31107 BE$(LL,LL)=CHR$(128+ASC(PA25$(LL,LL))):PA25$(LL,LL)="*":E=E-1:GOTO 31104
31110 ? CHR$(125):POKE 559,0:POKE 82,0:POSITION 0,5:FOR N=20 TO 23:? 312;N;"POKE 656,0:POKE 657,0:? ";CHR$(34);
31111 FOR I=0 TO 39
31112 Z0=124*RND(0):IF (Z0>26 AND Z0<35) THEN 31112
31113 Z0=Z0+INT(RND(0)*2)*128:SOUND 0,Z0,10,10:? CHR$(Z0);:NEXT I
31114 ? CHR$(34);";:RETURN":? :NEXT N:SOUND 0,0,0,0:? :? "POKE 842,12:CONT":POSITION 2,0:POKE 842,13:STOP 
31115 GRAPHICS 12:POKE 559,0:DL=PEEK(560)+PEEK(561)*256:EKR=PEEK(88)+PEEK(89)*256:POKE DL+3,PEEK(DL+3)-2:POKE 710,0
31116 DL2L=PEEK(DL+26):DL2H=PEEK(DL+27):FOR I=DL+6 TO DL+24:POKE I,PEEK(I)-2:NEXT I:POKE DL+26,DL2L-64:POKE DL+27,DL2H-1
31117 RESTORE 32000:FNT=DL2L+DL2H*256+64:TRAP 31120
31118 READ A,B,C,D,E,F,G,H:POKE FNT+0,A:POKE FNT+1,B:POKE FNT+2,C:POKE FNT+3,D:POKE FNT+4,E:POKE FNT+5,F:POKE FNT+6,G
31119 POKE FNT+7,H:FNT=FNT+8:GOTO 31118
31120 X=0:Y=19:XD=0.9:YD=-0.33:C=0:POKE 559,34:POKE 756,DL2H-1
31121 GOSUB 31220+C:COLOR 108+C:PLOT 0,Y:DRAWTO X,19:C=C+1:IF C>3 THEN C=0
31130 X=X+XD:IF X>38 THEN X=39
31131 IF X>1 THEN GOTO (31140+C)
31132 GOTO 31150
31140 POSITION X-1,18:? #6;"ab";:POSITION X-1,19:? #6;"cd";:GOTO 31150
31141 POSITION X-1,18:? #6;"ef";:POSITION X-1,19:? #6;"gh";:GOTO 31150
31142 POSITION X-1,18:? #6;"ij";:POSITION X-1,19:? #6;"kl";:GOTO 31150
31143 REM 
31150 Y=Y+YD:IF Y>0 THEN 31121
31160 X=0:Y=18:C=0
31170 GOSUB 31220+C:COLOR 108+C:PLOT X,0:DRAWTO 39,Y:C=C+1:IF C>3 THEN C=0
31180 X=X+XD:IF X>38 THEN X=39
31190 Y=Y+YD:IF Y>0 THEN 31170
31200 C=106:POKE 752,1:FOR I=0 TO 1000:FOR N=0 TO 3:GOSUB (31220+N)
31201 R=32020+RND(0)*54:RESTORE R:READ X,Y,D
31202 IF D>0 THEN POSITION X+INT(RND(0)*D),Y:? #6;"k";
31203 IF D<0 THEN POSITION X,Y-INT(D*RND(0))-1:? #6;"k";
31218 NEXT N:NEXT I
31219 REM LINIE DYNAMICZNE
31220 POKE 656,0:POKE 657,0:? "uºãrÁÝŠÓn·ðyNaq¸TË7íð̱—xò/V¥ÍYX×ǺÜ";:RETURN 
31221 POKE 656,0:POKE 657,0:? "Ci¬ÒújŽ¿$RIö¼éX§¦.²yÂSítÛAò%ö8Ð/¬zHˆ\M";:RETURN 
31222 POKE 656,0:POKE 657,0:? "sK®½ßñ=§fÀ9²¾Î`äfiåôªYá`dŠI²9¾gÔq‚¯ê˜";:RETURN 
31223 POKE 656,0:POKE 657,0:? "ûNñ$JÝ-ì÷¶áŒ7(3ög´±¶uûÕH:ÐñUsˆJÄX\°'";:RETURN 
31230 GOTO 31200
31999 RETURN 
32000 DATA 0,0,0,0,16,16,16,38
32001 DATA 0,0,0,0,3,3,0,3
32002 DATA 0,0,0,0,0,0,0,112
32003 DATA 0,0,0,0,0,0,0,11
32004 DATA 0,0,0,0,24,22,63,254
32005 DATA 0,7,55,6,14,52,4,0
32006 DATA 63,253,248,126,5,4,2,0
32007 DATA 0,0,0,0,1,0,0,0
32008 DATA 19,127,63,231,64,128,128,0
32009 DATA 248,216,192,224,152,200,64,0
32010 DATA 31,11,3,1,0,0,0,0
32011 DATA 252,252,56,184,104,168,0,0,"TRAP"
32020 DATA 11,0,4
32021 DATA 24,0,4
32022 DATA 11,1,-5
32023 DATA 12,1,-5
32024 DATA 13,1,-5
32025 DATA 14,1,-5
32026 DATA 15,1,-5
32027 DATA 16,1,-5
32028 DATA 17,1,-5
32029 DATA 18,1,-5
32030 DATA 19,1,-5
32031 DATA 20,1,-5
32032 DATA 21,1,-5
32033 DATA 22,1,-5
32034 DATA 23,1,-5
32035 DATA 24,1,-5
32036 DATA 25,1,-5
32037 DATA 26,1,-5
32038 DATA 27,1,-5
32039 DATA 2,6,35
32040 DATA 10,7,-5
32041 DATA 27,7,-5
32042 DATA 11,8,6
32043 DATA 21,8,6
32044 DATA 11,9,2
32045 DATA 15,9,8
32046 DATA 25,9,2
32047 DATA 11,10,-3
32048 DATA 17,10,4
32049 DATA 26,10,-3
32050 DATA 12,11,-3
32051 DATA 16,11,6
32052 DATA 25,11,-3
32053 DATA 13,12,5
32054 DATA 20,12,5
32055 DATA 14,13,5
32056 DATA 21,13,5
32057 DATA 18,14,2
32058 DATA 15,15,8
32059 DATA 11,15,-2
32060 DATA 26,15,-2
32061 DATA 12,16,-3
32062 DATA 13,16,-4
32063 DATA 14,16,-5
32064 DATA 15,16,-6
32065 DATA 16,16,-7
32066 DATA 17,16,-7
32067 DATA 18,16,-8
32068 DATA 19,16,-8
32069 DATA 20,16,-7
32070 DATA 21,16,-7
32071 DATA 22,16,-6
32072 DATA 23,16,-5
32073 DATA 24,16,-4
32074 DATA 25,16,-3
32599 RETURN 
32600 REM 32600 - BLOKI INICJACYJNE
32601 GRAPHICS 8:POKE 106,128:GRAPHICS 8:GRAPHICS 0:POKE 82,0
32699 RETURN 
32700 REM ****************************
32701 REM * PRIMA APRILIS COMPO 2025 *
32702 REM ****************************
32703 REM BY MONO,PABLOZ,MAW,BCA
32704 REM ATARI JEST LEPSZE OD ZX TRUMNY
32705 REM JEDZIEMY OD KONCA BASICA PANOWIE(I PANIE)
32706 REM 32600 - REZERWACJA PAMIECI (WSPOLNA DLA WSZYSTKICH) - OBNIZ RAMTOP, ZAKLNIJ DUCHY
32707 REM 32000 - REZERWACJA BLOKU LINII DLA DATA
32708 REM 31100 - LOADING SCREEN, INTRODUCTION
32709 REM 31000 - ...
32766 RETURN :REM NIE ZAPOMNIEC O POKE 82,0!!!

Dzięki wszystkim za uczestnictwo, zwłaszcza Mono za pamiętanie o compo!

PS. przydała by się dogrywka :-)

Idź do forum: Różne

2 Odpowiedź przez maw

(16 odpowiedzi, napisanych Różne)

Nie chodzi o nadmierne pokowanie, a o to, co kryje się za wielokrotnym użyciem 54018 - posiłkowałem się tym:

https://atarionline.pl/v01/index.php?start_from=20&ucat=7&archive=&subaction=showfull&id=1597400834&ct=poczatki napisał/a:

Rzeczywiste uruchomienie silnika nastąpi, gdy na bazie tranzystora Q2 pojawi się napięcie +5V doprowadzone tam z pinu 8 gniazda SIO. Pin 8 to MOTOR CONTROL. Linią tą steruje tranzystor Q7, znajdujący się na płycie Atari, z kolei tranzystor Q7 sterowany jest przez układ PIA 6520, poprzez jego pin 39 opisany jako CA2. Wydanie polecenia POKE 54018,52 otwiera tranzystor Q7, Q2 i Q1. Silnik kręci. Natomiast POKE 54018,60 blokuje całość i silnik nie kręci pomimo włączenia klawisza PLAY.

Lepiej dmuchać na zimne - jeszcze ktoś odpali PA'25 na real Atari i kto wie, co wywoła taki stresstest (200 przełączeń co mniej niż sekunda) na PIA i linię tranzystorową...

Idź do forum: Różne

3 Odpowiedź przez maw

(16 odpowiedzi, napisanych Różne)

Kod główny:

0 GOSUB 32600
1 GOSUB 31100
2 GOSUB 31000
11111 END 
31000 E."H6:PA25_31000.LST"
31100 E."H6:PA25_31100.LST"
32000 E."H6:PA25_31200.LST":REM 32000 - BLOK LINII DATA
32600 REM 32600 - BLOKI INICJACYJNE
32601 GRAPHICS 8:POKE 106,128:GRAPHICS 8:GRAPHICS 0:POKE 82,0
32699 RETURN 
32700 REM ****************************
32701 REM * PRIMA APRILIS COMPO 2025 *
32702 REM ****************************
32703 REM BY MONO,PABLOZ,MAW,BCA
32704 REM ATARI JEST LEPSZE OD ZX TRUMNY
32705 REM JEDZIEMY OD KONCA BASICA PANOWIE(I PANIE)
32706 REM 32600 - REZERWACJA PAMIECI (WSPOLNA DLA WSZYSTKICH) - OBNIZ RAMTOP, ZAKLNIJ DUCHY
32707 REM 32000 - REZERWACJA BLOKU LINII DLA DATA
32708 REM 31100 - LOADING SCREEN, INTRODUCTION
32709 REM 31000 - ...
32766 REM NIE ZAPOMNIEC O POKE 82,0!!!
RUN

Linie 31000-31099:

31000 REM 31000 - LOADING SCREEN, INTRODUCTION
31001 REM pusto?
31099 RETURN

Linie 31100-31999:

31100 REM 31100 - LOADING SCREEN, INTRODUCTION
31101 REM SOME INFO BEFORE DEMO MODE AND LOADING SCREEN BY MAW
31102 E=24:L=E-1:W=25:ED=52:DIM BE$(E):BE$="BOOT ERROR              ":DIM PA25$(E):PA25$="PRIMA APRILIS COMPO 2025":POKE 82,2
31103 FOR I=0 TO W:? CHR$(125):? BE$:? "be patient...":SOUND 0,8,ED,10:ED=ED+(ED=52)*8-(ED=60)*8:NEXT I
31104 SOUND 0,12,ED,10:ED=ED+8:IF ED=68 THEN ED=52:REM BCA #ORYGINAL MOGL ZABIC PIA/KOREKTA MAW
31105 ? CHR$(125);BE$:IF E=0 THEN W=W-1:IF W=0 THEN POKE 54018,60:GOTO 31110
31106 LL=L*RND(0)+1:IF PA25$(LL,LL)="*" THEN 31104
31107 BE$(LL,LL)=CHR$(128+ASC(PA25$(LL,LL))):PA25$(LL,LL)="*":E=E-1:GOTO 31104
31110 ? CHR$(125):POKE 559,0:POKE 82,0:POSITION 0,5:FOR N=20 TO 23:? 312;N;"POKE 656,0:POKE 657,0:? ";CHR$(34);
31111 FOR I=0 TO 39
31112 Z0=124*RND(0):IF (Z0>26 AND Z0<35) THEN 31112
31113 Z0=Z0+INT(RND(0)*2)*128:SOUND 0,Z0,10,10:? CHR$(Z0);:NEXT I
31114 ? CHR$(34);";:RETURN":? :NEXT N:SOUND 0,0,0,0:? :? "POKE 842,12:CONT":POSITION 2,0:POKE 842,13:STOP 
31115 GRAPHICS 12:POKE 559,0:DL=PEEK(560)+PEEK(561)*256:EKR=PEEK(88)+PEEK(89)*256:POKE DL+3,PEEK(DL+3)-2:POKE 710,0
31116 DL2L=PEEK(DL+26):DL2H=PEEK(DL+27):FOR I=DL+6 TO DL+24:POKE I,PEEK(I)-2:NEXT I:POKE DL+26,DL2L-71:POKE DL+27,DL2H-1
31117 RESTORE 32000:FNT=DL2L+DL2H*256+64:TRAP 31120
31118 READ A,B,C,D,E,F,G,H:POKE FNT+0,A:POKE FNT+1,B:POKE FNT+2,C:POKE FNT+3,D:POKE FNT+4,E:POKE FNT+5,F:POKE FNT+6,G
31119 POKE FNT+7,H:FNT=FNT+8:GOTO 31118
31120 X=0:Y=19:XD=0.9:YD=-0.33:C=0:POKE 559,34:POKE 756,DL2H-1
31121 GOSUB 31220+C:COLOR 108+C:PLOT 0,Y:DRAWTO X,19:C=C+1:IF C>3 THEN C=0
31130 X=X+XD:IF X>38 THEN X=39
31131 IF X>1 THEN GOTO (31140+C)
31132 GOTO 31150
31140 POSITION X-1,18:? #6;"ab";:POSITION X-1,19:? #6;"cd";:GOTO 31150
31141 POSITION X-1,18:? #6;"ef";:POSITION X-1,19:? #6;"gh";:GOTO 31150
31142 POSITION X-1,18:? #6;"ij";:POSITION X-1,19:? #6;"kl";:GOTO 31150
31143 REM 
31150 Y=Y+YD:IF Y>0 THEN 31121
31160 X=0:Y=18:C=0
31170 GOSUB 31220+C:COLOR 108+C:PLOT X,0:DRAWTO 39,Y:C=C+1:IF C>3 THEN C=0
31180 X=X+XD:IF X>38 THEN X=39
31190 Y=Y+YD:IF Y>0 THEN 31170
31200 FOR I=0 TO 1000:FOR N=0 TO 3:GOSUB (31220+N)
31210 NEXT N:NEXT I
31219 REM LINIE DYNAMICZNE
31220 POKE 656,0:POKE 657,0:? "¯Š3ÇÊQ0¶Þ@µõm‚ŽsØfŒÕƒD3ÏÆ4GY÷콶gK";:RETURN 
31221 POKE 656,0:POKE 657,0:? "–õPÌV{êÚ$‹¿¦èGŒð¾hJESJçñM©?|pÐá5–À";:RETURN 
31222 POKE 656,0:POKE 657,0:? "±Á½ù¦ƒ²Ï@z\t÷K©Mã\c81¥$8¯V.¯uLÕ†ñʏY";:RETURN 
31223 POKE 656,0:POKE 657,0:? "8h´—]ÑÄéA„µ«Kúå=còÁå_me”{À×s¼LãÆâ";:RETURN 
31230 GOTO 31200
31999 RETURN

(zabójcę silnika magnetofonu/albo i PIA/ od BCA musiałem usunąć/zamieniłem na SOUNDa - nie chcielibyśmy mieć na sumieniu czyjejś atarynki)

Linie DATA

32000 DATA 0,0,0,0,16,16,16,38
32001 DATA 0,0,0,0,3,3,0,3
32002 DATA 0,0,0,0,0,0,0,112
32003 DATA 0,0,0,0,0,0,0,11
32004 DATA 0,0,0,0,24,22,63,254
32005 DATA 0,7,55,6,14,52,4,0
32006 DATA 63,253,248,126,5,4,2,0
32007 DATA 0,0,0,0,1,0,0,0
32008 DATA 19,127,63,231,64,128,128,0
32009 DATA 248,216,192,224,152,200,64,0
32010 DATA 31,11,3,1,0,0,0,0
32011 DATA 252,252,56,184,104,168,0,0,"TRAP"

Załącznik z PECETOWYM kodowaniem końca linii, otwarcie: emulator, dodaj urządzenie - dysk H:, zamapuj folder z plikiem (koniecznie z długimi nazwami!), załaduj:

E."H6:PA2025_START.LST"

Idź do forum: Różne

4 Odpowiedź przez maw

(16 odpowiedzi, napisanych Różne)

0 GOSUB 32600
1 GOSUB 31100
2 GOSUB 31000
11111 END 
31000 REM ...
31099 RETURN
31100 REM 31000 - LOADING SCREEN, INTRODUCTION
31101 E=24:L=E-1:W=100:DIM BE$(E):BE$="BOOT ERROR              "
31102 DIM PA25$(E):PA25$="PRIMA APRILIS COMPO 2025":DIM X$(1)
31103 GRAPHICS 0:? BE$:FOR I=0 TO W:NEXT I
31104 ? CHR$(125);BE$:IF E=0 THEN W=W-1:IF W=0 THEN GOTO 31999
31105 LL=L*RND(0)+1:X$=PA25$(LL,LL):IF X$="*" THEN 31104
31106 BE$(LL,LL)=CHR$(128+ASC(PA25$(LL,LL)))
31107 PA25$(LL,LL)="*":E=E-1
31111 GOTO 31104
31999 RETURN 
32000 REM 32000 - BLOK LINII DATA
32600 REM 32600 - BLOKI INICJACYJNE
32601 GRAPHICS 8:POKE 106,128:GRAPHICS 8:GRAPHICS 0:POKE 82,0
32699 RETURN 
32700 REM ****************************
32701 REM * PRIMA APRILIS COMPO 2025 *
32702 REM ****************************
32703 REM BY MONO,PABLOZ,MAW
32704 REM ATARI JEST LEPSZE OD ZX TRUMNY
32705 REM JEDZIEMY OD KONCA BASICA PANOWIE(I PANIE)
32706 REM 32600 - REZERWACJA PAMIECI (WSPOLNA DLA WSZYSTKICH) - OBNIZ RAMTOP, ZAKLNIJ DUCHY
32707 REM 32000 - REZERWACJA BLOKU LINII DLA DATA
32708 REM 31100 - LOADING SCREEN, INTRODUCTION
32709 REM 31000 - ...
32766 REM NIE ZAPOMNIEC O POKE 82,0!!!
RUN

( prace nad intro w toku :D )

//EDIT: Załącznik z kodowaniem WINDOWS, otwarcie: emulator, dodaj urządzenie - dysk H:, zamapuj folder z plikiem (koniecznie z długimi nazwami!), załaduj:

E."H6:PA2025_1330.LST"

Idź do forum: Różne

5 Odpowiedź przez maw

(29 odpowiedzi, napisanych Sprzęt - 8bit)

O kurcze, a zdążyłem już napisać do Toriego. Gdyby on nie miał, to odezwę się na priv.

Idź do forum: Sprzęt - 8bit

6 Odpowiedź przez maw

(29 odpowiedzi, napisanych Sprzęt - 8bit)

Hej, czy ktoś ma może jeszcze taki "zbędny" rozdzielacz? Z chęcią bym przygarnął :-)

Idź do forum: Sprzęt - 8bit

7 Odpowiedź przez maw

(29 odpowiedzi, napisanych Różne)

No i ostateczna forma, po ciężkich długich bojach złoomowych, przy współudziale Mono i BCA...

50 GOSUB 30000:GOSUB 32000

10000 GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:POKE 20,X:C20=X

11000 T20=PEEK(20):IF T20>=250 THEN 11003
11001 POKE M3,T20:POKE M2,T20+2:POKE M1,T20+4:POKE M0,T20+6
11002 POKE C0,T20:POKE C1,T20+2:POKE C2,T20+4:POKE C3,T20+6
11003 POKE 53260,T20

29820 T0=T0-1:IF T0=0THEN P0=PEEK(AM):V0=PEEK(AM+1):T0=PEEK(AM+2):AM=AM+3:POK.PF0,P0:POK.PC0,V0:IF AM=AME THEN AM=AMB
29830 T1=T1-1:IF T1=0THEN P1=PEEK(AM):V1=PEEK(AM+1):T1=PEEK(AM+2):AM=AM+3:POK.PF1,P1:POK.PC1,V1:IF AM=AME THEN AM=AMB
29840 T2=T2-1:IF T2=0THEN P2=PEEK(AM):V2=PEEK(AM+1):T2=PEEK(AM+2):AM=AM+3:POK.PF2,P2:POK.PC2,V2:IF AM=AME THEN AM=AMB
29850 T3=T3-1:IF T3=0THEN P3=PEEK(AM):V3=PEEK(AM+1):T3=PEEK(AM+2):AM=AM+3:POK.PF3,P3:POK.PC3,V3:IF AM=AME THEN AM=AMB

29895 SETCOLOR 4,T20,T0:REM BCA

29980 IF PEEK(53279)=7 THEN 11000
29990 POKE 53277,0:POKE 53261,0:END

30000 REM SOME INFO BEFORE DEMO MODE BY SIKOR +texts stairs MaW+chars distort BCA
30010 POKE 106,PEEK(106)-16:GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 752,1
30011 BA=(PEEK(106)+4)*256: POKE 756,PEEK(106)+4: ?
30013 ? "  !   !!! !!! !!  ! !!  !!! "
30014 ? "  !   ! ! ! ! ! ! ! ! ! !   "
30015 ? "  !   ! ! !!! ! ! ! ! ! ! ! "
30016 ? "  !!! !!! ! ! !!! ! ! ! !!! "
30017 ? "  !!! !!! ! ! !!! ! ! ! !!! ! ! !"
30018 ? : SCR0=PEEK(88)+PEEK(89)*256:SCR1=SCR0+239
30019 FOR POS=SCR0 TO SCR1:POKE POS,PEEK(POS)*128:NEXT POS

30020 ? "Another year, another PA compo...":? "------------------------------------"
30030 ? "Take it easy...": ? :? :? "This year they had their fingers:"
30040 DIM A$(30):DIM DOT$(3):DOT$="...":DATA Mono,Adam K,Seban,Mq,Sikor,BCA,MaW,...,.
30041 LINE=PEEK(84) 
30050 LINE=LINE+1:COL=PEEK(85):READ A$: IF (COL+LEN(A$)+3)>39 THEN COL=0
30051 POS. COL,LINE:? #6;A$;DOT$;CHR$(21);:IF A$=DOT$ THEN RETURN
30060 GOTO 30050

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 RESTORE 31914:FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31920 REM -- PMG init --
31921 M0=53252:M1=53253:M2=53254:M3=53255:POKE 54279,PEEK(106):POKE 559,62:POKE 53277,3:POKE 53260,85
31922 MN=M0:DIM T$(32):C0=704:C1=705:C2=706:C3=707:POKE C0,56:POKE C1,56:POKE C2,56:POKE C3,56
31923 T$="BEHIND JAGGI LINES!":M0A=(PEEK(106)+3)*256+32:FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:PEEKAJ=PEEK(A+J):POKE M0A+J,PEEKAJ:POKE MN,PEEKAJ:MN=MN+1:IF MN>M3 THEN MN=M0
31926 SOUND Z0,I*RND(Z0),12,J*RND(Z0):NEXT J:M0A=M0A+8:NEXT I
31927 RETURN 

32000 REM -- Mono part -- +progress bar MaW, sounds peaks, font gen BCA
32010 T0=1:T1=1:T2=1:T3=1:SCR0=PEEK(88)+PEEK(89)*256:SCR1=SCR0+239
32020 P=53760:PF0=P+0:PC0=P+1:PF1=P+2:PC1=P+3:PF2=P+4:PC2=P+5:PF3=P+6:PC3=P+7
32030 POS=SCR0:E=3*410:DIM M$(E):DIM Z(127):RESTORE 32060
32031 FOR POS1=(SCR0+240) TO (SCR0+959):V=PEEK(POS):V1=PEEK(POS1)
32032 POKE POS,V+128*((V<128)-(V>127)):V=PEEK(POS+1):POKE POS+1,V+128*((V<128)-(V>127))
32033 POS=POS+2:IF POS>SCR1 THEN POS=SCR0
32034 IF (V1=0 OR Z(V1)<>0) THEN GOTO 32037 
32035 FOR V2=0 TO 7:F=PEEK(57344+V1*8+V2): SOUND 0,F,10,5:IF (RND(0)>.75) THEN F=F/2
32036 POKE BA+V1*8+V2,F:NEXT V2:Z(V1)=V1
32037 NEXT POS1
32040 FOR I=1 TO E STEP 3:V=PEEK(POS)
32041 POKE POS,V+128*((V<128)-(V>127)):V=PEEK(POS+1):POKE POS+1,V+128*((V<128)-(V>127))
32042 POS=POS+2:IF POS>SCR1 THEN POS=SCR0
32043 READ P,D,T:SOUND 0,2,10,P:POKE 710,P:M$(I)=CHR$(P):M$(I+1)=CHR$(D):M$(I+2)=CHR$(T):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=0:RETURN
32060 DATA 255,168,4
32061 DATA 0,160,32
32062 DATA 0,160,32
32063 DATA 0,160,32
32064 DATA 128,168,4
32065 DATA 173,168,4
32066 DATA 162,168,4
32067 DATA 255,168,4
32068 DATA 128,168,4
32069 DATA 173,168,4
32070 DATA 162,168,4
32071 DATA 255,168,4
32072 DATA 0,160,32
32073 DATA 85,170,4
32074 DATA 64,170,4
32075 DATA 128,168,4
32076 DATA 96,170,4
32077 DATA 72,170,4
32078 DATA 173,168,4
32079 DATA 85,170,8
32080 DATA 64,170,8
32081 DATA 162,168,4
32082 DATA 255,168,4
32083 DATA 0,160,16
32084 DATA 0,160,16
32085 DATA 128,168,4
32086 DATA 173,168,4
32087 DATA 162,168,4
32088 DATA 255,168,4
32089 DATA 0,160,32
32090 DATA 85,170,4
32091 DATA 64,170,4
32092 DATA 128,168,4
32093 DATA 96,170,4
32094 DATA 72,170,4
32095 DATA 173,168,4
32096 DATA 85,170,8
32097 DATA 64,170,8
32098 DATA 162,168,4
32099 DATA 255,168,4
32100 DATA 0,160,16
32101 DATA 0,160,16
32102 DATA 128,168,4
32103 DATA 173,168,4
32104 DATA 162,168,4
32105 DATA 193,168,4
32106 DATA 0,160,32
32107 DATA 64,170,2
32108 DATA 47,170,2
32109 DATA 64,170,2
32110 DATA 47,170,2
32111 DATA 96,168,4
32112 DATA 64,170,2
32113 DATA 47,170,2
32114 DATA 64,170,2
32115 DATA 47,170,2
32116 DATA 193,168,4
32117 DATA 72,170,4
32118 DATA 53,170,4
32119 DATA 96,168,4
32120 DATA 64,170,4
32121 DATA 47,170,4
32122 DATA 193,168,4
32123 DATA 64,170,2
32124 DATA 47,170,2
32125 DATA 64,170,2
32126 DATA 47,170,2
32127 DATA 96,168,4
32128 DATA 64,170,2
32129 DATA 47,170,2
32130 DATA 64,170,2
32131 DATA 47,170,2
32132 DATA 193,168,4
32133 DATA 72,170,4
32134 DATA 53,170,4
32135 DATA 96,168,4
32136 DATA 64,170,4
32137 DATA 47,170,4
32138 DATA 255,168,4
32139 DATA 64,168,2
32140 DATA 85,170,4
32141 DATA 64,170,4
32142 DATA 108,168,2
32143 DATA 128,168,4
32144 DATA 85,168,2
32145 DATA 96,170,4
32146 DATA 72,170,4
32147 DATA 81,168,2
32148 DATA 173,168,4
32149 DATA 85,168,2
32150 DATA 85,170,8
32151 DATA 64,170,8
32152 DATA 108,168,2
32153 DATA 162,168,4
32154 DATA 57,168,2
32155 DATA 64,168,2
32156 DATA 255,168,4
32157 DATA 0,160,16
32158 DATA 0,160,16
32159 DATA 0,160,16
32160 DATA 128,168,4
32161 DATA 173,168,4
32162 DATA 162,168,4
32163 DATA 255,168,4
32164 DATA 64,168,2
32165 DATA 85,170,4
32166 DATA 64,170,4
32167 DATA 108,168,2
32168 DATA 128,168,4
32169 DATA 85,168,2
32170 DATA 96,170,4
32171 DATA 72,170,4
32172 DATA 81,168,2
32173 DATA 173,168,4
32174 DATA 85,168,2
32175 DATA 85,170,8
32176 DATA 64,170,8
32177 DATA 108,168,2
32178 DATA 162,168,4
32179 DATA 57,168,2
32180 DATA 64,168,2
32181 DATA 255,168,4
32182 DATA 0,160,16
32183 DATA 0,160,16
32184 DATA 0,160,16
32185 DATA 128,168,4
32186 DATA 173,168,4
32187 DATA 162,168,4
32188 DATA 193,168,4
32189 DATA 19,168,1
32190 DATA 64,170,2
32191 DATA 47,170,2
32192 DATA 23,168,1
32193 DATA 31,168,1
32194 DATA 64,170,2
32195 DATA 47,170,2
32196 DATA 40,168,1
32197 DATA 96,168,4
32198 DATA 47,168,1
32199 DATA 64,170,2
32200 DATA 47,170,2
32201 DATA 64,168,1
32202 DATA 81,168,1
32203 DATA 64,170,2
32204 DATA 47,170,2
32205 DATA 96,168,1
32206 DATA 193,168,4
32207 DATA 0,160,8
32208 DATA 72,170,4
32209 DATA 53,170,4
32210 DATA 96,168,4
32211 DATA 64,170,4
32212 DATA 47,170,4
32213 DATA 193,168,4
32214 DATA 19,168,1
32215 DATA 64,170,2
32216 DATA 47,170,2
32217 DATA 23,168,1
32218 DATA 31,168,1
32219 DATA 64,170,2
32220 DATA 47,170,2
32221 DATA 40,168,1
32222 DATA 96,168,4
32223 DATA 47,168,1
32224 DATA 64,170,2
32225 DATA 47,170,2
32226 DATA 64,168,1
32227 DATA 81,168,1
32228 DATA 64,170,2
32229 DATA 47,170,2
32230 DATA 96,168,1
32231 DATA 193,168,4
32232 DATA 0,160,8
32233 DATA 72,170,4
32234 DATA 53,170,4
32235 DATA 96,168,4
32236 DATA 64,170,4
32237 DATA 47,170,4
32238 DATA 114,168,2
32239 DATA 173,168,2
32240 DATA 68,168,8
32241 DATA 85,168,8
32242 DATA 114,168,2
32243 DATA 173,168,2
32244 DATA 114,168,2
32245 DATA 173,168,2
32246 DATA 114,168,2
32247 DATA 173,168,2
32248 DATA 128,168,4
32249 DATA 193,168,4
32250 DATA 76,168,4
32251 DATA 96,168,4
32252 DATA 114,168,4
32253 DATA 173,168,4
32254 DATA 68,168,4
32255 DATA 85,168,4
32256 DATA 114,168,2
32257 DATA 173,168,2
32258 DATA 68,168,8
32259 DATA 57,168,8
32260 DATA 114,168,2
32261 DATA 173,168,2
32262 DATA 114,168,2
32263 DATA 173,168,2
32264 DATA 114,168,2
32265 DATA 173,168,2
32266 DATA 128,168,4
32267 DATA 193,168,4
32268 DATA 76,168,4
32269 DATA 64,168,4
32270 DATA 114,168,4
32271 DATA 173,168,4
32272 DATA 68,168,4
32273 DATA 57,168,4
32274 DATA 114,168,2
32275 DATA 173,168,2
32276 DATA 68,170,12
32277 DATA 42,170,12
32278 DATA 114,168,2
32279 DATA 173,168,2
32280 DATA 114,168,2
32281 DATA 173,168,2
32282 DATA 114,168,2
32283 DATA 173,168,2
32284 DATA 128,168,4
32285 DATA 193,168,4
32286 DATA 114,168,4
32287 DATA 173,168,4
32288 DATA 0,160,4
32289 DATA 0,160,4
32290 DATA 173,168,2
32291 DATA 20,168,1
32292 DATA 20,170,1
32293 DATA 31,170,1
32294 DATA 28,168,1
32295 DATA 42,170,1
32296 DATA 64,170,1
32297 DATA 173,168,2
32298 DATA 33,168,1
32299 DATA 0,160,4
32300 DATA 0,160,4
32301 DATA 42,168,1
32302 DATA 173,168,2
32303 DATA 57,168,1
32304 DATA 68,168,1
32305 DATA 173,168,2
32306 DATA 85,168,1
32307 DATA 20,170,1
32308 DATA 31,170,1
32309 DATA 114,168,1
32310 DATA 42,170,1
32311 DATA 64,170,1
32312 DATA 173,168,2
32313 DATA 85,168,2
32314 DATA 0,160,4
32315 DATA 0,160,4
32316 DATA 0,160,6
32317 DATA 0,160,6
32318 DATA 0,160,4
32319 DATA 0,160,4
32320 DATA 255,167,4
32321 DATA 64,164,2
32322 DATA 85,169,4
32323 DATA 64,169,4
32324 DATA 108,164,2
32325 DATA 128,167,4
32326 DATA 85,164,2
32327 DATA 96,169,4
32328 DATA 72,169,4
32329 DATA 81,164,2
32330 DATA 173,167,4
32331 DATA 85,164,2
32332 DATA 85,169,8
32333 DATA 64,169,8
32334 DATA 108,164,2
32335 DATA 162,167,4
32336 DATA 57,164,2
32337 DATA 64,164,2
32338 DATA 255,167,4
32339 DATA 0,160,16
32340 DATA 0,160,16
32341 DATA 0,160,16
32342 DATA 128,167,4
32343 DATA 173,167,4
32344 DATA 162,167,4
32345 DATA 255,167,4
32346 DATA 64,164,2
32347 DATA 85,169,4
32348 DATA 64,169,4
32349 DATA 108,164,2
32350 DATA 128,167,4
32351 DATA 85,164,2
32352 DATA 96,169,4
32353 DATA 72,169,4
32354 DATA 81,164,2
32355 DATA 173,167,4
32356 DATA 85,164,2
32357 DATA 85,169,8
32358 DATA 64,169,8
32359 DATA 108,164,2
32360 DATA 162,167,4
32361 DATA 57,164,2
32362 DATA 64,164,2
32363 DATA 255,167,4
32364 DATA 0,160,16
32365 DATA 0,160,16
32366 DATA 0,160,16
32367 DATA 128,167,4
32368 DATA 173,167,4
32369 DATA 162,167,4
32370 DATA 255,165,4
32371 DATA 64,163,2
32372 DATA 85,167,4
32373 DATA 64,167,4
32374 DATA 108,163,2
32375 DATA 128,165,4
32376 DATA 85,163,2
32377 DATA 96,167,4
32378 DATA 72,167,4
32379 DATA 81,163,2
32380 DATA 173,165,4
32381 DATA 85,163,2
32382 DATA 85,167,8
32383 DATA 64,167,8
32384 DATA 108,163,2
32385 DATA 162,165,4
32386 DATA 57,163,2
32387 DATA 64,163,2
32388 DATA 255,165,4
32389 DATA 0,160,16
32390 DATA 0,160,16
32391 DATA 0,160,16
32392 DATA 128,165,4
32393 DATA 173,165,4
32394 DATA 162,165,4
32395 DATA 255,165,4
32396 DATA 64,163,2
32397 DATA 85,167,4
32398 DATA 64,167,4
32399 DATA 108,163,2
32400 DATA 128,165,4
32401 DATA 85,163,2
32402 DATA 96,167,4
32403 DATA 72,167,4
32404 DATA 81,163,2
32405 DATA 173,165,4
32406 DATA 85,163,2
32407 DATA 85,167,8
32408 DATA 64,167,8
32409 DATA 108,163,2
32410 DATA 162,165,4
32411 DATA 57,163,2
32412 DATA 64,163,2
32413 DATA 255,165,4
32414 DATA 0,160,16
32415 DATA 0,160,16
32416 DATA 0,160,16
32417 DATA 128,165,4
32418 DATA 173,165,4
32419 DATA 162,165,4
32420 DATA 255,163,4
32421 DATA 64,162,2
32422 DATA 85,164,4
32423 DATA 64,164,4
32424 DATA 108,162,2
32425 DATA 128,163,4
32426 DATA 85,162,2
32427 DATA 96,164,4
32428 DATA 72,164,4
32429 DATA 81,162,2
32430 DATA 173,163,4
32431 DATA 85,162,2
32432 DATA 85,164,8
32433 DATA 64,164,8
32434 DATA 108,162,2
32435 DATA 162,163,4
32436 DATA 57,162,2
32437 DATA 64,162,2
32438 DATA 255,163,4
32439 DATA 0,160,16
32440 DATA 0,160,16
32441 DATA 0,160,16
32442 DATA 128,163,4
32443 DATA 173,163,4
32444 DATA 162,163,4
32445 DATA 255,163,4
32446 DATA 64,162,2
32447 DATA 85,164,4
32448 DATA 64,164,4
32449 DATA 108,162,2
32450 DATA 128,163,4
32451 DATA 85,162,2
32452 DATA 96,164,4
32453 DATA 72,164,4
32454 DATA 81,162,2
32455 DATA 173,163,4
32456 DATA 85,162,2
32457 DATA 85,164,8
32458 DATA 64,164,8
32459 DATA 108,162,2
32460 DATA 162,163,4
32461 DATA 57,162,2
32462 DATA 64,162,2
32463 DATA 255,163,4
32464 DATA 0,160,16
32465 DATA 0,160,16
32466 DATA 0,160,16
32467 DATA 128,163,4
32468 DATA 173,163,4
32469 DATA 162,163,4
32470 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq, Sikor, BCA, MaW

Idź do forum: Różne

8 Odpowiedź przez maw

(29 odpowiedzi, napisanych Różne)

Zmiana dorzucona przez BCA:

29895 SETCOLOR 4,T20,T0:REM BCA

+aktualizacja LST

Idź do forum: Różne

9 Odpowiedź przez maw

(29 odpowiedzi, napisanych Różne)

Hej Mq, za długie linie wprowadzasz z POKE 82,0
plus skróty:

29820 T0=T0-1:IF T0=0THEN P0=PEEK(AM):V0=PEEK(AM+1):T0=PEEK(AM+2):AM=AM+3:POK.PF0,P0:POK.PC0,V0:IF AM=AME THEN AM=AMB
29830 T1=T1-1:IF T1=0THEN P1=PEEK(AM):V1=PEEK(AM+1):T1=PEEK(AM+2):AM=AM+3:POK.PF1,P1:POK.PC1,V1:IF AM=AME THEN AM=AMB
29840 T2=T2-1:IF T2=0THEN P2=PEEK(AM):V2=PEEK(AM+1):T2=PEEK(AM+2):AM=AM+3:POK.PF2,P2:POK.PC2,V2:IF AM=AME THEN AM=AMB
29850 T3=T3-1:IF T3=0THEN P3=PEEK(AM):V3=PEEK(AM+1):T3=PEEK(AM+2):AM=AM+3:POK.PF3,P3:POK.PC3,V3:IF AM=AME THEN AM=AMB

PS. Zmiany pod bacznym okiem Santyago na Złoomie ;)

pa2024.lst - obecna wersja, listing BASIC

PA2024_post24.txt - obecna wersja, text UTF+8

Idź do forum: Różne

10 Odpowiedź przez maw

(29 odpowiedzi, napisanych Różne)

Hej, dołączam kolejne modyfikacje:

30000 REM SOME INFO BEFORE DEMO MODE BY SIKOR +texts stairs MaW
30010 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 752,1
30020 ? "Another year, another PA compo...":? "------------------------------------"
30030 ? "Take it easy...": ? :? :? "This year they had their fingers:"
                         
30040 DIM A$(20):DIM DOT$(3):DOT$="...":DATA Mono,Adam K,Seban,Mq,Sikor,BCA,MaW,...
30041 LINE=PEEK(84) 
30050 LINE=LINE+1:COL=PEEK(85):READ A$: IF (COL+LEN(A$)+3)>39 THEN COL=0
30051 POS. COL,LINE:? #6;A$;DOT$;CHR$(21);:IF A$=DOT$ THEN RETURN
30060 GOTO 30050
32000 REM -- Mono part -- +progress bar MaW, sounds peaks BCA
32010 T0=1:T1=1:T2=1:T3=1:SCR0=PEEK(88)+PEEK(89)*256:SCR1=SCR0+119
32020 P=53760:PF0=P+0:PC0=P+1:PF1=P+2:PC1=P+3:PF2=P+4:PC2=P+5:PF3=P+6:PC3=P+7
32030 POS=SCR0:E=3*410:DIM M$(E):RESTORE 32060
32040 FOR I=1 TO E STEP 3:V=PEEK(POS)
32041 POKE POS,V+128*((V<128)*1+(V>127)*-1):V=PEEK(POS+1):POKE POS+1,V+128*((V<128)*1+(V>127)-1)
32042 POS=POS+1:IF POS>SCR1 then POS=SCR0
32043 SOUND 0,2,10,P:READ P,D,T:M$(I)=CHR$(P):M$(I+1)=CHR$(D):M$(I+2)=CHR$(T):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=0:RETURN

...przy współpracy Romualda.

Idź do forum: Różne

11 Odpowiedź przez maw

(707 odpowiedzi, napisanych Fabryka - 8bit)

Mam pytanie, czy jest już nowy wsad so Sophii, który obłsługuje ten efekt: http://www.atari.org.pl/forum/viewtopic.php?id=12061 ?

Idź do forum: Fabryka - 8bit

12 Odpowiedź przez maw

(9 odpowiedzi, napisanych Bałagan)

Była, ale chyba nie w AM, a w C&A.
//EDIT: Stąd https://retroarcadebox.pl/spis-recenzji/

GODS    BITMAP BROTHERS    Amiga, Atari ST, PC    SS13Maj (5/94)
Grafika: 90%
Dźwięk: 90%
Miodność: 90%

Idź do forum: Bałagan

13 Odpowiedź przez maw

(10 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Uuu, no to jeszcze za niska, ale już i tak ładna, niech Ci długo służy!

W każdym razie dzięki za naprowadzenie - po wprowadzeniu tej w wyszukiwarce na e-bayu wpadło mi bardzo wiele powiązanych obiecujących wyników

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

14 Odpowiedź przez maw

(10 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Dzięki za sprawdzenie, ale nie chodzi mi o SKOK, tylko o wysokość klawisza - pisałeś o tym, że "klawisze nie są tak wysokie, jak bym chciał"...

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

15 Odpowiedź przez maw

(10 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Dzięki za podpowiedź, faktycznie ładna i pasująca do warunków, ale obawiam się, że jednak może być za niska :)

Czy byłbyś w stanie zmierzyć wysokość boku klawisza? Jeżeli to jest 6+mm ponad obudowę, to takiej szukam.

...tak offtopowo powiem, że takiego burdelu, jak z klawiaturami i ich opisami, to w sklepach online jeszcze nie widziałem (a oczywiście w tym przoduje "nasz ulubiony portal aukcyjny") - takiej klawiatury szukam już od paru miesięcy, co pytam w jakimś sklepie, to wciskają tylko gamingowe, mechaniczne...

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

16 Temat przez maw

(10 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Hej, może ktoś ma na zbyciu krótką biurową klawiaturę PC:
- przewodową USB (lub PS2)
- układ ANSI (płaski/jednowierszowy/ ENTER)
- z wysokimi klawiszami ("wysoki skok")
- bez bloku numerycznego
- bez bloku klawiszy specjalnych (INS/DEL, HOME/END, PGUP/PGDN, strzałki) lub blokiem klawiszy specjalnych wbudowanym w prawą stronę bloku podstawowego
- bez podświetleń i innych wodotrysków (żadna tam gamingowa)
- membranową (klasyczną)

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

17 Odpowiedź przez maw

(10 odpowiedzi, napisanych Sprzęt - 8bit)

sprawdź płytkę z Blizzarda, wygląda na padniętą; jeżeli to nie to, to sprawdź, czy nie ma problemów z masą/lutowaniem/wtyczką kabla sio.

Idź do forum: Sprzęt - 8bit

18 Odpowiedź przez maw

(5 odpowiedzi, napisanych Sprzęt - 16/32bit)

MeanWell RD-50A, dobrze widzę? Czy on się też zmieści w 1040STFM? Jeżeli nie, to macie jakiś zamiennik do polecenia?

Idź do forum: Sprzęt - 16/32bit

19 Odpowiedź przez maw

(3 odpowiedzi, napisanych Sprzęt - 8bit)

cześć, możesz sprawdzić na dowolnej płycie: https://www.atarinside.com/blog/index.php/motherboards/

Idź do forum: Sprzęt - 8bit

20 Odpowiedź przez maw

(54 odpowiedzi, napisanych Sprzęt - 8bit)

Jesteś pewien, że Twój zasilacz z atarynki się wyrabia prądowo?

Idź do forum: Sprzęt - 8bit

21 Odpowiedź przez maw

(10 odpowiedzi, napisanych Software, Gry - 8bit)

Zagadaj do KasetMistrza Sebana, może będzie w stanie pomóc i zgrać plik.

Idź do forum: Software, Gry - 8bit

22 Odpowiedź przez maw

(1 odpowiedzi, napisanych Sprawy atari.area)

Do notatnika cały wątek, a potem z notatnika do draftu albo do wysłania do siebie.

Idź do forum: Sprawy atari.area

23 Odpowiedź przez maw

(30 odpowiedzi, napisanych Programowanie - 8 bit)

YERZMYEY/HOOY-PROGRAM napisał/a:

Nie wiadomo, co jest w linii 1000, bo do tego sluzyla wlasnie komenda REM, zeby byly dodawane czytelne opisy, co do czego sluzy, jak rowniez podzialy "tekstu" kodu, gdy wymagane.
[..]

a właśnie, że wiadomo ;)

10 GOTO 1000-START-OTHER-IMPORTANT-PROCEDURE

Idź do forum: Programowanie - 8 bit

24 Odpowiedź przez maw

(4 odpowiedzi, napisanych Sprzęt - 8bit)

7800 chodzi na zasilaczu 9V, wtyczka przypomina wtyczki z drukarek HaPeka - na szrot albo do jakiegoś serwisu się przejdź, może dobiorą, przy okazji może też od razu przejściówkę zrobią/założą do zasilacza 9V...

...nie prościej gniazdo wymienić na jakieś uniwersalne?

//EDIT: poprawka - Google podpowiada, że to jednak 9V, nie 5V

Idź do forum: Sprzęt - 8bit

25 Odpowiedź przez maw

(22 odpowiedzi, napisanych Sprzęt - 8bit)

Dlatego warto ubezpieczać przesyłkę :)

Może da się ten panel w 3D wydrukować? Jak posklejasz części, to wymiary w miarę prawidłowo powinno się dać zdjąć...

Idź do forum: Sprzęt - 8bit