FreqLyst.bas

[FreqLyst]

/'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* Frequentielijsten van de 27mc. Midden, hoger, lager. *
* *
* Pijl op / neer = bladeren. (C) FreqLyst Software 2013 *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'/


' Voor FreeBASIC, compileren met: fbc -b FreqLyst.bas -s gui


dim a as Integer
dim b as Integer
dim f as Integer
dim g as Integer
dim k as Integer
dim x as Integer


dim aa as String


screenres 640, 688, 8: Width 80, 43
Color 1, 15: Cls
locate 43, 1: print " Met de pijl-op en pijl-neer toetsen kan door de lijsten gebladerd worden.";
g = 26515
Do
f = g
for b = 0 to 80 step 40
x = 0: a = 0
if f > 27414 then a = (f * 4 - 107860) / 45
locate b / 40 * 14 + 2: print " "
Color 1
if f = 24715 then locate b / 40 * 14 + 2: print " 40 extreem lage kanalen"
if f = 25165 then locate b / 40 * 14 + 2: print " 40 ultralage kanalen"
if f = 25615 then locate b / 40 * 14 + 2: print " 40 hyperlage kanalen"
if f = 26065 then locate b / 40 * 14 + 2: print " 40 superlage kanalen"
if f = 26515 then locate b / 40 * 14 + 2: print " 40 lage kanalen"
if f = 26965 then locate b / 40 * 14 + 2: print " 40 CEPT kanalen"
if f = 27415 then locate b / 40 * 14 + 2: print " 40 hoge kanalen"
if f = 27865 then locate b / 40 * 14 + 2: print " 40 superhoge kanalen"
if f = 28315 then locate b / 40 * 14 + 2: print " 40 hyperhoge kanalen"
if f = 28765 then locate b / 40 * 14 + 2: print " 40 ultrahoge kanalen"
if f = 29215 then locate b / 40 * 14 + 2: print " 40 extreem hoge kanalen"
Color 0
locate b / 40 * 14 + 4
for k = 1 to 40
if k = 23 then f = f + 20
if k = 24 then f = f - 30
if k = 26 then f = f + 10
if k < 10 then print " ";
locate , x: print " "; k; " ="; f / 1000;
If a Then Color 7: Print k + a; " ";: Color 0 Else Print " ";
Print
f = f + 10
if k < 20 then if f mod 100 = 45 or f mod 100 = 95 then f = f + 10
if k = 10 then x = 21: locate b / 40 * 14 + 4
if k = 20 then x = 41: locate b / 40 * 14 + 4
if k = 30 then x = 61: locate b / 40 * 14 + 4
Next
Next
do: aa = inkey$: loop until aa <> ""
if mid$(aa, 2) = "H" then g = g - 450: if g < 10315 then g = 10315
if mid$(aa, 2) = "P" then g = g + 450: if g > 62515 then g = 62515
loop until aa = chr$(27) or mid$(aa, 2) = "k"
End

[FreqLyst]

FreqLyst <freq...@freqlyst.invalid> schreef:

Iets vergeten, vervang:

do: aa = inkey$: loop until aa <> ""

door:

do: aa = inkey$: loop until aa <> "": sleep 3

[oetelaar]

On 05/05/2013 01:39 AM, FreqLyst wrote:
> FreqLyst <freq...@freqlyst.invalid> schreef:
>
>> /'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>> * *
>> * Frequentielijsten van de 27mc. Midden, hoger, lager. *

[knip]

>> if mid$(aa, 2) = "P" then g = g + 450: if g > 62515 then g = 62515
>> loop until aa = chr$(27) or mid$(aa, 2) = "k"
>> End
>
> Iets vergeten, vervang:
>
> do: aa = inkey$: loop until aa <> ""
>
> door:
>
> do: aa = inkey$: loop until aa <> "": sleep 3
>

Erg handig deze manier van code updates.
Krijg weer helemaal het jaren 80 gevoel terug. Miami Vice op TV, Prince
op cassette tape. Ook handig voor NOS hobbyscoop trouwens.

Mogelijk is het handiger een link te posten naar github, bitbucket,
sourceforge of een van de andere handige plekken om code te delen.

http://en.wikipedia.org/wiki/Comparison_of_open-source_software_hosting_facilities

Groet,
Edwin.

PS. goed idee om "Wham" en "Tears for Fears" "Mr. Mister" nog eens aan
te zetten :-) Het blijven classics.