71
BASIC / Re: QUIZ motor
« Last post by szipucsu on 2024.April.26. 22:24:54 »Lehet naiv kérdés, de miért kell annyira az editor?Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
Lehet naiv kérdés, de miért kell annyira az editor?Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
Kicsit mán be is szoptam az ATTRIB. üzemmódot... arra úgy néz ki nem lehet EDITOR-t nyitni.Arra nem, az inkább grafikus, és csak kicsit szöveges jellegű videomód. Lehet, nem kellett volna említenem.
100 SET KEY CLICK OFF
110 SET 6,2
120 ENVELOPE NUMBER 1;0,63,63,1;RELEASE;0,-33,-33,6;0,-30,-30,60
130 LET A=0
140 DO
150 LET A$=INKEY$
160 IF A$="" THEN GOTO 150
170 SOUND PITCH ORD(A$),ENVELOPE 1,SOURCE A,DURATION 2
180 LET A=A+1
190 IF A=3 THEN LET A=0
200 LOOP
100 TEXT 40
110 DO
120 LET A=1
130 FOR B=1 TO 7
140 SET CHARACTER 32,A,A,A,A,A,A,A,A,A
150 LET A=A*2
160 NEXT
170 FOR B=1 TO 7
180 LET A=A/2
190 SET CHARACTER 32,A,A,A,A,A,A,A,A,A
200 NEXT
210 LOOP