45 lines
1.3 KiB
QBasic
45 lines
1.3 KiB
QBasic
1 'Programm: HALLO.BAS
|
||
2 'Funktion: Sprachausgabe mit BASIC
|
||
3 'Sprache : GW-Basic
|
||
4 'Autor : John Lupton
|
||
6 input r:
|
||
7 if r>0 then z=int(1193280! / R)
|
||
10 f=1850:i=97:dim d(f):b=.2
|
||
20 out 67,182:out 66,z and 255:
|
||
21 out 66,z\256:h=inp(i) or 3:
|
||
22 out i,h:l=inp(i) and 252:
|
||
23 out i,l
|
||
30 key(1) on: key(2) on: key(5) on:
|
||
31 key(6) on: on key(1) gosub 200:
|
||
32 on key(2) gosub 210:
|
||
33 on key(5) gosub 220:
|
||
34 on key(6) gosub 230
|
||
40 while a>-1
|
||
50 read a:if a=0 then a=1
|
||
60 d(a+a1)=1:a1=a1+a
|
||
70 wend
|
||
80 while inkey$=""
|
||
90 for t=1 to f step b
|
||
100 if d(t) then out i,h
|
||
110 if s>0 then for n=2 to s:next n
|
||
120 out i,l
|
||
130 next t
|
||
140 wend
|
||
150 out i,l:end
|
||
200 s=s-2
|
||
210 s=s+1:return
|
||
220 b=b+.005:return
|
||
230 b=b-.005:if b<.005 then b=.005
|
||
240 return
|
||
500 data 374,21,4,,5,15,,4,6,6,,9,4,,5,,12,
|
||
501 data 4,6,11,,4,,,4,,10,5,,5,,8,,5,6,
|
||
502 data 8,,5,,5,,8,6,,,6,6,,,6,,,9,,,,8,
|
||
503 data 9,3,8,12,,19,,,56,24,11,28,,,9,,9,
|
||
504 data ,,7,2,10,,2,6,3,9,,,,6,,,10,,,,7,,
|
||
505 data 11,,,7,,11,,10,11,,9,,10,,7,,13,,
|
||
510 data 7,,12,,,7,,12,,8,,12,,8,,12,,8,,11
|
||
511 data ,,,7,,,11,,,7,,,10,,,8,,11,,,8,,10
|
||
512 data ,,,8,,,10,,9,,10,,,8,,,9,,,8,,,9,,
|
||
513 data ,9,,10,,9,,10,,9,,10,,5,5,10,,,9,,
|
||
514 data 9,,,9,,10,,,9,11,,,20,,,,21,,14,8,
|
||
515 data ,,14,9,,,23,,,27,,33,-1 |