21 lines
453 B
Plaintext
21 lines
453 B
Plaintext
PROGRAM:MODE1-Oszi
|
|
01 'init screen
|
|
02 COLOR 5,1 :VMODE 1
|
|
03 BOX 7,31,112,161
|
|
04 DRAW 20,28,20,31
|
|
05 DRAW 60,28,60,31
|
|
06 DRAW 100,28,100,31
|
|
07 COL 6
|
|
08 COL 6:? @ 15,0;" 5V";
|
|
09 COL 6:? @ 55,0;"2,5V";
|
|
10 COL 6:? @ 95,0;" 0V";
|
|
11 COLOR 4,0:CBOX 1,4,13,19
|
|
12 Y=60
|
|
13 'the main loop
|
|
14 A=100-ADC(64)/12
|
|
15 J=J+1: IF J=3600 THEN J=0
|
|
16 A=52-SIN(J*2)/16+COS(J*5)/16
|
|
17 BCOPY 1,8,33,13,16,8,32
|
|
18 DRAW Y,158,A,159:Y=A
|
|
19 SYNC 1:GOTO 14
|
|
# |