|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 54400 (0xd480)
Types: RcTekst
Names: »LÆRER.WPB«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LÆRER.WPB«
╱04002d4e0a00060000000002084e31400000000000000000000000000000000000000000000000000c16202a343e48525c66707a848e98ff04╱
════════════════════════════════════════════════════════════════════════
↓
┆14┆┆b3┆┆b0┆"BRUG PÆREN" LÆRERTEKST Side ┆0b┆↲
╱04002d4e0a00060000000002194131400000000000000000000000000000000000000000000000001d27313b454f59636d77818b959fa9ff04╱
╱04002d4e0a00060000000002084e31400000000000000000000000000000000000000000000000000c16202a343e48525c66707a848e98ff04╱
↓
↲
↲
↲
┆b0┆┆b0┆MAPPEN:↲
_________________________________________↲
↲
↲
LÆRERTEKSTEN:↲
... programmeringsprincip for lyspanelet↲
... funktionsprincip for lyspanelet↲
... lærer-vejledning til↲
undervisningsmaterialet↲
... program-dokumentation for↲
diskettens programmer↲
↲
↲
ELEVTEKSTEN:↲
... teori↲
... opgaver (een løsning)↲
... problemer (flere løsninger)↲
... tabeller↲
... arbejdsark (hjælp til løsninger)↲
↲
↲
TEKNISK TILLÆG:↲
... datablad for lyspanel↲
... tilslutning af lyspanel til ↓
┆1f┆┆1f┆┆1f┆┆1f┆forskellige↲
microdatamatfabrikater↲
↲
_________________________________________↲
↲
↲
┆b0┆DISKETTEN:↲
_________________________________________↲
↲
↲
Disketten indeholder programmer ↲
┆1f┆┆1f┆┆1f┆┆1f┆skrevet i COMAL80 til:↲
... elevbrug ved opgaveløsning↲
... lærerbrug ved fremstilling af opgaver↲
┆1f┆┆1f┆┆1f┆på printer.↲
... løsningseksempler til alle ↲
┆1f┆┆1f┆┆1f┆opgaver/problemer i elevteksten↲
↲
_________________________________________↲
↲
↲
┆b0┆LYSPANELET:↲
_________________________________________↲
↲
↲
Lyspanelet består af en boks med en ↓
vandret række med 8 lamper, samt 4 ↓
lyskurve: To med 3 lamper (rød-gul-grøn) ↓
og to med 2 lamper (rød-grøn). ↓
Lamperne kan styres fra micro┄datamaten ↓
ved hjælp af simple programmer, her ↓
COMAL80-programmer, via en parallelport ↓
med 8-10 bit. ↲
↲
_________________________________________↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆FORORD:↲
_________________________________________↲
↲
↲
Datamaskiner anvendes til at løse mange ↓
forskellige problemer i samfundet. Man ↓
kan sige, at der er tale om mindst 3 ↓
principielt forskellige an┄ven┄del┄ses┄↓
områder:↲
↲
↲
┆b0┆(1) ADMINISTRATION↲
┆b0┆(2) AUTOMATISERING↲
┆b0┆(3) KOMMUNIKATION↲
↲
↲
Emnet "AUTOMATISERING" kan deles i 3 ↓
del┄emner:↲
↲
┆b0┆(A) STYRING┆f0┆ (data ud af micro'en)↲
┆b0┆(B) MÅLING ┆f0┆ (data ind i micro'en)↲
┆b0┆(C) REGULERING ┆f0┆ (data begge veje)↲
↲
↲
Hvis delemnet ┆b0┆"STYRING"┆f0┆ skal behandles i ↓
┆19┆┄┆81┆┄undervisningen på en konkret og virkelig┄↓
┆19┆┄┆81┆┄hedsnær måde, kræver det naturligvis at ↓
┆19┆┄┆81┆┄eleverne har mulighed for selv at arbejde ↓
┆19┆┄┆81┆┄med styring af et system udenfor selve ↓
┆19┆┄┆81┆┄datamaskinen. Det kræver desuden inter┄↓
┆19┆┄┆81┆┄face┄udstyr til sammenkobling af det ↓
┆19┆┄┆81┆┄eksterne udstyr og microdatamaten.↲
↲
↲
Til "BRUG PÆREN" hører et lyspanel med ↓
små pærer på frontpladen, der kan styres ↓
med f.eks. COMAL80-programmer. Lyspanelet ↓
indeholder desuden interface til pærerne ↓
så det direkte kan tilsluttes en micro┄↓
datamat.↲
↲
↲
Undervisningsmaterialet "BRUG PÆREN" skal ↓
derfor ses som en mulighed for, på en ↓
simpel og konkret måde, at behandle emnet ↓
┆b0┆"STYRING"┆f0┆ i den elementære datalære┄↓
┆19┆┄┆81┆┄undervis┄ning.↲
↲
↲
Uden assistance fra kolleger, i form af ↓
afprøvning, ideer og kritik, var "BRUG ↓
PÆREN" ikke blevet lavet. ↲
↲
↲
Tak for hjælpen !↲
↲
↲
↲
CHRISTIAN WANG↲
ODENSE 1983↲
1. UDGAVE↲
════════════════════════════════════════════════════════════════════════
↓
╱04002d4e0a000600000000021449314000000000000000000000000000000000000000000000000018222c36404a545e68727c86909aa4ff04╱
╱04002d4e0a00060000000002194131400000000000000000000000000000000000000000000000001d27313b454f59636d77818b959fa9ff04╱
↓
↲
↲
↲
┆b0┆PRINCIPPET BAG PROGRAMMERINGEN AF LYSPANELET: ↲
_____________________________________________________↲
↲
Enhver microdatamat er udstyret med stik for ↓
tilkobling af forskelligt udstyr:↲
TASTATUR, PRINTER, SKÆRM, DISKSTATION, MODEM, m.m..↲
↲
Stikkene er forbundet til "IN/OUT"-kredsløb i data┄↓
maten. Disse "IN/OUT"-kredse sørger for trans┄mission ↓
af data ind og ud af datamaten.↲
↲
Der findes to typer "IN/OUT"-kredse. En type beregnet ↓
til ┆b0┆seriel┆f0┆ transmission, og en til ┆b0┆parallel┆f0┆ ↓
┆19┆┄┆82┆┄transmission. Begge typer er udstyret med kontrol┄↓
┆19┆┄┆82┆┄linier, der kan synkronisere datamatens databehandling ↓
┆19┆┄┆82┆┄med ind- og udgående datastrømme, såkaldt "handshake" ↓
┆19┆┄┆82┆┄signaler.↲
↲
"IN/OUT"-kredsene kan programmeres med to forskellige ↓
formål :↲
↲
(1) ┆b0┆KONTROL┆f0┆ af kredsenes funktioner, og↲
↲
(2) Transmission af ┆b0┆DATA┆f0┆ gennem kredsene.↲
↲
I forbindelse med undervisningsmaterialet ↲
"BRUG PÆREN" og det tilhørende LYSPANEL, benyttes ↓
┆b0┆PARALLELPORTEN til transmission af data ud af micro'en┆f0┆ ↓
┆19┆┄┆81┆┄til lyspanelet:↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
Hvis vi går ud fra, at LYSPANELET er tilsluttet en↲
┆b0┆8 BITS PARALLELPORT┆f0┆, så betyder det, at de 8 lamper på ↓
┆19┆┄┆81┆┄lyspanelet er forbundet med microdatamaten med hver ↓
┆19┆┄┆81┆┄sin ledning samt en stelforbindelse. Disse 8 ledninger ↓
┆19┆┄┆81┆┄kan programmeres til at have en elektrisk spænding på ↓
┆19┆┄┆81┆┄h.h.v. 0 Volt og ca. +4 Volt. Der er kun disse to ↓
┆19┆┄┆81┆┄muligheder: ┆b0┆LAV┆f0┆ og ┆b0┆HØJ┆f0┆ spænding, svarende til tallene ↓
┆19┆┄┆83┆┄"0" og "1" i det binære talsystem, totalsystemet.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
Ønsker man at tænde og slukke for lamperne på ↓
lyspanelet, skal man forestille sig hver lampe ↓
svarende til et ciffer i et binært tal. Hvis vi for ↓
eksempel sender det decimale tal 174 til parallel┄↓
porten, vil lamperne lyse svarende til 174 omsat til ↓
et 8-cifret binært tal: ┆b0┆10101110┆f0┆ ,hvor cifret ↓
┆19┆┄┆81┆┄længst til højre er BIT(0), og cifret længst til ↓
┆19┆┄┆81┆┄venstre er BIT(7).↲
↲
Hvis man ønsker at tænde for en enkelt lampe ad ↓
gangen, skal disse tal benyttes:↲
↲
↲
↲
BIT: BINÆR: DECIMAL:↲
------- --------------- --------------↲
↲
BIT(0): 0 0 0 0 0 0 0 1 = 1 ( = 2^0 )↲
BIT(1): 0 0 0 0 0 0 1 0 = 2 ( = 2^1 )↲
BIT(2): 0 0 0 0 0 1 0 0 = 4 ( = 2^2 )↲
BIT(3): 0 0 0 0 1 0 0 0 = 8 ( = 2^3 )↲
BIT(4): 0 0 0 1 0 0 0 0 = 16 ( = 2^4 )↲
BIT(5): 0 0 1 0 0 0 0 0 = 32 ( = 2^5 )↲
BIT(6): 0 1 0 0 0 0 0 0 = 64 ( = 2^6 )↲
BIT(7): 1 0 0 0 0 0 0 0 = 128 ( = 2^7 )↲
↲
↲
↲
Alle bits sættes "HØJE" ved at sende det decimale tal ↓
255 (=128+64+32+16+8+4+2+1 ) til parallelporten !↲
↲
↲
Med hensyn til programmering af lyspanelet i COMAL80 ↓
henvises til afsnittet med programdokumentationen i ↓
lærervejledningen.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PRINCIPPET BAG LYSPANELETS VIRKEMÅDE:↲
_____________________________________________________↲
↲
↲
Som nævnt leverer micro'en udgangsspændinger på enten ↓
0 volt (LAV spænding), eller ca. +4 volt (HØJ ↓
spænding). Strømstyrken på det "høje" signal fra ↓
parallelporten er imidlertid alt for lille til at ↓
tænde for en pære direkte. Signalet bruges derfor kun ↓
til at tænde for en afbryder, et elektronisk relæ, der ↓
åbner for en elektrisk strøm der er stærk nok til ↓
at få pæren til at lyse.↲
↲
------------------------------------------------------↲
↲
Når BIT(0) sættes LAV, forbinder relæet "L1" med ↓
"+12 volt". Det betyder, at der er en elektrisk ↓
spænding på +12 volt på ┆b0┆begge┆f0┆ sider af pæren, altså ↓
┆19┆┄┆81┆┄ingen spændings-┆b0┆forskel┆f0┆, og den lyser derfor ikke: ↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
┆b0┆ BIT(0) LAV = BIT(0)-PÆREN SLUKKET !!↲
↲
------------------------------------------------------↲
↲
Når BIT(0) sættes HØJ, forbinder relæet "L1" med↓
"0 volt". Det betyder, at der er en spænding på 0 volt ↓
på den ene side af pæren, og en spænding på +6 volt på ↓
den anden side, og pæren lyser derfor:↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
↲
┆b0┆ BIT(0) HØJ = BIT(0)-PÆREN TÆNDT !! ↲
↲
------------------------------------------------------↲
↲
Alle lamper på lyspanelet tænder og slukker efter ↓
dette princip.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆LÆRER-VEJLEDNING TIL UNDERVISNINGSMATERIALET:↲
_____________________________________________________↲
↲
↲
┆b0┆Formålet med "BRUG PÆREN" :↲
↲
┆b0┆(1)┆f0┆: At give eleverne viden om og færdigheder i ↓
┆19┆┄┆81┆┄anvendelse af datamaskinen til styring af en ydre ↓
┆19┆┄┆81┆┄enhed.↲
↲
┆b0┆(2)┆f0┆: At give eleverne færdigheder i at løse simple ↓
┆19┆┄┆81┆┄konkrete problemer af algoritmisk art ved hjælp af en ↓
┆19┆┄┆81┆┄microdatamat.↲
↲
┆b0┆(3)┆f0┆: At give eleverne viden om datamaskinens ↓
┆19┆┄┆81┆┄principielle opbygning og virkemåde.↲
↲
↲
┆b0┆Indhold: ↲
↲
.... BINÆRE OG DECIMALE TAL↲
.... ASCII-VÆRDIER↲
.... SKRIFT-TEGN↲
.... FUNKTIONS-TEGN (FUNKTIONS-TASTER)↲
.... TRANSMISSION AF DATA↲
.... STYRING AF LYSPANELET ("TÆND"/"SLUK")↲
.... "PAUSE"↲
.... "BLINKLYS"↲
.... "REAKTIONSTID"↲
.... "FYR"↲
.... "MORSE"↲
.... "LØBELYS"↲
.... "TÆLLE"↲
.... PORTE↲
.... INTERFACE↲
.... "TRAFIKLYS"↲
↲
↲
┆b0┆Nødvendigt udstyr til undervisningen:↲
↲
Mindst ┆b0┆EN┆f0┆ microdatamat med en parallelport med mindst ↓
┆19┆┄┆81┆┄8 bit, og helst 10 bit.↲
↲
Micro'en/micro'erne bør være udstyret med en diskette┄↓
station, og en printer.↲
↲
↲
┆b0┆Undervisningens organisering:↲
↲
Hver elev skal have et eksemplar af elevteksten.↲
↲
Elev-arbejdsarkene bør forefindes i klassen i ↓
et tilstrækkeligt antal, til at eleverne frit kan ↓
benytte dem når de har lyst.↲
↲
Eleverne bør arbejde sammen to og to, eller i lidt ↓
større grupper. ↲
↲
Hver gruppe bør have sin egen diskette.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
Eleverne bør ikke sidde og programmere ved data┄ma┄↓
skinerne. Programmeringsarbejdet bør foregå i grupper ↓
"pr. håndkraft", bl.a. ved hjælp af ar┄bejds┄arkene, der ↓
er udformet som en hjælp til opstilling af en struk┄↓
tur/algoritme for løsningen af de stillede opga┄↓
ver/problemer. Der bør foreligge en kladde til de ↓
forskellige programmer før indtastningen foretages.↲
↲
Ligeledes bør fejlfindingen kun i særlige tilfælde ↓
tillades ved datamaskinerne. Normalt bør fejlfinding ↓
foregå i grupperne "pr. håndkraft".↲
↲
Det er derfor en fordel hvis eleverne nemt kan lave ↓
printerudskrifter af programmerne.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆Bemærkninger til elevteksten:↲
↲
Opgave 1:↲
Programmet "tal" giver eleverne lejlighed til at se ↓
hvordan decimale tal kan bruges til at styre ↓
lyspanelets lamper. Lyspanelets vælger skal stå på ↓
"BITS" !↲
↲
Opgave 2, 3, 4, og 5:↲
Disse opgaver skal gennemarbejdes selvstændigt af ↓
eleverne. De skal eksperimentere sig frem til ↓
løsningerne. Det væsentlige ved arbejdet er de ↓
diskussioner der opstår mellem eleverne. Ikke ↓
mindst i forbindelse med opgave 5.↲
↲
Opgave 6:↲
Denne opgave kan udvides med arbejdsark nr. 1 hvis det ↓
ønskes.↲
↲
Opgave 7:↲
Denne opgave er identisk med de opgaver der kan ↓
udskrives på printeren ved hjælp af programmet ↓
"BINDECopg". Programmet er selvinstruerende, og er ↓
meget simpelt at bruge.↲
↲
Opgave 8:↲
Programmet "taster" giver eleverne lejlighed til at se ↓
hvordan der er knyttet et tal til alle tegn, både ↓
skrift-tegnene og funktions-tegnene.↲
↲
Opgave 9:↲
Side 9 og 10 er opbygget så man kan se at mange af ↓
tasterne på tastaturet har 2 eller 3 funktioner. Hvis ↓
der arbejdes med et udvidet tastatur, kan de specielle ↓
taster evt. undersøges ved hjælp af arbejdsark nr. 3, ↓
der i øvrigt kan bruges hvis der skal undersøges flere ↓
taster end der er mulighed for på side 9 og 10.↲
↲
Side 12 og 13:↲
Tabellerne på disse to sider kan skrives ud på ↓
printeren ved hjælp af programmerne "SKRIFTtegn" og ↓
"FUNKTtegn".↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆Bemærkninger til elev-arbejdsarkene:↲
↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆┆b0┆PROBLEM "TÆND":↲
↲
↲
┆b0┆0010 // "tænd"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 PRINT FILE 1: CHR$(255);↲
┆b0┆0040 CLOSE FILE 1↲
┆b0┆0050 END ↲
↲
┆b0┆0020:┆f0┆ Datastrøm nummer 1 åbnes til port 17 for skriv┄↓
┆19┆┄┆81┆┄ning (WRITE). D.v.s. at data til lyspanelet bliver ↓
┆19┆┄┆81┆┄sendt til port 17 via datastrøm nr. 1.↲
↲
┆b0┆0030:┆f0┆ CHR$(255) sendes via strøm nr.1 til port 17. ↓
┆19┆┄┆81┆┄Sætningen SKAL afsluttes med ";", da der ellers vil ↓
┆19┆┄┆81┆┄blive sendt en karakter-"vognretur", d.v.s. chr$(13) ↓
┆19┆┄┆81┆┄umiddelbart efter. CHR$(255), binært 11111111, bliver ↓
┆19┆┄┆81┆┄sendt ud af porten, så alle 8 bit går HØJ, og alle 8 ↓
┆19┆┄┆81┆┄lamper tændes.↲
↲
┆b0┆0040:┆f0┆ Datastrøm nr.1 lukkes. Hvis dette ikke bliver ↓
┆19┆┄┆81┆┄gjort, vil der opstå kørselsfejl næste gang programmet ↓
┆19┆┄┆81┆┄startes: Når sætning 20 prøver at åbne datastrømmen, ↓
┆19┆┄┆81┆┄der vil være åben i forvejen, og der vil komme en ↓
┆19┆┄┆81┆┄fejlmeddelelse. I dette tilfælde lukkes datastrømmen ↓
┆19┆┄┆81┆┄med komandoen ┆b0┆CLOSE┆f0┆.↲
↲
↲
------------------------------------------------------↲
↲
↲
┆b0┆PROBLEM "SLUK":↲
↲
↲
↲
0010 // "sluk"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
0030 PRINT FILE 1: CHR$(┆b0┆0┆f0┆);↲
0040 CLOSE FILE 1↲
0050 END ↲
↲
┆b0┆0030:┆f0┆ Her sendes CHR$(0), binært 00000000, til ↓
┆19┆┄┆81┆┄lyspanelet, og alle bits går LAV, hvorfor alle lamper ↓
┆19┆┄┆81┆┄slukkes.↲
↲
┆b0┆NB:┆f0┆ Problemet med den åbne datastrøm kan løses på en ↓
nem måde, selvom metoden kan karakteriseres som "en ↓
dårlig vane" i programmeringsmæssig henseende. Hvis ↓
alle programmer indledes med en CLOSE-sætning, vil ↓
programmerne starte med at lukke alle datastrømme der ↓
måtte stå åbne i forvejen. Derefter kan OPEN-↓
sætningerne udføres uden problemer!↲
↲
Det må være op til den enkelte lærer at vurdere om det ↓
er OK at lære eleverne dette "fif". Pædagogisk set må ↓
det være i orden. Programmeringsmæssigt er metoden som ↓
sagt lidt "ulden".↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "PAUSE":↲
↲
↲
Den simpleste måde at lave en pause på er en REPEAT/ ↓
UNTIL-løkke med en tæller til at fastlægge pausens ↓
længde. Så må eleverne tage tid med et stopur og køre ↓
programmet nogle gange for at finde ud af hvor mange ↓
gennemløb der skal til pr. tidsenhed:↲
↲
┆b0┆0010 // "pause-a"↲
┆b0┆0020 n:=0↲
┆b0┆0030 REPEAT ↲
┆b0┆0040 n:=n+1↲
┆b0┆0050 UNTIL n=1000↲
┆b0┆0060 END ↲
↲
↲
"pause-aTID" er et lærerprogram der benytter micro'ens ↓
interne ur til måling af antallet af gennemløb.↲
↲
------------------------------------------------------↲
↲
"pause-b" og "pause-bTID" svarer til de to ovennævnte ↓
programmer. Her er blot anvendt FOR/NEXT-løkke:↲
↲
┆b0┆0010 // "pause-b"↲
┆b0┆0020 FOR n:=1 TO 1000 DO↲
┆b0┆0030 NEXT n↲
┆b0┆0040 END ↲
↲
------------------------------------------------------↲
↲
Den bedste metode at lave en pause på, er naturligvis ↓
at benytte micro'ens interne ur, der kan aflæses fra ↓
et program ved at tildele en talvariabel urets ↓
aktuelle klokkeslet. "pause-c" udfører en pause på 1 ↓
sekund:↲
↲
┆b0┆0010 // "pause-c"↲
┆b0┆0020 start:=SYS(3)/50↲
┆b0┆0030 REPEAT ↲
┆b0┆0040 slut:=SYS(3)/50↲
┆b0┆0050 UNTIL slut-start>=1↲
┆b0┆0060 END ↲
↲
┆b0┆0020:┆f0┆ Talvariablen START tildeles en værdi svarende ↓
┆19┆┄┆81┆┄til det aktuelle sekund-tal. START anvendes til at ↓
┆19┆┄┆81┆┄gemme klokkeslettet ved pausens start. ┆b0┆(SYS(3)┆f0┆ er en ↓
┆19┆┄┆82┆┄funktion der har funktionsværdien svarende til antal┄↓
┆19┆┄┆82┆┄let af lysnettets vekselstrøm-perioder siden micro'en ↓
┆19┆┄┆82┆┄blev tændt. Vekselstrømmen er på 50 perioder pr. se┄↓
┆19┆┄┆82┆┄kund. Hvis ┆b0┆START┆f0┆ skal tildeles en værdi svarende til ↓
┆19┆┄┆83┆┄antallet af ┆b0┆hele┆f0┆ sekunder, skal SYS(3) divideres med ↓
┆19┆┄┆84┆┄50!↲
↲
┆b0┆0040:┆f0┆ Talvariablen SLUT tildeles det aktuelle ↓
┆19┆┄┆81┆┄sekund-tal. ↲
┆19┆┄┆81┆┄↲
┆b0┆0030-0050:┆f0┆ I denne løkke gentages aflæsningen af uret ↓
┆19┆┄┆81┆┄med talvariablen SLUT indtil forskellen mellem SLUT og ↓
┆19┆┄┆81┆┄START er 1, altså 1 sekund.↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "pause-cTID1" kan pauselængden varieres.↲
↲
I "pause-cTID2" er pausen skrevt som en procedure der ↓
kaldes sådan: ┆b0┆EXEC pause(3.5)┆f0┆, hvilket svarer til en ↓
┆19┆┄┆81┆┄pause på 3,5 sekunder.↲
↲
------------------------------------------------------↲
↲
"PROC-pause" indeholder ┆b0┆kun┆f0┆ proceduren fra↲
"pause-cTID2":↲
↲
┆b0┆1000 PROC pause(sekunder)↲
┆b0┆1010 start:=SYS(3)/50↲
┆b0┆1020 REPEAT ↲
┆b0┆1030 slut:=SYS(3)/50↲
┆b0┆1040 UNTIL slut-start>=sekunder↲
┆b0┆1050 ENDPROC pause↲
↲
Denne procedure er gemt på disketten som en↲
LIST-fil. Den kan derfor hentes frem og ┆b0┆blandes┆f0┆ ind i ↓
┆19┆┄┆81┆┄de kommende programmer med ENTER komandoen. Så behøver ↓
┆19┆┄┆81┆┄man ikke at skrive proceduren forfra når den skal ↓
┆19┆┄┆81┆┄bruges.↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "BLINK":↲
↲
↲
Algoritmen for blink er simpel: Først skal lampen ↓
tændes - så skal der udføres en pause - så skal lampen ↓
slukkes - så skal der udføres en pause - så skal der ↓
begyndes forfra :↲
↲
┆b0┆0010 // "blink-a1"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(8); .... TÆND↲
┆b0┆0050 FOR vent:=1 TO 500 DO .... PAUSE↲
┆b0┆0060 NEXT vent↲
┆b0┆0070 PRINT FILE 1: CHR$(0); .... SLUK↲
┆b0┆0080 FOR vent:=1 TO 500 DO .... PAUSE↲
┆b0┆0090 NEXT vent↲
┆b0┆0100 UNTIL FALSE .... FORFRA↲
┆b0┆0110 CLOSE FILE 1↲
┆b0┆0120 END ↲
↲
┆b0┆0040:┆f0┆ Decimalt 8, binært 00001000, sendes til ↓
┆19┆┄┆81┆┄lyspanelet så BIT3-lampen, og kun denne, lyser.↲
er blevet tændt. ↲
↲
┆b0┆0050-0060:┆f0┆ Pause med FOR/NEXT-løkke.↲
↲
┆b0┆0070:┆f0┆ Decimalt 0, binært 00000000, sendes til ↓
┆19┆┄┆81┆┄lyspanelet så alle 8 lamper slukkes.↲
↲
┆b0┆0080-0090:┆f0┆ Pause med FOR/NEXT-løkke.↲
↲
┆b0┆0030-00100:┆f0┆ Løkke der gentager det enkelte blink. ↓
┆19┆┄┆81┆┄Løkken kan kun standes ved at trykke på ESCAPE, ↓
┆19┆┄┆81┆┄hvorfor linierne 0110 og 0120 aldrig bliver udført.↲
↲
------------------------------------------------------↲
↲
Her er FOR/NEXT-pausen udskiftet med proceduren↲
┆b0┆pause┆f0┆:↲
↲
0010 // "blink-a2"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
0030 REPEAT ↲
0040 PRINT FILE 1: CHR$(8);↲
┆b0┆0050 EXEC pause(0.5)↲
0060 PRINT FILE 1: CHR$(0);↲
┆b0┆0070 EXEC pause(0.5)↲
0080 UNTIL FALSE↲
0090 CLOSE FILE 1↲
0100 END ↲
0110 //↲
┆b0┆0120 PROC pause(sekunder)↲
┆b0┆0130 start:=SYS(3)/50↲
┆b0┆0140 REPEAT ↲
┆b0┆0150 slut:=SYS(3)/50↲
┆b0┆0160 UNTIL slut-start>=sekunder↲
┆b0┆0170 ENDPROC pause↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "blink-b1" og "blink-b2" blinker alle 8 lamper fordi ↓
det decimale tal ┆b0┆255┆f0┆ sendes til lyspanelet i stedet ↓
┆19┆┄┆81┆┄for ┆b0┆8┆f0┆:↲
↲
0010 // "blink-b2"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
0030 REPEAT ↲
0040 PRINT FILE 1: CHR$(┆b0┆255┆f0┆);↲
0050 EXEC pause(0.5)↲
0060 PRINT FILE 1: CHR$(0);↲
0070 EXEC pause(0.5)↲
0080 UNTIL FALSE↲
0090 CLOSE FILE 1↲
0100 END ↲
0110 //↲
0120 PROC pause(sekunder)↲
0130 start:=SYS(3)/50↲
0140 REPEAT ↲
0150 slut:=SYS(3)/50↲
0160 UNTIL slut-start>=sekunder↲
0170 ENDPROC pause↲
↲
------------------------------------------------------↲
↲
Problemet med at ┆b0┆CLOSE FILE 1┆f0┆-sætningen aldrig ↓
┆19┆┄┆81┆┄udføres, fordi programmet standses inde i ↓
┆19┆┄┆81┆┄REPEAT/UNTIL-løkken med ESCAPE-tasten, kan løses med ↓
┆19┆┄┆81┆┄at programmet standses med en anden tast end ESCAPE, ↓
┆19┆┄┆81┆┄for eksempel MELLEMRUM-tasten, den er nem at ramme, ↓
┆19┆┄┆81┆┄eller S-tasten for STOP.↲
↲
I "blink-c1" og "blink-c2" er problemet løst ved at ↓
der i bunden af REPEAT/UNTIL-løkken undersøges om der ↓
er blevet trykket på den valgte tast eller ej: ↲
↲
0010 // "blink-c2"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
0030 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0040 REPEAT ↲
0050 PRINT FILE 1: CHR$(255);↲
0060 EXEC pause(0.5)↲
0070 PRINT FILE 1: CHR$(0);↲
0080 EXEC pause(0.5)↲
0090 UNTIL ┆b0┆ORD(KEY$)=32┆f0┆↲
0100 CLOSE FILE 1↲
0110 END ↲
0120 //↲
0130 PROC pause(sekunder)↲
0140 start:=SYS(3)/50↲
0150 REPEAT ↲
0160 slut:=SYS(3)/50↲
0170 UNTIL slut-start>=sekunder↲
0180 ENDPROC pause↲
↲
┆b0┆0090:┆f0┆ Valget mellem disse to muligheder er nærmet↲
en smagssag:↲
↲
┆b0┆A: 0090 UNTIL KEY$=" " ↲
┆b0┆B: 0090 UNTIL ORD(KEY$)=32 ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
NB:┆f0┆ Fra dette sted i teksten udelades listningen af ↓
┆19┆┄┆81┆┄proceduren "pause(sekunder)". Den forudsættes at være ↓
┆19┆┄┆81┆┄i alle de programmer hvor procedurekaldet↲
┆19┆┄┆81┆┄EXEC pause(X) forekommer !↲
↲
------------------------------------------------------↲
↲
I "blink-d1" er den konstante pauselængde udskiftet med ↓
variablen PAUSELÆNGDE, der tildeles en værdi i ↲
INPUT-sætningen:↲
↲
↲
0010 // "blink-d1"↲
0020 ant:=20↲
0030 PRINT CHR$(12)↲
0040 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0050 INPUT "SKRIV PAUSELÆNGDEN I SEKUNDER: ": ↲
┆19┆┄┆81┆┄┆b0┆ pauselængde↲
0060 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0070 REPEAT ↲
0080 PRINT FILE 1: CHR$(255);↲
0090 EXEC pause(┆b0┆pauselængde┆f0┆)↲
0100 PRINT FILE 1: CHR$(0);↲
0110 EXEC pause(┆b0┆pauselængde┆f0┆)↲
0120 UNTIL ORD(KEY$)=32↲
0130 CLOSE FILE 1↲
0140 END ↲
↲
------------------------------------------------------↲
↲
Variationen i blinkhastigheden kan også defineres som ↓
en ændring af blinkfrekvensen, altså antal brink pr. ↓
sekund. I "blink-d2" tildeles BLINKFREKVENSEN en værdi ↓
i INPUT-sætningen, hvorefter pauselængden fastsættes i ↓
linie 0050, så lysperioden og mørkeperioden er lige ↓
lange for de enkelte blink:↲
↲
0010 // "blink-d2"↲
0020 PRINT CHR$(12)↲
0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 INPUT "SKRIV ANTAL BLINK PR. SEKUND: ": ↲
┆19┆┄┆81┆┄┆b0┆ blinkfrekvens↲
┆b0┆0050 pauselængde:=1/(blinkfrekvens*2)↲
0060 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0070 REPEAT ↲
0080 PRINT FILE 1: CHR$(255);↲
0090 EXEC pause(┆b0┆pauselængde┆f0┆)↲
0100 PRINT FILE 1: CHR$(0);↲
0110 EXEC pause(┆b0┆pauselængde┆f0┆)↲
0120 UNTIL ORD(KEY$)=32↲
0130 CLOSE FILE 1↲
0140 END ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "blink-e" fastlægges lysperioden og mørkeperioden i ↓
to tildelingssætninger:↲
↲
0010 // "blink-e"↲
0020 PRINT CHR$(12)↲
0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 lysperiode:=1↲
┆b0┆0050 mørkeperiode:=0.5↲
0060 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0070 REPEAT ↲
0080 PRINT FILE 1: CHR$(255);↲
0090 EXEC pause(┆b0┆lysperiode┆f0┆↲
0100 PRINT FILE 1: CHR$(0);↲
0110 EXEC pause(┆b0┆mørkeperiode┆f0┆)↲
0120 UNTIL ORD(KEY$)=32↲
0130 CLOSE FILE 1↲
0140 END ↲
↲
------------------------------------------------------↲
↲
I "blink-f" kan lysperioden og mørkeperioden varieres:↲
↲
0010 // "blink-f"↲
0020 PRINT CHR$(12)↲
0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 INPUT "SKRIV LYSPERIODEN I SEKUNDER: ": ↲
┆19┆┄┆81┆┄┆b0┆ lysperiode↲
┆b0┆0050 INPUT "SKRIV MØRKEPERIODEN I SEKUNDER: ": ↲
┆b0┆ mørkeperiode↲
0060 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0070 REPEAT ↲
0080 PRINT FILE 1: CHR$(255);↲
0090 EXEC pause(┆b0┆lysperiode┆f0┆)↲
0100 PRINT FILE 1: CHR$(0);↲
0110 EXEC pause(┆b0┆mørkeperiode┆f0┆)↲
0120 UNTIL ORD(KEY$)=32↲
0130 CLOSE FILE 1↲
0140 END ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "REAKTION":↲
↲
↲
Lamperne skal tændes et tilfældigt antal sekunder ↓
efter at programmet er startet, hvorefter lamperne ↓
skal slukkes når en tast bliver trykket ned:↲
↲
┆b0┆0010 // "reaktion-a"↲
┆b0┆0020 RANDOMIZE↲
┆b0┆0030 PRINT CHR$(12)↲
┆b0┆0040 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0050 EXEC pause(RND(3,7))↲
┆b0┆0060 PRINT FILE 1: CHR$(255);↲
┆b0┆0070 REPEAT ↲
┆b0┆0080 UNTIL ORD(KEY$)<>0↲
┆b0┆0090 PRINT FILE 1: CHR$(0);↲
┆b0┆0100 CLOSE ↲
┆b0┆0110 END ↲
↲
┆b0┆0050┆f0┆: Her udføres en pause på mellem 3 og 7 sekunder, ↓
┆19┆┄┆81┆┄tilfældigt udtaget. ↲
┆b0┆↲
0060┆f0┆: Alle 8 lamper tændes.↲
┆b0┆↲
0070-0080┆f0┆: Her ventes der til en eller anden tast ↓
┆19┆┄┆81┆┄bliver trykket ned.↲
┆b0┆↲
0090┆f0┆: Alle lamper slukkes.↲
↲
------------------------------------------------------↲
↲
Nu skal der tages tid på hvor længe det varer fra ↓
lamperne bliver tændt, til der trykkes på en tast:↲
↲
0010 // "reaktion-b"↲
0020 RANDOMIZE↲
0030 PRINT CHR$(12)↲
0040 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0050 DIM videre$ OF 10↲
┆b0┆0060 INPUT "TRYK <RETURN> NÅR DU ER KLAR !!": videre$↲
0070 EXEC pause(RND(3,7))↲
0080 PRINT FILE 1: CHR$(255);↲
┆b0┆0090 start:=SYS(3)/50↲
0100 REPEAT ↲
0110 UNTIL ORD(KEY$)<>0↲
┆b0┆0120 slut:=SYS(3)/50↲
0130 PRINT FILE 1: CHR$(0);↲
┆b0┆0140 reaktionstid:=slut-start↲
┆b0┆0150 PRINT "REAKTIONSTID: ";reaktionstid;" sek."↲
0160 CLOSE ↲
0170 END ↲
↲
┆b0┆0060┆f0┆: Her skal der trykkes på RETURN-tasten før ↓
┆19┆┄┆81┆┄reaktionsmålingen foretages. ┆b0┆videre$┆f0┆ er en dummy-↓
┆19┆┄┆82┆┄variabel der kun bruges til at standse program┄af┄vik┄↓
┆19┆┄┆82┆┄lingen indtil der trykkes på RETURN-tasten.↲
┆b0┆↲
0090 og 0120┆f0┆: Micro'ens interne ur aflæses i starten ↓
┆19┆┄┆81┆┄(┆b0┆start┆f0┆) og i slutningen (┆b0┆slut┆f0┆) af reaktionsperioden.↲
┆b0┆↲
0140┆f0┆: Reaktionstiden beregnes.↲
┆b0┆↲
0150┆f0┆: Reaktionstiden skrives på skærmen.↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "reaktion-c" er data-transmissionen til lyspanelet ↓
erstattet med CHR$(7), der får microen til at give et ↓
dyt eller et beep:↲
↲
0010 // "reaktion-c"↲
0020 PRINT CHR$(12)↲
0030 RANDOMIZE ↲
0040 DIM videre$ OF 10↲
0050 INPUT "TRYK <RETURN> NÅR DU ER KLAR !!": videre$↲
0060 EXEC pause(RND(3,7))↲
┆b0┆0070 PRINT CHR$(7)↲
0080 start:=SYS(3)/50↲
0090 REPEAT ↲
0100 UNTIL ORD(KEY$)<>0↲
0110 slut:=SYS(3)/50↲
0120 reaktionstid:=slut-start↲
0130 PRINT "REAKTIONSTID: ";reaktionstid;" sek."↲
0140 END ↲
↲
-----------------------------------------------------↲
↲
↲
Normalt er man hurtigere til at reagere på et lyd-↓
signal, end på et lys-signal. Men det er der jo ↓
mulighed for at undersøge med de to ovenstående ↓
programmer.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "FYR":↲
↲
↲
Her er beskrevet "fyr-d" som en mulig løsning på ↓
problemet i elevteksten:↲
↲
┆b0┆0010 // "fyr-d"↲
┆b0┆0020 CLOSE ↲
┆b0┆0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 PRINT FILE 1: CHR$(0);↲
┆b0┆0050 REPEAT ↲
┆b0┆0060 EXEC lys(4)↲
┆b0┆0070 EXEC mørke(2)↲
┆b0┆0080 EXEC isofaseblink(5,2)↲
┆b0┆0090 EXEC hurtigblink(20)↲
┆b0┆0100 EXEC gruppeblink(5,3)↲
┆b0┆0110 UNTIL ORD(KEY$)=32↲
┆b0┆0120 PRINT FILE 1: CHR$(0);↲
┆b0┆0130 CLOSE FILE 1↲
┆b0┆0140 END ↲
↲
┆b0┆0040┆f0┆: Her slukkes alle lamper der måtte være tændt før ↓
┆19┆┄┆81┆┄programmet blev startet.↲
↲
┆b0┆0060-0100┆f0┆: Her er selve fyrets karakteristik som ↓
┆19┆┄┆81┆┄procedurekald. ↲
↲
------------------------------------------------------↲
↲
┆b0┆EXEC lys(4)┆f0┆ tænder fyret i 4 sekunder:↲
↲
┆b0┆0160 PROC lys(sek)↲
┆b0┆0170 PRINT FILE 1: CHR$(255);↲
┆b0┆0180 EXEC pause(sek)↲
┆b0┆0190 PRINT FILE 1: CHR$(0);↲
┆b0┆0200 ENDPROC lys↲
↲
------------------------------------------------------↲
↲
┆b0┆EXEC mørke(2)┆f0┆ slukker fyret i 2 sekunder: ↓
↲
┆b0┆0220 PROC mørke(sek)↲
┆b0┆0230 PRINT FILE 1: CHR$(0);↲
┆b0┆0240 EXEC pause(sek)↲
┆b0┆0250 ENDPROC mørke↲
↲
------------------------------------------------------↲
↲
┆b0┆EXEC isofaseblink(5,2)┆f0┆ får fyret til at give 5 blink, ↓
┆19┆┄┆81┆┄hvor ┆b0┆hvert┆f0┆ blink består af en lysperiode og en ↓
┆19┆┄┆82┆┄mørkeperiode der er lige lange (=isofase), tilsammen 2 ↓
┆19┆┄┆82┆┄sekunder. ┆b0┆blinktid┆f0┆ er altså lysperioden + mørke┄↓
┆19┆┄┆83┆┄perioden:↲
↲
┆b0┆0270 PROC isofaseblink(antalblink,blinktid)↲
┆b0┆0280 FOR blink:=1 TO antalblink DO↲
┆b0┆0290 EXEC lys(blinktid/2)↲
┆b0┆0300 EXEC mørke(blinktid/2)↲
┆b0┆0310 NEXT blink↲
┆b0┆0320 ENDPROC isofaseblink↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆EXEC hurtigblink(20)┆f0┆ får fyret til at give 20 hurtige ↓
┆19┆┄┆81┆┄blink, d.v.s. ca. 60 blink pr. minut. Lysperioden er ↓
┆19┆┄┆81┆┄lige så lang som mørkeperioden:↲
↲
┆b0┆0340 PROC hurtigblink(antalblink)↲
┆b0┆0350 FOR blink:=1 TO antalblink DO↲
┆b0┆0360 EXEC lys(0.5)↲
┆b0┆0370 EXEC mørke(0.5)↲
┆b0┆0380 NEXT blink↲
┆b0┆0390 ENDPROC hurtigblink↲
↲
------------------------------------------------------↲
↲
┆b0┆EXEC gruppeblink(5,3)┆f0┆ får fyret til at give 5 blink┄↓
┆19┆┄┆81┆┄grupper a' 3 blink. Lysperioden og mørkeperioden er ↓
┆19┆┄┆81┆┄begge på et halvt sekund, og pausen mellem grupperne ↓
┆19┆┄┆81┆┄er på 3 sekunder:↲
↲
┆b0┆0410 PROC gruppeblink(antalgrupper,antalgpblink)↲
┆b0┆0420 FOR gruppe:=1 TO antalgrupper DO↲
┆b0┆0430 FOR gpblink:=1 TO antalgpblink DO↲
┆b0┆0440 EXEC lys(0.5)↲
┆b0┆0450 EXEC mørke(0.5)↲
┆b0┆0460 NEXT gpblink↲
┆b0┆0470 EXEC pause(3)↲
┆b0┆0480 NEXT gruppe↲
┆b0┆0490 ENDPROC gruppeblink↲
↲
┆b0┆0430-460┆f0┆: Den enkelte blink-gruppe.↲
↲
┆b0┆0420-480┆f0┆: Antallet af blink-grupper.↲
↲
┆b0┆0470┆f0┆: Pausen mellem blink-grupperne.↲
↲
------------------------------------------------------↲
↲
Og her ┆b0┆PROC pause(X)┆f0┆:↲
↲
┆b0┆0510 PROC pause(sekunder)↲
┆b0┆0520 start:=SYS(3)/50↲
┆b0┆0530 REPEAT ↲
┆b0┆0540 slut:=SYS(3)/50↲
┆b0┆0550 UNTIL slut-start>=sekunder↲
┆b0┆0560 ENDPROC pause↲
↲
------------------------------------------------------↲
↲
↲
Programmet kan naturligvis udbygges efter ønske. I ↓
elevteksten er der eksempler på andre fyr-karakteri┆1e┆↲
stikker.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "MORSE":↲
↲
↲
"SOS" ( ...---... ) kan laves efter "GØG-OG-GOKKE-↓
METODEN", altså med en "PRINT FILE"-sætning til hver ↓
prik/streg samt et procedurekald mellem alle ↓
prikker/streger. "morse-a" er lavet efter dette ↓
princip, som naturligvis er en besværlig løsning. ↓
Men det virker:↲
↲
┆b0┆0010 // "morse-a"↲
┆b0┆0020 CLOSE ↲
┆b0┆0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 REPEAT ↲
↲
Her kommer de tre prikker:↲
↲
┆b0┆0060 PRINT FILE 1: CHR$(255);↲
┆b0┆0070 EXEC pause(0.2)↲
┆b0┆0080 PRINT FILE 1: CHR$(0);↲
┆b0┆0090 EXEC pause(0.2)↲
┆b0┆0100 PRINT FILE 1: CHR$(255);↲
┆b0┆0110 EXEC pause(0.2)↲
┆b0┆0120 PRINT FILE 1: CHR$(0);↲
┆b0┆0130 EXEC pause(0.2)↲
┆b0┆0140 PRINT FILE 1: CHR$(255);↲
┆b0┆0150 EXEC pause(0.2)↲
┆b0┆0160 PRINT FILE 1: CHR$(0);↲
┆b0┆0170 EXEC pause(0.2)↲
┆b0┆0190 EXEC pause(1)↲
↲
Her kommer de tre streger:↲
↲
┆b0┆0210 PRINT FILE 1: CHR$(255);↲
┆b0┆0220 EXEC pause(0.5)↲
┆b0┆0230 PRINT FILE 1: CHR$(0);↲
┆b0┆0240 EXEC pause(0.2)↲
┆b0┆0250 PRINT FILE 1: CHR$(255);↲
┆b0┆0260 EXEC pause(0.5)↲
┆b0┆0270 PRINT FILE 1: CHR$(0);↲
┆b0┆0280 EXEC pause(0.2)↲
┆b0┆0290 PRINT FILE 1: CHR$(255);↲
┆b0┆0300 EXEC pause(0.5)↲
┆b0┆0310 PRINT FILE 1: CHR$(0);↲
┆b0┆0320 EXEC pause(0.2)↲
┆b0┆0340 EXEC pause(1)↲
↲
Og her er så tre prikker igen:↲
↲
┆b0┆0360 PRINT FILE 1: CHR$(255);↲
┆b0┆0370 EXEC pause(0.2)↲
┆b0┆.↲
┆b0┆.↲
o.s.v.↲
↲
Og til sidst afslutningen på programmet:↲
↲
┆b0┆0510 UNTIL ORD(KEY$)=32↲
┆b0┆0520 PRINT FILE 1: CHR$(0);↲
┆b0┆0530 CLOSE ↲
┆b0┆0540 END ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
"morse-b" er en løsning på det samme problem. Her er ↓
der lavet en procedure til hhv. en prik og en streg:↲
↲
↲
┆b0┆0010 // "morse-b"↲
┆b0┆0020 CLOSE ↲
┆b0┆0030 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 PRINT FILE 1: CHR$(0);↲
┆b0┆0050 REPEAT ↲
┆b0┆0070 EXEC prik(3)↲
┆b0┆0080 EXEC mellemrum(1)↲
┆b0┆0090 EXEC streg(3)↲
┆b0┆0100 EXEC mellemrum(1)↲
┆b0┆0110 EXEC prik(3)↲
┆b0┆0120 EXEC mellemrum(7)↲
┆b0┆0140 UNTIL ORD(KEY$)=32↲
┆b0┆0150 PRINT FILE 1: CHR$(0);↲
┆b0┆0160 CLOSE ↲
┆b0┆0170 END ↲
↲
┆b0┆0190 PROC mellemrum(antal)↲
┆b0┆0200 FOR n:=1 TO antal DO EXEC pause(0.2)↲
┆b0┆0210 ENDPROC mellemrum↲
↲
┆b0┆0230 PROC prik(antal)↲
┆b0┆0240 FOR priknr:=1 TO antal DO↲
┆b0┆0250 PRINT FILE 1: CHR$(255);↲
┆b0┆0260 EXEC pause(0.2)↲
┆b0┆0270 PRINT FILE 1: CHR$(0);↲
┆b0┆0280 EXEC pause(0.2)↲
┆b0┆0290 NEXT priknr↲
┆b0┆0300 ENDPROC prik↲
┆b0┆↲
┆b0┆0320 PROC streg(antal)↲
┆b0┆0330 FOR stregnr:=1 TO antal DO↲
┆b0┆0340 PRINT FILE 1: CHR$(255);↲
┆b0┆0350 EXEC pause(0.5)↲
┆b0┆0360 PRINT FILE 1: CHR$(0);↲
┆b0┆0370 EXEC pause(0.2)↲
┆b0┆0380 NEXT stregnr↲
┆b0┆0390 ENDPROC streg↲
↲
↲
┆b0┆0070-0120┆f0┆: Her "kaldes" prikkerne og stregerne hver ↓
┆19┆┄┆81┆┄for sig. ┆b0┆EXEC mellemrum(1)┆f0┆ svarer til mellemrum mellem ↓
┆19┆┄┆82┆┄prikkerne og stregerne i og mellem bogstaverne, og ↓
┆19┆┄┆82┆┄┆b0┆EXEC mellemrum(7)┆f0┆ svarer til mellemrum mellem ordene. ↲
↲
┆b0┆0190-0210┆f0┆: Et mellemrum svarer blot til en pause på ↓
┆19┆┄┆81┆┄0.2 sekunder.↲
↲
┆b0┆0230-0300┆f0┆: En prik består af en lysperiode på 0.2 ↓
┆19┆┄┆81┆┄sekunder og en mørkeperiode på 0.2 sekunder.↲
↲
┆b0┆032-0390┆f0┆: En streg består af en lysperiode på 0.5 ↓
┆19┆┄┆81┆┄sekunder og en mørkeperiode på 0.2 sekunder.↲
↲
Lys- og mørkeperioderne bør selvfølgelig fastlægges ↓
efter elevernes egne ønsker.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "morse-c" er muligheden for at variere morse-↓
hastigheden tilføjet. Her er "normalhastigheden" sat ↓
til 100%. Hvis hastigheden skal halveres, skal der ↓
således indtastes ┆b0┆50┆f0┆ for 50%, og ┆b0┆200┆f0┆ for at fordoble ↓
┆19┆┄┆82┆┄hastigheden, d.v.s. 200%:↲
↲
Her er selve programmets struktur afspejlet i ↓
procedurekaldene:↲
↲
┆b0┆0010 // "morse-c"↲
┆b0┆0020 EXEC åbne_port↲
┆b0┆0030 EXEC ind_hastighed↲
┆b0┆0040 EXEC blink↲
┆b0┆0050 EXEC lukke_port↲
┆b0┆0060 END ↲
↲
------------------------------------------------------↲
↲
Her åbnes port 17, og lamperne slukkes:↲
↲
┆b0┆0080 PROC åbne_port↲
┆b0┆0090 CLOSE ↲
┆b0┆0100 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0110 PRINT FILE 1: CHR$(0);↲
┆b0┆0120 ENDPROC åbne_port↲
↲
------------------------------------------------------↲
↲
Her indtastes blink-hastigheden:↲
↲
┆b0┆0140 PROC ind_hastighed↲
┆b0┆0150 PRINT CHR$(12)↲
┆b0┆0160 INPUT "SKRIV HASTIGHED (normal=100%): ": ↓
┆19┆┄┆81┆┄┆b0┆ hastighed↲
┆b0┆0170 mellemrumlængde:=0.2/hastighed*100↲
┆b0┆0180 priklængde:=0.2/hastighed*100↲
┆b0┆0190 streglængde:=0.5/hastighed*100↲
┆b0┆0200 ENDPROC ind_hastighed↲
↲
------------------------------------------------------↲
↲
Og her udføres selve blink-sekvensen ligesom i↲
"morse-b":↲
↲
┆b0┆0220 PROC blink↲
┆b0┆0230 REPEAT ↲
┆b0┆0240 EXEC prik(3)↲
┆b0┆0250 EXEC mellemrum(1)↲
┆b0┆0260 EXEC streg(3)↲
┆b0┆0270 EXEC mellemrum(1)↲
┆b0┆0280 EXEC prik(3)↲
┆b0┆0290 EXEC mellemrum(7)↲
┆b0┆0300 UNTIL ORD(KEY$)=32↲
┆b0┆0310 ENDPROC blink↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
Til sidst slukkes lamperne og datastrømmen lukkes:↲
↲
┆b0┆0330 PROC lukke_port↲
┆b0┆0340 PRINT FILE 1: CHR$(0);↲
┆b0┆0350 CLOSE ↲
┆b0┆0360 ENDPROC lukke_port↲
↲
------------------------------------------------------↲
↲
↲
↲
Procedurerne ┆b0┆prik┆f0┆, ┆b0┆streg┆f0┆ og ┆b0┆pause┆f0┆ er som i programmet ↓
┆19┆┄┆83┆┄"morse-b".↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
"morse-d" blinker navnet ┆b0┆OLE┆f0┆ (/---/.-.././). Her blot proceduren ↓
┆19┆┄┆81┆┄┆b0┆blink┆f0┆:↲
↲
┆b0┆0240 PROC blink↲
┆b0┆0250 REPEAT ↲
┆b0┆0260 // ---------------↲
┆b0┆0270 EXEC streg(3) .... O ↲
┆b0┆0280 EXEC mellemrum(5)↲
┆b0┆0290 // ---------------↲
┆b0┆0300 EXEC prik(1) .... L ↲
┆b0┆0310 EXEC streg(1)↲
┆b0┆0320 EXEC prik(2)↲
┆b0┆0330 EXEC mellemrum(5)↲
┆b0┆0340 // ---------------↲
┆b0┆0350 EXEC prik(1) .... E↲
┆b0┆0360 EXEC mellemrum(5)↲
┆b0┆0370 // ---------------↲
┆b0┆0380 EXEC mellemrum(5)↲
┆b0┆0390 // ---------------↲
┆b0┆0400 UNTIL ORD(KEY$)=32↲
┆b0┆0410 ENDPROC blink↲
↲
------------------------------------------------------↲
↲
↲
Det skal nævnes, at morseprogrammerne er svære, ↓
┆19┆┄┆81┆┄og det vil ikke være forkert at springe dem over hvis ↓
┆19┆┄┆82┆┄elevernes forudsætninger eller interesse ikke slår ↓
┆19┆┄┆83┆┄til.↲
↲
"morse-e", på næste side, er for eksempel i overkanten ↓
af hvad eleverne må forventes at kunne klare.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
"morse-e" er et løsningsforslag til et "generelt" ↓
morseprogram, hvor der blot skal indtastes en tekst på ↓
skærmen og trykkes <RETURN>. Det er absolut i ↓
overkanten hvad sværhedsgraden angår. ↲
↲
╱04002d4e0a00060000000002074d31400000000000000000000000000000000000000000000000000b151f29333d47515b656f79838d97ff04╱
╱04002d4e0a000600000000021449314000000000000000000000000000000000000000000000000018222c36404a545e68727c86909aa4ff04╱
↓
┆b0┆0010 // "morse-e"↲
┆b0┆0020 dec:=255↲
┆b0┆0030 CLOSE ↲
┆b0┆0040 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0050 DIM morsetegn$(96) OF 10,tekst$ OF 80↲
┆b0┆0060 FOR tegn:=97 TO 122 DO READ morsetegn$(tegn-96)↲
↲
┆b0┆0070 DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".---"↲
┆b0┆0080 DATA "-.-",".-..","--","-.","---",".--.","--.-",".-.","...","-"↲
┆b0┆0090 DATA "..-","...-",".--","-..-","-.--","--.."↲
↲
┆b0┆0110 INPUT "SKRIV TEKST: ": tekst$↲
┆b0┆0120 PRINT ↲
┆b0┆0130 INPUT "SKRIV HASTIGHED (100=normal): ": hastighed↲
↲
┆b0┆0140 FOR tegnnr:=1 TO LEN(tekst$) DO↲
┆b0┆0150 morsetegnnr:=ORD(tekst$(tegnnr:tegnnr))-96↲
┆b0┆0160 FOR signal:=1 TO LEN(morsetegn$(morsetegnnr)) DO↲
┆b0┆0170 IF morsetegn$(morsetegnnr,signal:signal)="." THEN EXEC prik↲
┆b0┆0180 IF morsetegn$(morsetegnnr,signal:signal)="-" THEN EXEC streg↲
┆b0┆0190 NEXT signal↲
┆b0┆0200 EXEC pause(1/hastighed*100)↲
┆b0┆0210 NEXT tegnnr↲
↲
┆b0┆0230 PROC prik↲
┆b0┆0240 PRINT FILE 1: CHR$(255)↲
┆b0┆0250 EXEC pause(0.25/hastighed*100)↲
┆b0┆0260 PRINT FILE 1: CHR$(0);↲
┆b0┆0270 EXEC pause(0.2/hastighed*100)↲
┆b0┆0280 ENDPROC prik↲
↲
┆b0┆0300 PROC streg↲
┆b0┆0310 PRINT FILE 1: CHR$(255);↲
┆b0┆0320 EXEC pause(0.6/hastighed*100)↲
┆b0┆0330 PRINT FILE 1: CHR$(0);↲
┆b0┆0340 EXEC pause(0.2/hastighed*100)↲
┆b0┆0340 ENDPROC streg↲
╱04002d4e0a00060000000002144a314000000000000000000000000000000000000000000000000018222c36404a545e68727c86909aa4ff04╱
╱04002d4e0a00060000000002074d31400000000000000000000000000000000000000000000000000b151f29333d47515b656f79838d97ff04╱
↓
↲
┆b0┆0060-0090┆f0┆: Her tildeles tekstvariablen ┆b0┆morsetegn$┆f0┆ de ↓
┆19┆┄┆82┆┄enkelte morsetagns udseende læst fra DATA-sætningerne.↲
↲
┆b0┆0110┆f0┆: Her tildeles ┆b0┆tekst$┆f0┆ den ønskede tekst.↲
↲
┆b0┆0160-0190┆f0┆: Her udføres de enkelte morsesignaler, altså ↓
┆19┆┄┆81┆┄de enkelte prikker og streger.↲
↲
┆b0┆0140-0210┆f0┆: Her udføres de enkelte bogstaver, der består ↓
┆19┆┄┆81┆┄af et eller flere morsesignaler (=prikker og streger).↲
↲
┆b0┆0200┆f0┆: Her udføres mellemrummmene mellem de enkelte ↓
┆19┆┄┆81┆┄bogstaver.↲
↲
Som det kan ses, kræver denne opgave, at eleverne er ↓
fortrolige med variable med index, samt del-strenge. Så ↓
opgaven er god hvis der er et par skrappe elever der ↓
mangler lidt udfordring.↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "LØBELYS":↲
↲
↲
I "løb-a1" er anvendt "GØG-OG-GOKKE-METODEN", idet ↓
hvert gennemløb består at 8 "PRINT FILE"-sætninger. ↓
Lyset løber kun ┆b0┆en┆f0┆ gang fra venstre mod højre:↲
↲
┆b0┆0010 // "løb-a1"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 PRINT FILE 1: CHR$(1);↲
┆b0┆0040 EXEC pause(0.3)↲
┆b0┆0050 PRINT FILE 1: CHR$(2);↲
┆b0┆0060 EXEC pause(0.3)↲
┆b0┆0070 PRINT FILE 1: CHR$(4);↲
┆b0┆0080 EXEC pause(0.3)↲
┆b0┆0090 PRINT FILE 1: CHR$(8);↲
┆b0┆0100 EXEC pause(0.3)↲
┆b0┆0110 PRINT FILE 1: CHR$(16);↲
┆b0┆0120 EXEC pause(0.3)↲
┆b0┆0130 PRINT FILE 1: CHR$(32);↲
┆b0┆0140 EXEC pause(0.3)↲
┆b0┆0150 PRINT FILE 1: CHR$(64);↲
┆b0┆0160 EXEC pause(0.3)↲
┆b0┆0170 PRINT FILE 1: CHR$(128);↲
┆b0┆0180 EXEC pause(0.3)↲
┆b0┆0190 CLOSE FILE 1↲
┆b0┆0200 END ↲
↲
------------------------------------------------------↲
↲
Problemet bør løses på en mere elegant måde, nemlig med en ↓
"FOR-NEXT"-løkke, hvor et gennemløb kan udtrykkes ↓
simpelt rent matematisk: 2 opløftet til en potens ↓
svarende til bit-nummeret, altså 2 i nulte (=1), 2 i ↓
første (=2), 2 i anden (=4), 2 i tredie (=8), ... ↓
o.s.v..↲
↲
I "løb-a2" er det gjort sådan:↲
↲
┆b0┆0010 // "løb-a2"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 FOR n:=0 TO 7 DO↲
┆b0┆0040 PRINT FILE 1: CHR$(2^n);↲
┆b0┆0050 EXEC pause(0.3)↲
┆b0┆0060 NEXT n↲
┆b0┆0070 CLOSE FILE 1↲
┆b0┆0080 END ↲
↲
------------------------------------------------------↲
↲
I "løb-b" er "FOR-NEXT"-løkken lagt ind i en "REPEAT-↓
UNTIL"-løkke, for at få gennemløbet gentaget indtil ↓
der trykkes på mellemrum-tasten:↲
↲
┆b0┆0040 REPEAT ↲
0050 FOR bit:=0 TO 7 DO↲
0060 PRINT FILE 1: CHR$(2^bit);↲
0070 EXEC pause(0.3)↲
0080 NEXT bit↲
┆b0┆0090 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "løb-c" er tilføjet muligheden for at variere ↓
blinkfrekvensen:↲
↲
0010 // "løb-c"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 PRINT "SKRIV LYSPERIODEN"↲
┆b0┆0040 PRINT "I SEKUNDER"↲
┆b0┆0050 INPUT "FOR HVER PÆRE: ": lysperiode↲
0060 PRINT ↲
0070 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
0080 REPEAT ↲
0090 FOR bit:=0 TO 7 DO↲
0100 PRINT FILE 1: CHR$(2^bit);↲
0110 EXEC pause(┆b0┆lysperiode┆f0┆)↲
0120 NEXT bit↲
0130 UNTIL ORD(KEY$)=32↲
0140 PRINT FILE 1: CHR$(0);↲
0150 CLOSE FILE 1↲
0160 END ↲
↲
------------------------------------------------------↲
↲
I "løb-d" gennemløbes "FOR-NEXT"-løkken med et ↓
negativt STEP, svarende til at BIT-7 pæren begynder og ↓
BIT-0 pæren slutter hvert gennemløb:↲
↲
┆b0┆0090 FOR bit:=7 TO 0 STEP -1 DO↲
┆b0┆0100 PRINT FILE 1: CHR$(2^bit);↲
┆b0┆0110 EXEC pause(lysperiode)↲
┆b0┆0120 NEXT bit↲
↲
------------------------------------------------------↲
↲
I "løb-e1" er det talvariablen ┆b0┆ DECTAL┆f0┆ der sendes til ↓
┆19┆┄┆81┆┄lyspanelet. ┆b0┆DECTAL┆f0┆ forøges i "FOR-NEXT"løkken med et ↓
┆19┆┄┆82┆┄tal svarende til hver lampes decimale tal, således at ↓
┆19┆┄┆82┆┄┆b0┆DECTAL┆f0┆ opsummerers. Bemærk at BIT-0 pæren forbliver ↓
┆19┆┄┆83┆┄tændt under programmets afvikling:↲
↲
┆b0┆0080 REPEAT ↲
┆b0┆0090 dectal:=0↲
┆b0┆0100 FOR bit:=0 TO 7 DO↲
┆b0┆0110 dectal:=dectal+2^bit↲
┆b0┆0120 PRINT FILE 1: CHR$(dectal);↲
┆b0┆0130 EXEC pause(lysperiode)↲
┆b0┆0140 NEXT bit↲
┆b0┆0150 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "løb-e2" indledes "FOR-NEXT"-løkken med at 0 sendes ↓
til lyuspanelet så alle pærer slukkes, og der udføres ↓
en pause før pærerne begynder at lyse op. På denne ↓
måde slukkes også BIT-0 pæren i hver gennemløb:↲
↲
0080 REPEAT ↲
┆b0┆0090 PRINT FILE 1: CHR$(0);↲
┆b0┆0100 EXEC pause(lysperiode)↲
0110 dectal:=0↲
0120 FOR bit:=0 TO 7 DO↲
0130 dectal:=dectal+2^bit↲
0140 PRINT FILE 1: CHR$(dectal);↲
0150 EXEC pause(lysperiode)↲
0160 NEXT bit↲
0170 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
↲
"løb-e3" virker som "løb-e2". Her er den største 2-↓
talspotens blot 8 i stedet for 7. 2 opløftet til 8 er ↓
256, hvilket svarer til 100000000 binært. Der skal ↓
altså 9 bit til, hvor lyspanelet kun viser de 8 ↓
laveste bit. Igen lamper lyser derfor hvis 2 opløftet ↓
til 8. potens ( =256 ) sendes til lyspanelet:↲
↲
┆b0┆0090 FOR bit:=0 TO 8 DO↲
┆b0┆0100 PRINT FILE 1: CHR$(2^bit-1);↲
┆b0┆0110 EXEC pause(lysperiode)↲
┆b0┆0120 NEXT bit↲
↲
------------------------------------------------------↲
↲
Hvis man ønsker at lyset skal løbe fra højre mod ↓
venstre er "løb-e4" måske en nærliggende løsning - ↓
men den duer ┆b0┆IKKE┆f0┆ !!. Her er det nemlig en slukket pære ↓
┆19┆┄┆81┆┄der "løber", og ikke en tændt:↲
↲
┆b0┆0090 FOR bit:=8 TO 0 STEP -1 DO↲
┆b0┆0100 PRINT FILE 1: CHR$(2^bit-1);↲
┆b0┆0110 EXEC pause(lysperiode)↲
┆b0┆0120 NEXT bit↲
↲
------------------------------------------------------↲
↲
"løb-e5" er en korrekt løsning, hvis lyset skal løbe ↓
fra højre mod venstre samtidig med at lysene skal ↓
"opsummeres":.↲
↲
┆b0┆0090 FOR bit:=8 TO 0 STEP -1 DO↲
┆b0┆0100 PRINT FILE 1: CHR$(255-2^bit+1);↲
┆b0┆0110 EXEC pause(lysperiode)↲
┆b0┆0120 NEXT bit↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "løb-f" er det to "FOR-NEXT"-løkker der hver for sig ↓
får lyset til at løbe hhv. mod højre og mod venstre:↲
↲
0070 REPEAT ↲
┆b0┆0080 FOR bit:=0 TO 7 DO↲
┆b0┆0090 PRINT FILE 1: CHR$(2^bit);↲
┆b0┆0100 EXEC pause(lysperiode)↲
┆b0┆0110 NEXT bit↲
0120 PRINT FILE 1: CHR$(0);↲
0130 EXEC pause(lysperiode)↲
┆b0┆0140 FOR bit:=7 TO 0 STEP -1 DO↲
┆b0┆0150 PRINT FILE 1: CHR$(2^bit);↲
┆b0┆0160 EXEC pause(lysperiode)↲
┆b0┆0170 NEXT bit↲
0180 PRINT FILE 1: CHR$(0);↲
0190 EXEC pause(lysperiode)↲
0200 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
↲
"løb-g1", "løb-g2" og "løb-g3" er forslag til løsning ↓
af problemet med at man fra tastaturet skal kunne få ↓
lyset til at løbe hhv. mod højre og mod venstre.↲
↲
Her "løb-g2":↲
↲
┆b0┆0010 // "løb-g2"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 DIM tast$ OF 1↲
┆b0┆0040 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"↲
┆b0┆0050 PRINT "SKRIV LYSPERIODEN"↲
┆b0┆0060 PRINT "I SEKUNDER"↲
┆b0┆0070 INPUT "FOR HVER PÆRE: ": lysperiode↲
↲
------------------------------------------------------↲
↲
Her er selve afviklingen af løbelyset. Det er proce┄↓
duren ┆b0┆løbelys┆f0┆ (se næste side) der får lyset til at ↓
┆19┆┄┆81┆┄løbe:↲
↲
┆b0┆0090 REPEAT ↲
↲
┆b0┆0100 tast$:=KEY$↲
↲
┆b0┆0110 IF tast$="v" OR tast$="V" OR tast$=CHR$(8) ↲
┆19┆┄┆81┆┄┆b0┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆THEN EXEC løbelys(0,7,+1)↲
↲
┆b0┆0120 IF tast$="h" OR tast$="H" OR tast$=CHR$(24) ↲
┆19┆┄┆81┆┄┆b0┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆THEN EXEC løbelys(7,0,-1)↲
↲
┆b0┆0130 IF tast$="s" OR tast$="S" OR tast$=" " ↲
┆19┆┄┆81┆┄┆b0┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆┆1f┆THEN EXEC stands↲
↲
┆b0┆0140 UNTIL FALSE↲
↲
┆b0┆0150 END↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆EXEC løbelys(0,7,+1)┆f0┆ får lyset til at løbe fra BIT 0, ↓
┆19┆┄┆81┆┄d.v.s. venstre, mod BIT 7, altså højre. Modsvarende ↓
┆19┆┄┆81┆┄får ┆b0┆EXEC løbelys(7,0,-1)┆f0┆ lyset til at løbe den anden ↓
┆19┆┄┆82┆┄vej:↲
↲
┆b0┆0160 PROC løbelys(startværdi,slutværdi,stepværdi)↲
↲
┆b0┆0170 FOR bit:=startværdi TO slutværdi↲
┆19┆┄┆81┆┄┆b0┆ STEP stepværdi DO↲
↲
┆b0┆0180 PRINT FILE 1: CHR$(2^bit);↲
↲
┆b0┆0190 EXEC pause(lysperiode)↲
↲
┆b0┆0200 NEXT bit↲
↲
┆b0┆0210 PRINT FILE 1: CHR$(0);↲
↲
┆b0┆0220 EXEC pause(lysperiode)↲
↲
┆b0┆0230 ENDPROC løbelys↲
↲
------------------------------------------------------↲
↲
Hvis der trykkes på MELLEMRUM- eller S-tasten så ↓
udføres proceduren ┆b0┆stands┆f0┆, hvor lyset slukkes og ↓
┆19┆┄┆81┆┄datastrømmen lukkes:↲
↲
┆b0┆0320 PROC stands↲
┆b0┆0330 PRINT FILE 1: CHR$(0);↲
┆b0┆0340 CLOSE FILE 1↲
┆b0┆0350 ENDPROC stands↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "TÆLLE":↲
↲
↲
"tælle-a" er et lille program der tæller binært. Der ↓
kan naturligvis kun tælles fra 0 til 255, da der kun ↓
er 8 bit/lamper på lyspanelet:↲
↲
┆b0┆0010 // "tælle-a"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0040 FOR tal:=0 TO 255 DO↲
┆b0┆0050 PRINT FILE 1: CHR$(tal);↲
┆b0┆0060 EXEC pause(1/3)↲
┆b0┆0070 NEXT tal↲
┆b0┆0080 PRINT FILE 1: CHR$(0);↲
┆b0┆0090 CLOSE FILE 1↲
┆b0┆0100 END ↲
↲
------------------------------------------------------↲
↲
I "tælle-b" kan tællehastigheden varieres, idet ↓
brugeren selv bestemmer hvor lang tid hvert pause skal ↓
være.↲
↲
↲
0010 // "tælle-b"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 INPUT "PAUSETID: ": tid↲
0040 FOR tal:=0 TO 255 DO↲
0050 PRINT FILE 1: CHR$(tal);↲
0060 EXEC pause(┆b0┆tid┆f0┆)↲
0070 NEXT tal↲
0080 PRINT FILE 1: CHR$(0);↲
0090 CLOSE FILE 1↲
0100 END ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "BLINK-0/7":↲
↲
Dette program får BIT-0 og BIT-7 pærerne til at blinke ↓
på skift. Strukturen er den sammen som i et simpelt ↓
blink-program↲
↲
┆b0┆0010 // "blink-7/0"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(1);↲
┆b0┆0050 EXEC pause(0.5)↲
┆b0┆0060 PRINT FILE 1: CHR$(128);↲
┆b0┆0070 EXEC pause(0.5)↲
┆b0┆0080 UNTIL ORD(KEY$)=32↲
┆b0┆0090 PRINT FILE 1: CHR$(0);↲
┆b0┆0100 CLOSE FILE 1↲
┆b0┆0110 END ↲
↲
┆b0┆0040┆f0┆: Her lyser kun BIT-0 pæren.↲
↲
┆b0┆0060┆f0┆: Her lyser kun BIT-7 pæren↲
↲
------------------------------------------------------↲
↲
↲
┆b0┆PROBLEM "BLINK-A/B":↲
↲
↲
Her kommer så det første program der styrer de to ↓
ekstra bit. Port 17, som er en papallelport, består kun ↓
af 8 bit, og vi kan derfor ikke bruge den til de to ↓
ekstra bit. Nu skal ┆b0┆PORT 10┆f0┆ bruges. Det er ganske vist ↓
┆19┆┄┆81┆┄en seriel port, ligesom den printeren er tilsluttet, ↓
┆19┆┄┆81┆┄men den indeholder to bits der normalt bruges til ↓
┆19┆┄┆81┆┄kontrol-formål. De kan programmeres ligesom de 8 bit i ↓
┆19┆┄┆81┆┄port 17. Det forudsætter blot, at vi sender de decimale ↓
┆19┆┄┆81┆┄tal ┆b0┆24┆f0┆ og ┆b0┆5┆f0┆ i nævnte rækkefølge ┆b0┆umiddelbart før┆f0┆ det tal ↓
┆19┆┄┆84┆┄der sætter BIT-A og/eller BIT-B høje. ┆b0┆24┆f0┆ og ┆b0┆5┆f0┆ er ↓
┆19┆┄┆86┆┄karakterer der programmerer port 10, ┆b0┆0/2/128/130┆f0┆ er ↓
┆19┆┄┆87┆┄data der transmitteres ┆b0┆ud┆f0┆ af port 10!↲
↲
Der er disse 4 muligheder for programmering af BIT-A ↓
og BIT-B:↲
↲
↲
DECIMAL TAL: BIT-A: BIT-B:↲
------------ ------ ------↲
↲
0 LAV LAV↲
2 HØJ LAV↲
128 LAV HØJ↲
2+128=130 HØJ HØJ↲
↲
------------ ------ ------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
"blink-A/B" får BIT-A og BIT-B pærerne til at blinke på ↓
skift:↲
↲
0010 // "blink-A/B"↲
0020 OPEN FILE 1,"/┆b0┆10┆f0┆/PORT", WRITE ↲
0030 REPEAT ↲
0040 PRINT FILE 1: ┆b0┆CHR$(24);CHR$(5);CHR$(2);┆f0┆↲
0050 EXEC pause(0.5)↲
0060 PRINT FILE 1: ┆b0┆CHR$(24);CHR$(5);CHR$(128);┆f0┆↲
0070 EXEC pause(0.5)↲
0080 UNTIL ORD(KEY$)=32↲
0090 PRINT FILE 1: ┆b0┆CHR$(24);CHR$(5);CHR$(0)┆f0┆;↲
0100 CLOSE FILE 1↲
0110 END ↲
↲
┆b0┆0020┆f0┆: Her åbnes port ┆b0┆10┆f0┆ for skrivning (WRITE).↲
↲
┆b0┆0040┆f0┆: Her bruges ┆b0┆24┆f0┆ og ┆b0┆5┆f0┆ til at "fortælle" port 10 at ↓
┆19┆┄┆83┆┄vi gerne vil programmere BIT-A og BIT-B, og derefter ↓
┆19┆┄┆83┆┄sender vi tallet ┆b0┆2┆f0┆, der sætter BIT-A høj, så BIT-A ↓
┆19┆┄┆84┆┄pæren lyser, og ┆b0┆kun┆f0┆ BIT-A pæren.↲
↲
┆b0┆0060┆f0┆: Her sendes 24 og 5 ligesom i linie 0040, og ↓
┆19┆┄┆81┆┄derefter sendes 128, der sætter BIT-B, og kun BIT-B, ↓
┆19┆┄┆81┆┄høj.↲
↲
┆b0┆0090┆f0┆: Her sendes 24 og 5, samt 0. Nullet sætter både ↓
┆19┆┄┆81┆┄BIT-A og BIT-B lave, så ingen af disse to pærer lyser.↲
↲
Den eneste forskel på at programmere de 8 bit fra port ↓
17, og de 2 bit fra port 10, er altså at port 17 kan ↓
programmeres direkte med det decimale tal der sætter de ↓
enkelte bits, hvorimod de decimale tal 24 og 5 skal ↓
sendes forud for ┆b0┆hver eneste┆f0┆ ændring af status på de to ↓
┆19┆┄┆81┆┄bit vi kalder for BIT-A og BIT-B.↲
↲
------------------------------------------------------↲
↲
↲
┆b0┆"tænd10"┆f0┆ og ┆b0┆sluk10"┆f0┆ er to små programmer der hhv. ↓
┆19┆┄┆82┆┄tænder og slukker BIT-A ┆b0┆og┆f0┆ BIT-B. De refererer ┆b0┆ikke┆f0┆ til ↓
┆19┆┄┆84┆┄elevteksten, men er rare at have på disketten. Så kan ↓
┆19┆┄┆84┆┄man blot skrive komandoen ┆b0┆run "tænd10"┆f0┆ eller ┆b0┆"run ↓
┆19┆┄┆86┆┄"sluk10"┆f0┆ hvis man ønsker at tænde eller slukke de to ↓
┆19┆┄┆86┆┄lamper.↲
↲
0010 // "tænd10"↲
0020 OPEN FILE 1,"/10/PORT", WRITE ↲
0030 PRINT FILE 1: CHR$(24);CHR$(5);CHR$(┆b0┆130┆f0┆);↲
0040 CLOSE FILE 1↲
0050 END ↲
↲
↲
0010 // "sluk10"↲
0020 OPEN FILE 1,"/10/PORT", WRITE ↲
0030 PRINT FILE 1: CHR$(24);CHR$(5);CHR$(┆b0┆0┆f0┆);↲
0040 CLOSE FILE 1↲
0050 END ↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆PROBLEM "TRAFIK":↲
↲
↲
Nu skal lyskurvene på lyspanelet bruges, og omskifteren ↓
skal derfor stå på "TRAFIK".↲
↲
I "trafik-a1" og "trafik-a2" er det ┆b0┆kun┆f0┆ to-lysene der ↓
┆19┆┄┆81┆┄skal programmeres. Det vil sige at både port 17 og port ↓
┆19┆┄┆81┆┄10 skal bruges i det samme program. Derfor skal der ↓
┆19┆┄┆81┆┄åbnes til begge porte. Den eneste forskel på↲
"trafik-a1" og "trafik-a2" er at det er lyskurv nr. 1 ↓
på lyspanelet der bruges i det ene program, og lyskurv nr. 2 der ↓
bruges i det andet:↲
↲
↲
┆b0┆0010 // "trafik-a1"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 OPEN FILE 2,"/10/PORT", WRITE ↲
┆b0┆0040 REPEAT ↲
┆b0┆0050 PRINT FILE 1: CHR$(16); // ↲
┆b0┆0060 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(0); // ↲
┆b0┆0070 EXEC pause(6)↲
┆b0┆0080 PRINT FILE 1: CHR$(0); // ↲
┆b0┆0090 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(128); // ↲
┆b0┆0100 EXEC pause(4)↲
┆b0┆0110 UNTIL ORD(KEY$)=32↲
┆b0┆0120 CLOSE ↲
┆b0┆0130 END ↲
↲
↲
┆b0┆0020┆f0┆: Datastrøm nummer 1 til port 17 åbnes.↲
┆b0┆0030┆f0┆: Datastrøm nummer 2 til port 10 åbnes.↲
↲
┆b0┆0050┆f0┆: TÆND RØD(1), og få brøkdele af et sekund efter:↲
┆b0┆0060┆f0┆: SLUK GRØN(1)↲
↲
┆b0┆0070┆f0┆: Pause på 6 sekunder. Der er altså RØDT i 6 ↓
┆19┆┄┆81┆┄sekunder.↲
↲
┆b0┆0080┆f0┆: SLUK RØD(1), og få brøkdele af et sekund efter:↲
┆b0┆0090┆f0┆: TÆND GRØN(1)↲
↲
┆b0┆0100┆f0┆: Pause på 4 sekunder. Der er altså GRØNT i 4 ↓
┆19┆┄┆81┆┄sekunder.↲
↲
┆b0┆0120┆f0┆: Datastrømmene lukkes.↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
┆b0┆0010 // "trafik-a2"↲
┆b0┆0020 OPEN FILE 1,"/17/PORT", WRITE ↲
┆b0┆0030 OPEN FILE 2,"/10/PORT", WRITE ↲
┆b0┆0040 REPEAT ↲
┆b0┆0050 PRINT FILE 1: CHR$(8); // ↲
┆b0┆0060 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(0); // ↲
┆b0┆0070 EXEC pause(6)↲
┆b0┆0080 PRINT FILE 1: CHR$(0); // ↲
┆b0┆0090 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(2); // ↲
┆b0┆0100 EXEC pause(4)↲
┆b0┆0110 UNTIL ORD(KEY$)=32↲
┆b0┆0120 CLOSE ↲
┆b0┆0130 END ↲
↲
┆b0┆0050┆f0┆: TÆND RØD(4)↲
┆b0┆0060┆f0┆: SLUK GRØN(4)↲
↲
┆b0┆0080┆f0┆: SLUK RØD(4)↲
┆b0┆0090┆f0┆: TÆND GRØN(4)↲
↲
------------------------------------------------------↲
↲
↲
"trafik-b" styrer de to 2-lys, og er således en ↓
kombination af de to foregående programmer:↲
↲
↲
┆b0┆0040 REPEAT ↲
┆b0┆0050 PRINT FILE 1: CHR$(8); ↲
┆b0┆0060 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(128); ↲
┆b0┆0070 EXEC pause(6)↲
┆b0┆0080 PRINT FILE 1: CHR$(16);↲
┆b0┆0090 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(2); ↲
┆b0┆0100 EXEC pause(4)↲
┆b0┆0120 UNTIL ORD(KEY$)=32↲
↲
┆b0┆0050┆f0┆: TÆND RØD(1) + SLUK RØD(4) ↲
┆b0┆0060┆f0┆: SLUK GRØN(1) + TÆND GRØN(4)↲
↲
┆b0┆0080┆f0┆: SLUK RØD(1) + TÆND RØD(4)↲
┆b0┆0090┆f0┆: TÆND GRØN(1) + SLUK GRØN(4)↲
↲
Den "grønne bølge" på lyskurv nr. 1 er på 4 sekunder. ↓
Den "grønne bølge" på lyskurv nr. 2 er på 6 sekunder.↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
"trafik-c1" og "trafik-c2" styrer hhv. lyskurv nr. 2 og ↓
lyskurv nr.3, altså ┆b0┆et┆f0┆ 3-lys:↲
↲
↲
┆b0┆"trafik-c1":↲
↲
0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(128); // RØD(2)↲
0050 EXEC pause(6)↲
┆b0┆0060 PRINT FILE 1: CHR$(192); // RØD(2) + GUL(2)↲
0070 EXEC pause(2)↲
┆b0┆0080 PRINT FILE 1: CHR$(32); // GRØN(2)↲
0090 EXEC pause(4)↲
┆b0┆0100 PRINT FILE 1: CHR$(64); // GUL(2)↲
0110 EXEC pause(1)↲
0120 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
↲
↲
┆b0┆"trafik-c2":↲
↲
0010 // "trafik-c2"↲
0020 OPEN FILE 1,"/17/PORT", WRITE ↲
0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(1); // RØD(3)↲
0050 EXEC pause(6)↲
┆b0┆0060 PRINT FILE 1: CHR$(3); // RØD(3) + GUL(3)↲
0070 EXEC pause(2)↲
┆b0┆0080 PRINT FILE 1: CHR$(4); // GRØN(3)↲
0090 EXEC pause(4)↲
┆b0┆0100 PRINT FILE 1: CHR$(2); // GUL(3)↲
0110 EXEC pause(1)↲
0120 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
↲
↲
"trafik-d" er en kombination af de to foregående ↓
programmer. Her styres altså begge 3-lys:↲
↲
↲
0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(33); //RØD(3)+GRØN(2)↲
0050 EXEC pause(6)↲
┆b0┆0060 PRINT FILE 1: CHR$(67); //RØD(3)+GUL(3)+GRØN(2)↲
┆19┆┄┆81┆┄0070 EXEC pause(2)↲
┆b0┆0080 PRINT FILE 1: CHR$(132);//GRØN(3)+RØD(2)↲
0090 EXEC pause(4)↲
┆b0┆0100 PRINT FILE 1: CHR$(194);//GUL(3)+RØD(2)+GUL(2)↲
0110 EXEC pause(1)↲
0120 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "trafik-e" er det igen de to 3-lys der styres. Her er ↓
sekvensen blot lavet så der er ┆b0┆rødt i begge trafik┄↓
┆19┆┄┆81┆┄retninger┆f0┆ i 1 sekund mellem skiftene:↲
↲
↲
0030 REPEAT ↲
┆b0┆0040 PRINT FILE 1: CHR$(33); //RØD(3)+GRØN(2)↲
0050 EXEC pause(6)↲
┆b0┆0060 PRINT FILE 1: CHR$(65); //RØD(3)+GUL(2)↲
0070 EXEC pause(3)↲
┆b0┆0080 PRINT FILE 1: CHR$(129);//RØD(3)+RØD(2)↲
0090 EXEC pause(2)↲
┆b0┆0100 PRINT FILE 1: CHR$(131);//RØD(3)+GUL(3)+RØD(2)↲
┆19┆┄┆81┆┄0110 EXEC pause(1)↲
┆b0┆0120 PRINT FILE 1: CHR$(132);//RØD(2)+GRØN(3)↲
0130 EXEC pause(10)↓
┆b0┆0140 PRINT FILE 1: CHR$(130);//RØD(2)+GUL(3)↲
0150 EXEC pause(3)↓
┆b0┆0160 PRINT FILE 1: CHR$(129);//RØD(2)+RØD(3)↲
0170 EXEC pause(2)↲
┆b0┆0180 PRINT FILE 1: CHR$(193);//RØD(2)+GUL(2)+RØD(3)↲
┆19┆┄┆81┆┄0190 EXEC pause(1)↲
0200 UNTIL ORD(KEY$)=32↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
I "trafik-f" styres ┆b0┆alle 4 lyskurve┆f0┆ på en gang:↲
↲
↲
0040 REPEAT ↲
┆b0┆0050 PRINT CHR$(7);↲
┆b0┆0060 PRINT FILE 1: CHR$(148);↲
┆b0┆0070 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(2);↲
0080 EXEC pause(10)↲
┆b0┆0090 PRINT FILE 1: CHR$(156);↲
┆b0┆0100 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(0);↲
0110 EXEC pause(3)↲
┆b0┆0120 PRINT FILE 1: CHR$(154);↲
0130 EXEC pause(3)↲
┆b0┆0140 PRINT FILE 1: CHR$(217);↲
0150 EXEC pause(2)↲
┆b0┆0160 PRINT FILE 1: CHR$(41);↲
┆b0┆0170 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(128);↲
0180 EXEC pause(10)↲
┆b0┆0190 PRINT FILE 1: CHR$(57);↲
┆b0┆0200 PRINT FILE 2: CHR$(24);CHR$(5);CHR$(0);↲
0210 EXEC pause(3)↲
┆b0┆0220 PRINT FILE 1: CHR$(89);↲
0230 EXEC pause(3)↲
┆b0┆0240 PRINT FILE 1: CHR$(155);↲
0250 EXEC pause(2)↲
0260 UNTIL ORD(KEY$)=32↲
↲
↲
For at vise hvordan arbejdsarkene til lyskurvopgaverne ↓
kan bruges, vises på næste side hvordan en algoritme ↓
til "trafik-f" kan tagnes svarende direkte til ↓
programmet. Det er naturligvis de decimale tal, samt ↓
portene, der skal koncentreres om !↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
Endelig er der på næste side en listning af et ↓
"generelt" lyskurv program ┆b0┆"TRAFIK"┆f0┆, hvor alle lamper ↓
┆19┆┄┆81┆┄tændes og slukkes en efter en ved hjælp af EXEC-↓
┆19┆┄┆81┆┄sætninger. Det er proce┄durerne ┆b0┆tænd(lampe)┆f0┆ og ↓
┆19┆┄┆82┆┄┆b0┆sluk(lampe)┆f0┆ der kaldes.↲
↲
Programmet kan f.eks. bruges af de elever der har svært ↓
ved at programmere lyskurvene med deres ┆b0┆egne┆f0┆ COMAL80-↓
┆19┆┄┆81┆┄programmer. Fortæl dem at de blot skal bruge ↓
┆19┆┄┆81┆┄arbejdsarkene og derefter indsætte EXEC-sætningerne i ↓
┆19┆┄┆81┆┄toppen af programmet!↲
↲
┆b0┆"TRAFIK-1"┆f0┆ og ┆b0┆"TRAFIK-2"┆f0┆ er identiske med "TRAFIK".↲
↲
"TRAFIK-1" indeholder EXEC-sætninger svarende til at ↓
RØD(1) blinker:↲
↲
┆b0┆0010 // "TRAFIK-1"↲
┆b0┆0020 PROC blink↲
┆b0┆0030 EXEC tænd(rød1)↲
┆b0┆0040 EXEC pause(1)↲
┆b0┆0050 EXEC sluk(rød1)↲
┆b0┆0060 EXEC pause(1)↲
┆b0┆0070 ENDPROC blink↲
↲
------------------------------------------------------↲
↲
"TRAFIK-2" styrer et enkelt 3-lys:↲
↲
┆b0┆0010 // "TRAFIK-2"↲
┆b0┆0020 PROC blink↲
┆b0┆0030 EXEC tænd(rød2)↲
┆b0┆0040 EXEC pause(6)↲
┆b0┆0050 EXEC tænd(gul2)↲
┆b0┆0060 EXEC pause(2)↲
┆b0┆0070 EXEC sluk(rød2)↲
┆b0┆0080 EXEC sluk(gul2)↲
┆b0┆0090 EXEC tænd(grøn2)↲
┆b0┆0100 EXEC pause(6)↲
┆b0┆0110 EXEC sluk(grøn2)↲
┆b0┆0120 EXEC tænd(gul2)↲
┆b0┆0130 EXEC pause(3)↲
┆b0┆0140 EXEC sluk(gul2)↲
┆b0┆0150 ENDPROC blink↲
↲
------------------------------------------------------↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
┆b0┆"TRAFIK":↲
════════════════════════════════════════════════════════════════════════
↓
↲
┆1a┆┆1a┆ 1: CHR$(33); //RØD(3)+GRØN(2)↲
0050 EXEC pause(6)↲
┆b0┆0060 PRI
0x0000…0020 (0,) 00 00 00 00 00 00 00 00 46 01 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ F N ┆
0x0020…0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0040…0047 00 00 00 00 00 00 00 ┆ ┆
0x0047…0080 Params {
0x0047…0080 04 00 2d 4e 0a 00 06 00 00 00 00 02 08 4e 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N N1@ ┆
0x0047…0080 00 00 00 00 00 00 00 00 0c 16 20 2a 34 3e 48 52 5c 66 70 7a 84 8e 98 ff 04 ┆ *4>HRØfpz ┆
0x0047…0080 }
0x0080…0083 FormFeed {
0x0080…0083 0c 80 82 ┆ ┆
0x0080…0083 }
0x0083…00a0 0a 14 b3 b0 22 42 52 55 47 20 50 5b 52 45 4e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "BRUG PÆREN" ┆
0x00a0…00c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 52 45 52 54 45 4b ┆ LÆRERTEK┆
0x00c0…00cd 53 54 20 20 20 53 69 64 65 20 0b 0d 0a ┆ST Side ┆
0x00cd…0106 Params {
0x00cd…0106 04 00 2d 4e 0a 00 06 00 00 00 00 02 19 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N A1@ ┆
0x00cd…0106 00 00 00 00 00 00 00 00 1d 27 31 3b 45 4f 59 63 6d 77 81 8b 95 9f a9 ff 04 ┆ '1;EOYcmw ┆
0x00cd…0106 }
0x0106…013f Params {
0x0106…013f 04 00 2d 4e 0a 00 06 00 00 00 00 02 08 4e 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N N1@ ┆
0x0106…013f 00 00 00 00 00 00 00 00 0c 16 20 2a 34 3e 48 52 5c 66 70 7a 84 8e 98 ff 04 ┆ *4>HRØfpz ┆
0x0106…013f }
0x013f…0140 0a ┆ ┆
0x0140…0160 0d 0a 0d 0a 0d 0a b0 b0 4d 41 50 50 45 4e 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ MAPPEN: _______________┆
0x0160…0180 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a ┆__________________________ ┆
0x0180…01a0 20 20 20 20 4c 5b 52 45 52 54 45 4b 53 54 45 4e 3a 0d 0a 2e 2e 2e 20 70 72 6f 67 72 61 6d 6d 65 ┆ LÆRERTEKSTEN: ... programme┆
0x01a0…01c0 72 69 6e 67 73 70 72 69 6e 63 69 70 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 0d 0a 2e 2e 2e ┆ringsprincip for lyspanelet ...┆
0x01c0…01e0 20 66 75 6e 6b 74 69 6f 6e 73 70 72 69 6e 63 69 70 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 ┆ funktionsprincip for lyspanelet┆
0x01e0…0200 0d 0a 2e 2e 2e 20 6c 7b 72 65 72 2d 76 65 6a 6c 65 64 6e 69 6e 67 20 74 69 6c 0d 0a 20 20 20 20 ┆ ... lærer-vejledning til ┆
0x0200…0220 (1,) 75 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 0d 0a 2e 2e 2e 20 70 72 6f ┆undervisningsmaterialet ... pro┆
0x0220…0240 67 72 61 6d 2d 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 0d 0a 20 20 20 20 64 69 73 6b ┆gram-dokumentation for disk┆
0x0240…0260 65 74 74 65 6e 73 20 70 72 6f 67 72 61 6d 6d 65 72 0d 0a 0d 0a 0d 0a 20 20 20 20 45 4c 45 56 54 ┆ettens programmer ELEVT┆
0x0260…0280 45 4b 53 54 45 4e 3a 0d 0a 2e 2e 2e 20 74 65 6f 72 69 0d 0a 2e 2e 2e 20 6f 70 67 61 76 65 72 20 ┆EKSTEN: ... teori ... opgaver ┆
0x0280…02a0 20 20 20 20 28 65 65 6e 20 6c 7c 73 6e 69 6e 67 29 0d 0a 2e 2e 2e 20 70 72 6f 62 6c 65 6d 65 72 ┆ (een løsning) ... problemer┆
0x02a0…02c0 20 20 20 28 66 6c 65 72 65 20 6c 7c 73 6e 69 6e 67 65 72 29 0d 0a 2e 2e 2e 20 74 61 62 65 6c 6c ┆ (flere løsninger) ... tabell┆
0x02c0…02e0 65 72 0d 0a 2e 2e 2e 20 61 72 62 65 6a 64 73 61 72 6b 20 20 28 68 6a 7b 6c 70 20 74 69 6c 20 6c ┆er ... arbejdsark (hjælp til l┆
0x02e0…0300 7c 73 6e 69 6e 67 65 72 29 0d 0a 0d 0a 0d 0a 20 20 20 20 54 45 4b 4e 49 53 4b 20 54 49 4c 4c 5b ┆øsninger) TEKNISK TILLÆ┆
0x0300…0320 47 3a 0d 0a 2e 2e 2e 20 64 61 74 61 62 6c 61 64 20 66 6f 72 20 6c 79 73 70 61 6e 65 6c 0d 0a 2e ┆G: ... datablad for lyspanel .┆
0x0320…0340 2e 2e 20 74 69 6c 73 6c 75 74 6e 69 6e 67 20 61 66 20 6c 79 73 70 61 6e 65 6c 20 74 69 6c 20 0a ┆.. tilslutning af lyspanel til ┆
0x0340…0360 1f 1f 1f 1f 66 6f 72 73 6b 65 6c 6c 69 67 65 0d 0a 20 20 20 20 6d 69 63 72 6f 64 61 74 61 6d 61 ┆ forskellige microdatama┆
0x0360…0380 74 66 61 62 72 69 6b 61 74 65 72 0d 0a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆tfabrikater _________________┆
0x0380…03a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 44 ┆________________________ D┆
0x03a0…03c0 49 53 4b 45 54 54 45 4e 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ISKETTEN: _____________________┆
0x03c0…03e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 20 20 20 20 44 69 ┆____________________ Di┆
0x03e0…0400 73 6b 65 74 74 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 72 20 0d 0a ┆sketten indeholder programmer ┆
0x0400…0420 (2,) 1f 1f 1f 1f 73 6b 72 65 76 65 74 20 69 20 43 4f 4d 41 4c 38 30 20 74 69 6c 3a 0d 0a 2e 2e 2e 20 ┆ skrevet i COMAL80 til: ... ┆
0x0420…0440 65 6c 65 76 62 72 75 67 20 76 65 64 20 6f 70 67 61 76 65 6c 7c 73 6e 69 6e 67 0d 0a 2e 2e 2e 20 ┆elevbrug ved opgaveløsning ... ┆
0x0440…0460 6c 7b 72 65 72 62 72 75 67 20 76 65 64 20 66 72 65 6d 73 74 69 6c 6c 69 6e 67 20 61 66 20 6f 70 ┆lærerbrug ved fremstilling af op┆
0x0460…0480 67 61 76 65 72 0d 0a 20 1f 1f 1f 70 7d 20 70 72 69 6e 74 65 72 2e 0d 0a 2e 2e 2e 20 6c 7c 73 6e ┆gaver på printer. ... løsn┆
0x0480…04a0 69 6e 67 73 65 6b 73 65 6d 70 6c 65 72 20 74 69 6c 20 61 6c 6c 65 20 0d 0a 20 1f 1f 1f 6f 70 67 ┆ingseksempler til alle opg┆
0x04a0…04c0 61 76 65 72 2f 70 72 6f 62 6c 65 6d 65 72 20 69 20 65 6c 65 76 74 65 6b 73 74 65 6e 0d 0a 0d 0a ┆aver/problemer i elevteksten ┆
0x04c0…04e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x04e0…0500 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a b0 4c 59 53 50 41 4e 45 4c 45 54 3a 0d 0a 5f 5f 5f ┆_________ LYSPANELET: ___┆
0x0500…0520 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0520…0540 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 4c 79 73 70 61 6e 65 6c 65 74 20 62 65 73 74 7d 72 20 61 66 ┆______ Lyspanelet består af┆
0x0540…0560 20 65 6e 20 62 6f 6b 73 20 6d 65 64 20 65 6e 20 0a 76 61 6e 64 72 65 74 20 72 7b 6b 6b 65 20 6d ┆ en boks med en vandret række m┆
0x0560…0580 65 64 20 38 20 6c 61 6d 70 65 72 2c 20 73 61 6d 74 20 34 20 0a 6c 79 73 6b 75 72 76 65 3a 20 54 ┆ed 8 lamper, samt 4 lyskurve: T┆
0x0580…05a0 6f 20 6d 65 64 20 20 33 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 75 6c 2d 67 72 7c 6e 29 20 0a ┆o med 3 lamper (rød-gul-grøn) ┆
0x05a0…05c0 6f 67 20 74 6f 20 6d 65 64 20 32 20 20 6c 61 6d 70 65 72 20 28 72 7c 64 2d 67 72 7c 6e 29 2e 20 ┆og to med 2 lamper (rød-grøn). ┆
0x05c0…05e0 20 20 0a 4c 61 6d 70 65 72 6e 65 20 6b 61 6e 20 73 74 79 72 65 73 20 66 72 61 20 6d 69 63 72 6f ┆ Lamperne kan styres fra micro┆
0x05e0…0600 80 64 61 74 61 6d 61 74 65 6e 20 0a 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 73 69 6d 70 6c 65 20 ┆ datamaten ved hjælp af simple ┆
0x0600…0620 (3,) 70 72 6f 67 72 61 6d 6d 65 72 2c 20 68 65 72 20 20 0a 43 4f 4d 41 4c 38 30 2d 70 72 6f 67 72 61 ┆programmer, her COMAL80-progra┆
0x0620…0640 6d 6d 65 72 2c 20 76 69 61 20 65 6e 20 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 20 0a 6d 65 64 20 ┆mmer, via en parallelport med ┆
0x0640…0660 38 2d 31 30 20 62 69 74 2e 20 0d 0a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆8-10 bit. __________________┆
0x0660…0679 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a ┆_______________________ ┆
0x0679…067c FormFeed {
0x0679…067c 0c 83 70 ┆ p┆
0x0679…067c }
0x067c…0680 0a 0d 0a 0d ┆ ┆
0x0680…06a0 0a 0d 0a b0 46 4f 52 4f 52 44 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ FORORD: ___________________┆
0x06a0…06c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 44 61 74 61 ┆______________________ Data┆
0x06c0…06e0 6d 61 73 6b 69 6e 65 72 20 61 6e 76 65 6e 64 65 73 20 74 69 6c 20 61 74 20 6c 7c 73 65 20 6d 61 ┆maskiner anvendes til at løse ma┆
0x06e0…0700 6e 67 65 20 0a 66 6f 72 73 6b 65 6c 6c 69 67 65 20 70 72 6f 62 6c 65 6d 65 72 20 69 20 73 61 6d ┆nge forskellige problemer i sam┆
0x0700…0720 66 75 6e 64 65 74 2e 20 4d 61 6e 20 0a 6b 61 6e 20 73 69 67 65 2c 20 61 74 20 64 65 72 20 65 72 ┆fundet. Man kan sige, at der er┆
0x0720…0740 20 74 61 6c 65 20 6f 6d 20 6d 69 6e 64 73 74 20 33 20 0a 70 72 69 6e 63 69 70 69 65 6c 74 20 66 ┆ tale om mindst 3 principielt f┆
0x0740…0760 6f 72 73 6b 65 6c 6c 69 67 65 20 61 6e 80 76 65 6e 80 64 65 6c 80 73 65 73 80 0a 6f 6d 72 7d 64 ┆orskellige an ven del ses områd┆
0x0760…0780 65 72 3a 0d 0a 0d 0a 0d 0a b0 28 31 29 20 20 41 44 4d 49 4e 49 53 54 52 41 54 49 4f 4e 0d 0a b0 ┆er: (1) ADMINISTRATION ┆
0x0780…07a0 28 32 29 20 20 41 55 54 4f 4d 41 54 49 53 45 52 49 4e 47 0d 0a b0 28 33 29 20 20 4b 4f 4d 4d 55 ┆(2) AUTOMATISERING (3) KOMMU┆
0x07a0…07c0 4e 49 4b 41 54 49 4f 4e 0d 0a 0d 0a 0d 0a 45 6d 6e 65 74 20 22 41 55 54 4f 4d 41 54 49 53 45 52 ┆NIKATION Emnet "AUTOMATISER┆
0x07c0…07e0 49 4e 47 22 20 6b 61 6e 20 64 65 6c 65 73 20 69 20 33 20 20 0a 64 65 6c 80 65 6d 6e 65 72 3a 0d ┆ING" kan deles i 3 del emner: ┆
0x07e0…0800 0a 0d 0a b0 28 41 29 20 20 53 54 59 52 49 4e 47 f0 20 20 20 20 20 28 64 61 74 61 20 75 64 20 61 ┆ (A) STYRING (data ud a┆
0x0800…0820 (4,) 66 20 6d 69 63 72 6f 27 65 6e 29 0d 0a b0 28 42 29 20 20 4d 5d 4c 49 4e 47 20 f0 20 20 20 20 20 ┆f micro'en) (B) MÅLING ┆
0x0820…0840 28 64 61 74 61 20 69 6e 64 20 69 20 6d 69 63 72 6f 27 65 6e 29 0d 0a b0 28 43 29 20 20 52 45 47 ┆(data ind i micro'en) (C) REG┆
0x0840…0860 55 4c 45 52 49 4e 47 20 f0 20 20 20 20 20 28 64 61 74 61 20 62 65 67 67 65 20 76 65 6a 65 29 0d ┆ULERING (data begge veje) ┆
0x0860…0880 0a 0d 0a 0d 0a 48 76 69 73 20 64 65 6c 65 6d 6e 65 74 20 b0 22 53 54 59 52 49 4e 47 22 f0 20 73 ┆ Hvis delemnet "STYRING" s┆
0x0880…08a0 6b 61 6c 20 62 65 68 61 6e 64 6c 65 73 20 69 20 0a 19 80 81 80 75 6e 64 65 72 76 69 73 6e 69 6e ┆kal behandles i undervisnin┆
0x08a0…08c0 67 65 6e 20 70 7d 20 65 6e 20 6b 6f 6e 6b 72 65 74 20 6f 67 20 76 69 72 6b 65 6c 69 67 80 0a 19 ┆gen på en konkret og virkelig ┆
0x08c0…08e0 80 81 80 68 65 64 73 6e 7b 72 20 6d 7d 64 65 2c 20 6b 72 7b 76 65 72 20 64 65 74 20 6e 61 74 75 ┆ hedsnær måde, kræver det natu┆
0x08e0…0900 72 6c 69 67 76 69 73 20 61 74 20 0a 19 80 81 80 65 6c 65 76 65 72 6e 65 20 68 61 72 20 6d 75 6c ┆rligvis at eleverne har mul┆
0x0900…0920 69 67 68 65 64 20 66 6f 72 20 73 65 6c 76 20 61 74 20 61 72 62 65 6a 64 65 20 0a 19 80 81 80 6d ┆ighed for selv at arbejde m┆
0x0920…0940 65 64 20 73 74 79 72 69 6e 67 20 61 66 20 65 74 20 73 79 73 74 65 6d 20 75 64 65 6e 66 6f 72 20 ┆ed styring af et system udenfor ┆
0x0940…0960 73 65 6c 76 65 20 0a 19 80 81 80 64 61 74 61 6d 61 73 6b 69 6e 65 6e 2e 20 44 65 74 20 6b 72 7b ┆selve datamaskinen. Det kræ┆
0x0960…0980 76 65 72 20 64 65 73 75 64 65 6e 20 69 6e 74 65 72 80 0a 19 80 81 80 66 61 63 65 80 75 64 73 74 ┆ver desuden inter face udst┆
0x0980…09a0 79 72 20 74 69 6c 20 73 61 6d 6d 65 6e 6b 6f 62 6c 69 6e 67 20 61 66 20 64 65 74 20 0a 19 80 81 ┆yr til sammenkobling af det ┆
0x09a0…09c0 80 65 6b 73 74 65 72 6e 65 20 75 64 73 74 79 72 20 6f 67 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 ┆ eksterne udstyr og microdatamat┆
0x09c0…09e0 65 6e 2e 0d 0a 0d 0a 0d 0a 54 69 6c 20 22 42 52 55 47 20 50 5b 52 45 4e 22 20 68 7c 72 65 72 20 ┆en. Til "BRUG PÆREN" hører ┆
0x09e0…0a00 65 74 20 6c 79 73 70 61 6e 65 6c 20 6d 65 64 20 0a 73 6d 7d 20 70 7b 72 65 72 20 70 7d 20 66 72 ┆et lyspanel med små pærer på fr┆
0x0a00…0a20 (5,) 6f 6e 74 70 6c 61 64 65 6e 2c 20 64 65 72 20 6b 61 6e 20 73 74 79 72 65 73 20 0a 6d 65 64 20 66 ┆ontpladen, der kan styres med f┆
0x0a20…0a40 2e 65 6b 73 2e 20 43 4f 4d 41 4c 38 30 2d 70 72 6f 67 72 61 6d 6d 65 72 2e 20 4c 79 73 70 61 6e ┆.eks. COMAL80-programmer. Lyspan┆
0x0a40…0a60 65 6c 65 74 20 0a 69 6e 64 65 68 6f 6c 64 65 72 20 64 65 73 75 64 65 6e 20 69 6e 74 65 72 66 61 ┆elet indeholder desuden interfa┆
0x0a60…0a80 63 65 20 74 69 6c 20 70 7b 72 65 72 6e 65 20 0a 73 7d 20 64 65 74 20 64 69 72 65 6b 74 65 20 6b ┆ce til pærerne så det direkte k┆
0x0a80…0aa0 61 6e 20 74 69 6c 73 6c 75 74 74 65 73 20 65 6e 20 6d 69 63 72 6f 80 0a 64 61 74 61 6d 61 74 2e ┆an tilsluttes en micro datamat.┆
0x0aa0…0ac0 0d 0a 0d 0a 0d 0a 55 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 20 22 42 ┆ Undervisningsmaterialet "B┆
0x0ac0…0ae0 52 55 47 20 50 5b 52 45 4e 22 20 73 6b 61 6c 20 0a 64 65 72 66 6f 72 20 73 65 73 20 73 6f 6d 20 ┆RUG PÆREN" skal derfor ses som ┆
0x0ae0…0b00 65 6e 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 2c 20 70 7d 20 65 6e 20 0a 73 69 6d 70 65 6c 20 6f ┆en mulighed for, på en simpel o┆
0x0b00…0b20 67 20 6b 6f 6e 6b 72 65 74 20 6d 7d 64 65 2c 20 61 74 20 62 65 68 61 6e 64 6c 65 20 65 6d 6e 65 ┆g konkret måde, at behandle emne┆
0x0b20…0b40 74 20 0a b0 22 53 54 59 52 49 4e 47 22 f0 20 69 20 64 65 6e 20 65 6c 65 6d 65 6e 74 7b 72 65 20 ┆t "STYRING" i den elementære ┆
0x0b40…0b60 64 61 74 61 6c 7b 72 65 80 0a 19 80 81 80 75 6e 64 65 72 76 69 73 80 6e 69 6e 67 2e 0d 0a 0d 0a ┆datalære undervis ning. ┆
0x0b60…0b80 0d 0a 55 64 65 6e 20 61 73 73 69 73 74 61 6e 63 65 20 66 72 61 20 6b 6f 6c 6c 65 67 65 72 2c 20 ┆ Uden assistance fra kolleger, ┆
0x0b80…0ba0 69 20 66 6f 72 6d 20 61 66 20 20 0a 61 66 70 72 7c 76 6e 69 6e 67 2c 20 69 64 65 65 72 20 6f 67 ┆i form af afprøvning, ideer og┆
0x0ba0…0bc0 20 6b 72 69 74 69 6b 2c 20 76 61 72 20 22 42 52 55 47 20 0a 50 5b 52 45 4e 22 20 69 6b 6b 65 20 ┆ kritik, var "BRUG PÆREN" ikke ┆
0x0bc0…0be0 62 6c 65 76 65 74 20 6c 61 76 65 74 2e 20 0d 0a 0d 0a 0d 0a 54 61 6b 20 66 6f 72 20 68 6a 7b 6c ┆blevet lavet. Tak for hjæl┆
0x0be0…0c00 70 65 6e 20 21 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pen ! ┆
0x0c00…0c20 (6,) 20 20 20 20 20 20 20 20 43 48 52 49 53 54 49 41 4e 20 57 41 4e 47 0d 0a 20 20 20 20 20 20 20 20 ┆ CHRISTIAN WANG ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 44 45 4e 53 45 20 31 39 38 ┆ ODENSE 198┆
0x0c40…0c60 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 ┆
0x0c60…0c6e 20 20 20 31 2e 20 55 44 47 41 56 45 0d 0a ┆ 1. UDGAVE ┆
0x0c6e…0c71 FormFeed {
0x0c6e…0c71 0c 84 80 ┆ ┆
0x0c6e…0c71 }
0x0c71…0c72 0a ┆ ┆
0x0c72…0cab Params {
0x0c72…0cab 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 49 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N I1@ ┆
0x0c72…0cab 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a a4 ff 04 ┆ ",6@JT^hrø ┆
0x0c72…0cab }
0x0cab…0ce4 Params {
0x0cab…0ce4 04 00 2d 4e 0a 00 06 00 00 00 00 02 19 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N A1@ ┆
0x0cab…0ce4 00 00 00 00 00 00 00 00 1d 27 31 3b 45 4f 59 63 6d 77 81 8b 95 9f a9 ff 04 ┆ '1;EOYcmw ┆
0x0cab…0ce4 }
0x0ce4…0d00 0a 0d 0a 0d 0a 0d 0a b0 50 52 49 4e 43 49 50 50 45 54 20 42 41 47 20 50 52 4f 47 52 ┆ PRINCIPPET BAG PROGR┆
0x0d00…0d20 41 4d 4d 45 52 49 4e 47 45 4e 20 41 46 20 4c 59 53 50 41 4e 45 4c 45 54 3a 20 0d 0a 5f 5f 5f 5f ┆AMMERINGEN AF LYSPANELET: ____┆
0x0d20…0d40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0d40…0d60 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 45 6e 68 76 65 72 20 6d 69 63 72 ┆_________________ Enhver micr┆
0x0d60…0d80 6f 64 61 74 61 6d 61 74 20 65 72 20 75 64 73 74 79 72 65 74 20 6d 65 64 20 73 74 69 6b 20 66 6f ┆odatamat er udstyret med stik fo┆
0x0d80…0da0 72 20 0a 74 69 6c 6b 6f 62 6c 69 6e 67 20 61 66 20 66 6f 72 73 6b 65 6c 6c 69 67 74 20 75 64 73 ┆r tilkobling af forskelligt uds┆
0x0da0…0dc0 74 79 72 3a 0d 0a 54 41 53 54 41 54 55 52 2c 20 50 52 49 4e 54 45 52 2c 20 53 4b 5b 52 4d 2c 20 ┆tyr: TASTATUR, PRINTER, SKÆRM, ┆
0x0dc0…0de0 44 49 53 4b 53 54 41 54 49 4f 4e 2c 20 4d 4f 44 45 4d 2c 20 6d 2e 6d 2e 2e 0d 0a 0d 0a 53 74 69 ┆DISKSTATION, MODEM, m.m.. Sti┆
0x0de0…0e00 6b 6b 65 6e 65 20 65 72 20 66 6f 72 62 75 6e 64 65 74 20 74 69 6c 20 22 49 4e 2f 4f 55 54 22 2d ┆kkene er forbundet til "IN/OUT"-┆
0x0e00…0e20 (7,) 6b 72 65 64 73 6c 7c 62 20 69 20 64 61 74 61 80 0a 6d 61 74 65 6e 2e 20 44 69 73 73 65 20 22 49 ┆kredsløb i data maten. Disse "I┆
0x0e20…0e40 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 65 20 73 7c 72 67 65 72 20 66 6f 72 20 74 72 61 6e 73 80 6d ┆N/OUT"-kredse sørger for trans m┆
0x0e40…0e60 69 73 73 69 6f 6e 20 0a 61 66 20 64 61 74 61 20 69 6e 64 20 6f 67 20 75 64 20 61 66 20 64 61 74 ┆ission af data ind og ud af dat┆
0x0e60…0e80 61 6d 61 74 65 6e 2e 0d 0a 0d 0a 44 65 72 20 66 69 6e 64 65 73 20 74 6f 20 74 79 70 65 72 20 22 ┆amaten. Der findes to typer "┆
0x0e80…0ea0 49 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 65 2e 20 45 6e 20 74 79 70 65 20 62 65 72 65 67 6e 65 74 ┆IN/OUT"-kredse. En type beregnet┆
0x0ea0…0ec0 20 0a 74 69 6c 20 b0 73 65 72 69 65 6c f0 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 2c 20 6f 67 20 ┆ til seriel transmission, og ┆
0x0ec0…0ee0 65 6e 20 74 69 6c 20 b0 70 61 72 61 6c 6c 65 6c f0 20 0a 19 80 82 80 74 72 61 6e 73 6d 69 73 73 ┆en til parallel transmiss┆
0x0ee0…0f00 69 6f 6e 2e 20 42 65 67 67 65 20 74 79 70 65 72 20 65 72 20 75 64 73 74 79 72 65 74 20 6d 65 64 ┆ion. Begge typer er udstyret med┆
0x0f00…0f20 20 6b 6f 6e 74 72 6f 6c 80 0a 19 80 82 80 6c 69 6e 69 65 72 2c 20 64 65 72 20 6b 61 6e 20 73 79 ┆ kontrol linier, der kan sy┆
0x0f20…0f40 6e 6b 72 6f 6e 69 73 65 72 65 20 64 61 74 61 6d 61 74 65 6e 73 20 64 61 74 61 62 65 68 61 6e 64 ┆nkronisere datamatens databehand┆
0x0f40…0f60 6c 69 6e 67 20 0a 19 80 82 80 6d 65 64 20 69 6e 64 2d 20 6f 67 20 75 64 67 7d 65 6e 64 65 20 64 ┆ling med ind- og udgående d┆
0x0f60…0f80 61 74 61 73 74 72 7c 6d 6d 65 2c 20 73 7d 6b 61 6c 64 74 20 22 68 61 6e 64 73 68 61 6b 65 22 20 ┆atastrømme, såkaldt "handshake" ┆
0x0f80…0fa0 0a 19 80 82 80 73 69 67 6e 61 6c 65 72 2e 0d 0a 0d 0a 22 49 4e 2f 4f 55 54 22 2d 6b 72 65 64 73 ┆ signaler. "IN/OUT"-kreds┆
0x0fa0…0fc0 65 6e 65 20 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 6d 65 64 20 74 6f 20 66 6f 72 73 ┆ene kan programmeres med to fors┆
0x0fc0…0fe0 6b 65 6c 6c 69 67 65 20 0a 66 6f 72 6d 7d 6c 20 3a 0d 0a 0d 0a 28 31 29 20 b0 4b 4f 4e 54 52 4f ┆kellige formål : (1) KONTRO┆
0x0fe0…1000 4c f0 20 61 66 20 6b 72 65 64 73 65 6e 65 73 20 66 75 6e 6b 74 69 6f 6e 65 72 2c 20 6f 67 0d 0a ┆L af kredsenes funktioner, og ┆
0x1000…1020 (8,) 0d 0a 28 32 29 20 54 72 61 6e 73 6d 69 73 73 69 6f 6e 20 61 66 20 b0 44 41 54 41 f0 20 67 65 6e ┆ (2) Transmission af DATA gen┆
0x1020…1040 6e 65 6d 20 6b 72 65 64 73 65 6e 65 2e 0d 0a 0d 0a 49 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d ┆nem kredsene. I forbindelse m┆
0x1040…1060 65 64 20 75 6e 64 65 72 76 69 73 6e 69 6e 67 73 6d 61 74 65 72 69 61 6c 65 74 20 0d 0a 22 42 52 ┆ed undervisningsmaterialet "BR┆
0x1060…1080 55 47 20 50 5b 52 45 4e 22 20 6f 67 20 64 65 74 20 74 69 6c 68 7c 72 65 6e 64 65 20 4c 59 53 50 ┆UG PÆREN" og det tilhørende LYSP┆
0x1080…10a0 41 4e 45 4c 2c 20 62 65 6e 79 74 74 65 73 20 0a b0 50 41 52 41 4c 4c 45 4c 50 4f 52 54 45 4e 20 ┆ANEL, benyttes PARALLELPORTEN ┆
0x10a0…10c0 74 69 6c 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 61 66 20 64 61 74 61 20 75 64 20 61 66 20 6d ┆til transmission af data ud af m┆
0x10c0…10e0 69 63 72 6f 27 65 6e f0 20 0a 19 80 81 80 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a 0d ┆icro'en til lyspanelet: ┆
0x10e0…1100 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d ┆ ┆
0x1100…1120 0a 0d 0a 0d 0a 48 76 69 73 20 76 69 20 67 7d 72 20 75 64 20 66 72 61 2c 20 61 74 20 4c 59 53 50 ┆ Hvis vi går ud fra, at LYSP┆
0x1120…1140 41 4e 45 4c 45 54 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 20 65 6e 0d 0a b0 38 20 42 49 54 53 ┆ANELET er tilsluttet en 8 BITS┆
0x1140…1160 20 50 41 52 41 4c 4c 45 4c 50 4f 52 54 f0 2c 20 73 7d 20 62 65 74 79 64 65 72 20 64 65 74 2c 20 ┆ PARALLELPORT , så betyder det, ┆
0x1160…1180 61 74 20 64 65 20 38 20 6c 61 6d 70 65 72 20 70 7d 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 ┆at de 8 lamper på lyspanele┆
0x1180…11a0 74 20 65 72 20 66 6f 72 62 75 6e 64 65 74 20 6d 65 64 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 65 ┆t er forbundet med microdatamate┆
0x11a0…11c0 6e 20 6d 65 64 20 68 76 65 72 20 0a 19 80 81 80 73 69 6e 20 6c 65 64 6e 69 6e 67 20 73 61 6d 74 ┆n med hver sin ledning samt┆
0x11c0…11e0 20 65 6e 20 73 74 65 6c 66 6f 72 62 69 6e 64 65 6c 73 65 2e 20 44 69 73 73 65 20 38 20 6c 65 64 ┆ en stelforbindelse. Disse 8 led┆
0x11e0…1200 6e 69 6e 67 65 72 20 0a 19 80 81 80 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 74 69 6c ┆ninger kan programmeres til┆
0x1200…1220 (9,) 20 61 74 20 68 61 76 65 20 65 6e 20 65 6c 65 6b 74 72 69 73 6b 20 73 70 7b 6e 64 69 6e 67 20 70 ┆ at have en elektrisk spænding p┆
0x1220…1240 7d 20 0a 19 80 81 80 68 2e 68 2e 76 2e 20 30 20 56 6f 6c 74 20 6f 67 20 63 61 2e 20 2b 34 20 56 ┆å h.h.v. 0 Volt og ca. +4 V┆
0x1240…1260 6f 6c 74 2e 20 44 65 72 20 65 72 20 6b 75 6e 20 64 69 73 73 65 20 74 6f 20 0a 19 80 81 80 6d 75 ┆olt. Der er kun disse to mu┆
0x1260…1280 6c 69 67 68 65 64 65 72 3a 20 b0 4c 41 56 f0 20 6f 67 20 b0 48 5c 4a f0 20 73 70 7b 6e 64 69 6e ┆ligheder: LAV og HØJ spændin┆
0x1280…12a0 67 2c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 74 61 6c 6c 65 6e 65 20 0a 19 80 83 80 22 30 22 ┆g, svarende til tallene "0"┆
0x12a0…12c0 20 6f 67 20 22 31 22 20 69 20 64 65 74 20 62 69 6e 7b 72 65 20 74 61 6c 73 79 73 74 65 6d 2c 20 ┆ og "1" i det binære talsystem, ┆
0x12c0…12d0 74 6f 74 61 6c 73 79 73 74 65 6d 65 74 2e 0d 0a ┆totalsystemet. ┆
0x12d0…12d3 FormFeed {
0x12d0…12d3 0c 83 58 ┆ X┆
0x12d0…12d3 }
0x12d3…12e0 0a 0d 0a 0d 0a 0d 0a 5c 6e 73 6b 65 72 ┆ Ønsker┆
0x12e0…1300 20 6d 61 6e 20 61 74 20 74 7b 6e 64 65 20 6f 67 20 73 6c 75 6b 6b 65 20 66 6f 72 20 6c 61 6d 70 ┆ man at tænde og slukke for lamp┆
0x1300…1320 65 72 6e 65 20 70 7d 20 0a 6c 79 73 70 61 6e 65 6c 65 74 2c 20 73 6b 61 6c 20 6d 61 6e 20 66 6f ┆erne på lyspanelet, skal man fo┆
0x1320…1340 72 65 73 74 69 6c 6c 65 20 73 69 67 20 68 76 65 72 20 6c 61 6d 70 65 20 0a 73 76 61 72 65 6e 64 ┆restille sig hver lampe svarend┆
0x1340…1360 65 20 74 69 6c 20 65 74 20 63 69 66 66 65 72 20 69 20 65 74 20 62 69 6e 7b 72 74 20 74 61 6c 2e ┆e til et ciffer i et binært tal.┆
0x1360…1380 20 48 76 69 73 20 76 69 20 66 6f 72 20 0a 65 6b 73 65 6d 70 65 6c 20 73 65 6e 64 65 72 20 64 65 ┆ Hvis vi for eksempel sender de┆
0x1380…13a0 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 31 37 34 20 74 69 6c 20 70 61 72 61 6c 6c 65 6c 80 ┆t decimale tal 174 til parallel ┆
0x13a0…13c0 0a 70 6f 72 74 65 6e 2c 20 76 69 6c 20 6c 61 6d 70 65 72 6e 65 20 6c 79 73 65 20 73 76 61 72 65 ┆ porten, vil lamperne lyse svare┆
0x13c0…13e0 6e 64 65 20 74 69 6c 20 31 37 34 20 6f 6d 73 61 74 20 74 69 6c 20 0a 65 74 20 38 2d 63 69 66 72 ┆nde til 174 omsat til et 8-cifr┆
0x13e0…1400 65 74 20 62 69 6e 7b 72 74 20 74 61 6c 3a 20 20 20 b0 31 30 31 30 31 31 31 30 f0 20 20 20 2c 68 ┆et binært tal: 10101110 ,h┆
0x1400…1420 (10,) 76 6f 72 20 63 69 66 72 65 74 20 0a 19 80 81 80 6c 7b 6e 67 73 74 20 74 69 6c 20 68 7c 6a 72 65 ┆vor cifret længst til højre┆
0x1420…1440 20 65 72 20 42 49 54 28 30 29 2c 20 6f 67 20 63 69 66 72 65 74 20 6c 7b 6e 67 73 74 20 74 69 6c ┆ er BIT(0), og cifret længst til┆
0x1440…1460 20 0a 19 80 81 80 76 65 6e 73 74 72 65 20 65 72 20 42 49 54 28 37 29 2e 0d 0a 0d 0a 48 76 69 73 ┆ venstre er BIT(7). Hvis┆
0x1460…1480 20 6d 61 6e 20 7c 6e 73 6b 65 72 20 61 74 20 74 7b 6e 64 65 20 66 6f 72 20 65 6e 20 65 6e 6b 65 ┆ man ønsker at tænde for en enke┆
0x1480…14a0 6c 74 20 6c 61 6d 70 65 20 61 64 20 0a 67 61 6e 67 65 6e 2c 20 73 6b 61 6c 20 64 69 73 73 65 20 ┆lt lampe ad gangen, skal disse ┆
0x14a0…14c0 74 61 6c 20 62 65 6e 79 74 74 65 73 3a 0d 0a 0d 0a 0d 0a 0d 0a 42 49 54 3a 20 20 20 20 20 42 49 ┆tal benyttes: BIT: BI┆
0x14c0…14e0 4e 5b 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 43 49 4d 41 4c 3a 0d 0a 2d 2d 2d 2d ┆NÆR: DECIMAL: ----┆
0x14e0…1500 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d ┆--- --------------- -------┆
0x1500…1520 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 42 49 54 28 30 29 3a 20 20 30 20 30 20 30 20 30 20 30 20 30 20 ┆------- BIT(0): 0 0 0 0 0 0 ┆
0x1520…1540 30 20 31 20 20 3d 20 20 20 20 31 20 20 28 20 3d 20 32 5e 30 20 29 0d 0a 42 49 54 28 31 29 3a 20 ┆0 1 = 1 ( = 2^0 ) BIT(1): ┆
0x1540…1560 20 30 20 30 20 30 20 30 20 30 20 30 20 31 20 30 20 20 3d 20 20 20 20 32 20 20 28 20 3d 20 32 5e ┆ 0 0 0 0 0 0 1 0 = 2 ( = 2^┆
0x1560…1580 31 20 29 0d 0a 42 49 54 28 32 29 3a 20 20 30 20 30 20 30 20 30 20 30 20 31 20 30 20 30 20 20 3d ┆1 ) BIT(2): 0 0 0 0 0 1 0 0 =┆
0x1580…15a0 20 20 20 20 34 20 20 28 20 3d 20 32 5e 32 20 29 0d 0a 42 49 54 28 33 29 3a 20 20 30 20 30 20 30 ┆ 4 ( = 2^2 ) BIT(3): 0 0 0┆
0x15a0…15c0 20 30 20 31 20 30 20 30 20 30 20 20 3d 20 20 20 20 38 20 20 28 20 3d 20 32 5e 33 20 29 0d 0a 42 ┆ 0 1 0 0 0 = 8 ( = 2^3 ) B┆
0x15c0…15e0 49 54 28 34 29 3a 20 20 30 20 30 20 30 20 31 20 30 20 30 20 30 20 30 20 20 3d 20 20 20 31 36 20 ┆IT(4): 0 0 0 1 0 0 0 0 = 16 ┆
0x15e0…1600 20 28 20 3d 20 32 5e 34 20 29 0d 0a 42 49 54 28 35 29 3a 20 20 30 20 30 20 31 20 30 20 30 20 30 ┆ ( = 2^4 ) BIT(5): 0 0 1 0 0 0┆
0x1600…1620 (11,) 20 30 20 30 20 20 3d 20 20 20 33 32 20 20 28 20 3d 20 32 5e 35 20 29 0d 0a 42 49 54 28 36 29 3a ┆ 0 0 = 32 ( = 2^5 ) BIT(6):┆
0x1620…1640 20 20 30 20 31 20 30 20 30 20 30 20 30 20 30 20 30 20 20 3d 20 20 20 36 34 20 20 28 20 3d 20 32 ┆ 0 1 0 0 0 0 0 0 = 64 ( = 2┆
0x1640…1660 5e 36 20 29 0d 0a 42 49 54 28 37 29 3a 20 20 31 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 20 ┆^6 ) BIT(7): 1 0 0 0 0 0 0 0 ┆
0x1660…1680 3d 20 20 31 32 38 20 20 28 20 3d 20 32 5e 37 20 29 0d 0a 0d 0a 0d 0a 0d 0a 41 6c 6c 65 20 62 69 ┆= 128 ( = 2^7 ) Alle bi┆
0x1680…16a0 74 73 20 73 7b 74 74 65 73 20 22 48 5c 4a 45 22 20 76 65 64 20 61 74 20 73 65 6e 64 65 20 64 65 ┆ts sættes "HØJE" ved at sende de┆
0x16a0…16c0 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 0a 32 35 35 20 28 3d 31 32 38 2b 36 34 2b 33 32 2b ┆t decimale tal 255 (=128+64+32+┆
0x16c0…16e0 31 36 2b 38 2b 34 2b 32 2b 31 20 29 20 74 69 6c 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 65 6e 20 ┆16+8+4+2+1 ) til parallelporten ┆
0x16e0…1700 21 0d 0a 0d 0a 0d 0a 4d 65 64 20 68 65 6e 73 79 6e 20 74 69 6c 20 70 72 6f 67 72 61 6d 6d 65 72 ┆! Med hensyn til programmer┆
0x1700…1720 69 6e 67 20 61 66 20 6c 79 73 70 61 6e 65 6c 65 74 20 69 20 43 4f 4d 41 4c 38 30 20 0a 68 65 6e ┆ing af lyspanelet i COMAL80 hen┆
0x1720…1740 76 69 73 65 73 20 74 69 6c 20 61 66 73 6e 69 74 74 65 74 20 6d 65 64 20 70 72 6f 67 72 61 6d 64 ┆vises til afsnittet med programd┆
0x1740…1760 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 65 6e 20 69 20 0a 6c 7b 72 65 72 76 65 6a 6c 65 64 6e 69 6e ┆okumentationen i lærervejlednin┆
0x1760…1766 67 65 6e 2e 0d 0a ┆gen. ┆
0x1766…1769 FormFeed {
0x1766…1769 0c 82 b0 ┆ ┆
0x1766…1769 }
0x1769…1780 0a 0d 0a 0d 0a 0d 0a b0 50 52 49 4e 43 49 50 50 45 54 20 42 41 47 20 ┆ PRINCIPPET BAG ┆
0x1780…17a0 4c 59 53 50 41 4e 45 4c 45 54 53 20 56 49 52 4b 45 4d 5d 44 45 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f ┆LYSPANELETS VIRKEMÅDE: ________┆
0x17a0…17c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x17c0…17e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 53 6f 6d 20 6e 7b 76 6e 74 20 6c 65 76 ┆_____________ Som nævnt lev┆
0x17e0…1800 65 72 65 72 20 6d 69 63 72 6f 27 65 6e 20 75 64 67 61 6e 67 73 73 70 7b 6e 64 69 6e 67 65 72 20 ┆erer micro'en udgangsspændinger ┆
0x1800…1820 (12,) 70 7d 20 65 6e 74 65 6e 20 0a 30 20 76 6f 6c 74 20 28 4c 41 56 20 73 70 7b 6e 64 69 6e 67 29 2c ┆på enten 0 volt (LAV spænding),┆
0x1820…1840 20 65 6c 6c 65 72 20 63 61 2e 20 2b 34 20 76 6f 6c 74 20 28 48 5c 4a 20 0a 73 70 7b 6e 64 69 6e ┆ eller ca. +4 volt (HØJ spændin┆
0x1840…1860 67 29 2e 20 53 74 72 7c 6d 73 74 79 72 6b 65 6e 20 70 7d 20 64 65 74 20 22 68 7c 6a 65 22 20 73 ┆g). Strømstyrken på det "høje" s┆
0x1860…1880 69 67 6e 61 6c 20 66 72 61 20 0a 70 61 72 61 6c 6c 65 6c 70 6f 72 74 65 6e 20 65 72 20 69 6d 69 ┆ignal fra parallelporten er imi┆
0x1880…18a0 64 6c 65 72 74 69 64 20 61 6c 74 20 66 6f 72 20 6c 69 6c 6c 65 20 74 69 6c 20 61 74 20 0a 74 7b ┆dlertid alt for lille til at tæ┆
0x18a0…18c0 6e 64 65 20 66 6f 72 20 65 6e 20 70 7b 72 65 20 64 69 72 65 6b 74 65 2e 20 53 69 67 6e 61 6c 65 ┆nde for en pære direkte. Signale┆
0x18c0…18e0 74 20 62 72 75 67 65 73 20 64 65 72 66 6f 72 20 6b 75 6e 20 0a 74 69 6c 20 61 74 20 74 7b 6e 64 ┆t bruges derfor kun til at tænd┆
0x18e0…1900 65 20 66 6f 72 20 65 6e 20 61 66 62 72 79 64 65 72 2c 20 65 74 20 65 6c 65 6b 74 72 6f 6e 69 73 ┆e for en afbryder, et elektronis┆
0x1900…1920 6b 20 72 65 6c 7b 2c 20 64 65 72 20 0a 7d 62 6e 65 72 20 66 6f 72 20 65 6e 20 65 6c 65 6b 74 72 ┆k relæ, der åbner for en elektr┆
0x1920…1940 69 73 6b 20 73 74 72 7c 6d 20 64 65 72 20 65 72 20 73 74 7b 72 6b 20 6e 6f 6b 20 74 69 6c 20 0a ┆isk strøm der er stærk nok til ┆
0x1940…1960 61 74 20 66 7d 20 70 7b 72 65 6e 20 74 69 6c 20 61 74 20 6c 79 73 65 2e 0d 0a 0d 0a 2d 2d 2d 2d ┆at få pæren til at lyse. ----┆
0x1960…1980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1980…19a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 7d 72 20 42 49 54 28 30 29 ┆------------------ Når BIT(0)┆
0x19a0…19c0 20 73 7b 74 74 65 73 20 4c 41 56 2c 20 66 6f 72 62 69 6e 64 65 72 20 72 65 6c 7b 65 74 20 22 4c ┆ sættes LAV, forbinder relæet "L┆
0x19c0…19e0 31 22 20 6d 65 64 20 20 20 20 20 20 0a 22 2b 31 32 20 76 6f 6c 74 22 2e 20 44 65 74 20 62 65 74 ┆1" med "+12 volt". Det bet┆
0x19e0…1a00 79 64 65 72 2c 20 61 74 20 64 65 72 20 65 72 20 65 6e 20 65 6c 65 6b 74 72 69 73 6b 20 0a 73 70 ┆yder, at der er en elektrisk sp┆
0x1a00…1a20 (13,) 7b 6e 64 69 6e 67 20 70 7d 20 2b 31 32 20 76 6f 6c 74 20 70 7d 20 b0 62 65 67 67 65 f0 20 73 69 ┆ænding på +12 volt på begge si┆
0x1a20…1a40 64 65 72 20 61 66 20 70 7b 72 65 6e 2c 20 61 6c 74 73 7d 20 0a 19 80 81 80 69 6e 67 65 6e 20 73 ┆der af pæren, altså ingen s┆
0x1a40…1a60 70 7b 6e 64 69 6e 67 73 2d b0 66 6f 72 73 6b 65 6c f0 2c 20 6f 67 20 64 65 6e 20 6c 79 73 65 72 ┆pændings- forskel , og den lyser┆
0x1a60…1a80 20 64 65 72 66 6f 72 20 69 6b 6b 65 3a 20 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a ┆ derfor ikke: ┆
0x1a80…1aa0 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a b0 20 20 20 20 20 20 20 20 20 20 42 49 54 28 30 29 20 4c 41 ┆ BIT(0) LA┆
0x1aa0…1ac0 56 20 20 3d 20 20 42 49 54 28 30 29 2d 50 5b 52 45 4e 20 53 4c 55 4b 4b 45 54 20 21 21 0d 0a 0d ┆V = BIT(0)-PÆREN SLUKKET !! ┆
0x1ac0…1ae0 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x1ae0…1b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 7d 72 20 42 ┆----------------------- Når B┆
0x1b00…1b20 49 54 28 30 29 20 73 7b 74 74 65 73 20 48 5c 4a 2c 20 66 6f 72 62 69 6e 64 65 72 20 72 65 6c 7b ┆IT(0) sættes HØJ, forbinder relæ┆
0x1b20…1b40 65 74 20 22 4c 31 22 20 6d 65 64 0a 22 30 20 76 6f 6c 74 22 2e 20 44 65 74 20 62 65 74 79 64 65 ┆et "L1" med "0 volt". Det betyde┆
0x1b40…1b60 72 2c 20 61 74 20 64 65 72 20 65 72 20 65 6e 20 73 70 7b 6e 64 69 6e 67 20 70 7d 20 30 20 76 6f ┆r, at der er en spænding på 0 vo┆
0x1b60…1b80 6c 74 20 0a 70 7d 20 64 65 6e 20 65 6e 65 20 73 69 64 65 20 61 66 20 70 7b 72 65 6e 2c 20 6f 67 ┆lt på den ene side af pæren, og┆
0x1b80…1ba0 20 65 6e 20 73 70 7b 6e 64 69 6e 67 20 70 7d 20 2b 36 20 76 6f 6c 74 20 70 7d 20 0a 64 65 6e 20 ┆ en spænding på +6 volt på den ┆
0x1ba0…1bc0 61 6e 64 65 6e 20 73 69 64 65 2c 20 6f 67 20 70 7b 72 65 6e 20 6c 79 73 65 72 20 64 65 72 66 6f ┆anden side, og pæren lyser derfo┆
0x1bc0…1be0 72 3a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a ┆r: ┆
0x1be0…1c00 b0 20 20 20 20 20 20 20 20 20 20 42 49 54 28 30 29 20 48 5c 4a 20 20 3d 20 20 42 49 54 28 30 29 ┆ BIT(0) HØJ = BIT(0)┆
0x1c00…1c20 (14,) 2d 50 5b 52 45 4e 20 54 5b 4e 44 54 20 21 21 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-PÆREN TÆNDT !! ------------┆
0x1c20…1c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1c40…1c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 41 6c 6c 65 20 6c 61 6d 70 65 72 20 70 7d 20 6c 79 73 ┆---------- Alle lamper på lys┆
0x1c60…1c80 70 61 6e 65 6c 65 74 20 74 7b 6e 64 65 72 20 6f 67 20 73 6c 75 6b 6b 65 72 20 65 66 74 65 72 20 ┆panelet tænder og slukker efter ┆
0x1c80…1c91 0a 64 65 74 74 65 20 70 72 69 6e 63 69 70 2e 0d 0a ┆ dette princip. ┆
0x1c91…1c94 FormFeed {
0x1c91…1c94 0c 84 80 ┆ ┆
0x1c91…1c94 }
0x1c94…1ca0 0a 0d 0a 0d 0a 0d 0a b0 4c 5b 52 45 ┆ LÆRE┆
0x1ca0…1cc0 52 2d 56 45 4a 4c 45 44 4e 49 4e 47 20 54 49 4c 20 55 4e 44 45 52 56 49 53 4e 49 4e 47 53 4d 41 ┆R-VEJLEDNING TIL UNDERVISNINGSMA┆
0x1cc0…1ce0 54 45 52 49 41 4c 45 54 3a 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆TERIALET: _____________________┆
0x1ce0…1d00 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1d00…1d20 0d 0a 0d 0a 0d 0a b0 46 6f 72 6d 7d 6c 65 74 20 6d 65 64 20 22 42 52 55 47 20 50 5b 52 45 4e 22 ┆ Formålet med "BRUG PÆREN"┆
0x1d20…1d40 20 3a 0d 0a 0d 0a b0 28 31 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 76 69 ┆ : (1) : At give eleverne vi┆
0x1d40…1d60 64 65 6e 20 6f 6d 20 6f 67 20 66 7b 72 64 69 67 68 65 64 65 72 20 69 20 0a 19 80 81 80 61 6e 76 ┆den om og færdigheder i anv┆
0x1d60…1d80 65 6e 64 65 6c 73 65 20 61 66 20 64 61 74 61 6d 61 73 6b 69 6e 65 6e 20 74 69 6c 20 73 74 79 72 ┆endelse af datamaskinen til styr┆
0x1d80…1da0 69 6e 67 20 61 66 20 65 6e 20 79 64 72 65 20 0a 19 80 81 80 65 6e 68 65 64 2e 0d 0a 0d 0a b0 28 ┆ing af en ydre enhed. (┆
0x1da0…1dc0 32 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 66 7b 72 64 69 67 68 65 64 65 ┆2) : At give eleverne færdighede┆
0x1dc0…1de0 72 20 69 20 61 74 20 6c 7c 73 65 20 73 69 6d 70 6c 65 20 0a 19 80 81 80 6b 6f 6e 6b 72 65 74 65 ┆r i at løse simple konkrete┆
0x1de0…1e00 20 70 72 6f 62 6c 65 6d 65 72 20 61 66 20 61 6c 67 6f 72 69 74 6d 69 73 6b 20 61 72 74 20 76 65 ┆ problemer af algoritmisk art ve┆
0x1e00…1e20 (15,) 64 20 68 6a 7b 6c 70 20 61 66 20 65 6e 20 0a 19 80 81 80 6d 69 63 72 6f 64 61 74 61 6d 61 74 2e ┆d hjælp af en microdatamat.┆
0x1e20…1e40 0d 0a 0d 0a b0 28 33 29 f0 3a 20 41 74 20 67 69 76 65 20 65 6c 65 76 65 72 6e 65 20 76 69 64 65 ┆ (3) : At give eleverne vide┆
0x1e40…1e60 6e 20 6f 6d 20 64 61 74 61 6d 61 73 6b 69 6e 65 6e 73 20 0a 19 80 81 80 70 72 69 6e 63 69 70 69 ┆n om datamaskinens principi┆
0x1e60…1e80 65 6c 6c 65 20 6f 70 62 79 67 6e 69 6e 67 20 6f 67 20 76 69 72 6b 65 6d 7d 64 65 2e 0d 0a 0d 0a ┆elle opbygning og virkemåde. ┆
0x1e80…1ea0 0d 0a b0 49 6e 64 68 6f 6c 64 3a 20 0d 0a 0d 0a 2e 2e 2e 2e 20 42 49 4e 5b 52 45 20 4f 47 20 44 ┆ Indhold: .... BINÆRE OG D┆
0x1ea0…1ec0 45 43 49 4d 41 4c 45 20 54 41 4c 0d 0a 2e 2e 2e 2e 20 41 53 43 49 49 2d 56 5b 52 44 49 45 52 0d ┆ECIMALE TAL .... ASCII-VÆRDIER ┆
0x1ec0…1ee0 0a 2e 2e 2e 2e 20 53 4b 52 49 46 54 2d 54 45 47 4e 0d 0a 2e 2e 2e 2e 20 46 55 4e 4b 54 49 4f 4e ┆ .... SKRIFT-TEGN .... FUNKTION┆
0x1ee0…1f00 53 2d 54 45 47 4e 20 28 46 55 4e 4b 54 49 4f 4e 53 2d 54 41 53 54 45 52 29 0d 0a 2e 2e 2e 2e 20 ┆S-TEGN (FUNKTIONS-TASTER) .... ┆
0x1f00…1f20 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 41 46 20 44 41 54 41 0d 0a 2e 2e 2e 2e 20 53 54 59 52 49 ┆TRANSMISSION AF DATA .... STYRI┆
0x1f20…1f40 4e 47 20 41 46 20 4c 59 53 50 41 4e 45 4c 45 54 20 28 22 54 5b 4e 44 22 2f 22 53 4c 55 4b 22 29 ┆NG AF LYSPANELET ("TÆND"/"SLUK")┆
0x1f40…1f60 0d 0a 2e 2e 2e 2e 20 22 50 41 55 53 45 22 0d 0a 2e 2e 2e 2e 20 22 42 4c 49 4e 4b 4c 59 53 22 0d ┆ .... "PAUSE" .... "BLINKLYS" ┆
0x1f60…1f80 0a 2e 2e 2e 2e 20 22 52 45 41 4b 54 49 4f 4e 53 54 49 44 22 0d 0a 2e 2e 2e 2e 20 22 46 59 52 22 ┆ .... "REAKTIONSTID" .... "FYR"┆
0x1f80…1fa0 0d 0a 2e 2e 2e 2e 20 22 4d 4f 52 53 45 22 0d 0a 2e 2e 2e 2e 20 22 4c 5c 42 45 4c 59 53 22 0d 0a ┆ .... "MORSE" .... "LØBELYS" ┆
0x1fa0…1fc0 2e 2e 2e 2e 20 22 54 5b 4c 4c 45 22 0d 0a 2e 2e 2e 2e 20 50 4f 52 54 45 0d 0a 2e 2e 2e 2e 20 49 ┆.... "TÆLLE" .... PORTE .... I┆
0x1fc0…1fe0 4e 54 45 52 46 41 43 45 0d 0a 2e 2e 2e 2e 20 22 54 52 41 46 49 4b 4c 59 53 22 0d 0a 0d 0a 0d 0a ┆NTERFACE .... "TRAFIKLYS" ┆
0x1fe0…2000 b0 4e 7c 64 76 65 6e 64 69 67 74 20 75 64 73 74 79 72 20 74 69 6c 20 75 6e 64 65 72 76 69 73 6e ┆ Nødvendigt udstyr til undervisn┆
0x2000…2020 (16,) 69 6e 67 65 6e 3a 0d 0a 0d 0a 4d 69 6e 64 73 74 20 b0 45 4e f0 20 6d 69 63 72 6f 64 61 74 61 6d ┆ingen: Mindst EN microdatam┆
0x2020…2040 61 74 20 6d 65 64 20 65 6e 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 20 6d 65 64 20 6d 69 6e 64 73 ┆at med en parallelport med minds┆
0x2040…2060 74 20 0a 19 80 81 80 38 20 62 69 74 2c 20 6f 67 20 68 65 6c 73 74 20 31 30 20 62 69 74 2e 0d 0a ┆t 8 bit, og helst 10 bit. ┆
0x2060…2080 0d 0a 4d 69 63 72 6f 27 65 6e 2f 6d 69 63 72 6f 27 65 72 6e 65 20 62 7c 72 20 76 7b 72 65 20 75 ┆ Micro'en/micro'erne bør være u┆
0x2080…20a0 64 73 74 79 72 65 74 20 6d 65 64 20 65 6e 20 64 69 73 6b 65 74 74 65 80 0a 73 74 61 74 69 6f 6e ┆dstyret med en diskette station┆
0x20a0…20c0 2c 20 6f 67 20 65 6e 20 70 72 69 6e 74 65 72 2e 0d 0a 0d 0a 0d 0a b0 55 6e 64 65 72 76 69 73 6e ┆, og en printer. Undervisn┆
0x20c0…20e0 69 6e 67 65 6e 73 20 6f 72 67 61 6e 69 73 65 72 69 6e 67 3a 0d 0a 0d 0a 48 76 65 72 20 65 6c 65 ┆ingens organisering: Hver ele┆
0x20e0…2100 76 20 73 6b 61 6c 20 68 61 76 65 20 65 74 20 65 6b 73 65 6d 70 6c 61 72 20 61 66 20 65 6c 65 76 ┆v skal have et eksemplar af elev┆
0x2100…2120 74 65 6b 73 74 65 6e 2e 0d 0a 0d 0a 45 6c 65 76 2d 61 72 62 65 6a 64 73 61 72 6b 65 6e 65 20 62 ┆teksten. Elev-arbejdsarkene b┆
0x2120…2140 7c 72 20 66 6f 72 65 66 69 6e 64 65 73 20 69 20 6b 6c 61 73 73 65 6e 20 69 20 0a 65 74 20 74 69 ┆ør forefindes i klassen i et ti┆
0x2140…2160 6c 73 74 72 7b 6b 6b 65 6c 69 67 74 20 61 6e 74 61 6c 2c 20 74 69 6c 20 61 74 20 65 6c 65 76 65 ┆lstrækkeligt antal, til at eleve┆
0x2160…2180 72 6e 65 20 66 72 69 74 20 6b 61 6e 20 0a 62 65 6e 79 74 74 65 20 64 65 6d 20 6e 7d 72 20 64 65 ┆rne frit kan benytte dem når de┆
0x2180…21a0 20 68 61 72 20 6c 79 73 74 2e 0d 0a 0d 0a 45 6c 65 76 65 72 6e 65 20 62 7c 72 20 61 72 62 65 6a ┆ har lyst. Eleverne bør arbej┆
0x21a0…21c0 64 65 20 73 61 6d 6d 65 6e 20 74 6f 20 6f 67 20 74 6f 2c 20 65 6c 6c 65 72 20 69 20 6c 69 64 74 ┆de sammen to og to, eller i lidt┆
0x21c0…21e0 20 0a 73 74 7c 72 72 65 20 67 72 75 70 70 65 72 2e 20 0d 0a 0d 0a 48 76 65 72 20 67 72 75 70 70 ┆ større grupper. Hver grupp┆
0x21e0…21ff 65 20 62 7c 72 20 68 61 76 65 20 73 69 6e 20 65 67 65 6e 20 64 69 73 6b 65 74 74 65 2e 0d 0a ┆e bør have sin egen diskette. ┆
0x21ff…2202 FormFeed {
0x21ff…2202 0c 83 70 ┆ p┆
0x21ff…2202 }
0x2202…2220 0a 0d 0a 0d 0a 0d 0a 45 6c 65 76 65 72 6e 65 20 62 7c 72 20 69 6b 6b 65 20 73 69 64 64 65 ┆ Eleverne bør ikke sidde┆
0x2220…2240 20 6f 67 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 76 65 64 20 64 61 74 61 80 6d 61 80 0a 73 6b 69 ┆ og programmere ved data ma ski┆
0x2240…2260 6e 65 72 6e 65 2e 20 50 72 6f 67 72 61 6d 6d 65 72 69 6e 67 73 61 72 62 65 6a 64 65 74 20 62 7c ┆nerne. Programmeringsarbejdet bø┆
0x2260…2280 72 20 66 6f 72 65 67 7d 20 69 20 67 72 75 70 70 65 72 20 0a 22 70 72 2e 20 68 7d 6e 64 6b 72 61 ┆r foregå i grupper "pr. håndkra┆
0x2280…22a0 66 74 22 2c 20 62 6c 2e 61 2e 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 61 72 80 62 65 6a 64 73 ┆ft", bl.a. ved hjælp af ar bejds┆
0x22a0…22c0 80 61 72 6b 65 6e 65 2c 20 64 65 72 20 0a 65 72 20 75 64 66 6f 72 6d 65 74 20 73 6f 6d 20 65 6e ┆ arkene, der er udformet som en┆
0x22c0…22e0 20 68 6a 7b 6c 70 20 74 69 6c 20 6f 70 73 74 69 6c 6c 69 6e 67 20 61 66 20 65 6e 20 73 74 72 75 ┆ hjælp til opstilling af en stru┆
0x22e0…2300 6b 80 0a 74 75 72 2f 61 6c 67 6f 72 69 74 6d 65 20 66 6f 72 20 6c 7c 73 6e 69 6e 67 65 6e 20 61 ┆k tur/algoritme for løsningen a┆
0x2300…2320 66 20 64 65 20 73 74 69 6c 6c 65 64 65 20 6f 70 67 61 80 0a 76 65 72 2f 70 72 6f 62 6c 65 6d 65 ┆f de stillede opga ver/probleme┆
0x2320…2340 72 2e 20 44 65 72 20 62 7c 72 20 66 6f 72 65 6c 69 67 67 65 20 65 6e 20 6b 6c 61 64 64 65 20 74 ┆r. Der bør foreligge en kladde t┆
0x2340…2360 69 6c 20 64 65 20 0a 66 6f 72 73 6b 65 6c 6c 69 67 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 66 7c ┆il de forskellige programmer fø┆
0x2360…2380 72 20 69 6e 64 74 61 73 74 6e 69 6e 67 65 6e 20 66 6f 72 65 74 61 67 65 73 2e 0d 0a 0d 0a 4c 69 ┆r indtastningen foretages. Li┆
0x2380…23a0 67 65 6c 65 64 65 73 20 62 7c 72 20 66 65 6a 6c 66 69 6e 64 69 6e 67 65 6e 20 6b 75 6e 20 69 20 ┆geledes bør fejlfindingen kun i ┆
0x23a0…23c0 73 7b 72 6c 69 67 65 20 74 69 6c 66 7b 6c 64 65 20 0a 74 69 6c 6c 61 64 65 73 20 76 65 64 20 64 ┆særlige tilfælde tillades ved d┆
0x23c0…23e0 61 74 61 6d 61 73 6b 69 6e 65 72 6e 65 2e 20 4e 6f 72 6d 61 6c 74 20 62 7c 72 20 66 65 6a 6c 66 ┆atamaskinerne. Normalt bør fejlf┆
0x23e0…2400 69 6e 64 69 6e 67 20 0a 66 6f 72 65 67 7d 20 69 20 67 72 75 70 70 65 72 6e 65 20 22 70 72 2e 20 ┆inding foregå i grupperne "pr. ┆
0x2400…2420 (18,) 68 7d 6e 64 6b 72 61 66 74 22 2e 0d 0a 0d 0a 44 65 74 20 65 72 20 64 65 72 66 6f 72 20 65 6e 20 ┆håndkraft". Det er derfor en ┆
0x2420…2440 66 6f 72 64 65 6c 20 68 76 69 73 20 65 6c 65 76 65 72 6e 65 20 6e 65 6d 74 20 6b 61 6e 20 6c 61 ┆fordel hvis eleverne nemt kan la┆
0x2440…2460 76 65 20 0a 70 72 69 6e 74 65 72 75 64 73 6b 72 69 66 74 65 72 20 61 66 20 70 72 6f 67 72 61 6d ┆ve printerudskrifter af program┆
0x2460…2468 6d 65 72 6e 65 2e 0d 0a ┆merne. ┆
0x2468…246b FormFeed {
0x2468…246b 0c 81 08 ┆ ┆
0x2468…246b }
0x246b…2480 0a 0d 0a 0d 0a 0d 0a b0 42 65 6d 7b 72 6b 6e 69 6e 67 65 72 20 ┆ Bemærkninger ┆
0x2480…24a0 74 69 6c 20 65 6c 65 76 74 65 6b 73 74 65 6e 3a 0d 0a 0d 0a 4f 70 67 61 76 65 20 31 3a 0d 0a 50 ┆til elevteksten: Opgave 1: P┆
0x24a0…24c0 72 6f 67 72 61 6d 6d 65 74 20 22 74 61 6c 22 20 67 69 76 65 72 20 65 6c 65 76 65 72 6e 65 20 6c ┆rogrammet "tal" giver eleverne l┆
0x24c0…24e0 65 6a 6c 69 67 68 65 64 20 74 69 6c 20 61 74 20 73 65 20 0a 68 76 6f 72 64 61 6e 20 64 65 63 69 ┆ejlighed til at se hvordan deci┆
0x24e0…2500 6d 61 6c 65 20 74 61 6c 20 6b 61 6e 20 62 72 75 67 65 73 20 74 69 6c 20 61 74 20 73 74 79 72 65 ┆male tal kan bruges til at styre┆
0x2500…2520 20 0a 6c 79 73 70 61 6e 65 6c 65 74 73 20 6c 61 6d 70 65 72 2e 20 4c 79 73 70 61 6e 65 6c 65 74 ┆ lyspanelets lamper. Lyspanelet┆
0x2520…2540 73 20 76 7b 6c 67 65 72 20 73 6b 61 6c 20 73 74 7d 20 70 7d 20 0a 22 42 49 54 53 22 20 21 0d 0a ┆s vælger skal stå på "BITS" ! ┆
0x2540…2560 0d 0a 4f 70 67 61 76 65 20 32 2c 20 33 2c 20 34 2c 20 6f 67 20 35 3a 0d 0a 44 69 73 73 65 20 6f ┆ Opgave 2, 3, 4, og 5: Disse o┆
0x2560…2580 70 67 61 76 65 72 20 73 6b 61 6c 20 67 65 6e 6e 65 6d 61 72 62 65 6a 64 65 73 20 73 65 6c 76 73 ┆pgaver skal gennemarbejdes selvs┆
0x2580…25a0 74 7b 6e 64 69 67 74 20 61 66 20 0a 65 6c 65 76 65 72 6e 65 2e 20 44 65 20 73 6b 61 6c 20 65 6b ┆tændigt af eleverne. De skal ek┆
0x25a0…25c0 73 70 65 72 69 6d 65 6e 74 65 72 65 20 73 69 67 20 66 72 65 6d 20 74 69 6c 20 0a 6c 7c 73 6e 69 ┆sperimentere sig frem til løsni┆
0x25c0…25e0 6e 67 65 72 6e 65 2e 20 44 65 74 20 76 7b 73 65 6e 74 6c 69 67 65 20 76 65 64 20 61 72 62 65 6a ┆ngerne. Det væsentlige ved arbej┆
0x25e0…2600 64 65 74 20 65 72 20 64 65 20 0a 64 69 73 6b 75 73 73 69 6f 6e 65 72 20 64 65 72 20 6f 70 73 74 ┆det er de diskussioner der opst┆
0x2600…2620 (19,) 7d 72 20 6d 65 6c 6c 65 6d 20 65 6c 65 76 65 72 6e 65 2e 20 49 6b 6b 65 20 0a 6d 69 6e 64 73 74 ┆år mellem eleverne. Ikke mindst┆
0x2620…2640 20 69 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d 65 64 20 6f 70 67 61 76 65 20 35 2e 0d 0a 0d 0a ┆ i forbindelse med opgave 5. ┆
0x2640…2660 4f 70 67 61 76 65 20 36 3a 0d 0a 44 65 6e 6e 65 20 6f 70 67 61 76 65 20 6b 61 6e 20 75 64 76 69 ┆Opgave 6: Denne opgave kan udvi┆
0x2660…2680 64 65 73 20 6d 65 64 20 61 72 62 65 6a 64 73 61 72 6b 20 6e 72 2e 20 31 20 68 76 69 73 20 64 65 ┆des med arbejdsark nr. 1 hvis de┆
0x2680…26a0 74 20 0a 7c 6e 73 6b 65 73 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 37 3a 0d 0a 44 65 6e 6e 65 20 6f ┆t ønskes. Opgave 7: Denne o┆
0x26a0…26c0 70 67 61 76 65 20 65 72 20 69 64 65 6e 74 69 73 6b 20 6d 65 64 20 64 65 20 6f 70 67 61 76 65 72 ┆pgave er identisk med de opgaver┆
0x26c0…26e0 20 64 65 72 20 6b 61 6e 20 0a 75 64 73 6b 72 69 76 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e ┆ der kan udskrives på printeren┆
0x26e0…2700 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 22 42 49 4e 44 45 ┆ ved hjælp af programmet "BINDE┆
0x2700…2720 43 6f 70 67 22 2e 20 50 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 73 65 6c 76 69 6e 73 74 72 75 65 ┆Copg". Programmet er selvinstrue┆
0x2720…2740 72 65 6e 64 65 2c 20 6f 67 20 65 72 20 0a 6d 65 67 65 74 20 73 69 6d 70 65 6c 74 20 61 74 20 62 ┆rende, og er meget simpelt at b┆
0x2740…2760 72 75 67 65 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 38 3a 0d 0a 50 72 6f 67 72 61 6d 6d 65 74 20 22 ┆ruge. Opgave 8: Programmet "┆
0x2760…2780 74 61 73 74 65 72 22 20 67 69 76 65 72 20 65 6c 65 76 65 72 6e 65 20 6c 65 6a 6c 69 67 68 65 64 ┆taster" giver eleverne lejlighed┆
0x2780…27a0 20 74 69 6c 20 61 74 20 73 65 20 0a 68 76 6f 72 64 61 6e 20 64 65 72 20 65 72 20 6b 6e 79 74 74 ┆ til at se hvordan der er knytt┆
0x27a0…27c0 65 74 20 65 74 20 74 61 6c 20 74 69 6c 20 61 6c 6c 65 20 74 65 67 6e 2c 20 62 7d 64 65 20 0a 73 ┆et et tal til alle tegn, både s┆
0x27c0…27e0 6b 72 69 66 74 2d 74 65 67 6e 65 6e 65 20 6f 67 20 66 75 6e 6b 74 69 6f 6e 73 2d 74 65 67 6e 65 ┆krift-tegnene og funktions-tegne┆
0x27e0…2800 6e 65 2e 0d 0a 0d 0a 4f 70 67 61 76 65 20 39 3a 0d 0a 53 69 64 65 20 39 20 6f 67 20 31 30 20 65 ┆ne. Opgave 9: Side 9 og 10 e┆
0x2800…2820 (20,) 72 20 6f 70 62 79 67 67 65 74 20 73 7d 20 6d 61 6e 20 6b 61 6e 20 73 65 20 61 74 20 6d 61 6e 67 ┆r opbygget så man kan se at mang┆
0x2820…2840 65 20 61 66 20 0a 74 61 73 74 65 72 6e 65 20 70 7d 20 74 61 73 74 61 74 75 72 65 74 20 68 61 72 ┆e af tasterne på tastaturet har┆
0x2840…2860 20 32 20 65 6c 6c 65 72 20 33 20 66 75 6e 6b 74 69 6f 6e 65 72 2e 20 48 76 69 73 20 0a 64 65 72 ┆ 2 eller 3 funktioner. Hvis der┆
0x2860…2880 20 61 72 62 65 6a 64 65 73 20 6d 65 64 20 65 74 20 75 64 76 69 64 65 74 20 74 61 73 74 61 74 75 ┆ arbejdes med et udvidet tastatu┆
0x2880…28a0 72 2c 20 6b 61 6e 20 64 65 20 73 70 65 63 69 65 6c 6c 65 20 0a 74 61 73 74 65 72 20 65 76 74 2e ┆r, kan de specielle taster evt.┆
0x28a0…28c0 20 75 6e 64 65 72 73 7c 67 65 73 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 61 72 62 65 6a 64 73 ┆ undersøges ved hjælp af arbejds┆
0x28c0…28e0 61 72 6b 20 6e 72 2e 20 33 2c 20 0a 64 65 72 20 69 20 7c 76 72 69 67 74 20 6b 61 6e 20 62 72 75 ┆ark nr. 3, der i øvrigt kan bru┆
0x28e0…2900 67 65 73 20 68 76 69 73 20 64 65 72 20 73 6b 61 6c 20 75 6e 64 65 72 73 7c 67 65 73 20 66 6c 65 ┆ges hvis der skal undersøges fle┆
0x2900…2920 72 65 20 0a 74 61 73 74 65 72 20 65 6e 64 20 64 65 72 20 65 72 20 6d 75 6c 69 67 68 65 64 20 66 ┆re taster end der er mulighed f┆
0x2920…2940 6f 72 20 70 7d 20 73 69 64 65 20 39 20 6f 67 20 31 30 2e 0d 0a 0d 0a 53 69 64 65 20 31 32 20 6f ┆or på side 9 og 10. Side 12 o┆
0x2940…2960 67 20 31 33 3a 0d 0a 54 61 62 65 6c 6c 65 72 6e 65 20 70 7d 20 64 69 73 73 65 20 74 6f 20 73 69 ┆g 13: Tabellerne på disse to si┆
0x2960…2980 64 65 72 20 6b 61 6e 20 73 6b 72 69 76 65 73 20 75 64 20 70 7d 20 0a 70 72 69 6e 74 65 72 65 6e ┆der kan skrives ud på printeren┆
0x2980…29a0 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 72 6e 65 20 22 53 4b 52 49 ┆ ved hjælp af programmerne "SKRI┆
0x29a0…29ba 46 54 74 65 67 6e 22 20 6f 67 20 0a 22 46 55 4e 4b 54 74 65 67 6e 22 2e 0d 0a ┆FTtegn" og "FUNKTtegn". ┆
0x29ba…29bd FormFeed {
0x29ba…29bd 0c 82 e8 ┆ ┆
0x29ba…29bd }
0x29bd…29c0 0a 0d 0a ┆ ┆
0x29c0…29e0 0d 0a 0d 0a b0 42 65 6d 7b 72 6b 6e 69 6e 67 65 72 20 74 69 6c 20 65 6c 65 76 2d 61 72 62 65 6a ┆ Bemærkninger til elev-arbej┆
0x29e0…29ed 64 73 61 72 6b 65 6e 65 3a 0d 0a 0d 0a ┆dsarkene: ┆
0x29ed…29f0 FormFeed {
0x29ed…29f0 0c 80 a8 ┆ ┆
0x29ed…29f0 }
0x29f0…2a00 0a 0d 0a 0d 0a 0d 0a b0 b0 50 52 4f 42 4c 45 4d ┆ PROBLEM┆
0x2a00…2a20 (21,) 20 20 22 54 5b 4e 44 22 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 7b 6e 64 22 0d 0a ┆ "TÆND": 0010 // "tænd" ┆
0x2a20…2a40 b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 ┆ 0020 OPEN FILE 1,"/17/PORT", WR┆
0x2a40…2a60 49 54 45 20 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 ┆ITE 0030 PRINT FILE 1: CHR$(2┆
0x2a60…2a80 35 35 29 3b 0d 0a b0 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 30 35 30 20 ┆55); 0040 CLOSE FILE 1 0050 ┆
0x2a80…2aa0 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 3a f0 20 44 61 74 61 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 ┆END 0020: Datastrøm nummer┆
0x2aa0…2ac0 20 31 20 7d 62 6e 65 73 20 74 69 6c 20 70 6f 72 74 20 31 37 20 66 6f 72 20 73 6b 72 69 76 80 0a ┆ 1 åbnes til port 17 for skriv ┆
0x2ac0…2ae0 19 80 81 80 6e 69 6e 67 20 28 57 52 49 54 45 29 2e 20 44 2e 76 2e 73 2e 20 61 74 20 64 61 74 61 ┆ ning (WRITE). D.v.s. at data┆
0x2ae0…2b00 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 62 6c 69 76 65 72 20 0a 19 80 81 80 73 65 6e 64 ┆ til lyspanelet bliver send┆
0x2b00…2b20 74 20 74 69 6c 20 70 6f 72 74 20 31 37 20 76 69 61 20 64 61 74 61 73 74 72 7c 6d 20 6e 72 2e 20 ┆t til port 17 via datastrøm nr. ┆
0x2b20…2b40 31 2e 0d 0a 0d 0a b0 30 30 33 30 3a f0 20 43 48 52 24 28 32 35 35 29 20 73 65 6e 64 65 73 20 76 ┆1. 0030: CHR$(255) sendes v┆
0x2b40…2b60 69 61 20 73 74 72 7c 6d 20 6e 72 2e 31 20 74 69 6c 20 70 6f 72 74 20 31 37 2e 20 0a 19 80 81 80 ┆ia strøm nr.1 til port 17. ┆
0x2b60…2b80 53 7b 74 6e 69 6e 67 65 6e 20 53 4b 41 4c 20 61 66 73 6c 75 74 74 65 73 20 6d 65 64 20 22 3b 22 ┆Sætningen SKAL afsluttes med ";"┆
0x2b80…2ba0 2c 20 64 61 20 64 65 72 20 65 6c 6c 65 72 73 20 76 69 6c 20 0a 19 80 81 80 62 6c 69 76 65 20 73 ┆, da der ellers vil blive s┆
0x2ba0…2bc0 65 6e 64 74 20 65 6e 20 6b 61 72 61 6b 74 65 72 2d 22 76 6f 67 6e 72 65 74 75 72 22 2c 20 64 2e ┆endt en karakter-"vognretur", d.┆
0x2bc0…2be0 76 2e 73 2e 20 63 68 72 24 28 31 33 29 20 0a 19 80 81 80 75 6d 69 64 64 65 6c 62 61 72 74 20 65 ┆v.s. chr$(13) umiddelbart e┆
0x2be0…2c00 66 74 65 72 2e 20 43 48 52 24 28 32 35 35 29 2c 20 62 69 6e 7b 72 74 20 31 31 31 31 31 31 31 31 ┆fter. CHR$(255), binært 11111111┆
0x2c00…2c20 (22,) 2c 20 62 6c 69 76 65 72 20 0a 19 80 81 80 73 65 6e 64 74 20 75 64 20 61 66 20 70 6f 72 74 65 6e ┆, bliver sendt ud af porten┆
0x2c20…2c40 2c 20 73 7d 20 61 6c 6c 65 20 38 20 62 69 74 20 67 7d 72 20 48 5c 4a 2c 20 6f 67 20 61 6c 6c 65 ┆, så alle 8 bit går HØJ, og alle┆
0x2c40…2c60 20 38 20 0a 19 80 81 80 6c 61 6d 70 65 72 20 74 7b 6e 64 65 73 2e 0d 0a 0d 0a b0 30 30 34 30 3a ┆ 8 lamper tændes. 0040:┆
0x2c60…2c80 f0 20 44 61 74 61 73 74 72 7c 6d 20 6e 72 2e 31 20 6c 75 6b 6b 65 73 2e 20 48 76 69 73 20 64 65 ┆ Datastrøm nr.1 lukkes. Hvis de┆
0x2c80…2ca0 74 74 65 20 69 6b 6b 65 20 62 6c 69 76 65 72 20 0a 19 80 81 80 67 6a 6f 72 74 2c 20 76 69 6c 20 ┆tte ikke bliver gjort, vil ┆
0x2ca0…2cc0 64 65 72 20 6f 70 73 74 7d 20 6b 7c 72 73 65 6c 73 66 65 6a 6c 20 6e 7b 73 74 65 20 67 61 6e 67 ┆der opstå kørselsfejl næste gang┆
0x2cc0…2ce0 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 19 80 81 80 73 74 61 72 74 65 73 3a 20 4e 7d 72 20 73 7b ┆ programmet startes: Når sæ┆
0x2ce0…2d00 74 6e 69 6e 67 20 32 30 20 70 72 7c 76 65 72 20 61 74 20 7d 62 6e 65 20 64 61 74 61 73 74 72 7c ┆tning 20 prøver at åbne datastrø┆
0x2d00…2d20 6d 6d 65 6e 2c 20 0a 19 80 81 80 64 65 72 20 76 69 6c 20 76 7b 72 65 20 7d 62 65 6e 20 69 20 66 ┆mmen, der vil være åben i f┆
0x2d20…2d40 6f 72 76 65 6a 65 6e 2c 20 6f 67 20 64 65 72 20 76 69 6c 20 6b 6f 6d 6d 65 20 65 6e 20 0a 19 80 ┆orvejen, og der vil komme en ┆
0x2d40…2d60 81 80 66 65 6a 6c 6d 65 64 64 65 6c 65 6c 73 65 2e 20 49 20 64 65 74 74 65 20 74 69 6c 66 7b 6c ┆ fejlmeddelelse. I dette tilfæl┆
0x2d60…2d80 64 65 20 6c 75 6b 6b 65 73 20 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 0a 19 80 81 80 6d 65 64 20 ┆de lukkes datastrømmen med ┆
0x2d80…2da0 6b 6f 6d 61 6e 64 6f 65 6e 20 b0 43 4c 4f 53 45 f0 2e 0d 0a 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d ┆komandoen CLOSE . --------┆
0x2da0…2dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2dc0…2de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 53 4c ┆-------------- PROBLEM "SL┆
0x2de0…2e00 55 4b 22 3a 0d 0a 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 73 6c 75 6b 22 0d 0a 30 30 32 30 ┆UK": 0010 // "sluk" 0020┆
0x2e00…2e20 (23,) 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d ┆ OPEN FILE 1,"/17/PORT", WRITE ┆
0x2e20…2e40 0a 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 b0 30 f0 29 3b 0d 0a ┆ 0030 PRINT FILE 1: CHR$( 0 ); ┆
0x2e40…2e60 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0d 0a ┆0040 CLOSE FILE 1 0050 END ┆
0x2e60…2e80 b0 30 30 33 30 3a f0 20 48 65 72 20 73 65 6e 64 65 73 20 43 48 52 24 28 30 29 2c 20 62 69 6e 7b ┆ 0030: Her sendes CHR$(0), binæ┆
0x2e80…2ea0 72 74 20 30 30 30 30 30 30 30 30 2c 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 ┆rt 00000000, til lyspanelet┆
0x2ea0…2ec0 2c 20 6f 67 20 61 6c 6c 65 20 62 69 74 73 20 67 7d 72 20 4c 41 56 2c 20 68 76 6f 72 66 6f 72 20 ┆, og alle bits går LAV, hvorfor ┆
0x2ec0…2ee0 61 6c 6c 65 20 6c 61 6d 70 65 72 20 0a 19 80 81 80 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a b0 4e 42 ┆alle lamper slukkes. NB┆
0x2ee0…2f00 3a f0 20 50 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 64 65 6e 20 7d 62 6e 65 20 64 61 74 61 73 74 ┆: Problemet med den åbne datast┆
0x2f00…2f20 72 7c 6d 20 6b 61 6e 20 6c 7c 73 65 73 20 70 7d 20 65 6e 20 0a 6e 65 6d 20 6d 7d 64 65 2c 20 73 ┆røm kan løses på en nem måde, s┆
0x2f20…2f40 65 6c 76 6f 6d 20 6d 65 74 6f 64 65 6e 20 6b 61 6e 20 6b 61 72 61 6b 74 65 72 69 73 65 72 65 73 ┆elvom metoden kan karakteriseres┆
0x2f40…2f60 20 73 6f 6d 20 22 65 6e 20 0a 64 7d 72 6c 69 67 20 76 61 6e 65 22 20 69 20 70 72 6f 67 72 61 6d ┆ som "en dårlig vane" i program┆
0x2f60…2f80 6d 65 72 69 6e 67 73 6d 7b 73 73 69 67 20 68 65 6e 73 65 65 6e 64 65 2e 20 48 76 69 73 20 0a 61 ┆meringsmæssig henseende. Hvis a┆
0x2f80…2fa0 6c 6c 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 69 6e 64 6c 65 64 65 73 20 6d 65 64 20 20 65 6e 20 ┆lle programmer indledes med en ┆
0x2fa0…2fc0 43 4c 4f 53 45 2d 73 7b 74 6e 69 6e 67 2c 20 76 69 6c 20 0a 70 72 6f 67 72 61 6d 6d 65 72 6e 65 ┆CLOSE-sætning, vil programmerne┆
0x2fc0…2fe0 20 73 74 61 72 74 65 20 6d 65 64 20 61 74 20 6c 75 6b 6b 65 20 61 6c 6c 65 20 64 61 74 61 73 74 ┆ starte med at lukke alle datast┆
0x2fe0…3000 72 7c 6d 6d 65 20 64 65 72 20 0a 6d 7d 74 74 65 20 73 74 7d 20 7d 62 6e 65 20 69 20 66 6f 72 76 ┆rømme der måtte stå åbne i forv┆
0x3000…3020 (24,) 65 6a 65 6e 2e 20 44 65 72 65 66 74 65 72 20 6b 61 6e 20 4f 50 45 4e 2d 0a 73 7b 74 6e 69 6e 67 ┆ejen. Derefter kan OPEN- sætning┆
0x3020…3040 65 72 6e 65 20 75 64 66 7c 72 65 73 20 75 64 65 6e 20 70 72 6f 62 6c 65 6d 65 72 21 0d 0a 0d 0a ┆erne udføres uden problemer! ┆
0x3040…3060 44 65 74 20 6d 7d 20 76 7b 72 65 20 6f 70 20 74 69 6c 20 64 65 6e 20 65 6e 6b 65 6c 74 65 20 6c ┆Det må være op til den enkelte l┆
0x3060…3080 7b 72 65 72 20 61 74 20 76 75 72 64 65 72 65 20 6f 6d 20 64 65 74 20 0a 65 72 20 4f 4b 20 61 74 ┆ærer at vurdere om det er OK at┆
0x3080…30a0 20 6c 7b 72 65 20 65 6c 65 76 65 72 6e 65 20 64 65 74 74 65 20 22 66 69 66 22 2e 20 50 7b 64 61 ┆ lære eleverne dette "fif". Pæda┆
0x30a0…30c0 67 6f 67 69 73 6b 20 73 65 74 20 6d 7d 20 0a 64 65 74 20 76 7b 72 65 20 69 20 6f 72 64 65 6e 2e ┆gogisk set må det være i orden.┆
0x30c0…30e0 20 50 72 6f 67 72 61 6d 6d 65 72 69 6e 67 73 6d 7b 73 73 69 67 74 20 65 72 20 6d 65 74 6f 64 65 ┆ Programmeringsmæssigt er metode┆
0x30e0…3100 6e 20 73 6f 6d 20 0a 73 61 67 74 20 6c 69 64 74 20 22 75 6c 64 65 6e 22 2e 0d 0a 0d 0a 2d 2d 2d ┆n som sagt lidt "ulden". ---┆
0x3100…3120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3120…3135 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------- ┆
0x3135…3138 FormFeed {
0x3135…3138 0c 83 70 ┆ p┆
0x3135…3138 }
0x3138…3140 0a 0d 0a 0d 0a 0d 0a b0 ┆ ┆
0x3140…3160 50 52 4f 42 4c 45 4d 20 20 22 50 41 55 53 45 22 3a 0d 0a 0d 0a 0d 0a 44 65 6e 20 73 69 6d 70 6c ┆PROBLEM "PAUSE": Den simpl┆
0x3160…3180 65 73 74 65 20 6d 7d 64 65 20 61 74 20 6c 61 76 65 20 65 6e 20 70 61 75 73 65 20 70 7d 20 65 72 ┆este måde at lave en pause på er┆
0x3180…31a0 20 65 6e 20 52 45 50 45 41 54 2f 20 0a 55 4e 54 49 4c 2d 6c 7c 6b 6b 65 20 6d 65 64 20 65 6e 20 ┆ en REPEAT/ UNTIL-løkke med en ┆
0x31a0…31c0 74 7b 6c 6c 65 72 20 74 69 6c 20 61 74 20 66 61 73 74 6c 7b 67 67 65 20 70 61 75 73 65 6e 73 20 ┆tæller til at fastlægge pausens ┆
0x31c0…31e0 0a 6c 7b 6e 67 64 65 2e 20 53 7d 20 6d 7d 20 65 6c 65 76 65 72 6e 65 20 74 61 67 65 20 74 69 64 ┆ længde. Så må eleverne tage tid┆
0x31e0…3200 20 6d 65 64 20 65 74 20 73 74 6f 70 75 72 20 6f 67 20 6b 7c 72 65 20 0a 70 72 6f 67 72 61 6d 6d ┆ med et stopur og køre programm┆
0x3200…3220 (25,) 65 74 20 6e 6f 67 6c 65 20 67 61 6e 67 65 20 66 6f 72 20 61 74 20 66 69 6e 64 65 20 75 64 20 61 ┆et nogle gange for at finde ud a┆
0x3220…3240 66 20 68 76 6f 72 20 6d 61 6e 67 65 20 0a 67 65 6e 6e 65 6d 6c 7c 62 20 64 65 72 20 73 6b 61 6c ┆f hvor mange gennemløb der skal┆
0x3240…3260 20 74 69 6c 20 70 72 2e 20 74 69 64 73 65 6e 68 65 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 ┆ til pr. tidsenhed: 0010 // ┆
0x3260…3280 22 70 61 75 73 65 2d 61 22 0d 0a b0 30 30 32 30 20 6e 3a 3d 30 0d 0a b0 30 30 33 30 20 52 45 50 ┆"pause-a" 0020 n:=0 0030 REP┆
0x3280…32a0 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 6e 3a 3d 6e 2b 31 0d 0a b0 30 30 35 30 20 55 4e 54 49 ┆EAT 0040 n:=n+1 0050 UNTI┆
0x32a0…32c0 4c 20 6e 3d 31 30 30 30 0d 0a b0 30 30 36 30 20 45 4e 44 20 0d 0a 0d 0a 0d 0a 22 70 61 75 73 65 ┆L n=1000 0060 END "pause┆
0x32c0…32e0 2d 61 54 49 44 22 20 65 72 20 65 74 20 6c 7b 72 65 72 70 72 6f 67 72 61 6d 20 64 65 72 20 62 65 ┆-aTID" er et lærerprogram der be┆
0x32e0…3300 6e 79 74 74 65 72 20 6d 69 63 72 6f 27 65 6e 73 20 0a 69 6e 74 65 72 6e 65 20 75 72 20 74 69 6c ┆nytter micro'ens interne ur til┆
0x3300…3320 20 6d 7d 6c 69 6e 67 20 61 66 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 67 65 6e 6e 65 6d 6c 7c 62 ┆ måling af antallet af gennemløb┆
0x3320…3340 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆. ---------------------------┆
0x3340…3360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 ┆--------------------------- "┆
0x3360…3380 70 61 75 73 65 2d 62 22 20 6f 67 20 22 70 61 75 73 65 2d 62 54 49 44 22 20 73 76 61 72 65 72 20 ┆pause-b" og "pause-bTID" svarer ┆
0x3380…33a0 74 69 6c 20 64 65 20 74 6f 20 6f 76 65 6e 6e 7b 76 6e 74 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 ┆til de to ovennævnte programmer┆
0x33a0…33c0 2e 20 48 65 72 20 65 72 20 62 6c 6f 74 20 61 6e 76 65 6e 64 74 20 46 4f 52 2f 4e 45 58 54 2d 6c ┆. Her er blot anvendt FOR/NEXT-l┆
0x33c0…33e0 7c 6b 6b 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 62 22 0d 0a b0 30 30 ┆økke: 0010 // "pause-b" 00┆
0x33e0…3400 32 30 20 46 4f 52 20 6e 3a 3d 31 20 54 4f 20 31 30 30 30 20 44 4f 0d 0a b0 30 30 33 30 20 4e 45 ┆20 FOR n:=1 TO 1000 DO 0030 NE┆
0x3400…3420 (26,) 58 54 20 6e 0d 0a b0 30 30 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆XT n 0040 END ------------┆
0x3420…3440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3440…3460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 44 65 6e 20 62 65 64 73 74 65 20 6d 65 74 6f 64 65 20 ┆---------- Den bedste metode ┆
0x3460…3480 61 74 20 6c 61 76 65 20 65 6e 20 70 61 75 73 65 20 70 7d 2c 20 65 72 20 6e 61 74 75 72 6c 69 67 ┆at lave en pause på, er naturlig┆
0x3480…34a0 76 69 73 20 0a 61 74 20 62 65 6e 79 74 74 65 20 6d 69 63 72 6f 27 65 6e 73 20 69 6e 74 65 72 6e ┆vis at benytte micro'ens intern┆
0x34a0…34c0 65 20 75 72 2c 20 64 65 72 20 6b 61 6e 20 61 66 6c 7b 73 65 73 20 66 72 61 20 0a 65 74 20 70 72 ┆e ur, der kan aflæses fra et pr┆
0x34c0…34e0 6f 67 72 61 6d 20 76 65 64 20 61 74 20 74 69 6c 64 65 6c 65 20 65 6e 20 74 61 6c 76 61 72 69 61 ┆ogram ved at tildele en talvaria┆
0x34e0…3500 62 65 6c 20 75 72 65 74 73 20 0a 61 6b 74 75 65 6c 6c 65 20 6b 6c 6f 6b 6b 65 73 6c 65 74 2e 20 ┆bel urets aktuelle klokkeslet. ┆
0x3500…3520 22 70 61 75 73 65 2d 63 22 20 75 64 66 7c 72 65 72 20 65 6e 20 70 61 75 73 65 20 70 7d 20 31 20 ┆"pause-c" udfører en pause på 1 ┆
0x3520…3540 0a 73 65 6b 75 6e 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 70 61 75 73 65 2d 63 22 0d 0a ┆ sekund: 0010 // "pause-c" ┆
0x3540…3560 b0 30 30 32 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 30 33 30 20 52 45 ┆ 0020 start:=SYS(3)/50 0030 RE┆
0x3560…3580 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a ┆PEAT 0040 slut:=SYS(3)/50 ┆
0x3580…35a0 b0 30 30 35 30 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 31 0d 0a b0 30 30 36 30 ┆ 0050 UNTIL slut-start>=1 0060┆
0x35a0…35c0 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 3a f0 20 54 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 54 ┆ END 0020: Talvariablen ST┆
0x35c0…35e0 41 52 54 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 20 73 76 61 72 65 6e 64 65 20 0a ┆ART tildeles en værdi svarende ┆
0x35e0…3600 19 80 81 80 74 69 6c 20 64 65 74 20 61 6b 74 75 65 6c 6c 65 20 73 65 6b 75 6e 64 2d 74 61 6c 2e ┆ til det aktuelle sekund-tal.┆
0x3600…3620 (27,) 20 53 54 41 52 54 20 61 6e 76 65 6e 64 65 73 20 74 69 6c 20 61 74 20 0a 19 80 81 80 67 65 6d 6d ┆ START anvendes til at gemm┆
0x3620…3640 65 20 6b 6c 6f 6b 6b 65 73 6c 65 74 74 65 74 20 76 65 64 20 70 61 75 73 65 6e 73 20 73 74 61 72 ┆e klokkeslettet ved pausens star┆
0x3640…3660 74 2e 20 b0 28 53 59 53 28 33 29 f0 20 65 72 20 65 6e 20 0a 19 80 82 80 66 75 6e 6b 74 69 6f 6e ┆t. (SYS(3) er en funktion┆
0x3660…3680 20 64 65 72 20 68 61 72 20 66 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 65 6e 20 73 76 61 72 65 6e ┆ der har funktionsværdien svaren┆
0x3680…36a0 64 65 20 74 69 6c 20 61 6e 74 61 6c 80 0a 19 80 82 80 6c 65 74 20 61 66 20 6c 79 73 6e 65 74 74 ┆de til antal let af lysnett┆
0x36a0…36c0 65 74 73 20 76 65 6b 73 65 6c 73 74 72 7c 6d 2d 70 65 72 69 6f 64 65 72 20 73 69 64 65 6e 20 6d ┆ets vekselstrøm-perioder siden m┆
0x36c0…36e0 69 63 72 6f 27 65 6e 20 0a 19 80 82 80 62 6c 65 76 20 74 7b 6e 64 74 2e 20 56 65 6b 73 65 6c 73 ┆icro'en blev tændt. Veksels┆
0x36e0…3700 74 72 7c 6d 6d 65 6e 20 65 72 20 70 7d 20 35 30 20 70 65 72 69 6f 64 65 72 20 70 72 2e 20 73 65 ┆trømmen er på 50 perioder pr. se┆
0x3700…3720 80 0a 19 80 82 80 6b 75 6e 64 2e 20 48 76 69 73 20 b0 53 54 41 52 54 f0 20 73 6b 61 6c 20 74 69 ┆ kund. Hvis START skal ti┆
0x3720…3740 6c 64 65 6c 65 73 20 65 6e 20 76 7b 72 64 69 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 0a 19 80 ┆ldeles en værdi svarende til ┆
0x3740…3760 83 80 61 6e 74 61 6c 6c 65 74 20 61 66 20 b0 68 65 6c 65 f0 20 73 65 6b 75 6e 64 65 72 2c 20 73 ┆ antallet af hele sekunder, s┆
0x3760…3780 6b 61 6c 20 53 59 53 28 33 29 20 64 69 76 69 64 65 72 65 73 20 6d 65 64 20 0a 19 80 84 80 35 30 ┆kal SYS(3) divideres med 50┆
0x3780…37a0 21 0d 0a 0d 0a b0 30 30 34 30 3a f0 20 54 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c 55 54 20 74 ┆! 0040: Talvariablen SLUT t┆
0x37a0…37c0 69 6c 64 65 6c 65 73 20 64 65 74 20 61 6b 74 75 65 6c 6c 65 20 0a 19 80 81 80 73 65 6b 75 6e 64 ┆ildeles det aktuelle sekund┆
0x37c0…37e0 2d 74 61 6c 2e 20 0d 0a 19 80 81 80 0d 0a b0 30 30 33 30 2d 30 30 35 30 3a f0 20 49 20 64 65 6e ┆-tal. 0030-0050: I den┆
0x37e0…3800 6e 65 20 6c 7c 6b 6b 65 20 67 65 6e 74 61 67 65 73 20 61 66 6c 7b 73 6e 69 6e 67 65 6e 20 61 66 ┆ne løkke gentages aflæsningen af┆
0x3800…3820 (28,) 20 75 72 65 74 20 0a 19 80 81 80 6d 65 64 20 74 61 6c 76 61 72 69 61 62 6c 65 6e 20 53 4c 55 54 ┆ uret med talvariablen SLUT┆
0x3820…3840 20 69 6e 64 74 69 6c 20 66 6f 72 73 6b 65 6c 6c 65 6e 20 6d 65 6c 6c 65 6d 20 53 4c 55 54 20 6f ┆ indtil forskellen mellem SLUT o┆
0x3840…3860 67 20 0a 19 80 81 80 53 54 41 52 54 20 65 72 20 31 2c 20 61 6c 74 73 7d 20 31 20 73 65 6b 75 6e ┆g START er 1, altså 1 sekun┆
0x3860…3880 64 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆d. --------------------------┆
0x3880…389e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆---------------------------- ┆
0x389e…38a1 FormFeed {
0x389e…38a1 0c 84 90 ┆ ┆
0x389e…38a1 }
0x38a1…38c0 0a 0d 0a 0d 0a 0d 0a 49 20 22 70 61 75 73 65 2d 63 54 49 44 31 22 20 6b 61 6e 20 70 61 75 73 ┆ I "pause-cTID1" kan paus┆
0x38c0…38e0 65 6c 7b 6e 67 64 65 6e 20 76 61 72 69 65 72 65 73 2e 0d 0a 0d 0a 49 20 22 70 61 75 73 65 2d 63 ┆elængden varieres. I "pause-c┆
0x38e0…3900 54 49 44 32 22 20 65 72 20 70 61 75 73 65 6e 20 73 6b 72 65 76 74 20 73 6f 6d 20 65 6e 20 70 72 ┆TID2" er pausen skrevt som en pr┆
0x3900…3920 6f 63 65 64 75 72 65 20 64 65 72 20 0a 6b 61 6c 64 65 73 20 73 7d 64 61 6e 3a 20 b0 45 58 45 43 ┆ocedure der kaldes sådan: EXEC┆
0x3920…3940 20 70 61 75 73 65 28 33 2e 35 29 f0 2c 20 68 76 69 6c 6b 65 74 20 73 76 61 72 65 72 20 74 69 6c ┆ pause(3.5) , hvilket svarer til┆
0x3940…3960 20 65 6e 20 0a 19 80 81 80 70 61 75 73 65 20 70 7d 20 33 2c 35 20 73 65 6b 75 6e 64 65 72 2e 0d ┆ en pause på 3,5 sekunder. ┆
0x3960…3980 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -----------------------------┆
0x3980…39a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 50 52 ┆------------------------- "PR┆
0x39a0…39c0 4f 43 2d 70 61 75 73 65 22 20 69 6e 64 65 68 6f 6c 64 65 72 20 b0 6b 75 6e f0 20 70 72 6f 63 65 ┆OC-pause" indeholder kun proce┆
0x39c0…39e0 64 75 72 65 6e 20 66 72 61 0d 0a 22 70 61 75 73 65 2d 63 54 49 44 32 22 3a 0d 0a 0d 0a b0 31 30 ┆duren fra "pause-cTID2": 10┆
0x39e0…3a00 30 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d 0a b0 31 30 31 30 20 20 ┆00 PROC pause(sekunder) 1010 ┆
0x3a00…3a20 (29,) 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 31 30 32 30 20 20 20 52 45 50 45 41 ┆ start:=SYS(3)/50 1020 REPEA┆
0x3a20…3a40 54 20 0d 0a b0 31 30 33 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 ┆T 1030 slut:=SYS(3)/50 ┆
0x3a40…3a60 31 30 34 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e 64 65 ┆1040 UNTIL slut-start>=sekunde┆
0x3a60…3a80 72 0d 0a b0 31 30 35 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a 44 65 6e 6e 65 20 ┆r 1050 ENDPROC pause Denne ┆
0x3a80…3aa0 70 72 6f 63 65 64 75 72 65 20 65 72 20 67 65 6d 74 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 20 73 ┆procedure er gemt på disketten s┆
0x3aa0…3ac0 6f 6d 20 65 6e 0d 0a 4c 49 53 54 2d 66 69 6c 2e 20 44 65 6e 20 6b 61 6e 20 64 65 72 66 6f 72 20 ┆om en LIST-fil. Den kan derfor ┆
0x3ac0…3ae0 68 65 6e 74 65 73 20 66 72 65 6d 20 6f 67 20 b0 62 6c 61 6e 64 65 73 f0 20 69 6e 64 20 69 20 0a ┆hentes frem og blandes ind i ┆
0x3ae0…3b00 19 80 81 80 64 65 20 6b 6f 6d 6d 65 6e 64 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 6d 65 64 20 45 ┆ de kommende programmer med E┆
0x3b00…3b20 4e 54 45 52 20 6b 6f 6d 61 6e 64 6f 65 6e 2e 20 53 7d 20 62 65 68 7c 76 65 72 20 0a 19 80 81 80 ┆NTER komandoen. Så behøver ┆
0x3b20…3b40 6d 61 6e 20 69 6b 6b 65 20 61 74 20 73 6b 72 69 76 65 20 70 72 6f 63 65 64 75 72 65 6e 20 66 6f ┆man ikke at skrive proceduren fo┆
0x3b40…3b60 72 66 72 61 20 6e 7d 72 20 64 65 6e 20 73 6b 61 6c 20 0a 19 80 81 80 62 72 75 67 65 73 2e 0d 0a ┆rfra når den skal bruges. ┆
0x3b60…3b80 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0x3b80…3b9a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------ ┆
0x3b9a…3b9d FormFeed {
0x3b9a…3b9d 0c 81 60 ┆ `┆
0x3b9a…3b9d }
0x3b9d…3ba0 0a 0d 0a ┆ ┆
0x3ba0…3bc0 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 42 4c 49 4e 4b 22 3a 0d 0a 0d 0a 0d 0a 41 6c 67 6f ┆ PROBLEM "BLINK": Algo┆
0x3bc0…3be0 72 69 74 6d 65 6e 20 66 6f 72 20 62 6c 69 6e 6b 20 65 72 20 73 69 6d 70 65 6c 3a 20 46 7c 72 73 ┆ritmen for blink er simpel: Førs┆
0x3be0…3c00 74 20 73 6b 61 6c 20 6c 61 6d 70 65 6e 20 0a 74 7b 6e 64 65 73 20 2d 20 73 7d 20 73 6b 61 6c 20 ┆t skal lampen tændes - så skal ┆
0x3c00…3c20 (30,) 64 65 72 20 75 64 66 7c 72 65 73 20 65 6e 20 70 61 75 73 65 20 2d 20 73 7d 20 73 6b 61 6c 20 6c ┆der udføres en pause - så skal l┆
0x3c20…3c40 61 6d 70 65 6e 20 0a 73 6c 75 6b 6b 65 73 20 2d 20 73 7d 20 73 6b 61 6c 20 64 65 72 20 75 64 66 ┆ampen slukkes - så skal der udf┆
0x3c40…3c60 7c 72 65 73 20 65 6e 20 70 61 75 73 65 20 2d 20 73 7d 20 73 6b 61 6c 20 64 65 72 20 0a 62 65 67 ┆øres en pause - så skal der beg┆
0x3c60…3c80 79 6e 64 65 73 20 66 6f 72 66 72 61 20 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e ┆yndes forfra : 0010 // "blin┆
0x3c80…3ca0 6b 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f ┆k-a1" 0020 OPEN FILE 1,"/17/PO┆
0x3ca0…3cc0 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 ┆RT", WRITE 0030 REPEAT 004┆
0x3cc0…3ce0 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 20 20 20 20 20 20 ┆0 PRINT FILE 1: CHR$(8); ┆
0x3ce0…3d00 2e 2e 2e 2e 20 54 5b 4e 44 0d 0a b0 30 30 35 30 20 20 20 46 4f 52 20 76 65 6e 74 3a 3d 31 20 54 ┆.... TÆND 0050 FOR vent:=1 T┆
0x3d00…3d20 4f 20 35 30 30 20 44 4f 20 20 20 20 20 20 20 2e 2e 2e 2e 20 50 41 55 53 45 0d 0a b0 30 30 36 30 ┆O 500 DO .... PAUSE 0060┆
0x3d20…3d40 20 20 20 4e 45 58 54 20 76 65 6e 74 0d 0a b0 30 30 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆ NEXT vent 0070 PRINT FILE┆
0x3d40…3d60 20 31 3a 20 43 48 52 24 28 30 29 3b 20 20 20 20 20 20 2e 2e 2e 2e 20 53 4c 55 4b 0d 0a b0 30 30 ┆ 1: CHR$(0); .... SLUK 00┆
0x3d60…3d80 38 30 20 20 20 46 4f 52 20 76 65 6e 74 3a 3d 31 20 54 4f 20 35 30 30 20 44 4f 20 20 20 20 20 20 ┆80 FOR vent:=1 TO 500 DO ┆
0x3d80…3da0 20 2e 2e 2e 2e 20 50 41 55 53 45 0d 0a b0 30 30 39 30 20 20 20 4e 45 58 54 20 76 65 6e 74 0d 0a ┆ .... PAUSE 0090 NEXT vent ┆
0x3da0…3dc0 b0 30 31 30 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0100 UNTIL FALSE ┆
0x3dc0…3de0 20 20 20 20 2e 2e 2e 2e 20 46 4f 52 46 52 41 0d 0a b0 30 31 31 30 20 43 4c 4f 53 45 20 46 49 4c ┆ .... FORFRA 0110 CLOSE FIL┆
0x3de0…3e00 45 20 31 0d 0a b0 30 31 32 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 3a f0 20 44 65 63 69 6d ┆E 1 0120 END 0040: Decim┆
0x3e00…3e20 (31,) 61 6c 74 20 38 2c 20 62 69 6e 7b 72 74 20 30 30 30 30 31 30 30 30 2c 20 73 65 6e 64 65 73 20 74 ┆alt 8, binært 00001000, sendes t┆
0x3e20…3e40 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 20 73 7d 20 42 49 54 33 2d 6c 61 6d 70 65 ┆il lyspanelet så BIT3-lampe┆
0x3e40…3e60 6e 2c 20 6f 67 20 6b 75 6e 20 64 65 6e 6e 65 2c 20 6c 79 73 65 72 2e 0d 0a 65 72 20 62 6c 65 76 ┆n, og kun denne, lyser. er blev┆
0x3e60…3e80 65 74 20 74 7b 6e 64 74 2e 20 0d 0a 0d 0a b0 30 30 35 30 2d 30 30 36 30 3a f0 20 50 61 75 73 65 ┆et tændt. 0050-0060: Pause┆
0x3e80…3ea0 20 6d 65 64 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2e 0d 0a 0d 0a b0 30 30 37 30 3a f0 20 ┆ med FOR/NEXT-løkke. 0070: ┆
0x3ea0…3ec0 44 65 63 69 6d 61 6c 74 20 30 2c 20 62 69 6e 7b 72 74 20 30 30 30 30 30 30 30 30 2c 20 73 65 6e ┆Decimalt 0, binært 00000000, sen┆
0x3ec0…3ee0 64 65 73 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 20 73 7d 20 61 6c 6c 65 20 ┆des til lyspanelet så alle ┆
0x3ee0…3f00 38 20 6c 61 6d 70 65 72 20 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a b0 30 30 38 30 2d 30 30 39 30 3a ┆8 lamper slukkes. 0080-0090:┆
0x3f00…3f20 f0 20 50 61 75 73 65 20 6d 65 64 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2e 0d 0a 0d 0a b0 ┆ Pause med FOR/NEXT-løkke. ┆
0x3f20…3f40 30 30 33 30 2d 30 30 31 30 30 3a f0 20 4c 7c 6b 6b 65 20 64 65 72 20 67 65 6e 74 61 67 65 72 20 ┆0030-00100: Løkke der gentager ┆
0x3f40…3f60 64 65 74 20 65 6e 6b 65 6c 74 65 20 62 6c 69 6e 6b 2e 20 0a 19 80 81 80 4c 7c 6b 6b 65 6e 20 6b ┆det enkelte blink. Løkken k┆
0x3f60…3f80 61 6e 20 6b 75 6e 20 73 74 61 6e 64 65 73 20 76 65 64 20 61 74 20 74 72 79 6b 6b 65 20 70 7d 20 ┆an kun standes ved at trykke på ┆
0x3f80…3fa0 45 53 43 41 50 45 2c 20 0a 19 80 81 80 68 76 6f 72 66 6f 72 20 6c 69 6e 69 65 72 6e 65 20 30 31 ┆ESCAPE, hvorfor linierne 01┆
0x3fa0…3fc0 31 30 20 6f 67 20 30 31 32 30 20 61 6c 64 72 69 67 20 62 6c 69 76 65 72 20 75 64 66 7c 72 74 2e ┆10 og 0120 aldrig bliver udført.┆
0x3fc0…3fe0 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x3fe0…4000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 ┆-------------------------- He┆
0x4000…4020 (32,) 72 20 65 72 20 46 4f 52 2f 4e 45 58 54 2d 70 61 75 73 65 6e 20 75 64 73 6b 69 66 74 65 74 20 6d ┆r er FOR/NEXT-pausen udskiftet m┆
0x4020…4040 65 64 20 70 72 6f 63 65 64 75 72 65 6e 0d 0a b0 70 61 75 73 65 f0 3a 0d 0a 0d 0a 30 30 31 30 20 ┆ed proceduren pause : 0010 ┆
0x4040…4060 2f 2f 20 22 62 6c 69 6e 6b 2d 61 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c ┆// "blink-a2" 0020 OPEN FILE 1,┆
0x4060…4080 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 ┆"/17/PORT", WRITE 0030 REPEAT ┆
0x4080…40a0 0d 0a 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 0d ┆ 0040 PRINT FILE 1: CHR$(8); ┆
0x40a0…40c0 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 36 30 20 20 ┆ 0050 EXEC pause(0.5) 0060 ┆
0x40c0…40e0 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 37 30 20 20 ┆ PRINT FILE 1: CHR$(0); 0070 ┆
0x40e0…4100 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 46 41 4c ┆ EXEC pause(0.5) 0080 UNTIL FAL┆
0x4100…4120 53 45 0d 0a 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e 44 20 ┆SE 0090 CLOSE FILE 1 0100 END ┆
0x4120…4140 0d 0a 30 31 31 30 20 2f 2f 0d 0a b0 30 31 32 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 ┆ 0110 // 0120 PROC pause(seku┆
0x4140…4160 6e 64 65 72 29 0d 0a b0 30 31 33 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d ┆nder) 0130 start:=SYS(3)/50 ┆
0x4160…4180 0a b0 30 31 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 31 35 30 20 20 20 20 20 73 6c 75 74 ┆ 0140 REPEAT 0150 slut┆
0x4180…41a0 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 31 36 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d ┆:=SYS(3)/50 0160 UNTIL slut-┆
0x41a0…41c0 73 74 61 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a b0 30 31 37 30 20 45 4e 44 50 52 4f 43 20 70 ┆start>=sekunder 0170 ENDPROC p┆
0x41c0…41e0 61 75 73 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ause ------------------------┆
0x41e0…4200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆
0x4200…4203 (33,) FormFeed {
0x4200…4203 0c 83 78 ┆ x┆
0x4200…4203 }
0x4203…4220 0a 0d 0a 0d 0a 0d 0a 49 20 22 62 6c 69 6e 6b 2d 62 31 22 20 6f 67 20 22 62 6c 69 6e 6b ┆ I "blink-b1" og "blink┆
0x4220…4240 2d 62 32 22 20 62 6c 69 6e 6b 65 72 20 61 6c 6c 65 20 38 20 6c 61 6d 70 65 72 20 66 6f 72 64 69 ┆-b2" blinker alle 8 lamper fordi┆
0x4240…4260 20 0a 64 65 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 b0 32 35 35 f0 20 73 65 6e 64 65 73 20 ┆ det decimale tal 255 sendes ┆
0x4260…4280 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 69 20 73 74 65 64 65 74 20 0a 19 80 81 80 66 6f 72 ┆til lyspanelet i stedet for┆
0x4280…42a0 20 b0 38 f0 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 62 32 22 0d 0a 30 30 32 ┆ 8 : 0010 // "blink-b2" 002┆
0x42a0…42c0 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 ┆0 OPEN FILE 1,"/17/PORT", WRITE ┆
0x42c0…42e0 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c ┆ 0030 REPEAT 0040 PRINT FIL┆
0x42e0…4300 45 20 31 3a 20 43 48 52 24 28 b0 32 35 35 f0 29 3b 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 ┆E 1: CHR$( 255 ); 0050 EXEC p┆
0x4300…4320 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆ause(0.5) 0060 PRINT FILE 1: ┆
0x4320…4340 43 48 52 24 28 30 29 3b 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 ┆CHR$(0); 0070 EXEC pause(0.5)┆
0x4340…4360 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 0d 0a 30 30 39 30 20 43 4c 4f 53 45 20 46 ┆ 0080 UNTIL FALSE 0090 CLOSE F┆
0x4360…4380 49 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e 44 20 0d 0a 30 31 31 30 20 2f 2f 0d 0a 30 31 32 30 20 ┆ILE 1 0100 END 0110 // 0120 ┆
0x4380…43a0 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d 0a 30 31 33 30 20 20 20 73 74 61 ┆PROC pause(sekunder) 0130 sta┆
0x43a0…43c0 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a 30 ┆rt:=SYS(3)/50 0140 REPEAT 0┆
0x43c0…43e0 31 35 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 36 30 20 20 20 ┆150 slut:=SYS(3)/50 0160 ┆
0x43e0…4400 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a 30 31 37 30 ┆UNTIL slut-start>=sekunder 0170┆
0x4400…4420 (34,) 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC pause --------------┆
0x4420…4440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4440…4460 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 61 74 20 20 b0 43 ┆-------- Problemet med at C┆
0x4460…4480 4c 4f 53 45 20 46 49 4c 45 20 31 f0 2d 73 7b 74 6e 69 6e 67 65 6e 20 20 61 6c 64 72 69 67 20 0a ┆LOSE FILE 1 -sætningen aldrig ┆
0x4480…44a0 19 80 81 80 75 64 66 7c 72 65 73 2c 20 66 6f 72 64 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 73 74 ┆ udføres, fordi programmet st┆
0x44a0…44c0 61 6e 64 73 65 73 20 69 6e 64 65 20 69 20 0a 19 80 81 80 52 45 50 45 41 54 2f 55 4e 54 49 4c 2d ┆andses inde i REPEAT/UNTIL-┆
0x44c0…44e0 6c 7c 6b 6b 65 6e 20 6d 65 64 20 45 53 43 41 50 45 2d 74 61 73 74 65 6e 2c 20 6b 61 6e 20 6c 7c ┆løkken med ESCAPE-tasten, kan lø┆
0x44e0…4500 73 65 73 20 6d 65 64 20 0a 19 80 81 80 61 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 73 74 61 6e 64 ┆ses med at programmet stand┆
0x4500…4520 73 65 73 20 6d 65 64 20 65 6e 20 61 6e 64 65 6e 20 74 61 73 74 20 65 6e 64 20 45 53 43 41 50 45 ┆ses med en anden tast end ESCAPE┆
0x4520…4540 2c 20 0a 19 80 81 80 66 6f 72 20 65 6b 73 65 6d 70 65 6c 20 4d 45 4c 4c 45 4d 52 55 4d 2d 74 61 ┆, for eksempel MELLEMRUM-ta┆
0x4540…4560 73 74 65 6e 2c 20 64 65 6e 20 65 72 20 6e 65 6d 20 61 74 20 72 61 6d 6d 65 2c 20 0a 19 80 81 80 ┆sten, den er nem at ramme, ┆
0x4560…4580 65 6c 6c 65 72 20 53 2d 74 61 73 74 65 6e 20 66 6f 72 20 53 54 4f 50 2e 0d 0a 0d 0a 49 20 22 62 ┆eller S-tasten for STOP. I "b┆
0x4580…45a0 6c 69 6e 6b 2d 63 31 22 20 6f 67 20 22 62 6c 69 6e 6b 2d 63 32 22 20 65 72 20 70 72 6f 62 6c 65 ┆link-c1" og "blink-c2" er proble┆
0x45a0…45c0 6d 65 74 20 6c 7c 73 74 20 76 65 64 20 61 74 20 0a 64 65 72 20 69 20 62 75 6e 64 65 6e 20 61 66 ┆met løst ved at der i bunden af┆
0x45c0…45e0 20 52 45 50 45 41 54 2f 55 4e 54 49 4c 2d 6c 7c 6b 6b 65 6e 20 75 6e 64 65 72 73 7c 67 65 73 20 ┆ REPEAT/UNTIL-løkken undersøges ┆
0x45e0…4600 6f 6d 20 64 65 72 20 0a 65 72 20 62 6c 65 76 65 74 20 74 72 79 6b 6b 65 74 20 70 7d 20 64 65 6e ┆om der er blevet trykket på den┆
0x4600…4620 (35,) 20 76 61 6c 67 74 65 20 74 61 73 74 20 65 6c 6c 65 72 20 65 6a 3a 20 0d 0a 0d 0a 30 30 31 30 20 ┆ valgte tast eller ej: 0010 ┆
0x4620…4640 2f 2f 20 22 62 6c 69 6e 6b 2d 63 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c ┆// "blink-c2" 0020 OPEN FILE 1,┆
0x4640…4660 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 22 ┆"/17/PORT", WRITE 0030 PRINT "┆
0x4660…4680 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 ┆STOP: TRYK PÅ MELLEMRUM-TASTEN !┆
0x4680…46a0 21 22 0d 0a 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 ┆!" 0040 REPEAT 0050 PRINT F┆
0x46a0…46c0 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 36 30 20 20 20 45 58 45 43 20 70 ┆ILE 1: CHR$(255); 0060 EXEC p┆
0x46c0…46e0 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆ause(0.5) 0070 PRINT FILE 1: ┆
0x46e0…4700 43 48 52 24 28 30 29 3b 0d 0a 30 30 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 ┆CHR$(0); 0080 EXEC pause(0.5)┆
0x4700…4720 0d 0a 30 30 39 30 20 55 4e 54 49 4c 20 b0 4f 52 44 28 4b 45 59 24 29 3d 33 32 f0 0d 0a 30 31 30 ┆ 0090 UNTIL ORD(KEY$)=32 010┆
0x4720…4740 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 31 30 20 45 4e 44 20 0d 0a 30 31 32 30 20 ┆0 CLOSE FILE 1 0110 END 0120 ┆
0x4740…4760 2f 2f 0d 0a 30 31 33 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 0d 0a 30 ┆// 0130 PROC pause(sekunder) 0┆
0x4760…4780 31 34 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 35 30 20 20 20 52 ┆140 start:=SYS(3)/50 0150 R┆
0x4780…47a0 45 50 45 41 54 20 0d 0a 30 31 36 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 ┆EPEAT 0160 slut:=SYS(3)/50┆
0x47a0…47c0 0d 0a 30 31 37 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 72 74 3e 3d 73 65 6b 75 6e ┆ 0170 UNTIL slut-start>=sekun┆
0x47c0…47e0 64 65 72 0d 0a 30 31 38 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 65 0d 0a 0d 0a b0 30 30 39 30 ┆der 0180 ENDPROC pause 0090┆
0x47e0…4800 3a f0 20 56 61 6c 67 65 74 20 6d 65 6c 6c 65 6d 20 64 69 73 73 65 20 74 6f 20 6d 75 6c 69 67 68 ┆: Valget mellem disse to muligh┆
0x4800…4820 (36,) 65 64 65 72 20 65 72 20 6e 7b 72 6d 65 74 0d 0a 65 6e 20 73 6d 61 67 73 73 61 67 3a 0d 0a 0d 0a ┆eder er nærmet en smagssag: ┆
0x4820…4840 b0 41 3a 20 20 20 20 30 30 39 30 20 55 4e 54 49 4c 20 4b 45 59 24 3d 22 20 22 20 0d 0a b0 42 3a ┆ A: 0090 UNTIL KEY$=" " B:┆
0x4840…4860 20 20 20 20 30 30 39 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 20 0d 0a 0d 0a ┆ 0090 UNTIL ORD(KEY$)=32 ┆
0x4860…4880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4880…4898 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆---------------------- ┆
0x4898…489b FormFeed {
0x4898…489b 0c 84 80 ┆ ┆
0x4898…489b }
0x489b…48a0 0a 0d 0a 0d 0a ┆ ┆
0x48a0…48c0 0d 0a 4e 42 3a f0 20 46 72 61 20 64 65 74 74 65 20 73 74 65 64 20 69 20 74 65 6b 73 74 65 6e 20 ┆ NB: Fra dette sted i teksten ┆
0x48c0…48e0 75 64 65 6c 61 64 65 73 20 6c 69 73 74 6e 69 6e 67 65 6e 20 61 66 20 0a 19 80 81 80 70 72 6f 63 ┆udelades listningen af proc┆
0x48e0…4900 65 64 75 72 65 6e 20 22 70 61 75 73 65 28 73 65 6b 75 6e 64 65 72 29 22 2e 20 44 65 6e 20 66 6f ┆eduren "pause(sekunder)". Den fo┆
0x4900…4920 72 75 64 73 7b 74 74 65 73 20 61 74 20 76 7b 72 65 20 0a 19 80 81 80 69 20 61 6c 6c 65 20 64 65 ┆rudsættes at være i alle de┆
0x4920…4940 20 70 72 6f 67 72 61 6d 6d 65 72 20 68 76 6f 72 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 65 74 ┆ programmer hvor procedurekaldet┆
0x4940…4960 0d 0a 19 80 81 80 45 58 45 43 20 70 61 75 73 65 28 58 29 20 66 6f 72 65 6b 6f 6d 6d 65 72 20 21 ┆ EXEC pause(X) forekommer !┆
0x4960…4980 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0x4980…49a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 ┆-------------------------- I ┆
0x49a0…49c0 22 62 6c 69 6e 6b 2d 64 31 22 20 65 72 20 64 65 6e 20 6b 6f 6e 73 74 61 6e 74 65 20 70 61 75 73 ┆"blink-d1" er den konstante paus┆
0x49c0…49e0 65 6c 7b 6e 67 64 65 20 75 64 73 6b 69 66 74 65 74 20 6d 65 64 20 0a 76 61 72 69 61 62 6c 65 6e ┆elængde udskiftet med variablen┆
0x49e0…4a00 20 50 41 55 53 45 4c 5b 4e 47 44 45 2c 20 64 65 72 20 74 69 6c 64 65 6c 65 73 20 65 6e 20 76 7b ┆ PAUSELÆNGDE, der tildeles en væ┆
0x4a00…4a20 (37,) 72 64 69 20 69 20 0d 0a 49 4e 50 55 54 2d 73 7b 74 6e 69 6e 67 65 6e 3a 0d 0a 0d 0a 0d 0a 30 30 ┆rdi i INPUT-sætningen: 00┆
0x4a20…4a40 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 64 31 22 0d 0a 30 30 32 30 20 61 6e 74 3a 3d 32 30 0d 0a ┆10 // "blink-d1" 0020 ant:=20 ┆
0x4a40…4a60 30 30 33 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 34 30 20 4f 50 45 4e 20 46 ┆0030 PRINT CHR$(12) 0040 OPEN F┆
0x4a60…4a80 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 ┆ILE 1,"/17/PORT", WRITE 0050 ┆
0x4a80…4aa0 49 4e 50 55 54 20 22 53 4b 52 49 56 20 50 41 55 53 45 4c 5b 4e 47 44 45 4e 20 49 20 53 45 4b 55 ┆INPUT "SKRIV PAUSELÆNGDEN I SEKU┆
0x4aa0…4ac0 4e 44 45 52 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NDER: ": ┆
0x4ac0…4ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 75 73 65 6c 7b 6e 67 64 65 ┆ pauselængde┆
0x4ae0…4b00 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c ┆ 0060 PRINT "STOP: TRYK PÅ MELL┆
0x4b00…4b20 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a ┆EMRUM-TASTEN !!" 0070 REPEAT ┆
0x4b20…4b40 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d ┆0080 PRINT FILE 1: CHR$(255); ┆
0x4b40…4b60 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 65 f0 ┆ 0090 EXEC pause( pauselængde ┆
0x4b60…4b80 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b ┆) 0100 PRINT FILE 1: CHR$(0);┆
0x4b80…4ba0 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 65 ┆ 0110 EXEC pause( pauselængde┆
0x4ba0…4bc0 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 33 ┆ ) 0120 UNTIL ORD(KEY$)=32 013┆
0x4bc0…4be0 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d ┆0 CLOSE FILE 1 0140 END ---┆
0x4be0…4c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4c00…4c20 (38,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 56 61 72 69 61 74 69 6f 6e ┆------------------- Variation┆
0x4c20…4c40 65 6e 20 69 20 62 6c 69 6e 6b 68 61 73 74 69 67 68 65 64 65 6e 20 6b 61 6e 20 6f 67 73 7d 20 64 ┆en i blinkhastigheden kan også d┆
0x4c40…4c60 65 66 69 6e 65 72 65 73 20 73 6f 6d 20 0a 65 6e 20 7b 6e 64 72 69 6e 67 20 61 66 20 62 6c 69 6e ┆efineres som en ændring af blin┆
0x4c60…4c80 6b 66 72 65 6b 76 65 6e 73 65 6e 2c 20 61 6c 74 73 7d 20 61 6e 74 61 6c 20 62 72 69 6e 6b 20 70 ┆kfrekvensen, altså antal brink p┆
0x4c80…4ca0 72 2e 20 0a 73 65 6b 75 6e 64 2e 20 49 20 22 62 6c 69 6e 6b 2d 64 32 22 20 74 69 6c 64 65 6c 65 ┆r. sekund. I "blink-d2" tildele┆
0x4ca0…4cc0 73 20 42 4c 49 4e 4b 46 52 45 4b 56 45 4e 53 45 4e 20 65 6e 20 76 7b 72 64 69 20 0a 69 20 49 4e ┆s BLINKFREKVENSEN en værdi i IN┆
0x4cc0…4ce0 50 55 54 2d 73 7b 74 6e 69 6e 67 65 6e 2c 20 68 76 6f 72 65 66 74 65 72 20 70 61 75 73 65 6c 7b ┆PUT-sætningen, hvorefter pauselæ┆
0x4ce0…4d00 6e 67 64 65 6e 20 66 61 73 74 73 7b 74 74 65 73 20 69 20 0a 6c 69 6e 69 65 20 30 30 35 30 2c 20 ┆ngden fastsættes i linie 0050, ┆
0x4d00…4d20 73 7d 20 6c 79 73 70 65 72 69 6f 64 65 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 ┆så lysperioden og mørkeperioden ┆
0x4d20…4d40 65 72 20 6c 69 67 65 20 0a 6c 61 6e 67 65 20 66 6f 72 20 64 65 20 65 6e 6b 65 6c 74 65 20 62 6c ┆er lige lange for de enkelte bl┆
0x4d40…4d60 69 6e 6b 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 64 32 22 0d 0a 30 30 32 30 ┆ink: 0010 // "blink-d2" 0020┆
0x4d60…4d80 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 ┆ PRINT CHR$(12) 0030 OPEN FILE ┆
0x4d80…4da0 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 49 4e 50 55 ┆1,"/17/PORT", WRITE 0040 INPU┆
0x4da0…4dc0 54 20 22 53 4b 52 49 56 20 41 4e 54 41 4c 20 42 4c 49 4e 4b 20 50 52 2e 20 53 45 4b 55 4e 44 3a ┆T "SKRIV ANTAL BLINK PR. SEKUND:┆
0x4dc0…4de0 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ": ┆
0x4de0…4e00 20 20 20 20 20 20 20 20 20 20 20 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 0d 0a b0 30 30 35 30 20 ┆ blinkfrekvens 0050 ┆
0x4e00…4e20 (39,) 70 61 75 73 65 6c 7b 6e 67 64 65 3a 3d 31 2f 28 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 2a 32 29 ┆pauselængde:=1/(blinkfrekvens*2)┆
0x4e20…4e40 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c ┆ 0060 PRINT "STOP: TRYK PÅ MELL┆
0x4e40…4e60 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a ┆EMRUM-TASTEN !!" 0070 REPEAT ┆
0x4e60…4e80 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d ┆0080 PRINT FILE 1: CHR$(255); ┆
0x4e80…4ea0 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 65 f0 ┆ 0090 EXEC pause( pauselængde ┆
0x4ea0…4ec0 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b ┆) 0100 PRINT FILE 1: CHR$(0);┆
0x4ec0…4ee0 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 70 61 75 73 65 6c 7b 6e 67 64 65 ┆ 0110 EXEC pause( pauselængde┆
0x4ee0…4f00 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 33 ┆ ) 0120 UNTIL ORD(KEY$)=32 013┆
0x4f00…4f20 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d ┆0 CLOSE FILE 1 0140 END ---┆
0x4f20…4f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4f40…4f55 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------- ┆
0x4f55…4f58 FormFeed {
0x4f55…4f58 0c 83 48 ┆ H┆
0x4f55…4f58 }
0x4f58…4f60 0a 0d 0a 0d 0a 0d 0a 49 ┆ I┆
0x4f60…4f80 20 22 62 6c 69 6e 6b 2d 65 22 20 66 61 73 74 6c 7b 67 67 65 73 20 6c 79 73 70 65 72 69 6f 64 65 ┆ "blink-e" fastlægges lysperiode┆
0x4f80…4fa0 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 69 20 0a 74 6f 20 74 69 6c 64 65 6c 69 ┆n og mørkeperioden i to tildeli┆
0x4fa0…4fc0 6e 67 73 73 7b 74 6e 69 6e 67 65 72 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d ┆ngssætninger: 0010 // "blink-┆
0x4fc0…4fe0 65 22 0d 0a 30 30 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 4f 50 ┆e" 0020 PRINT CHR$(12) 0030 OP┆
0x4fe0…5000 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 ┆EN FILE 1,"/17/PORT", WRITE 0┆
0x5000…5020 (40,) 30 34 30 20 6c 79 73 70 65 72 69 6f 64 65 3a 3d 31 0d 0a b0 30 30 35 30 20 6d 7c 72 6b 65 70 65 ┆040 lysperiode:=1 0050 mørkepe┆
0x5020…5040 72 69 6f 64 65 3a 3d 30 2e 35 0d 0a 30 30 36 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 ┆riode:=0.5 0060 PRINT "STOP: TR┆
0x5040…5060 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 37 30 ┆YK PÅ MELLEMRUM-TASTEN !!" 0070┆
0x5060…5080 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆ REPEAT 0080 PRINT FILE 1: C┆
0x5080…50a0 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 6c 79 ┆HR$(255); 0090 EXEC pause( ly┆
0x50a0…50c0 73 70 65 72 69 6f 64 65 f0 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆speriode 0100 PRINT FILE 1: ┆
0x50c0…50e0 43 48 52 24 28 30 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 6d 7c 72 ┆CHR$(0); 0110 EXEC pause( mør┆
0x50e0…5100 6b 65 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆keperiode ) 0120 UNTIL ORD(KEY$┆
0x5100…5120 29 3d 33 32 0d 0a 30 31 33 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 34 30 20 45 4e ┆)=32 0130 CLOSE FILE 1 0140 EN┆
0x5120…5140 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D --------------------------┆
0x5140…5160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a ┆---------------------------- ┆
0x5160…5180 49 20 22 62 6c 69 6e 6b 2d 66 22 20 6b 61 6e 20 6c 79 73 70 65 72 69 6f 64 65 6e 20 6f 67 20 6d ┆I "blink-f" kan lysperioden og m┆
0x5180…51a0 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 76 61 72 69 65 72 65 73 3a 0d 0a 0d 0a 30 30 31 30 20 2f ┆ørkeperioden varieres: 0010 /┆
0x51a0…51c0 2f 20 22 62 6c 69 6e 6b 2d 66 22 0d 0a 30 30 32 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 ┆/ "blink-f" 0020 PRINT CHR$(12)┆
0x51c0…51e0 0d 0a 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 ┆ 0030 OPEN FILE 1,"/17/PORT", W┆
0x51e0…5200 52 49 54 45 20 0d 0a b0 30 30 34 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 4c 59 53 50 45 52 ┆RITE 0040 INPUT "SKRIV LYSPER┆
0x5200…5220 (41,) 49 4f 44 45 4e 20 20 20 49 20 53 45 4b 55 4e 44 45 52 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 ┆IODEN I SEKUNDER: ": ┆
0x5220…5240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5240…5260 20 20 20 20 6c 79 73 70 65 72 69 6f 64 65 0d 0a b0 30 30 35 30 20 49 4e 50 55 54 20 22 53 4b 52 ┆ lysperiode 0050 INPUT "SKR┆
0x5260…5280 49 56 20 4d 5c 52 4b 45 50 45 52 49 4f 44 45 4e 20 49 20 53 45 4b 55 4e 44 45 52 3a 20 22 3a 20 ┆IV MØRKEPERIODEN I SEKUNDER: ": ┆
0x5280…52a0 0d 0a b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x52a0…52c0 20 20 20 20 20 20 20 20 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 0d 0a 30 30 36 30 20 50 52 49 4e ┆ mørkeperiode 0060 PRIN┆
0x52c0…52e0 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 ┆T "STOP: TRYK PÅ MELLEMRUM-TASTE┆
0x52e0…5300 4e 20 21 21 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 52 49 4e ┆N !!" 0070 REPEAT 0080 PRIN┆
0x5300…5320 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a 30 30 39 30 20 20 20 45 58 45 ┆T FILE 1: CHR$(255); 0090 EXE┆
0x5320…5340 43 20 70 61 75 73 65 28 b0 6c 79 73 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 30 30 20 20 20 50 52 ┆C pause( lysperiode ) 0100 PR┆
0x5340…5360 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 ┆INT FILE 1: CHR$(0); 0110 EXE┆
0x5360…5380 43 20 70 61 75 73 65 28 b0 6d 7c 72 6b 65 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 32 30 20 55 4e ┆C pause( mørkeperiode ) 0120 UN┆
0x5380…53a0 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 33 30 20 43 4c 4f 53 45 20 46 49 4c ┆TIL ORD(KEY$)=32 0130 CLOSE FIL┆
0x53a0…53c0 45 20 31 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E 1 0140 END --------------┆
0x53c0…53e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x53e0…53ea 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆-------- ┆
0x53ea…53ed FormFeed {
0x53ea…53ed 0c 82 d8 ┆ ┆
0x53ea…53ed }
0x53ed…5400 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 52 ┆ PROBLEM "R┆
0x5400…5420 (42,) 45 41 4b 54 49 4f 4e 22 3a 0d 0a 0d 0a 0d 0a 4c 61 6d 70 65 72 6e 65 20 73 6b 61 6c 20 74 7b 6e ┆EAKTION": Lamperne skal tæn┆
0x5420…5440 64 65 73 20 65 74 20 74 69 6c 66 7b 6c 64 69 67 74 20 61 6e 74 61 6c 20 73 65 6b 75 6e 64 65 72 ┆des et tilfældigt antal sekunder┆
0x5440…5460 20 0a 65 66 74 65 72 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 73 74 61 72 74 65 74 ┆ efter at programmet er startet┆
0x5460…5480 2c 20 68 76 6f 72 65 66 74 65 72 20 6c 61 6d 70 65 72 6e 65 20 0a 73 6b 61 6c 20 73 6c 75 6b 6b ┆, hvorefter lamperne skal slukk┆
0x5480…54a0 65 73 20 6e 7d 72 20 65 6e 20 74 61 73 74 20 62 6c 69 76 65 72 20 74 72 79 6b 6b 65 74 20 6e 65 ┆es når en tast bliver trykket ne┆
0x54a0…54c0 64 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 72 65 61 6b 74 69 6f 6e 2d 61 22 0d 0a b0 30 30 ┆d: 0010 // "reaktion-a" 00┆
0x54c0…54e0 32 30 20 52 41 4e 44 4f 4d 49 5a 45 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 ┆20 RANDOMIZE 0030 PRINT CHR$(1┆
0x54e0…5500 32 29 0d 0a b0 30 30 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 ┆2) 0040 OPEN FILE 1,"/17/PORT"┆
0x5500…5520 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 45 58 45 43 20 70 61 75 73 65 28 52 4e 44 28 33 ┆, WRITE 0050 EXEC pause(RND(3┆
0x5520…5540 2c 37 29 29 0d 0a b0 30 30 36 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 ┆,7)) 0060 PRINT FILE 1: CHR$(2┆
0x5540…5560 35 35 29 3b 0d 0a b0 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 38 30 20 55 4e 54 49 4c ┆55); 0070 REPEAT 0080 UNTIL┆
0x5560…5580 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆ ORD(KEY$)<>0 0090 PRINT FILE ┆
0x5580…55a0 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 30 30 20 43 4c 4f 53 45 20 0d 0a b0 30 31 31 30 ┆1: CHR$(0); 0100 CLOSE 0110┆
0x55a0…55c0 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 65 6e 20 ┆ END 0050 : Her udføres en ┆
0x55c0…55e0 70 61 75 73 65 20 70 7d 20 6d 65 6c 6c 65 6d 20 33 20 6f 67 20 37 20 73 65 6b 75 6e 64 65 72 2c ┆pause på mellem 3 og 7 sekunder,┆
0x55e0…5600 20 0a 19 80 81 80 74 69 6c 66 7b 6c 64 69 67 74 20 75 64 74 61 67 65 74 2e 20 0d 0a b0 0d 0a 30 ┆ tilfældigt udtaget. 0┆
0x5600…5620 (43,) 30 36 30 f0 3a 20 41 6c 6c 65 20 38 20 6c 61 6d 70 65 72 20 74 7b 6e 64 65 73 2e 0d 0a b0 0d 0a ┆060 : Alle 8 lamper tændes. ┆
0x5620…5640 30 30 37 30 2d 30 30 38 30 f0 3a 20 48 65 72 20 76 65 6e 74 65 73 20 64 65 72 20 74 69 6c 20 65 ┆0070-0080 : Her ventes der til e┆
0x5640…5660 6e 20 65 6c 6c 65 72 20 61 6e 64 65 6e 20 74 61 73 74 20 0a 19 80 81 80 62 6c 69 76 65 72 20 74 ┆n eller anden tast bliver t┆
0x5660…5680 72 79 6b 6b 65 74 20 6e 65 64 2e 0d 0a b0 0d 0a 30 30 39 30 f0 3a 20 41 6c 6c 65 20 6c 61 6d 70 ┆rykket ned. 0090 : Alle lamp┆
0x5680…56a0 65 72 20 73 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆er slukkes. -----------------┆
0x56a0…56c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x56c0…56e0 2d 2d 2d 2d 2d 0d 0a 0d 0a 4e 75 20 73 6b 61 6c 20 64 65 72 20 74 61 67 65 73 20 74 69 64 20 70 ┆----- Nu skal der tages tid p┆
0x56e0…5700 7d 20 68 76 6f 72 20 6c 7b 6e 67 65 20 64 65 74 20 76 61 72 65 72 20 66 72 61 20 0a 6c 61 6d 70 ┆å hvor længe det varer fra lamp┆
0x5700…5720 65 72 6e 65 20 62 6c 69 76 65 72 20 74 7b 6e 64 74 2c 20 74 69 6c 20 64 65 72 20 74 72 79 6b 6b ┆erne bliver tændt, til der trykk┆
0x5720…5740 65 73 20 70 7d 20 65 6e 20 74 61 73 74 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 72 65 61 6b 74 ┆es på en tast: 0010 // "reakt┆
0x5740…5760 69 6f 6e 2d 62 22 0d 0a 30 30 32 30 20 52 41 4e 44 4f 4d 49 5a 45 0d 0a 30 30 33 30 20 50 52 49 ┆ion-b" 0020 RANDOMIZE 0030 PRI┆
0x5760…5780 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f ┆NT CHR$(12) 0040 OPEN FILE 1,"/┆
0x5780…57a0 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 35 30 20 44 49 4d 20 76 69 64 65 ┆17/PORT", WRITE 0050 DIM vide┆
0x57a0…57c0 72 65 24 20 4f 46 20 31 30 0d 0a b0 30 30 36 30 20 49 4e 50 55 54 20 22 54 52 59 4b 20 3c 52 45 ┆re$ OF 10 0060 INPUT "TRYK <RE┆
0x57c0…57e0 54 55 52 4e 3e 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 52 20 21 21 22 3a 20 76 69 64 65 72 65 ┆TURN> NÅR DU ER KLAR !!": videre┆
0x57e0…5800 24 0d 0a 30 30 37 30 20 45 58 45 43 20 70 61 75 73 65 28 52 4e 44 28 33 2c 37 29 29 0d 0a 30 30 ┆$ 0070 EXEC pause(RND(3,7)) 00┆
0x5800…5820 (44,) 38 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 30 ┆80 PRINT FILE 1: CHR$(255); 00┆
0x5820…5840 39 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 30 30 20 52 45 50 45 41 54 ┆90 start:=SYS(3)/50 0100 REPEAT┆
0x5840…5860 20 0d 0a 30 31 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d 0a b0 30 31 32 ┆ 0110 UNTIL ORD(KEY$)<>0 012┆
0x5860…5880 30 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 33 30 20 50 52 49 4e 54 20 46 49 ┆0 slut:=SYS(3)/50 0130 PRINT FI┆
0x5880…58a0 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 34 30 20 72 65 61 6b 74 69 6f 6e 73 74 ┆LE 1: CHR$(0); 0140 reaktionst┆
0x58a0…58c0 69 64 3a 3d 73 6c 75 74 2d 73 74 61 72 74 0d 0a b0 30 31 35 30 20 50 52 49 4e 54 20 22 52 45 41 ┆id:=slut-start 0150 PRINT "REA┆
0x58c0…58e0 4b 54 49 4f 4e 53 54 49 44 3a 20 22 3b 72 65 61 6b 74 69 6f 6e 73 74 69 64 3b 22 20 73 65 6b 2e ┆KTIONSTID: ";reaktionstid;" sek.┆
0x58e0…5900 22 0d 0a 30 31 36 30 20 43 4c 4f 53 45 20 0d 0a 30 31 37 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 ┆" 0160 CLOSE 0170 END 00┆
0x5900…5920 36 30 f0 3a 20 48 65 72 20 73 6b 61 6c 20 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 52 45 54 ┆60 : Her skal der trykkes på RET┆
0x5920…5940 55 52 4e 2d 74 61 73 74 65 6e 20 66 7c 72 20 0a 19 80 81 80 72 65 61 6b 74 69 6f 6e 73 6d 7d 6c ┆URN-tasten før reaktionsmål┆
0x5940…5960 69 6e 67 65 6e 20 66 6f 72 65 74 61 67 65 73 2e 20 b0 76 69 64 65 72 65 24 f0 20 65 72 20 65 6e ┆ingen foretages. videre$ er en┆
0x5960…5980 20 64 75 6d 6d 79 2d 0a 19 80 82 80 76 61 72 69 61 62 65 6c 20 64 65 72 20 6b 75 6e 20 62 72 75 ┆ dummy- variabel der kun bru┆
0x5980…59a0 67 65 73 20 74 69 6c 20 61 74 20 73 74 61 6e 64 73 65 20 70 72 6f 67 72 61 6d 80 61 66 80 76 69 ┆ges til at standse program af vi┆
0x59a0…59c0 6b 80 0a 19 80 82 80 6c 69 6e 67 65 6e 20 69 6e 64 74 69 6c 20 64 65 72 20 74 72 79 6b 6b 65 73 ┆k lingen indtil der trykkes┆
0x59c0…59e0 20 70 7d 20 52 45 54 55 52 4e 2d 74 61 73 74 65 6e 2e 0d 0a b0 0d 0a 30 30 39 30 20 6f 67 20 30 ┆ på RETURN-tasten. 0090 og 0┆
0x59e0…5a00 31 32 30 f0 3a 20 4d 69 63 72 6f 27 65 6e 73 20 69 6e 74 65 72 6e 65 20 75 72 20 61 66 6c 7b 73 ┆120 : Micro'ens interne ur aflæs┆
0x5a00…5a20 (45,) 65 73 20 69 20 73 74 61 72 74 65 6e 20 0a 19 80 81 80 28 b0 73 74 61 72 74 f0 29 20 6f 67 20 69 ┆es i starten ( start ) og i┆
0x5a20…5a40 20 73 6c 75 74 6e 69 6e 67 65 6e 20 28 b0 73 6c 75 74 f0 29 20 61 66 20 72 65 61 6b 74 69 6f 6e ┆ slutningen ( slut ) af reaktion┆
0x5a40…5a60 73 70 65 72 69 6f 64 65 6e 2e 0d 0a b0 0d 0a 30 31 34 30 f0 3a 20 52 65 61 6b 74 69 6f 6e 73 74 ┆sperioden. 0140 : Reaktionst┆
0x5a60…5a80 69 64 65 6e 20 62 65 72 65 67 6e 65 73 2e 0d 0a b0 0d 0a 30 31 35 30 f0 3a 20 52 65 61 6b 74 69 ┆iden beregnes. 0150 : Reakti┆
0x5a80…5aa0 6f 6e 73 74 69 64 65 6e 20 73 6b 72 69 76 65 73 20 70 7d 20 73 6b 7b 72 6d 65 6e 2e 0d 0a 0d 0a ┆onstiden skrives på skærmen. ┆
0x5aa0…5ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x5ac0…5ad8 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆---------------------- ┆
0x5ad8…5adb FormFeed {
0x5ad8…5adb 0c 84 a0 ┆ ┆
0x5ad8…5adb }
0x5adb…5ae0 0a 0d 0a 0d 0a ┆ ┆
0x5ae0…5b00 0d 0a 49 20 22 72 65 61 6b 74 69 6f 6e 2d 63 22 20 65 72 20 64 61 74 61 2d 74 72 61 6e 73 6d 69 ┆ I "reaktion-c" er data-transmi┆
0x5b00…5b20 73 73 69 6f 6e 65 6e 20 74 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 20 0a 65 72 73 74 61 74 74 65 ┆ssionen til lyspanelet erstatte┆
0x5b20…5b40 74 20 6d 65 64 20 43 48 52 24 28 37 29 2c 20 64 65 72 20 66 7d 72 20 6d 69 63 72 6f 65 6e 20 74 ┆t med CHR$(7), der får microen t┆
0x5b40…5b60 69 6c 20 61 74 20 67 69 76 65 20 65 74 20 0a 64 79 74 20 65 6c 6c 65 72 20 65 74 20 62 65 65 70 ┆il at give et dyt eller et beep┆
0x5b60…5b80 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 72 65 61 6b 74 69 6f 6e 2d 63 22 0d 0a 30 30 32 30 20 ┆: 0010 // "reaktion-c" 0020 ┆
0x5b80…5ba0 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 30 30 33 30 20 52 41 4e 44 4f 4d 49 5a 45 20 0d ┆PRINT CHR$(12) 0030 RANDOMIZE ┆
0x5ba0…5bc0 0a 30 30 34 30 20 44 49 4d 20 76 69 64 65 72 65 24 20 4f 46 20 31 30 0d 0a 30 30 35 30 20 49 4e ┆ 0040 DIM videre$ OF 10 0050 IN┆
0x5bc0…5be0 50 55 54 20 22 54 52 59 4b 20 3c 52 45 54 55 52 4e 3e 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 ┆PUT "TRYK <RETURN> NÅR DU ER KLA┆
0x5be0…5c00 52 20 21 21 22 3a 20 76 69 64 65 72 65 24 0d 0a 30 30 36 30 20 45 58 45 43 20 70 61 75 73 65 28 ┆R !!": videre$ 0060 EXEC pause(┆
0x5c00…5c20 (46,) 52 4e 44 28 33 2c 37 29 29 0d 0a b0 30 30 37 30 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 0d 0a ┆RND(3,7)) 0070 PRINT CHR$(7) ┆
0x5c20…5c40 30 30 38 30 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 30 39 30 20 52 45 50 45 ┆0080 start:=SYS(3)/50 0090 REPE┆
0x5c40…5c60 41 54 20 0d 0a 30 31 30 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3c 3e 30 0d 0a 30 31 ┆AT 0100 UNTIL ORD(KEY$)<>0 01┆
0x5c60…5c80 31 30 20 73 6c 75 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a 30 31 32 30 20 72 65 61 6b 74 69 6f ┆10 slut:=SYS(3)/50 0120 reaktio┆
0x5c80…5ca0 6e 73 74 69 64 3a 3d 73 6c 75 74 2d 73 74 61 72 74 0d 0a 30 31 33 30 20 50 52 49 4e 54 20 22 52 ┆nstid:=slut-start 0130 PRINT "R┆
0x5ca0…5cc0 45 41 4b 54 49 4f 4e 53 54 49 44 3a 20 22 3b 72 65 61 6b 74 69 6f 6e 73 74 69 64 3b 22 20 73 65 ┆EAKTIONSTID: ";reaktionstid;" se┆
0x5cc0…5ce0 6b 2e 22 0d 0a 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆k." 0140 END --------------┆
0x5ce0…5d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x5d00…5d20 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 4e 6f 72 6d 61 6c 74 20 65 72 20 6d 61 6e 20 68 75 72 74 ┆------- Normalt er man hurt┆
0x5d20…5d40 69 67 65 72 65 20 74 69 6c 20 61 74 20 72 65 61 67 65 72 65 20 70 7d 20 65 74 20 6c 79 64 2d 0a ┆igere til at reagere på et lyd- ┆
0x5d40…5d60 73 69 67 6e 61 6c 2c 20 65 6e 64 20 70 7d 20 65 74 20 6c 79 73 2d 73 69 67 6e 61 6c 2e 20 4d 65 ┆signal, end på et lys-signal. Me┆
0x5d60…5d80 6e 20 64 65 74 20 65 72 20 64 65 72 20 6a 6f 20 0a 6d 75 6c 69 67 68 65 64 20 66 6f 72 20 61 74 ┆n det er der jo mulighed for at┆
0x5d80…5da0 20 75 6e 64 65 72 73 7c 67 65 20 6d 65 64 20 64 65 20 74 6f 20 6f 76 65 6e 73 74 7d 65 6e 64 65 ┆ undersøge med de to ovenstående┆
0x5da0…5daf 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 0d 0a ┆ programmer. ┆
0x5daf…5db2 FormFeed {
0x5daf…5db2 0c 81 68 ┆ h┆
0x5daf…5db2 }
0x5db2…5dc0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 ┆ PROBLE┆
0x5dc0…5de0 4d 20 22 46 59 52 22 3a 0d 0a 0d 0a 0d 0a 48 65 72 20 65 72 20 62 65 73 6b 72 65 76 65 74 20 22 ┆M "FYR": Her er beskrevet "┆
0x5de0…5e00 66 79 72 2d 64 22 20 73 6f 6d 20 65 6e 20 6d 75 6c 69 67 20 6c 7c 73 6e 69 6e 67 20 70 7d 20 0a ┆fyr-d" som en mulig løsning på ┆
0x5e00…5e20 (47,) 70 72 6f 62 6c 65 6d 65 74 20 69 20 65 6c 65 76 74 65 6b 73 74 65 6e 3a 0d 0a 0d 0a b0 30 30 31 ┆problemet i elevteksten: 001┆
0x5e20…5e40 30 20 2f 2f 20 22 66 79 72 2d 64 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 33 ┆0 // "fyr-d" 0020 CLOSE 003┆
0x5e40…5e60 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 ┆0 OPEN FILE 1,"/17/PORT", WRITE ┆
0x5e60…5e80 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a ┆ 0040 PRINT FILE 1: CHR$(0); ┆
0x5e80…5ea0 b0 30 30 35 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 6c 79 73 28 ┆ 0050 REPEAT 0060 EXEC lys(┆
0x5ea0…5ec0 34 29 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 32 29 0d 0a b0 30 30 38 30 ┆4) 0070 EXEC mørke(2) 0080┆
0x5ec0…5ee0 20 20 20 45 58 45 43 20 69 73 6f 66 61 73 65 62 6c 69 6e 6b 28 35 2c 32 29 0d 0a b0 30 30 39 30 ┆ EXEC isofaseblink(5,2) 0090┆
0x5ee0…5f00 20 20 20 45 58 45 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 32 30 29 0d 0a b0 30 31 30 30 20 20 ┆ EXEC hurtigblink(20) 0100 ┆
0x5f00…5f20 20 45 58 45 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 28 35 2c 33 29 0d 0a b0 30 31 31 30 20 55 4e ┆ EXEC gruppeblink(5,3) 0110 UN┆
0x5f20…5f40 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 32 30 20 50 52 49 4e 54 20 46 49 ┆TIL ORD(KEY$)=32 0120 PRINT FI┆
0x5f40…5f60 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 33 30 20 43 4c 4f 53 45 20 46 49 4c 45 ┆LE 1: CHR$(0); 0130 CLOSE FILE┆
0x5f60…5f80 20 31 0d 0a b0 30 31 34 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 73 6c ┆ 1 0140 END 0040 : Her sl┆
0x5f80…5fa0 75 6b 6b 65 73 20 61 6c 6c 65 20 6c 61 6d 70 65 72 20 64 65 72 20 6d 7d 74 74 65 20 76 7b 72 65 ┆ukkes alle lamper der måtte være┆
0x5fa0…5fc0 20 74 7b 6e 64 74 20 66 7c 72 20 0a 19 80 81 80 70 72 6f 67 72 61 6d 6d 65 74 20 62 6c 65 76 20 ┆ tændt før programmet blev ┆
0x5fc0…5fe0 73 74 61 72 74 65 74 2e 0d 0a 0d 0a b0 30 30 36 30 2d 30 31 30 30 f0 3a 20 48 65 72 20 65 72 20 ┆startet. 0060-0100 : Her er ┆
0x5fe0…6000 73 65 6c 76 65 20 66 79 72 65 74 73 20 6b 61 72 61 6b 74 65 72 69 73 74 69 6b 20 73 6f 6d 20 0a ┆selve fyrets karakteristik som ┆
0x6000…6020 (48,) 19 80 81 80 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 2e 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ procedurekald. ---------┆
0x6020…6040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6040…6060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 6c 79 73 28 34 29 f0 20 74 ┆------------- EXEC lys(4) t┆
0x6060…6080 7b 6e 64 65 72 20 66 79 72 65 74 20 69 20 34 20 73 65 6b 75 6e 64 65 72 3a 0d 0a 0d 0a b0 30 31 ┆ænder fyret i 4 sekunder: 01┆
0x6080…60a0 36 30 20 50 52 4f 43 20 6c 79 73 28 73 65 6b 29 0d 0a b0 30 31 37 30 20 20 20 50 52 49 4e 54 20 ┆60 PROC lys(sek) 0170 PRINT ┆
0x60a0…60c0 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 31 38 30 20 20 20 45 58 45 43 ┆FILE 1: CHR$(255); 0180 EXEC┆
0x60c0…60e0 20 70 61 75 73 65 28 73 65 6b 29 0d 0a b0 30 31 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆ pause(sek) 0190 PRINT FILE ┆
0x60e0…6100 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 4f 43 20 6c 79 73 0d 0a ┆1: CHR$(0); 0200 ENDPROC lys ┆
0x6100…6120 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0x6120…6140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 ┆------------------------ EXE┆
0x6140…6160 43 20 6d 7c 72 6b 65 28 32 29 f0 20 73 6c 75 6b 6b 65 72 20 66 79 72 65 74 20 69 20 32 20 73 65 ┆C mørke(2) slukker fyret i 2 se┆
0x6160…6180 6b 75 6e 64 65 72 3a 20 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 6d 7c 72 6b 65 28 73 65 6b 29 ┆kunder: 0220 PROC mørke(sek)┆
0x6180…61a0 0d 0a b0 30 32 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b ┆ 0230 PRINT FILE 1: CHR$(0);┆
0x61a0…61c0 0d 0a b0 30 32 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 73 65 6b 29 0d 0a b0 30 32 35 30 ┆ 0240 EXEC pause(sek) 0250┆
0x61c0…61e0 20 45 4e 44 50 52 4f 43 20 6d 7c 72 6b 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC mørke --------------┆
0x61e0…6200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6200…6220 (49,) 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 69 73 6f 66 61 73 65 62 6c 69 6e 6b 28 35 ┆-------- EXEC isofaseblink(5┆
0x6220…6240 2c 32 29 f0 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 35 20 62 6c 69 ┆,2) får fyret til at give 5 bli┆
0x6240…6260 6e 6b 2c 20 0a 19 80 81 80 68 76 6f 72 20 b0 68 76 65 72 74 f0 20 62 6c 69 6e 6b 20 62 65 73 74 ┆nk, hvor hvert blink best┆
0x6260…6280 7d 72 20 61 66 20 65 6e 20 6c 79 73 70 65 72 69 6f 64 65 20 6f 67 20 65 6e 20 0a 19 80 82 80 6d ┆år af en lysperiode og en m┆
0x6280…62a0 7c 72 6b 65 70 65 72 69 6f 64 65 20 64 65 72 20 65 72 20 6c 69 67 65 20 6c 61 6e 67 65 20 28 3d ┆ørkeperiode der er lige lange (=┆
0x62a0…62c0 69 73 6f 66 61 73 65 29 2c 20 74 69 6c 73 61 6d 6d 65 6e 20 32 20 0a 19 80 82 80 73 65 6b 75 6e ┆isofase), tilsammen 2 sekun┆
0x62c0…62e0 64 65 72 2e 20 b0 62 6c 69 6e 6b 74 69 64 f0 20 65 72 20 61 6c 74 73 7d 20 6c 79 73 70 65 72 69 ┆der. blinktid er altså lysperi┆
0x62e0…6300 6f 64 65 6e 20 2b 20 6d 7c 72 6b 65 80 0a 19 80 83 80 70 65 72 69 6f 64 65 6e 3a 0d 0a 0d 0a b0 ┆oden + mørke perioden: ┆
0x6300…6320 30 32 37 30 20 50 52 4f 43 20 69 73 6f 66 61 73 65 62 6c 69 6e 6b 28 61 6e 74 61 6c 62 6c 69 6e ┆0270 PROC isofaseblink(antalblin┆
0x6320…6340 6b 2c 62 6c 69 6e 6b 74 69 64 29 0d 0a b0 30 32 38 30 20 20 20 46 4f 52 20 62 6c 69 6e 6b 3a 3d ┆k,blinktid) 0280 FOR blink:=┆
0x6340…6360 31 20 54 4f 20 61 6e 74 61 6c 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 32 39 30 20 20 20 20 20 45 58 ┆1 TO antalblink DO 0290 EX┆
0x6360…6380 45 43 20 6c 79 73 28 62 6c 69 6e 6b 74 69 64 2f 32 29 0d 0a b0 30 33 30 30 20 20 20 20 20 45 58 ┆EC lys(blinktid/2) 0300 EX┆
0x6380…63a0 45 43 20 6d 7c 72 6b 65 28 62 6c 69 6e 6b 74 69 64 2f 32 29 0d 0a b0 30 33 31 30 20 20 20 4e 45 ┆EC mørke(blinktid/2) 0310 NE┆
0x63a0…63c0 58 54 20 62 6c 69 6e 6b 0d 0a b0 30 33 32 30 20 45 4e 44 50 52 4f 43 20 69 73 6f 66 61 73 65 62 ┆XT blink 0320 ENDPROC isofaseb┆
0x63c0…63e0 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆link ------------------------┆
0x63e0…6400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆
0x6400…6403 (50,) FormFeed {
0x6400…6403 0c 84 88 ┆ ┆
0x6400…6403 }
0x6403…6420 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 32 30 29 f0 ┆ EXEC hurtigblink(20) ┆
0x6420…6440 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 32 30 20 68 75 72 74 69 67 ┆ får fyret til at give 20 hurtig┆
0x6440…6460 65 20 0a 19 80 81 80 62 6c 69 6e 6b 2c 20 64 2e 76 2e 73 2e 20 63 61 2e 20 36 30 20 62 6c 69 6e ┆e blink, d.v.s. ca. 60 blin┆
0x6460…6480 6b 20 70 72 2e 20 6d 69 6e 75 74 2e 20 4c 79 73 70 65 72 69 6f 64 65 6e 20 65 72 20 0a 19 80 81 ┆k pr. minut. Lysperioden er ┆
0x6480…64a0 80 6c 69 67 65 20 73 7d 20 6c 61 6e 67 20 73 6f 6d 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 3a ┆ lige så lang som mørkeperioden:┆
0x64a0…64c0 0d 0a 0d 0a b0 30 33 34 30 20 50 52 4f 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 28 61 6e 74 61 6c ┆ 0340 PROC hurtigblink(antal┆
0x64c0…64e0 62 6c 69 6e 6b 29 0d 0a b0 30 33 35 30 20 20 20 46 4f 52 20 62 6c 69 6e 6b 3a 3d 31 20 54 4f 20 ┆blink) 0350 FOR blink:=1 TO ┆
0x64e0…6500 61 6e 74 61 6c 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 33 36 30 20 20 20 20 20 45 58 45 43 20 6c 79 ┆antalblink DO 0360 EXEC ly┆
0x6500…6520 73 28 30 2e 35 29 0d 0a b0 30 33 37 30 20 20 20 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 30 2e 35 ┆s(0.5) 0370 EXEC mørke(0.5┆
0x6520…6540 29 0d 0a b0 30 33 38 30 20 20 20 4e 45 58 54 20 62 6c 69 6e 6b 0d 0a b0 30 33 39 30 20 45 4e 44 ┆) 0380 NEXT blink 0390 END┆
0x6540…6560 50 52 4f 43 20 68 75 72 74 69 67 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PROC hurtigblink ------------┆
0x6560…6580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6580…65a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 28 ┆---------- EXEC gruppeblink(┆
0x65a0…65c0 35 2c 33 29 f0 20 66 7d 72 20 66 79 72 65 74 20 74 69 6c 20 61 74 20 67 69 76 65 20 35 20 62 6c ┆5,3) får fyret til at give 5 bl┆
0x65c0…65e0 69 6e 6b 80 0a 19 80 81 80 67 72 75 70 70 65 72 20 61 27 20 33 20 62 6c 69 6e 6b 2e 20 4c 79 73 ┆ink grupper a' 3 blink. Lys┆
0x65e0…6600 70 65 72 69 6f 64 65 6e 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 6e 20 65 72 20 0a 19 80 ┆perioden og mørkeperioden er ┆
0x6600…6620 (51,) 81 80 62 65 67 67 65 20 70 7d 20 65 74 20 68 61 6c 76 74 20 73 65 6b 75 6e 64 2c 20 6f 67 20 70 ┆ begge på et halvt sekund, og p┆
0x6620…6640 61 75 73 65 6e 20 6d 65 6c 6c 65 6d 20 67 72 75 70 70 65 72 6e 65 20 0a 19 80 81 80 65 72 20 70 ┆ausen mellem grupperne er p┆
0x6640…6660 7d 20 33 20 73 65 6b 75 6e 64 65 72 3a 0d 0a 0d 0a b0 30 34 31 30 20 50 52 4f 43 20 67 72 75 70 ┆å 3 sekunder: 0410 PROC grup┆
0x6660…6680 70 65 62 6c 69 6e 6b 28 61 6e 74 61 6c 67 72 75 70 70 65 72 2c 61 6e 74 61 6c 67 70 62 6c 69 6e ┆peblink(antalgrupper,antalgpblin┆
0x6680…66a0 6b 29 0d 0a b0 30 34 32 30 20 20 20 46 4f 52 20 67 72 75 70 70 65 3a 3d 31 20 54 4f 20 61 6e 74 ┆k) 0420 FOR gruppe:=1 TO ant┆
0x66a0…66c0 61 6c 67 72 75 70 70 65 72 20 44 4f 0d 0a b0 30 34 33 30 20 20 20 20 20 46 4f 52 20 67 70 62 6c ┆algrupper DO 0430 FOR gpbl┆
0x66c0…66e0 69 6e 6b 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 67 70 62 6c 69 6e 6b 20 44 4f 0d 0a b0 30 34 34 30 ┆ink:=1 TO antalgpblink DO 0440┆
0x66e0…6700 20 20 20 20 20 20 20 45 58 45 43 20 6c 79 73 28 30 2e 35 29 0d 0a b0 30 34 35 30 20 20 20 20 20 ┆ EXEC lys(0.5) 0450 ┆
0x6700…6720 20 20 45 58 45 43 20 6d 7c 72 6b 65 28 30 2e 35 29 0d 0a b0 30 34 36 30 20 20 20 20 20 4e 45 58 ┆ EXEC mørke(0.5) 0460 NEX┆
0x6720…6740 54 20 67 70 62 6c 69 6e 6b 0d 0a b0 30 34 37 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆T gpblink 0470 EXEC pause(┆
0x6740…6760 33 29 0d 0a b0 30 34 38 30 20 20 20 4e 45 58 54 20 67 72 75 70 70 65 0d 0a b0 30 34 39 30 20 45 ┆3) 0480 NEXT gruppe 0490 E┆
0x6760…6780 4e 44 50 52 4f 43 20 67 72 75 70 70 65 62 6c 69 6e 6b 0d 0a 0d 0a b0 30 34 33 30 2d 34 36 30 f0 ┆NDPROC gruppeblink 0430-460 ┆
0x6780…67a0 3a 20 44 65 6e 20 65 6e 6b 65 6c 74 65 20 62 6c 69 6e 6b 2d 67 72 75 70 70 65 2e 0d 0a 0d 0a b0 ┆: Den enkelte blink-gruppe. ┆
0x67a0…67c0 30 34 32 30 2d 34 38 30 f0 3a 20 41 6e 74 61 6c 6c 65 74 20 61 66 20 62 6c 69 6e 6b 2d 67 72 75 ┆0420-480 : Antallet af blink-gru┆
0x67c0…67e0 70 70 65 72 2e 0d 0a 0d 0a b0 30 34 37 30 f0 3a 20 50 61 75 73 65 6e 20 6d 65 6c 6c 65 6d 20 62 ┆pper. 0470 : Pausen mellem b┆
0x67e0…6800 6c 69 6e 6b 2d 67 72 75 70 70 65 72 6e 65 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆link-grupperne. -------------┆
0x6800…6820 (52,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6820…6840 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4f 67 20 68 65 72 20 b0 50 52 4f 43 20 70 61 75 73 65 28 ┆--------- Og her PROC pause(┆
0x6840…6860 58 29 f0 3a 0d 0a 0d 0a b0 30 35 31 30 20 50 52 4f 43 20 70 61 75 73 65 28 73 65 6b 75 6e 64 65 ┆X) : 0510 PROC pause(sekunde┆
0x6860…6880 72 29 0d 0a b0 30 35 32 30 20 20 20 73 74 61 72 74 3a 3d 53 59 53 28 33 29 2f 35 30 0d 0a b0 30 ┆r) 0520 start:=SYS(3)/50 0┆
0x6880…68a0 35 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 35 34 30 20 20 20 20 20 73 6c 75 74 3a 3d 53 ┆530 REPEAT 0540 slut:=S┆
0x68a0…68c0 59 53 28 33 29 2f 35 30 0d 0a b0 30 35 35 30 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 2d 73 74 61 ┆YS(3)/50 0550 UNTIL slut-sta┆
0x68c0…68e0 72 74 3e 3d 73 65 6b 75 6e 64 65 72 0d 0a b0 30 35 36 30 20 45 4e 44 50 52 4f 43 20 70 61 75 73 ┆rt>=sekunder 0560 ENDPROC paus┆
0x68e0…6900 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆e ---------------------------┆
0x6900…6920 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d ┆--------------------------- ┆
0x6920…6940 0a 50 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e 20 6e 61 74 75 72 6c 69 67 76 69 73 20 75 64 62 79 ┆ Programmet kan naturligvis udby┆
0x6940…6960 67 67 65 73 20 65 66 74 65 72 20 7c 6e 73 6b 65 2e 20 49 20 0a 65 6c 65 76 74 65 6b 73 74 65 6e ┆gges efter ønske. I elevteksten┆
0x6960…6980 20 65 72 20 64 65 72 20 65 6b 73 65 6d 70 6c 65 72 20 70 7d 20 61 6e 64 72 65 20 66 79 72 2d 6b ┆ er der eksempler på andre fyr-k┆
0x6980…6995 61 72 61 6b 74 65 72 69 1e 0d 0a 73 74 69 6b 6b 65 72 2e 0d 0a ┆arakteri stikker. ┆
0x6995…6998 FormFeed {
0x6995…6998 0c 83 30 ┆ 0┆
0x6995…6998 }
0x6998…69a0 0a 0d 0a 0d 0a 0d 0a b0 ┆ ┆
0x69a0…69c0 50 52 4f 42 4c 45 4d 20 22 4d 4f 52 53 45 22 3a 0d 0a 0d 0a 0d 0a 22 53 4f 53 22 20 28 20 2e 2e ┆PROBLEM "MORSE": "SOS" ( ..┆
0x69c0…69e0 2e 2d 2d 2d 2e 2e 2e 20 29 20 6b 61 6e 20 6c 61 76 65 73 20 65 66 74 65 72 20 22 47 5c 47 2d 4f ┆.---... ) kan laves efter "GØG-O┆
0x69e0…6a00 47 2d 47 4f 4b 4b 45 2d 0a 4d 45 54 4f 44 45 4e 22 2c 20 61 6c 74 73 7d 20 6d 65 64 20 65 6e 20 ┆G-GOKKE- METODEN", altså med en ┆
0x6a00…6a20 (53,) 22 50 52 49 4e 54 20 46 49 4c 45 22 2d 73 7b 74 6e 69 6e 67 20 74 69 6c 20 68 76 65 72 20 0a 70 ┆"PRINT FILE"-sætning til hver p┆
0x6a20…6a40 72 69 6b 2f 73 74 72 65 67 20 73 61 6d 74 20 65 74 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 20 ┆rik/streg samt et procedurekald ┆
0x6a40…6a60 6d 65 6c 6c 65 6d 20 61 6c 6c 65 20 0a 70 72 69 6b 6b 65 72 2f 73 74 72 65 67 65 72 2e 20 22 6d ┆mellem alle prikker/streger. "m┆
0x6a60…6a80 6f 72 73 65 2d 61 22 20 65 72 20 6c 61 76 65 74 20 65 66 74 65 72 20 64 65 74 74 65 20 0a 70 72 ┆orse-a" er lavet efter dette pr┆
0x6a80…6aa0 69 6e 63 69 70 2c 20 73 6f 6d 20 6e 61 74 75 72 6c 69 67 76 69 73 20 65 72 20 65 6e 20 62 65 73 ┆incip, som naturligvis er en bes┆
0x6aa0…6ac0 76 7b 72 6c 69 67 20 6c 7c 73 6e 69 6e 67 2e 20 0a 4d 65 6e 20 64 65 74 20 76 69 72 6b 65 72 3a ┆værlig løsning. Men det virker:┆
0x6ac0…6ae0 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 61 22 0d 0a b0 30 30 32 30 20 43 4c ┆ 0010 // "morse-a" 0020 CL┆
0x6ae0…6b00 4f 53 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 ┆OSE 0030 OPEN FILE 1,"/17/POR┆
0x6b00…6b20 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 0d 0a 48 65 72 ┆T", WRITE 0040 REPEAT Her┆
0x6b20…6b40 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 65 20 70 72 69 6b 6b 65 72 3a 0d 0a 0d 0a b0 30 30 36 30 ┆ kommer de tre prikker: 0060┆
0x6b40…6b60 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 30 ┆ PRINT FILE 1: CHR$(255); 00┆
0x6b60…6b80 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 ┆70 EXEC pause(0.2) 0080 PR┆
0x6b80…6ba0 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 39 30 20 20 20 45 58 ┆INT FILE 1: CHR$(0); 0090 EX┆
0x6ba0…6bc0 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c ┆EC pause(0.2) 0100 PRINT FIL┆
0x6bc0…6be0 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 61 ┆E 1: CHR$(255); 0110 EXEC pa┆
0x6be0…6c00 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆use(0.2) 0120 PRINT FILE 1: ┆
0x6c00…6c20 (54,) 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 ┆CHR$(0); 0130 EXEC pause(0.2┆
0x6c20…6c40 29 0d 0a b0 30 31 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 ┆) 0140 PRINT FILE 1: CHR$(25┆
0x6c40…6c60 35 29 3b 0d 0a b0 30 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 ┆5); 0150 EXEC pause(0.2) 0┆
0x6c60…6c80 31 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 ┆160 PRINT FILE 1: CHR$(0); 0┆
0x6c80…6ca0 31 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 31 39 30 20 20 20 45 ┆170 EXEC pause(0.2) 0190 E┆
0x6ca0…6cc0 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 64 65 20 74 72 ┆XEC pause(1) Her kommer de tr┆
0x6cc0…6ce0 65 20 73 74 72 65 67 65 72 3a 0d 0a 0d 0a b0 30 32 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆e streger: 0210 PRINT FILE┆
0x6ce0…6d00 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 32 32 30 20 20 20 45 58 45 43 20 70 61 75 ┆ 1: CHR$(255); 0220 EXEC pau┆
0x6d00…6d20 73 65 28 30 2e 35 29 0d 0a b0 30 32 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆se(0.5) 0230 PRINT FILE 1: C┆
0x6d20…6d40 48 52 24 28 30 29 3b 0d 0a b0 30 32 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 ┆HR$(0); 0240 EXEC pause(0.2)┆
0x6d40…6d60 0d 0a b0 30 32 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 ┆ 0250 PRINT FILE 1: CHR$(255┆
0x6d60…6d80 29 3b 0d 0a b0 30 32 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 32 ┆); 0260 EXEC pause(0.5) 02┆
0x6d80…6da0 37 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 ┆70 PRINT FILE 1: CHR$(0); 02┆
0x6da0…6dc0 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 39 30 20 20 20 50 52 ┆80 EXEC pause(0.2) 0290 PR┆
0x6dc0…6de0 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 33 30 30 20 20 20 ┆INT FILE 1: CHR$(255); 0300 ┆
0x6de0…6e00 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 33 31 30 20 20 20 50 52 49 4e 54 20 46 ┆EXEC pause(0.5) 0310 PRINT F┆
0x6e00…6e20 (55,) 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 32 30 20 20 20 45 58 45 43 20 70 61 ┆ILE 1: CHR$(0); 0320 EXEC pa┆
0x6e20…6e40 75 73 65 28 30 2e 32 29 0d 0a b0 30 33 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d ┆use(0.2) 0340 EXEC pause(1) ┆
0x6e40…6e60 0a 0d 0a 4f 67 20 68 65 72 20 65 72 20 73 7d 20 74 72 65 20 70 72 69 6b 6b 65 72 20 69 67 65 6e ┆ Og her er så tre prikker igen┆
0x6e60…6e80 3a 0d 0a 0d 0a b0 30 33 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 ┆: 0360 PRINT FILE 1: CHR$(┆
0x6e80…6ea0 32 35 35 29 3b 0d 0a b0 30 33 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a ┆255); 0370 EXEC pause(0.2) ┆
0x6ea0…6ec0 b0 2e 0d 0a b0 2e 0d 0a 6f 2e 73 2e 76 2e 0d 0a 0d 0a 4f 67 20 74 69 6c 20 73 69 64 73 74 20 61 ┆ . . o.s.v. Og til sidst a┆
0x6ec0…6ee0 66 73 6c 75 74 6e 69 6e 67 65 6e 20 70 7d 20 70 72 6f 67 72 61 6d 6d 65 74 3a 0d 0a 0d 0a b0 30 ┆fslutningen på programmet: 0┆
0x6ee0…6f00 35 31 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 35 32 30 20 50 52 ┆510 UNTIL ORD(KEY$)=32 0520 PR┆
0x6f00…6f20 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 35 33 30 20 43 4c 4f 53 ┆INT FILE 1: CHR$(0); 0530 CLOS┆
0x6f20…6f40 45 20 0d 0a b0 30 35 34 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E 0540 END --------------┆
0x6f40…6f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6f60…6f6a 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆-------- ┆
0x6f6a…6f6d FormFeed {
0x6f6a…6f6d 0c 84 90 ┆ ┆
0x6f6a…6f6d }
0x6f6d…6f80 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 62 22 20 65 72 ┆ "morse-b" er┆
0x6f80…6fa0 20 65 6e 20 6c 7c 73 6e 69 6e 67 20 70 7d 20 64 65 74 20 73 61 6d 6d 65 20 70 72 6f 62 6c 65 6d ┆ en løsning på det samme problem┆
0x6fa0…6fc0 2e 20 48 65 72 20 65 72 20 0a 64 65 72 20 6c 61 76 65 74 20 65 6e 20 70 72 6f 63 65 64 75 72 65 ┆. Her er der lavet en procedure┆
0x6fc0…6fe0 20 74 69 6c 20 68 68 76 2e 20 65 6e 20 70 72 69 6b 20 6f 67 20 65 6e 20 73 74 72 65 67 3a 0d 0a ┆ til hhv. en prik og en streg: ┆
0x6fe0…7000 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 62 22 0d 0a b0 30 30 32 30 20 43 4c ┆ 0010 // "morse-b" 0020 CL┆
0x7000…7020 (56,) 4f 53 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 ┆OSE 0030 OPEN FILE 1,"/17/POR┆
0x7020…7040 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆T", WRITE 0040 PRINT FILE 1: ┆
0x7040…7060 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 35 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 37 30 20 20 ┆CHR$(0); 0050 REPEAT 0070 ┆
0x7060…7080 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a b0 30 30 38 30 20 20 20 45 58 45 43 20 6d 65 6c 6c ┆ EXEC prik(3) 0080 EXEC mell┆
0x7080…70a0 65 6d 72 75 6d 28 31 29 0d 0a b0 30 30 39 30 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d ┆emrum(1) 0090 EXEC streg(3) ┆
0x70a0…70c0 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 31 31 ┆ 0100 EXEC mellemrum(1) 011┆
0x70c0…70e0 30 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 6d ┆0 EXEC prik(3) 0120 EXEC m┆
0x70e0…7100 65 6c 6c 65 6d 72 75 6d 28 37 29 0d 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 ┆ellemrum(7) 0140 UNTIL ORD(KEY┆
0x7100…7120 24 29 3d 33 32 0d 0a b0 30 31 35 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 ┆$)=32 0150 PRINT FILE 1: CHR$(┆
0x7120…7140 30 29 3b 0d 0a b0 30 31 36 30 20 43 4c 4f 53 45 20 0d 0a b0 30 31 37 30 20 45 4e 44 20 0d 0a 0d ┆0); 0160 CLOSE 0170 END ┆
0x7140…7160 0a b0 30 31 39 30 20 50 52 4f 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 61 6e 74 61 6c 29 0d 0a b0 30 ┆ 0190 PROC mellemrum(antal) 0┆
0x7160…7180 32 30 30 20 20 20 46 4f 52 20 6e 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 20 45 58 45 43 20 ┆200 FOR n:=1 TO antal DO EXEC ┆
0x7180…71a0 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 31 30 20 45 4e 44 50 52 4f 43 20 6d 65 6c 6c 65 6d ┆pause(0.2) 0210 ENDPROC mellem┆
0x71a0…71c0 72 75 6d 0d 0a 0d 0a b0 30 32 33 30 20 50 52 4f 43 20 70 72 69 6b 28 61 6e 74 61 6c 29 0d 0a b0 ┆rum 0230 PROC prik(antal) ┆
0x71c0…71e0 30 32 34 30 20 20 20 46 4f 52 20 70 72 69 6b 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f ┆0240 FOR priknr:=1 TO antal DO┆
0x71e0…7200 0d 0a b0 30 32 35 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 ┆ 0250 PRINT FILE 1: CHR$(2┆
0x7200…7220 (57,) 35 35 29 3b 0d 0a b0 30 32 36 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d ┆55); 0260 EXEC pause(0.2) ┆
0x7220…7240 0a b0 30 32 37 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 ┆ 0270 PRINT FILE 1: CHR$(0)┆
0x7240…7260 3b 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 ┆; 0280 EXEC pause(0.2) 0┆
0x7260…7280 32 39 30 20 20 20 4e 45 58 54 20 70 72 69 6b 6e 72 0d 0a b0 30 33 30 30 20 45 4e 44 50 52 4f 43 ┆290 NEXT priknr 0300 ENDPROC┆
0x7280…72a0 20 70 72 69 6b 0d 0a b0 0d 0a b0 30 33 32 30 20 50 52 4f 43 20 73 74 72 65 67 28 61 6e 74 61 6c ┆ prik 0320 PROC streg(antal┆
0x72a0…72c0 29 0d 0a b0 30 33 33 30 20 20 20 46 4f 52 20 73 74 72 65 67 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 ┆) 0330 FOR stregnr:=1 TO ant┆
0x72c0…72e0 61 6c 20 44 4f 0d 0a b0 30 33 34 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆al DO 0340 PRINT FILE 1: C┆
0x72e0…7300 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 33 35 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆HR$(255); 0350 EXEC pause(┆
0x7300…7320 30 2e 35 29 0d 0a b0 30 33 36 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 ┆0.5) 0360 PRINT FILE 1: CH┆
0x7320…7340 52 24 28 30 29 3b 0d 0a b0 30 33 37 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 ┆R$(0); 0370 EXEC pause(0.2┆
0x7340…7360 29 0d 0a b0 30 33 38 30 20 20 20 4e 45 58 54 20 73 74 72 65 67 6e 72 0d 0a b0 30 33 39 30 20 45 ┆) 0380 NEXT stregnr 0390 E┆
0x7360…7380 4e 44 50 52 4f 43 20 73 74 72 65 67 0d 0a 0d 0a 0d 0a b0 30 30 37 30 2d 30 31 32 30 f0 3a 20 48 ┆NDPROC streg 0070-0120 : H┆
0x7380…73a0 65 72 20 22 6b 61 6c 64 65 73 22 20 70 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 ┆er "kaldes" prikkerne og streger┆
0x73a0…73c0 6e 65 20 68 76 65 72 20 0a 19 80 81 80 66 6f 72 20 73 69 67 2e 20 b0 45 58 45 43 20 6d 65 6c 6c ┆ne hver for sig. EXEC mell┆
0x73c0…73e0 65 6d 72 75 6d 28 31 29 f0 20 73 76 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d ┆emrum(1) svarer til mellemrum m┆
0x73e0…7400 65 6c 6c 65 6d 20 0a 19 80 82 80 70 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e ┆ellem prikkerne og stregern┆
0x7400…7420 (58,) 65 20 69 20 6f 67 20 6d 65 6c 6c 65 6d 20 62 6f 67 73 74 61 76 65 72 6e 65 2c 20 6f 67 20 0a 19 ┆e i og mellem bogstaverne, og ┆
0x7420…7440 80 82 80 b0 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 f0 20 73 76 61 72 65 72 20 74 69 ┆ EXEC mellemrum(7) svarer ti┆
0x7440…7460 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d 65 6c 6c 65 6d 20 6f 72 64 65 6e 65 2e 20 20 20 20 0d 0a ┆l mellemrum mellem ordene. ┆
0x7460…7480 0d 0a b0 30 31 39 30 2d 30 32 31 30 f0 3a 20 45 74 20 6d 65 6c 6c 65 6d 72 75 6d 20 73 76 61 72 ┆ 0190-0210 : Et mellemrum svar┆
0x7480…74a0 65 72 20 62 6c 6f 74 20 74 69 6c 20 65 6e 20 70 61 75 73 65 20 70 7d 20 0a 19 80 81 80 30 2e 32 ┆er blot til en pause på 0.2┆
0x74a0…74c0 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 32 33 30 2d 30 33 30 30 f0 3a 20 45 6e 20 70 72 ┆ sekunder. 0230-0300 : En pr┆
0x74c0…74e0 69 6b 20 62 65 73 74 7d 72 20 61 66 20 65 6e 20 6c 79 73 70 65 72 69 6f 64 65 20 70 7d 20 30 2e ┆ik består af en lysperiode på 0.┆
0x74e0…7500 32 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 20 6f 67 20 65 6e 20 6d 7c 72 6b 65 70 65 72 69 6f ┆2 sekunder og en mørkeperio┆
0x7500…7520 64 65 20 70 7d 20 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 33 32 2d 30 33 39 30 ┆de på 0.2 sekunder. 032-0390┆
0x7520…7540 f0 3a 20 45 6e 20 73 74 72 65 67 20 62 65 73 74 7d 72 20 61 66 20 65 6e 20 6c 79 73 70 65 72 69 ┆ : En streg består af en lysperi┆
0x7540…7560 6f 64 65 20 70 7d 20 30 2e 35 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 20 6f 67 20 65 6e 20 6d ┆ode på 0.5 sekunder og en m┆
0x7560…7580 7c 72 6b 65 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a ┆ørkeperiode på 0.2 sekunder. ┆
0x7580…75a0 4c 79 73 2d 20 6f 67 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 72 6e 65 20 62 7c 72 20 73 65 6c 76 ┆Lys- og mørkeperioderne bør selv┆
0x75a0…75c0 66 7c 6c 67 65 6c 69 67 20 66 61 73 74 6c 7b 67 67 65 73 20 0a 65 66 74 65 72 20 65 6c 65 76 65 ┆følgelig fastlægges efter eleve┆
0x75c0…75d3 72 6e 65 73 20 65 67 6e 65 20 7c 6e 73 6b 65 72 2e 0d 0a ┆rnes egne ønsker. ┆
0x75d3…75d6 FormFeed {
0x75d3…75d6 0c 83 70 ┆ p┆
0x75d3…75d6 }
0x75d6…75e0 0a 0d 0a 0d 0a 0d 0a 49 20 22 ┆ I "┆
0x75e0…7600 6d 6f 72 73 65 2d 63 22 20 65 72 20 6d 75 6c 69 67 68 65 64 65 6e 20 66 6f 72 20 61 74 20 76 61 ┆morse-c" er muligheden for at va┆
0x7600…7620 (59,) 72 69 65 72 65 20 6d 6f 72 73 65 2d 0a 68 61 73 74 69 67 68 65 64 65 6e 20 74 69 6c 66 7c 6a 65 ┆riere morse- hastigheden tilføje┆
0x7620…7640 74 2e 20 48 65 72 20 65 72 20 22 6e 6f 72 6d 61 6c 68 61 73 74 69 67 68 65 64 65 6e 22 20 73 61 ┆t. Her er "normalhastigheden" sa┆
0x7640…7660 74 20 0a 74 69 6c 20 31 30 30 25 2e 20 48 76 69 73 20 68 61 73 74 69 67 68 65 64 65 6e 20 73 6b ┆t til 100%. Hvis hastigheden sk┆
0x7660…7680 61 6c 20 68 61 6c 76 65 72 65 73 2c 20 73 6b 61 6c 20 64 65 72 20 0a 73 7d 6c 65 64 65 73 20 69 ┆al halveres, skal der således i┆
0x7680…76a0 6e 64 74 61 73 74 65 73 20 20 b0 35 30 f0 20 20 66 6f 72 20 35 30 25 2c 20 6f 67 20 b0 32 30 30 ┆ndtastes 50 for 50%, og 200┆
0x76a0…76c0 f0 20 66 6f 72 20 61 74 20 66 6f 72 64 6f 62 6c 65 20 0a 19 80 82 80 68 61 73 74 69 67 68 65 64 ┆ for at fordoble hastighed┆
0x76c0…76e0 65 6e 2c 20 64 2e 76 2e 73 2e 20 32 30 30 25 3a 0d 0a 0d 0a 48 65 72 20 65 72 20 73 65 6c 76 65 ┆en, d.v.s. 200%: Her er selve┆
0x76e0…7700 20 70 72 6f 67 72 61 6d 6d 65 74 73 20 73 74 72 75 6b 74 75 72 20 61 66 73 70 65 6a 6c 65 74 20 ┆ programmets struktur afspejlet ┆
0x7700…7720 69 20 0a 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 65 6e 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f ┆i procedurekaldene: 0010 //┆
0x7720…7740 20 22 6d 6f 72 73 65 2d 63 22 0d 0a b0 30 30 32 30 20 45 58 45 43 20 7d 62 6e 65 5f 70 6f 72 74 ┆ "morse-c" 0020 EXEC åbne_port┆
0x7740…7760 0d 0a b0 30 30 33 30 20 45 58 45 43 20 69 6e 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 30 34 ┆ 0030 EXEC ind_hastighed 004┆
0x7760…7780 30 20 45 58 45 43 20 62 6c 69 6e 6b 0d 0a b0 30 30 35 30 20 45 58 45 43 20 6c 75 6b 6b 65 5f 70 ┆0 EXEC blink 0050 EXEC lukke_p┆
0x7780…77a0 6f 72 74 0d 0a b0 30 30 36 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ort 0060 END -------------┆
0x77a0…77c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x77c0…77e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 72 20 7d 62 6e 65 73 20 70 6f 72 74 20 31 37 2c 20 ┆--------- Her åbnes port 17, ┆
0x77e0…7800 6f 67 20 6c 61 6d 70 65 72 6e 65 20 73 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 30 38 30 20 50 52 ┆og lamperne slukkes: 0080 PR┆
0x7800…7820 (60,) 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a b0 30 30 39 30 20 20 20 43 4c 4f 53 45 20 0d 0a b0 30 ┆OC åbne_port 0090 CLOSE 0┆
0x7820…7840 31 30 30 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 ┆100 OPEN FILE 1,"/17/PORT", WR┆
0x7840…7860 49 54 45 20 0d 0a b0 30 31 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆ITE 0110 PRINT FILE 1: CHR$┆
0x7860…7880 28 30 29 3b 0d 0a b0 30 31 32 30 20 45 4e 44 50 52 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a 0d ┆(0); 0120 ENDPROC åbne_port ┆
0x7880…78a0 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x78a0…78c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 48 65 72 20 69 ┆----------------------- Her i┆
0x78c0…78e0 6e 64 74 61 73 74 65 73 20 62 6c 69 6e 6b 2d 68 61 73 74 69 67 68 65 64 65 6e 3a 0d 0a 0d 0a b0 ┆ndtastes blink-hastigheden: ┆
0x78e0…7900 30 31 34 30 20 50 52 4f 43 20 69 6e 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 35 30 20 20 ┆0140 PROC ind_hastighed 0150 ┆
0x7900…7920 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a b0 30 31 36 30 20 20 20 49 4e 50 55 54 20 22 ┆ PRINT CHR$(12) 0160 INPUT "┆
0x7920…7940 53 4b 52 49 56 20 48 41 53 54 49 47 48 45 44 20 28 6e 6f 72 6d 61 6c 3d 31 30 30 25 29 3a 20 22 ┆SKRIV HASTIGHED (normal=100%): "┆
0x7940…7960 3a 20 0a 19 80 81 80 b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: ┆
0x7960…7980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 37 30 20 ┆ hastighed 0170 ┆
0x7980…79a0 20 20 6d 65 6c 6c 65 6d 72 75 6d 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 ┆ mellemrumlængde:=0.2/hastighed┆
0x79a0…79c0 2a 31 30 30 0d 0a b0 30 31 38 30 20 20 20 70 72 69 6b 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 ┆*100 0180 priklængde:=0.2/ha┆
0x79c0…79e0 73 74 69 67 68 65 64 2a 31 30 30 0d 0a b0 30 31 39 30 20 20 20 73 74 72 65 67 6c 7b 6e 67 64 65 ┆stighed*100 0190 streglængde┆
0x79e0…7a00 3a 3d 30 2e 35 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 ┆:=0.5/hastighed*100 0200 ENDPR┆
0x7a00…7a20 (61,) 4f 43 20 69 6e 64 5f 68 61 73 74 69 67 68 65 64 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC ind_hastighed ------------┆
0x7a20…7a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x7a40…7a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 4f 67 20 68 65 72 20 75 64 66 7c 72 65 73 20 73 65 6c ┆---------- Og her udføres sel┆
0x7a60…7a80 76 65 20 62 6c 69 6e 6b 2d 73 65 6b 76 65 6e 73 65 6e 20 6c 69 67 65 73 6f 6d 20 69 0d 0a 22 6d ┆ve blink-sekvensen ligesom i "m┆
0x7a80…7aa0 6f 72 73 65 2d 62 22 3a 0d 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 ┆orse-b": 0220 PROC blink 0┆
0x7aa0…7ac0 32 33 30 20 20 20 52 45 50 45 41 54 20 0d 0a b0 30 32 34 30 20 20 20 20 20 45 58 45 43 20 70 72 ┆230 REPEAT 0240 EXEC pr┆
0x7ac0…7ae0 69 6b 28 33 29 0d 0a b0 30 32 35 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 ┆ik(3) 0250 EXEC mellemrum(┆
0x7ae0…7b00 31 29 0d 0a b0 30 32 36 30 20 20 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 32 ┆1) 0260 EXEC streg(3) 02┆
0x7b00…7b20 37 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 32 38 30 20 ┆70 EXEC mellemrum(1) 0280 ┆
0x7b20…7b40 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 29 0d 0a b0 30 32 39 30 20 20 20 20 20 45 58 45 43 ┆ EXEC prik(3) 0290 EXEC┆
0x7b40…7b60 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 0d 0a b0 30 33 30 30 20 20 20 55 4e 54 49 4c 20 4f 52 44 ┆ mellemrum(7) 0300 UNTIL ORD┆
0x7b60…7b80 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 33 31 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a ┆(KEY$)=32 0310 ENDPROC blink ┆
0x7b80…7ba0 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0x7ba0…7bba 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------ ┆
0x7bba…7bbd FormFeed {
0x7bba…7bbd 0c 83 58 ┆ X┆
0x7bba…7bbd }
0x7bbd…7bc0 0a 0d 0a ┆ ┆
0x7bc0…7be0 0d 0a 0d 0a 54 69 6c 20 73 69 64 73 74 20 73 6c 75 6b 6b 65 73 20 6c 61 6d 70 65 72 6e 65 20 6f ┆ Til sidst slukkes lamperne o┆
0x7be0…7c00 67 20 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 33 33 30 20 ┆g datastrømmen lukkes: 0330 ┆
0x7c00…7c20 (62,) 50 52 4f 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a b0 30 33 34 30 20 20 20 50 52 49 4e 54 20 46 ┆PROC lukke_port 0340 PRINT F┆
0x7c20…7c40 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 35 30 20 20 20 43 4c 4f 53 45 20 0d ┆ILE 1: CHR$(0); 0350 CLOSE ┆
0x7c40…7c60 0a b0 30 33 36 30 20 45 4e 44 50 52 4f 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a 0d 0a 2d 2d 2d ┆ 0360 ENDPROC lukke_port ---┆
0x7c60…7c80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x7c80…7ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 0d 0a 50 72 6f 63 65 ┆------------------- Proce┆
0x7ca0…7cc0 64 75 72 65 72 6e 65 20 b0 70 72 69 6b f0 2c 20 b0 73 74 72 65 67 f0 20 6f 67 20 b0 70 61 75 73 ┆durerne prik , streg og paus┆
0x7cc0…7ce0 65 f0 20 65 72 20 73 6f 6d 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 0a 19 80 83 80 22 6d 6f 72 ┆e er som i programmet "mor┆
0x7ce0…7ce8 73 65 2d 62 22 2e 0d 0a ┆se-b". ┆
0x7ce8…7ceb FormFeed {
0x7ce8…7ceb 0c 81 00 ┆ ┆
0x7ce8…7ceb }
0x7ceb…7d00 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 64 22 20 62 6c 69 6e ┆ "morse-d" blin┆
0x7d00…7d20 6b 65 72 20 6e 61 76 6e 65 74 20 b0 4f 4c 45 f0 20 28 2f 2d 2d 2d 2f 2e 2d 2e 2e 2f 2e 2f 29 2e ┆ker navnet OLE (/---/.-.././).┆
0x7d20…7d40 20 48 65 72 20 62 6c 6f 74 20 70 72 6f 63 65 64 75 72 65 6e 20 0a 19 80 81 80 b0 62 6c 69 6e 6b ┆ Her blot proceduren blink┆
0x7d40…7d60 f0 3a 0d 0a 0d 0a b0 30 32 34 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 32 35 30 20 20 20 ┆ : 0240 PROC blink 0250 ┆
0x7d60…7d80 52 45 50 45 41 54 20 0d 0a b0 30 32 36 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆REPEAT 0260 // ----------┆
0x7d80…7da0 2d 2d 2d 2d 2d 0d 0a b0 30 32 37 30 20 20 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 20 20 ┆----- 0270 EXEC streg(3) ┆
0x7da0…7dc0 20 20 20 20 20 20 20 20 20 2e 2e 2e 2e 20 4f 20 0d 0a b0 30 32 38 30 20 20 20 20 20 45 58 45 43 ┆ .... O 0280 EXEC┆
0x7dc0…7de0 20 6d 65 6c 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 32 39 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d ┆ mellemrum(5) 0290 // ----┆
0x7de0…7e00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 33 30 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b ┆----------- 0300 EXEC prik┆
0x7e00…7e20 (63,) 28 31 29 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 2e 20 4c 20 0d 0a b0 30 33 31 30 20 20 20 ┆(1) .... L 0310 ┆
0x7e20…7e40 20 20 45 58 45 43 20 73 74 72 65 67 28 31 29 0d 0a b0 30 33 32 30 20 20 20 20 20 45 58 45 43 20 ┆ EXEC streg(1) 0320 EXEC ┆
0x7e40…7e60 70 72 69 6b 28 32 29 0d 0a b0 30 33 33 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 ┆prik(2) 0330 EXEC mellemru┆
0x7e60…7e80 6d 28 35 29 0d 0a b0 30 33 34 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆m(5) 0340 // -------------┆
0x7e80…7ea0 2d 2d 0d 0a b0 30 33 35 30 20 20 20 20 20 45 58 45 43 20 70 72 69 6b 28 31 29 20 20 20 20 20 20 ┆-- 0350 EXEC prik(1) ┆
0x7ea0…7ec0 20 20 20 20 20 20 2e 2e 2e 2e 20 45 0d 0a b0 30 33 36 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c ┆ .... E 0360 EXEC mel┆
0x7ec0…7ee0 6c 65 6d 72 75 6d 28 35 29 0d 0a b0 30 33 37 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆lemrum(5) 0370 // --------┆
0x7ee0…7f00 2d 2d 2d 2d 2d 2d 2d 0d 0a b0 30 33 38 30 20 20 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 ┆------- 0380 EXEC mellemru┆
0x7f00…7f20 6d 28 35 29 0d 0a b0 30 33 39 30 20 20 20 20 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆m(5) 0390 // -------------┆
0x7f20…7f40 2d 2d 0d 0a b0 30 34 30 30 20 20 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a ┆-- 0400 UNTIL ORD(KEY$)=32 ┆
0x7f40…7f60 b0 30 34 31 30 20 45 4e 44 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0410 ENDPROC blink ---------┆
0x7f60…7f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x7f80…7fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a 44 65 74 20 73 6b 61 6c 20 6e 7b 76 6e ┆------------- Det skal nævn┆
0x7fa0…7fc0 65 73 2c 20 61 74 20 6d 6f 72 73 65 70 72 6f 67 72 61 6d 6d 65 72 6e 65 20 65 72 20 73 76 7b 72 ┆es, at morseprogrammerne er svær┆
0x7fc0…7fe0 65 2c 20 0a 19 80 81 80 6f 67 20 64 65 74 20 76 69 6c 20 69 6b 6b 65 20 76 7b 72 65 20 66 6f 72 ┆e, og det vil ikke være for┆
0x7fe0…8000 6b 65 72 74 20 61 74 20 73 70 72 69 6e 67 65 20 64 65 6d 20 6f 76 65 72 20 68 76 69 73 20 0a 19 ┆kert at springe dem over hvis ┆
0x8000…8020 (64,) 80 82 80 65 6c 65 76 65 72 6e 65 73 20 66 6f 72 75 64 73 7b 74 6e 69 6e 67 65 72 20 65 6c 6c 65 ┆ elevernes forudsætninger elle┆
0x8020…8040 72 20 69 6e 74 65 72 65 73 73 65 20 69 6b 6b 65 20 73 6c 7d 72 20 0a 19 80 83 80 74 69 6c 2e 0d ┆r interesse ikke slår til. ┆
0x8040…8060 0a 0d 0a 22 6d 6f 72 73 65 2d 65 22 2c 20 70 7d 20 6e 7b 73 74 65 20 73 69 64 65 2c 20 65 72 20 ┆ "morse-e", på næste side, er ┆
0x8060…8080 66 6f 72 20 65 6b 73 65 6d 70 65 6c 20 69 20 6f 76 65 72 6b 61 6e 74 65 6e 20 0a 61 66 20 68 76 ┆for eksempel i overkanten af hv┆
0x8080…80a0 61 64 20 65 6c 65 76 65 72 6e 65 20 6d 7d 20 66 6f 72 76 65 6e 74 65 73 20 61 74 20 6b 75 6e 6e ┆ad eleverne må forventes at kunn┆
0x80a0…80aa 65 20 6b 6c 61 72 65 2e 0d 0a ┆e klare. ┆
0x80aa…80ad FormFeed {
0x80aa…80ad 0c 82 98 ┆ ┆
0x80aa…80ad }
0x80ad…80c0 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 65 22 20 65 72 ┆ "morse-e" er┆
0x80c0…80e0 20 65 74 20 6c 7c 73 6e 69 6e 67 73 66 6f 72 73 6c 61 67 20 74 69 6c 20 65 74 20 22 67 65 6e 65 ┆ et løsningsforslag til et "gene┆
0x80e0…8100 72 65 6c 74 22 20 0a 6d 6f 72 73 65 70 72 6f 67 72 61 6d 2c 20 68 76 6f 72 20 64 65 72 20 62 6c ┆relt" morseprogram, hvor der bl┆
0x8100…8120 6f 74 20 73 6b 61 6c 20 69 6e 64 74 61 73 74 65 73 20 65 6e 20 74 65 6b 73 74 20 70 7d 20 0a 73 ┆ot skal indtastes en tekst på s┆
0x8120…8140 6b 7b 72 6d 65 6e 20 6f 67 20 74 72 79 6b 6b 65 73 20 3c 52 45 54 55 52 4e 3e 2e 20 44 65 74 20 ┆kærmen og trykkes <RETURN>. Det ┆
0x8140…8160 65 72 20 61 62 73 6f 6c 75 74 20 69 20 0a 6f 76 65 72 6b 61 6e 74 65 6e 20 68 76 61 64 20 73 76 ┆er absolut i overkanten hvad sv┆
0x8160…8178 7b 72 68 65 64 73 67 72 61 64 65 6e 20 61 6e 67 7d 72 2e 20 0d 0a 0d 0a ┆ærhedsgraden angår. ┆
0x8178…81b1 Params {
0x8178…81b1 04 00 2d 4e 0a 00 06 00 00 00 00 02 07 4d 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N M1@ ┆
0x8178…81b1 00 00 00 00 00 00 00 00 0b 15 1f 29 33 3d 47 51 5b 65 6f 79 83 8d 97 ff 04 ┆ )3=GQÆeoy ┆
0x8178…81b1 }
0x81b1…81ea Params {
0x81b1…81ea 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 49 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N I1@ ┆
0x81b1…81ea 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a a4 ff 04 ┆ ",6@JT^hrø ┆
0x81b1…81ea }
0x81ea…8200 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 65 22 0d 0a b0 ┆ 0010 // "morse-e" ┆
0x8200…8220 (65,) 30 30 32 30 20 64 65 63 3a 3d 32 35 35 0d 0a b0 30 30 33 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 ┆0020 dec:=255 0030 CLOSE 00┆
0x8220…8240 34 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 ┆40 OPEN FILE 1,"/17/PORT", WRITE┆
0x8240…8260 20 0d 0a b0 30 30 35 30 20 44 49 4d 20 6d 6f 72 73 65 74 65 67 6e 24 28 39 36 29 20 4f 46 20 31 ┆ 0050 DIM morsetegn$(96) OF 1┆
0x8260…8280 30 2c 74 65 6b 73 74 24 20 4f 46 20 38 30 0d 0a b0 30 30 36 30 20 46 4f 52 20 74 65 67 6e 3a 3d ┆0,tekst$ OF 80 0060 FOR tegn:=┆
0x8280…82a0 39 37 20 54 4f 20 31 32 32 20 44 4f 20 52 45 41 44 20 6d 6f 72 73 65 74 65 67 6e 24 28 74 65 67 ┆97 TO 122 DO READ morsetegn$(teg┆
0x82a0…82c0 6e 2d 39 36 29 0d 0a 0d 0a b0 30 30 37 30 20 44 41 54 41 20 22 2e 2d 22 2c 22 2d 2e 2e 2e 22 2c ┆n-96) 0070 DATA ".-","-...",┆
0x82c0…82e0 22 2d 2e 2d 2e 22 2c 22 2d 2e 2e 22 2c 22 2e 22 2c 22 2e 2e 2d 2e 22 2c 22 2d 2d 2e 22 2c 22 2e ┆"-.-.","-..",".","..-.","--.",".┆
0x82e0…8300 2e 2e 2e 22 2c 22 2e 2e 22 2c 22 2e 2d 2d 2d 22 0d 0a b0 30 30 38 30 20 44 41 54 41 20 22 2d 2e ┆...","..",".---" 0080 DATA "-.┆
0x8300…8320 2d 22 2c 22 2e 2d 2e 2e 22 2c 22 2d 2d 22 2c 22 2d 2e 22 2c 22 2d 2d 2d 22 2c 22 2e 2d 2d 2e 22 ┆-",".-..","--","-.","---",".--."┆
0x8320…8340 2c 22 2d 2d 2e 2d 22 2c 22 2e 2d 2e 22 2c 22 2e 2e 2e 22 2c 22 2d 22 0d 0a b0 30 30 39 30 20 44 ┆,"--.-",".-.","...","-" 0090 D┆
0x8340…8360 41 54 41 20 22 2e 2e 2d 22 2c 22 2e 2e 2e 2d 22 2c 22 2e 2d 2d 22 2c 22 2d 2e 2e 2d 22 2c 22 2d ┆ATA "..-","...-",".--","-..-","-┆
0x8360…8380 2e 2d 2d 22 2c 22 2d 2d 2e 2e 22 0d 0a 0d 0a b0 30 31 31 30 20 49 4e 50 55 54 20 22 53 4b 52 49 ┆.--","--.." 0110 INPUT "SKRI┆
0x8380…83a0 56 20 54 45 4b 53 54 3a 20 22 3a 20 74 65 6b 73 74 24 0d 0a b0 30 31 32 30 20 50 52 49 4e 54 20 ┆V TEKST: ": tekst$ 0120 PRINT ┆
0x83a0…83c0 0d 0a b0 30 31 33 30 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 48 41 53 54 49 47 48 45 44 20 28 ┆ 0130 INPUT "SKRIV HASTIGHED (┆
0x83c0…83e0 31 30 30 3d 6e 6f 72 6d 61 6c 29 3a 20 22 3a 20 68 61 73 74 69 67 68 65 64 0d 0a 0d 0a b0 30 31 ┆100=normal): ": hastighed 01┆
0x83e0…8400 34 30 20 46 4f 52 20 74 65 67 6e 6e 72 3a 3d 31 20 54 4f 20 4c 45 4e 28 74 65 6b 73 74 24 29 20 ┆40 FOR tegnnr:=1 TO LEN(tekst$) ┆
0x8400…8420 (66,) 44 4f 0d 0a b0 30 31 35 30 20 20 20 6d 6f 72 73 65 74 65 67 6e 6e 72 3a 3d 4f 52 44 28 74 65 6b ┆DO 0150 morsetegnnr:=ORD(tek┆
0x8420…8440 73 74 24 28 74 65 67 6e 6e 72 3a 74 65 67 6e 6e 72 29 29 2d 39 36 0d 0a b0 30 31 36 30 20 20 20 ┆st$(tegnnr:tegnnr))-96 0160 ┆
0x8440…8460 46 4f 52 20 73 69 67 6e 61 6c 3a 3d 31 20 54 4f 20 4c 45 4e 28 6d 6f 72 73 65 74 65 67 6e 24 28 ┆FOR signal:=1 TO LEN(morsetegn$(┆
0x8460…8480 6d 6f 72 73 65 74 65 67 6e 6e 72 29 29 20 44 4f 0d 0a b0 30 31 37 30 20 20 20 20 20 49 46 20 6d ┆morsetegnnr)) DO 0170 IF m┆
0x8480…84a0 6f 72 73 65 74 65 67 6e 24 28 6d 6f 72 73 65 74 65 67 6e 6e 72 2c 73 69 67 6e 61 6c 3a 73 69 67 ┆orsetegn$(morsetegnnr,signal:sig┆
0x84a0…84c0 6e 61 6c 29 3d 22 2e 22 20 54 48 45 4e 20 45 58 45 43 20 70 72 69 6b 0d 0a b0 30 31 38 30 20 20 ┆nal)="." THEN EXEC prik 0180 ┆
0x84c0…84e0 20 20 20 49 46 20 6d 6f 72 73 65 74 65 67 6e 24 28 6d 6f 72 73 65 74 65 67 6e 6e 72 2c 73 69 67 ┆ IF morsetegn$(morsetegnnr,sig┆
0x84e0…8500 6e 61 6c 3a 73 69 67 6e 61 6c 29 3d 22 2d 22 20 54 48 45 4e 20 45 58 45 43 20 73 74 72 65 67 0d ┆nal:signal)="-" THEN EXEC streg ┆
0x8500…8520 0a b0 30 31 39 30 20 20 20 4e 45 58 54 20 73 69 67 6e 61 6c 0d 0a b0 30 32 30 30 20 20 20 45 58 ┆ 0190 NEXT signal 0200 EX┆
0x8520…8540 45 43 20 70 61 75 73 65 28 31 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 29 0d 0a b0 30 32 31 30 ┆EC pause(1/hastighed*100) 0210┆
0x8540…8560 20 4e 45 58 54 20 74 65 67 6e 6e 72 0d 0a 0d 0a b0 30 32 33 30 20 50 52 4f 43 20 70 72 69 6b 0d ┆ NEXT tegnnr 0230 PROC prik ┆
0x8560…8580 0a b0 30 32 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 ┆ 0240 PRINT FILE 1: CHR$(255)┆
0x8580…85a0 0d 0a b0 30 32 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 35 2f 68 61 73 74 69 67 ┆ 0250 EXEC pause(0.25/hastig┆
0x85a0…85c0 68 65 64 2a 31 30 30 29 0d 0a b0 30 32 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆hed*100) 0260 PRINT FILE 1: ┆
0x85c0…85e0 43 48 52 24 28 30 29 3b 0d 0a b0 30 32 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 ┆CHR$(0); 0270 EXEC pause(0.2┆
0x85e0…8600 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 29 0d 0a b0 30 32 38 30 20 45 4e 44 50 52 4f 43 20 70 ┆/hastighed*100) 0280 ENDPROC p┆
0x8600…8620 (67,) 72 69 6b 0d 0a 0d 0a b0 30 33 30 30 20 50 52 4f 43 20 73 74 72 65 67 0d 0a b0 30 33 31 30 20 20 ┆rik 0300 PROC streg 0310 ┆
0x8620…8640 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 35 35 29 3b 0d 0a b0 30 33 32 30 ┆ PRINT FILE 1: CHR$(255); 0320┆
0x8640…8660 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 36 2f 68 61 73 74 69 67 68 65 64 2a 31 30 30 29 ┆ EXEC pause(0.6/hastighed*100)┆
0x8660…8680 0d 0a b0 30 33 33 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b ┆ 0330 PRINT FILE 1: CHR$(0);┆
0x8680…86a0 0d 0a b0 30 33 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 2f 68 61 73 74 69 67 68 ┆ 0340 EXEC pause(0.2/hastigh┆
0x86a0…86be 65 64 2a 31 30 30 29 0d 0a b0 30 33 34 30 20 45 4e 44 50 52 4f 43 20 73 74 72 65 67 0d 0a ┆ed*100) 0340 ENDPROC streg ┆
0x86be…86f7 Params {
0x86be…86f7 04 00 2d 4e 0a 00 06 00 00 00 00 02 14 4a 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N J1@ ┆
0x86be…86f7 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a a4 ff 04 ┆ ",6@JT^hrø ┆
0x86be…86f7 }
0x86f7…8730 Params {
0x86f7…8730 04 00 2d 4e 0a 00 06 00 00 00 00 02 07 4d 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N M1@ ┆
0x86f7…8730 00 00 00 00 00 00 00 00 0b 15 1f 29 33 3d 47 51 5b 65 6f 79 83 8d 97 ff 04 ┆ )3=GQÆeoy ┆
0x86f7…8730 }
0x8730…8740 0a 0d 0a b0 30 30 36 30 2d 30 30 39 30 f0 3a 20 ┆ 0060-0090 : ┆
0x8740…8760 48 65 72 20 74 69 6c 64 65 6c 65 73 20 74 65 6b 73 74 76 61 72 69 61 62 6c 65 6e 20 b0 6d 6f 72 ┆Her tildeles tekstvariablen mor┆
0x8760…8780 73 65 74 65 67 6e 24 f0 20 64 65 20 0a 19 80 82 80 65 6e 6b 65 6c 74 65 20 6d 6f 72 73 65 74 61 ┆setegn$ de enkelte morseta┆
0x8780…87a0 67 6e 73 20 75 64 73 65 65 6e 64 65 20 6c 7b 73 74 20 66 72 61 20 44 41 54 41 2d 73 7b 74 6e 69 ┆gns udseende læst fra DATA-sætni┆
0x87a0…87c0 6e 67 65 72 6e 65 2e 0d 0a 0d 0a b0 30 31 31 30 f0 3a 20 48 65 72 20 74 69 6c 64 65 6c 65 73 20 ┆ngerne. 0110 : Her tildeles ┆
0x87c0…87e0 b0 74 65 6b 73 74 24 f0 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 74 65 6b 73 74 2e 0d 0a 0d 0a b0 ┆ tekst$ den ønskede tekst. ┆
0x87e0…8800 30 31 36 30 2d 30 31 39 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 64 65 20 65 6e 6b 65 6c ┆0160-0190 : Her udføres de enkel┆
0x8800…8820 (68,) 74 65 20 6d 6f 72 73 65 73 69 67 6e 61 6c 65 72 2c 20 61 6c 74 73 7d 20 0a 19 80 81 80 64 65 20 ┆te morsesignaler, altså de ┆
0x8820…8840 65 6e 6b 65 6c 74 65 20 70 72 69 6b 6b 65 72 20 6f 67 20 73 74 72 65 67 65 72 2e 0d 0a 0d 0a b0 ┆enkelte prikker og streger. ┆
0x8840…8860 30 31 34 30 2d 30 32 31 30 f0 3a 20 48 65 72 20 75 64 66 7c 72 65 73 20 64 65 20 65 6e 6b 65 6c ┆0140-0210 : Her udføres de enkel┆
0x8860…8880 74 65 20 62 6f 67 73 74 61 76 65 72 2c 20 64 65 72 20 62 65 73 74 7d 72 20 0a 19 80 81 80 61 66 ┆te bogstaver, der består af┆
0x8880…88a0 20 65 74 20 65 6c 6c 65 72 20 66 6c 65 72 65 20 6d 6f 72 73 65 73 69 67 6e 61 6c 65 72 20 28 3d ┆ et eller flere morsesignaler (=┆
0x88a0…88c0 70 72 69 6b 6b 65 72 20 6f 67 20 73 74 72 65 67 65 72 29 2e 0d 0a 0d 0a b0 30 32 30 30 f0 3a 20 ┆prikker og streger). 0200 : ┆
0x88c0…88e0 48 65 72 20 75 64 66 7c 72 65 73 20 6d 65 6c 6c 65 6d 72 75 6d 6d 6d 65 6e 65 20 6d 65 6c 6c 65 ┆Her udføres mellemrummmene melle┆
0x88e0…8900 6d 20 64 65 20 65 6e 6b 65 6c 74 65 20 0a 19 80 81 80 62 6f 67 73 74 61 76 65 72 2e 0d 0a 0d 0a ┆m de enkelte bogstaver. ┆
0x8900…8920 53 6f 6d 20 64 65 74 20 6b 61 6e 20 73 65 73 2c 20 6b 72 7b 76 65 72 20 64 65 6e 6e 65 20 6f 70 ┆Som det kan ses, kræver denne op┆
0x8920…8940 67 61 76 65 2c 20 61 74 20 65 6c 65 76 65 72 6e 65 20 65 72 20 0a 66 6f 72 74 72 6f 6c 69 67 65 ┆gave, at eleverne er fortrolige┆
0x8940…8960 20 6d 65 64 20 76 61 72 69 61 62 6c 65 20 6d 65 64 20 69 6e 64 65 78 2c 20 73 61 6d 74 20 64 65 ┆ med variable med index, samt de┆
0x8960…8980 6c 2d 73 74 72 65 6e 67 65 2e 20 53 7d 20 0a 6f 70 67 61 76 65 6e 20 65 72 20 67 6f 64 20 68 76 ┆l-strenge. Så opgaven er god hv┆
0x8980…89a0 69 73 20 64 65 72 20 65 72 20 65 74 20 70 61 72 20 73 6b 72 61 70 70 65 20 65 6c 65 76 65 72 20 ┆is der er et par skrappe elever ┆
0x89a0…89bf 64 65 72 20 0a 6d 61 6e 67 6c 65 72 20 6c 69 64 74 20 75 64 66 6f 72 64 72 69 6e 67 2e 0d 0a ┆der mangler lidt udfordring. ┆
0x89bf…89c2 FormFeed {
0x89bf…89c2 0c 84 80 ┆ ┆
0x89bf…89c2 }
0x89c2…89e0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 4c 5c 42 45 4c 59 53 22 3a 0d 0a 0d 0a ┆ PROBLEM "LØBELYS": ┆
0x89e0…8a00 0d 0a 49 20 22 6c 7c 62 2d 61 31 22 20 65 72 20 61 6e 76 65 6e 64 74 20 22 47 5c 47 2d 4f 47 2d ┆ I "løb-a1" er anvendt "GØG-OG-┆
0x8a00…8a20 (69,) 47 4f 4b 4b 45 2d 4d 45 54 4f 44 45 4e 22 2c 20 69 64 65 74 20 0a 68 76 65 72 74 20 67 65 6e 6e ┆GOKKE-METODEN", idet hvert genn┆
0x8a20…8a40 65 6d 6c 7c 62 20 62 65 73 74 7d 72 20 61 74 20 38 20 22 50 52 49 4e 54 20 46 49 4c 45 22 2d 73 ┆emløb består at 8 "PRINT FILE"-s┆
0x8a40…8a60 7b 74 6e 69 6e 67 65 72 2e 20 0a 4c 79 73 65 74 20 6c 7c 62 65 72 20 6b 75 6e 20 b0 65 6e f0 20 ┆ætninger. Lyset løber kun en ┆
0x8a60…8a80 67 61 6e 67 20 66 72 61 20 76 65 6e 73 74 72 65 20 6d 6f 64 20 68 7c 6a 72 65 3a 0d 0a 0d 0a b0 ┆gang fra venstre mod højre: ┆
0x8a80…8aa0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c ┆0010 // "løb-a1" 0020 OPEN FIL┆
0x8aa0…8ac0 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 50 52 ┆E 1,"/17/PORT", WRITE 0030 PR┆
0x8ac0…8ae0 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 29 3b 0d 0a b0 30 30 34 30 20 45 58 45 43 ┆INT FILE 1: CHR$(1); 0040 EXEC┆
0x8ae0…8b00 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 35 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆ pause(0.3) 0050 PRINT FILE 1:┆
0x8b00…8b20 20 43 48 52 24 28 32 29 3b 0d 0a b0 30 30 36 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 ┆ CHR$(2); 0060 EXEC pause(0.3)┆
0x8b20…8b40 0d 0a b0 30 30 37 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 34 29 3b 0d 0a ┆ 0070 PRINT FILE 1: CHR$(4); ┆
0x8b40…8b60 b0 30 30 38 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 30 39 30 20 50 52 49 ┆ 0080 EXEC pause(0.3) 0090 PRI┆
0x8b60…8b80 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 0d 0a b0 30 31 30 30 20 45 58 45 43 20 ┆NT FILE 1: CHR$(8); 0100 EXEC ┆
0x8b80…8ba0 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 31 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆pause(0.3) 0110 PRINT FILE 1: ┆
0x8ba0…8bc0 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 31 32 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 ┆CHR$(16); 0120 EXEC pause(0.3)┆
0x8bc0…8be0 0d 0a b0 30 31 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 32 29 3b 0d ┆ 0130 PRINT FILE 1: CHR$(32); ┆
0x8be0…8c00 0a b0 30 31 34 30 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 35 30 20 50 52 ┆ 0140 EXEC pause(0.3) 0150 PR┆
0x8c00…8c20 (70,) 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 34 29 3b 0d 0a b0 30 31 36 30 20 45 58 45 ┆INT FILE 1: CHR$(64); 0160 EXE┆
0x8c20…8c40 43 20 70 61 75 73 65 28 30 2e 33 29 0d 0a b0 30 31 37 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆C pause(0.3) 0170 PRINT FILE 1┆
0x8c40…8c60 3a 20 43 48 52 24 28 31 32 38 29 3b 0d 0a b0 30 31 38 30 20 45 58 45 43 20 70 61 75 73 65 28 30 ┆: CHR$(128); 0180 EXEC pause(0┆
0x8c60…8c80 2e 33 29 0d 0a b0 30 31 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 32 30 30 20 45 ┆.3) 0190 CLOSE FILE 1 0200 E┆
0x8c80…8ca0 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ND -------------------------┆
0x8ca0…8cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d ┆----------------------------- ┆
0x8cc0…8ce0 0a 50 72 6f 62 6c 65 6d 65 74 20 62 7c 72 20 6c 7c 73 65 73 20 70 7d 20 65 6e 20 6d 65 72 65 20 ┆ Problemet bør løses på en mere ┆
0x8ce0…8d00 65 6c 65 67 61 6e 74 20 6d 7d 64 65 2c 20 6e 65 6d 6c 69 67 20 6d 65 64 20 65 6e 20 0a 22 46 4f ┆elegant måde, nemlig med en "FO┆
0x8d00…8d20 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 2c 20 68 76 6f 72 20 65 74 20 67 65 6e 6e 65 6d 6c 7c 62 ┆R-NEXT"-løkke, hvor et gennemløb┆
0x8d20…8d40 20 6b 61 6e 20 75 64 74 72 79 6b 6b 65 73 20 0a 73 69 6d 70 65 6c 74 20 72 65 6e 74 20 6d 61 74 ┆ kan udtrykkes simpelt rent mat┆
0x8d40…8d60 65 6d 61 74 69 73 6b 3a 20 32 20 6f 70 6c 7c 66 74 65 74 20 74 69 6c 20 65 6e 20 70 6f 74 65 6e ┆ematisk: 2 opløftet til en poten┆
0x8d60…8d80 73 20 0a 73 76 61 72 65 6e 64 65 20 74 69 6c 20 62 69 74 2d 6e 75 6d 6d 65 72 65 74 2c 20 61 6c ┆s svarende til bit-nummeret, al┆
0x8d80…8da0 74 73 7d 20 20 32 20 69 20 6e 75 6c 74 65 20 28 3d 31 29 2c 20 32 20 69 20 0a 66 7c 72 73 74 65 ┆tså 2 i nulte (=1), 2 i første┆
0x8da0…8dc0 20 28 3d 32 29 2c 20 32 20 69 20 61 6e 64 65 6e 20 28 3d 34 29 2c 20 32 20 69 20 74 72 65 64 69 ┆ (=2), 2 i anden (=4), 2 i tredi┆
0x8dc0…8de0 65 20 28 3d 38 29 2c 20 2e 2e 2e 20 0a 6f 2e 73 2e 76 2e 2e 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 61 ┆e (=8), ... o.s.v.. I "løb-a┆
0x8de0…8e00 32 22 20 65 72 20 64 65 74 20 67 6a 6f 72 74 20 73 7d 64 61 6e 3a 0d 0a 0d 0a b0 30 30 31 30 20 ┆2" er det gjort sådan: 0010 ┆
0x8e00…8e20 (71,) 2f 2f 20 22 6c 7c 62 2d 61 32 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 ┆// "løb-a2" 0020 OPEN FILE 1,"┆
0x8e20…8e40 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 46 4f 52 20 6e 3a 3d ┆/17/PORT", WRITE 0030 FOR n:=┆
0x8e40…8e60 30 20 54 4f 20 37 20 44 4f 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a ┆0 TO 7 DO 0040 PRINT FILE 1:┆
0x8e60…8e80 20 43 48 52 24 28 32 5e 6e 29 3b 0d 0a b0 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆ CHR$(2^n); 0050 EXEC pause(┆
0x8e80…8ea0 30 2e 33 29 0d 0a b0 30 30 36 30 20 4e 45 58 54 20 6e 0d 0a b0 30 30 37 30 20 43 4c 4f 53 45 20 ┆0.3) 0060 NEXT n 0070 CLOSE ┆
0x8ea0…8ec0 46 49 4c 45 20 31 0d 0a b0 30 30 38 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆FILE 1 0080 END ----------┆
0x8ec0…8ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x8ee0…8f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 62 22 20 65 72 20 22 46 4f ┆------------ I "løb-b" er "FO┆
0x8f00…8f20 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 6e 20 6c 61 67 74 20 69 6e 64 20 69 20 65 6e 20 22 52 45 ┆R-NEXT"-løkken lagt ind i en "RE┆
0x8f20…8f40 50 45 41 54 2d 0a 55 4e 54 49 4c 22 2d 6c 7c 6b 6b 65 2c 20 66 6f 72 20 61 74 20 66 7d 20 67 65 ┆PEAT- UNTIL"-løkke, for at få ge┆
0x8f40…8f60 6e 6e 65 6d 6c 7c 62 65 74 20 67 65 6e 74 61 67 65 74 20 69 6e 64 74 69 6c 20 0a 64 65 72 20 74 ┆nnemløbet gentaget indtil der t┆
0x8f60…8f80 72 79 6b 6b 65 73 20 70 7d 20 6d 65 6c 6c 65 6d 72 75 6d 2d 74 61 73 74 65 6e 3a 0d 0a 0d 0a b0 ┆rykkes på mellemrum-tasten: ┆
0x8f80…8fa0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a 30 30 35 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 ┆0040 REPEAT 0050 FOR bit:=0 ┆
0x8fa0…8fc0 54 4f 20 37 20 44 4f 0d 0a 30 30 36 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆TO 7 DO 0060 PRINT FILE 1: ┆
0x8fc0…8fe0 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a 30 30 37 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 ┆CHR$(2^bit); 0070 EXEC paus┆
0x8fe0…9000 65 28 30 2e 33 29 0d 0a 30 30 38 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a b0 30 30 39 30 20 55 ┆e(0.3) 0080 NEXT bit 0090 U┆
0x9000…9020 (72,) 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NTIL ORD(KEY$)=32 -----------┆
0x9020…9040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9040…904d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------- ┆
0x904d…9050 FormFeed {
0x904d…9050 0c 84 88 ┆ ┆
0x904d…9050 }
0x9050…9060 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 63 22 ┆ I "løb-c"┆
0x9060…9080 20 65 72 20 74 69 6c 66 7c 6a 65 74 20 6d 75 6c 69 67 68 65 64 65 6e 20 66 6f 72 20 61 74 20 76 ┆ er tilføjet muligheden for at v┆
0x9080…90a0 61 72 69 65 72 65 20 0a 62 6c 69 6e 6b 66 72 65 6b 76 65 6e 73 65 6e 3a 0d 0a 0d 0a 30 30 31 30 ┆ariere blinkfrekvensen: 0010┆
0x90a0…90c0 20 2f 2f 20 22 6c 7c 62 2d 63 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f ┆ // "løb-c" 0020 OPEN FILE 1,"/┆
0x90c0…90e0 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 50 52 49 4e 54 20 22 53 ┆17/PORT", WRITE 0030 PRINT "S┆
0x90e0…9100 4b 52 49 56 20 4c 59 53 50 45 52 49 4f 44 45 4e 22 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 22 ┆KRIV LYSPERIODEN" 0040 PRINT "┆
0x9100…9120 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 30 35 30 20 49 4e 50 55 54 20 22 46 4f 52 20 48 56 ┆I SEKUNDER" 0050 INPUT "FOR HV┆
0x9120…9140 45 52 20 50 5b 52 45 3a 20 22 3a 20 6c 79 73 70 65 72 69 6f 64 65 0d 0a 30 30 36 30 20 50 52 49 ┆ER PÆRE: ": lysperiode 0060 PRI┆
0x9140…9160 4e 54 20 0d 0a 30 30 37 30 20 50 52 49 4e 54 20 22 53 54 4f 50 3a 20 54 52 59 4b 20 50 5d 20 4d ┆NT 0070 PRINT "STOP: TRYK PÅ M┆
0x9160…9180 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d 0a 30 30 38 30 20 52 45 50 45 41 54 ┆ELLEMRUM-TASTEN !!" 0080 REPEAT┆
0x9180…91a0 20 0d 0a 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 31 ┆ 0090 FOR bit:=0 TO 7 DO 01┆
0x91a0…91c0 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 ┆00 PRINT FILE 1: CHR$(2^bit)┆
0x91c0…91e0 3b 0d 0a 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 b0 6c 79 73 70 65 72 69 6f ┆; 0110 EXEC pause( lysperio┆
0x91e0…9200 64 65 f0 29 0d 0a 30 31 32 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 33 30 20 55 4e 54 49 ┆de ) 0120 NEXT bit 0130 UNTI┆
0x9200…9220 (73,) 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 30 31 34 30 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆L ORD(KEY$)=32 0140 PRINT FILE ┆
0x9220…9240 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 35 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a ┆1: CHR$(0); 0150 CLOSE FILE 1 ┆
0x9240…9260 30 31 36 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0160 END -------------------┆
0x9260…9280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9280…92a0 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 64 22 20 67 65 6e 6e 65 6d 6c 7c 62 65 73 20 22 46 4f ┆--- I "løb-d" gennemløbes "FO┆
0x92a0…92c0 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 6e 20 6d 65 64 20 65 74 20 0a 6e 65 67 61 74 69 76 74 20 ┆R-NEXT"-løkken med et negativt ┆
0x92c0…92e0 53 54 45 50 2c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 61 74 20 42 49 54 2d 37 20 70 7b 72 65 ┆STEP, svarende til at BIT-7 pære┆
0x92e0…9300 6e 20 62 65 67 79 6e 64 65 72 20 6f 67 20 0a 42 49 54 2d 30 20 70 7b 72 65 6e 20 73 6c 75 74 74 ┆n begynder og BIT-0 pæren slutt┆
0x9300…9320 65 72 20 68 76 65 72 74 20 67 65 6e 6e 65 6d 6c 7c 62 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 ┆er hvert gennemløb: 0090 F┆
0x9320…9340 4f 52 20 62 69 74 3a 3d 37 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 30 30 ┆OR bit:=7 TO 0 STEP -1 DO 0100┆
0x9340…9360 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d ┆ PRINT FILE 1: CHR$(2^bit); ┆
0x9360…9380 0a b0 30 31 31 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 ┆ 0110 EXEC pause(lysperiode┆
0x9380…93a0 29 0d 0a b0 30 31 32 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆) 0120 NEXT bit ---------┆
0x93a0…93c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x93c0…93e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 65 31 22 20 65 72 20 64 ┆------------- I "løb-e1" er d┆
0x93e0…9400 65 74 20 74 61 6c 76 61 72 69 61 62 6c 65 6e 20 b0 20 44 45 43 54 41 4c f0 20 64 65 72 20 73 65 ┆et talvariablen DECTAL der se┆
0x9400…9420 (74,) 6e 64 65 73 20 74 69 6c 20 0a 19 80 81 80 6c 79 73 70 61 6e 65 6c 65 74 2e 20 b0 44 45 43 54 41 ┆ndes til lyspanelet. DECTA┆
0x9420…9440 4c f0 20 66 6f 72 7c 67 65 73 20 69 20 22 46 4f 52 2d 4e 45 58 54 22 6c 7c 6b 6b 65 6e 20 6d 65 ┆L forøges i "FOR-NEXT"løkken me┆
0x9440…9460 64 20 65 74 20 0a 19 80 82 80 74 61 6c 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 68 76 65 72 20 ┆d et tal svarende til hver ┆
0x9460…9480 6c 61 6d 70 65 73 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 2c 20 73 7d 6c 65 64 65 73 20 61 74 20 ┆lampes decimale tal, således at ┆
0x9480…94a0 0a 19 80 82 80 b0 44 45 43 54 41 4c f0 20 6f 70 73 75 6d 6d 65 72 65 72 73 2e 20 42 65 6d 7b 72 ┆ DECTAL opsummerers. Bemær┆
0x94a0…94c0 6b 20 61 74 20 42 49 54 2d 30 20 70 7b 72 65 6e 20 66 6f 72 62 6c 69 76 65 72 20 0a 19 80 83 80 ┆k at BIT-0 pæren forbliver ┆
0x94c0…94e0 74 7b 6e 64 74 20 75 6e 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 74 73 20 61 66 76 69 6b 6c 69 6e ┆tændt under programmets afviklin┆
0x94e0…9500 67 3a 0d 0a 0d 0a b0 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 39 30 20 20 20 64 65 63 ┆g: 0080 REPEAT 0090 dec┆
0x9500…9520 74 61 6c 3a 3d 30 0d 0a b0 30 31 30 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 37 20 ┆tal:=0 0100 FOR bit:=0 TO 7 ┆
0x9520…9540 44 4f 0d 0a b0 30 31 31 30 20 20 20 20 20 64 65 63 74 61 6c 3a 3d 64 65 63 74 61 6c 2b 32 5e 62 ┆DO 0110 dectal:=dectal+2^b┆
0x9540…9560 69 74 0d 0a b0 30 31 32 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆it 0120 PRINT FILE 1: CHR$┆
0x9560…9580 28 64 65 63 74 61 6c 29 3b 0d 0a b0 30 31 33 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆(dectal); 0130 EXEC pause(┆
0x9580…95a0 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 34 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a b0 ┆lysperiode) 0140 NEXT bit ┆
0x95a0…95c0 30 31 35 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d ┆0150 UNTIL ORD(KEY$)=32 -----┆
0x95c0…95e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x95e0…95f3 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------------- ┆
0x95f3…95f6 FormFeed {
0x95f3…95f6 0c 83 20 ┆ ┆
0x95f3…95f6 }
0x95f6…9600 0a 0d 0a 0d 0a 0d 0a 49 20 22 ┆ I "┆
0x9600…9620 (75,) 6c 7c 62 2d 65 32 22 20 69 6e 64 6c 65 64 65 73 20 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b ┆løb-e2" indledes "FOR-NEXT"-løkk┆
0x9620…9640 65 6e 20 6d 65 64 20 61 74 20 30 20 73 65 6e 64 65 73 20 0a 74 69 6c 20 6c 79 75 73 70 61 6e 65 ┆en med at 0 sendes til lyuspane┆
0x9640…9660 6c 65 74 20 73 7d 20 61 6c 6c 65 20 70 7b 72 65 72 20 73 6c 75 6b 6b 65 73 2c 20 6f 67 20 64 65 ┆let så alle pærer slukkes, og de┆
0x9660…9680 72 20 75 64 66 7c 72 65 73 20 0a 65 6e 20 70 61 75 73 65 20 66 7c 72 20 70 7b 72 65 72 6e 65 20 ┆r udføres en pause før pærerne ┆
0x9680…96a0 62 65 67 79 6e 64 65 72 20 61 74 20 6c 79 73 65 20 6f 70 2e 20 50 7d 20 64 65 6e 6e 65 20 0a 6d ┆begynder at lyse op. På denne m┆
0x96a0…96c0 7d 64 65 20 73 6c 75 6b 6b 65 73 20 6f 67 73 7d 20 42 49 54 2d 30 20 70 7b 72 65 6e 20 69 20 68 ┆åde slukkes også BIT-0 pæren i h┆
0x96c0…96e0 76 65 72 20 67 65 6e 6e 65 6d 6c 7c 62 3a 0d 0a 0d 0a 30 30 38 30 20 52 45 50 45 41 54 20 0d 0a ┆ver gennemløb: 0080 REPEAT ┆
0x96e0…9700 b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a ┆ 0090 PRINT FILE 1: CHR$(0); ┆
0x9700…9720 b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a ┆ 0100 EXEC pause(lysperiode) ┆
0x9720…9740 30 31 31 30 20 20 20 64 65 63 74 61 6c 3a 3d 30 0d 0a 30 31 32 30 20 20 20 46 4f 52 20 62 69 74 ┆0110 dectal:=0 0120 FOR bit┆
0x9740…9760 3a 3d 30 20 54 4f 20 37 20 44 4f 0d 0a 30 31 33 30 20 20 20 20 20 64 65 63 74 61 6c 3a 3d 64 65 ┆:=0 TO 7 DO 0130 dectal:=de┆
0x9760…9780 63 74 61 6c 2b 32 5e 62 69 74 0d 0a 30 31 34 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆ctal+2^bit 0140 PRINT FILE ┆
0x9780…97a0 31 3a 20 43 48 52 24 28 64 65 63 74 61 6c 29 3b 0d 0a 30 31 35 30 20 20 20 20 20 45 58 45 43 20 ┆1: CHR$(dectal); 0150 EXEC ┆
0x97a0…97c0 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 31 36 30 20 20 20 4e 45 58 54 20 62 ┆pause(lysperiode) 0160 NEXT b┆
0x97c0…97e0 69 74 0d 0a 30 31 37 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d ┆it 0170 UNTIL ORD(KEY$)=32 -┆
0x97e0…9800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9800…9820 (76,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 65 33 ┆--------------------- "løb-e3┆
0x9820…9840 22 20 76 69 72 6b 65 72 20 73 6f 6d 20 22 6c 7c 62 2d 65 32 22 2e 20 48 65 72 20 65 72 20 64 65 ┆" virker som "løb-e2". Her er de┆
0x9840…9860 6e 20 73 74 7c 72 73 74 65 20 32 2d 0a 74 61 6c 73 70 6f 74 65 6e 73 20 62 6c 6f 74 20 38 20 69 ┆n største 2- talspotens blot 8 i┆
0x9860…9880 20 73 74 65 64 65 74 20 66 6f 72 20 37 2e 20 32 20 6f 70 6c 7c 66 74 65 74 20 74 69 6c 20 38 20 ┆ stedet for 7. 2 opløftet til 8 ┆
0x9880…98a0 65 72 20 0a 32 35 36 2c 20 68 76 69 6c 6b 65 74 20 73 76 61 72 65 72 20 74 69 6c 20 31 30 30 30 ┆er 256, hvilket svarer til 1000┆
0x98a0…98c0 30 30 30 30 30 20 62 69 6e 7b 72 74 2e 20 44 65 72 20 73 6b 61 6c 20 0a 61 6c 74 73 7d 20 39 20 ┆00000 binært. Der skal altså 9 ┆
0x98c0…98e0 62 69 74 20 74 69 6c 2c 20 68 76 6f 72 20 6c 79 73 70 61 6e 65 6c 65 74 20 6b 75 6e 20 76 69 73 ┆bit til, hvor lyspanelet kun vis┆
0x98e0…9900 65 72 20 64 65 20 38 20 0a 6c 61 76 65 73 74 65 20 62 69 74 2e 20 49 67 65 6e 20 6c 61 6d 70 65 ┆er de 8 laveste bit. Igen lampe┆
0x9900…9920 72 20 6c 79 73 65 72 20 64 65 72 66 6f 72 20 68 76 69 73 20 32 20 6f 70 6c 7c 66 74 65 74 20 0a ┆r lyser derfor hvis 2 opløftet ┆
0x9920…9940 74 69 6c 20 38 2e 20 70 6f 74 65 6e 73 20 28 20 3d 32 35 36 20 29 20 20 73 65 6e 64 65 73 20 74 ┆til 8. potens ( =256 ) sendes t┆
0x9940…9960 69 6c 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 ┆il lyspanelet: 0090 FOR bi┆
0x9960…9980 74 3a 3d 30 20 54 4f 20 38 20 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 ┆t:=0 TO 8 DO 0100 PRINT FI┆
0x9980…99a0 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 2d 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 ┆LE 1: CHR$(2^bit-1); 0110 ┆
0x99a0…99c0 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 20 20 20 ┆EXEC pause(lysperiode) 0120 ┆
0x99c0…99e0 4e 45 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NEXT bit --------------------┆
0x99e0…9a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9a00…9a20 (77,) 2d 2d 0d 0a 0d 0a 48 76 69 73 20 6d 61 6e 20 7c 6e 73 6b 65 72 20 61 74 20 6c 79 73 65 74 20 73 ┆-- Hvis man ønsker at lyset s┆
0x9a20…9a40 6b 61 6c 20 6c 7c 62 65 20 66 72 61 20 68 7c 6a 72 65 20 6d 6f 64 20 0a 76 65 6e 73 74 72 65 20 ┆kal løbe fra højre mod venstre ┆
0x9a40…9a60 65 72 20 22 6c 7c 62 2d 65 34 22 20 6d 7d 73 6b 65 20 65 6e 20 6e 7b 72 6c 69 67 67 65 6e 64 65 ┆er "løb-e4" måske en nærliggende┆
0x9a60…9a80 20 6c 7c 73 6e 69 6e 67 20 2d 20 0a 6d 65 6e 20 64 65 6e 20 64 75 65 72 20 b0 49 4b 4b 45 f0 20 ┆ løsning - men den duer IKKE ┆
0x9a80…9aa0 21 21 2e 20 48 65 72 20 65 72 20 64 65 74 20 6e 65 6d 6c 69 67 20 65 6e 20 73 6c 75 6b 6b 65 74 ┆!!. Her er det nemlig en slukket┆
0x9aa0…9ac0 20 70 7b 72 65 20 0a 19 80 81 80 64 65 72 20 22 6c 7c 62 65 72 22 2c 20 6f 67 20 69 6b 6b 65 20 ┆ pære der "løber", og ikke ┆
0x9ac0…9ae0 65 6e 20 74 7b 6e 64 74 3a 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 38 20 ┆en tændt: 0090 FOR bit:=8 ┆
0x9ae0…9b00 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 ┆TO 0 STEP -1 DO 0100 PRINT┆
0x9b00…9b20 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 2d 31 29 3b 0d 0a b0 30 31 31 30 20 20 ┆ FILE 1: CHR$(2^bit-1); 0110 ┆
0x9b20…9b40 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 ┆ EXEC pause(lysperiode) 0120┆
0x9b40…9b60 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ NEXT bit -----------------┆
0x9b60…9b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9b80…9ba0 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 65 35 22 20 65 72 20 65 6e 20 6b 6f 72 72 65 6b 74 20 ┆----- "løb-e5" er en korrekt ┆
0x9ba0…9bc0 6c 7c 73 6e 69 6e 67 2c 20 68 76 69 73 20 6c 79 73 65 74 20 73 6b 61 6c 20 6c 7c 62 65 20 0a 66 ┆løsning, hvis lyset skal løbe f┆
0x9bc0…9be0 72 61 20 68 7c 6a 72 65 20 6d 6f 64 20 76 65 6e 73 74 72 65 20 73 61 6d 74 69 64 69 67 20 6d 65 ┆ra højre mod venstre samtidig me┆
0x9be0…9c00 64 20 61 74 20 6c 79 73 65 6e 65 20 73 6b 61 6c 20 0a 22 6f 70 73 75 6d 6d 65 72 65 73 22 3a 2e ┆d at lysene skal "opsummeres":.┆
0x9c00…9c20 (78,) 0d 0a 0d 0a b0 30 30 39 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 38 20 54 4f 20 30 20 53 54 45 50 ┆ 0090 FOR bit:=8 TO 0 STEP┆
0x9c20…9c40 20 2d 31 20 44 4f 0d 0a b0 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆ -1 DO 0100 PRINT FILE 1: ┆
0x9c40…9c60 43 48 52 24 28 32 35 35 2d 32 5e 62 69 74 2b 31 29 3b 0d 0a b0 30 31 31 30 20 20 20 20 20 45 58 ┆CHR$(255-2^bit+1); 0110 EX┆
0x9c60…9c80 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 32 30 20 20 20 4e 45 ┆EC pause(lysperiode) 0120 NE┆
0x9c80…9ca0 58 54 20 62 69 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆XT bit ----------------------┆
0x9ca0…9cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9cc0…9cc2 0d 0a ┆ ┆
0x9cc2…9cc5 FormFeed {
0x9cc2…9cc5 0c 83 48 ┆ H┆
0x9cc2…9cc5 }
0x9cc5…9ce0 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 66 22 20 65 72 20 64 65 74 20 74 6f 20 ┆ I "løb-f" er det to ┆
0x9ce0…9d00 22 46 4f 52 2d 4e 45 58 54 22 2d 6c 7c 6b 6b 65 72 20 64 65 72 20 68 76 65 72 20 66 6f 72 20 73 ┆"FOR-NEXT"-løkker der hver for s┆
0x9d00…9d20 69 67 20 0a 66 7d 72 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 68 68 76 2e 20 6d ┆ig får lyset til at løbe hhv. m┆
0x9d20…9d40 6f 64 20 68 7c 6a 72 65 20 6f 67 20 6d 6f 64 20 76 65 6e 73 74 72 65 3a 0d 0a 0d 0a 30 30 37 30 ┆od højre og mod venstre: 0070┆
0x9d40…9d60 20 52 45 50 45 41 54 20 0d 0a b0 30 30 38 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 30 20 54 4f 20 ┆ REPEAT 0080 FOR bit:=0 TO ┆
0x9d60…9d80 37 20 44 4f 0d 0a b0 30 30 39 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 ┆7 DO 0090 PRINT FILE 1: CH┆
0x9d80…9da0 52 24 28 32 5e 62 69 74 29 3b 0d 0a b0 30 31 30 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 ┆R$(2^bit); 0100 EXEC pause┆
0x9da0…9dc0 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 31 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a ┆(lysperiode) 0110 NEXT bit ┆
0x9dc0…9de0 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 ┆0120 PRINT FILE 1: CHR$(0); 0┆
0x9de0…9e00 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a b0 30 ┆130 EXEC pause(lysperiode) 0┆
0x9e00…9e20 (79,) 31 34 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 37 20 54 4f 20 30 20 53 54 45 50 20 2d 31 20 44 4f ┆140 FOR bit:=7 TO 0 STEP -1 DO┆
0x9e20…9e40 0d 0a b0 30 31 35 30 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 ┆ 0150 PRINT FILE 1: CHR$(2┆
0x9e40…9e60 5e 62 69 74 29 3b 0d 0a b0 30 31 36 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 ┆^bit); 0160 EXEC pause(lys┆
0x9e60…9e80 70 65 72 69 6f 64 65 29 0d 0a b0 30 31 37 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 30 31 38 30 ┆periode) 0170 NEXT bit 0180┆
0x9e80…9ea0 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 31 39 30 20 ┆ PRINT FILE 1: CHR$(0); 0190 ┆
0x9ea0…9ec0 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 30 32 30 30 20 55 ┆ EXEC pause(lysperiode) 0200 U┆
0x9ec0…9ee0 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NTIL ORD(KEY$)=32 -----------┆
0x9ee0…9f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x9f00…9f20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 22 6c 7c 62 2d 67 31 22 2c 20 22 6c 7c 62 2d 67 32 ┆----------- "løb-g1", "løb-g2┆
0x9f20…9f40 22 20 6f 67 20 22 6c 7c 62 2d 67 33 22 20 65 72 20 66 6f 72 73 6c 61 67 20 74 69 6c 20 6c 7c 73 ┆" og "løb-g3" er forslag til løs┆
0x9f40…9f60 6e 69 6e 67 20 0a 61 66 20 70 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 61 74 20 6d 61 6e 20 66 72 ┆ning af problemet med at man fr┆
0x9f60…9f80 61 20 74 61 73 74 61 74 75 72 65 74 20 73 6b 61 6c 20 6b 75 6e 6e 65 20 66 7d 20 0a 6c 79 73 65 ┆a tastaturet skal kunne få lyse┆
0x9f80…9fa0 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 68 68 76 2e 20 6d 6f 64 20 68 7c 6a 72 65 20 6f 67 20 ┆t til at løbe hhv. mod højre og ┆
0x9fa0…9fc0 6d 6f 64 20 76 65 6e 73 74 72 65 2e 0d 0a 0d 0a 48 65 72 20 22 6c 7c 62 2d 67 32 22 3a 0d 0a 0d ┆mod venstre. Her "løb-g2": ┆
0x9fc0…9fe0 0a b0 30 30 31 30 20 2f 2f 20 22 6c 7c 62 2d 67 32 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 ┆ 0010 // "løb-g2" 0020 OPEN F┆
0x9fe0…a000 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 ┆ILE 1,"/17/PORT", WRITE 0030 ┆
0xa000…a020 (80,) 44 49 4d 20 74 61 73 74 24 20 4f 46 20 31 0d 0a b0 30 30 34 30 20 50 52 49 4e 54 20 22 53 54 4f ┆DIM tast$ OF 1 0040 PRINT "STO┆
0xa020…a040 50 3a 20 54 52 59 4b 20 50 5d 20 4d 45 4c 4c 45 4d 52 55 4d 2d 54 41 53 54 45 4e 20 21 21 22 0d ┆P: TRYK PÅ MELLEMRUM-TASTEN !!" ┆
0xa040…a060 0a b0 30 30 35 30 20 50 52 49 4e 54 20 22 53 4b 52 49 56 20 4c 59 53 50 45 52 49 4f 44 45 4e 22 ┆ 0050 PRINT "SKRIV LYSPERIODEN"┆
0xa060…a080 0d 0a b0 30 30 36 30 20 50 52 49 4e 54 20 22 49 20 53 45 4b 55 4e 44 45 52 22 0d 0a b0 30 30 37 ┆ 0060 PRINT "I SEKUNDER" 007┆
0xa080…a0a0 30 20 49 4e 50 55 54 20 22 46 4f 52 20 48 56 45 52 20 50 5b 52 45 3a 20 22 3a 20 6c 79 73 70 65 ┆0 INPUT "FOR HVER PÆRE: ": lyspe┆
0xa0a0…a0c0 72 69 6f 64 65 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆riode -----------------------┆
0xa0c0…a0e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ┆------------------------------- ┆
0xa0e0…a100 0a 0d 0a 48 65 72 20 65 72 20 73 65 6c 76 65 20 61 66 76 69 6b 6c 69 6e 67 65 6e 20 61 66 20 6c ┆ Her er selve afviklingen af l┆
0xa100…a120 7c 62 65 6c 79 73 65 74 2e 20 44 65 74 20 65 72 20 70 72 6f 63 65 80 0a 64 75 72 65 6e 20 b0 6c ┆øbelyset. Det er proce duren l┆
0xa120…a140 7c 62 65 6c 79 73 f0 20 28 73 65 20 6e 7b 73 74 65 20 73 69 64 65 29 20 64 65 72 20 66 7d 72 20 ┆øbelys (se næste side) der får ┆
0xa140…a160 6c 79 73 65 74 20 74 69 6c 20 61 74 20 0a 19 80 81 80 6c 7c 62 65 3a 0d 0a 0d 0a b0 30 30 39 30 ┆lyset til at løbe: 0090┆
0xa160…a180 20 52 45 50 45 41 54 20 0d 0a 0d 0a b0 30 31 30 30 20 20 20 74 61 73 74 24 3a 3d 4b 45 59 24 0d ┆ REPEAT 0100 tast$:=KEY$ ┆
0xa180…a1a0 0a 0d 0a b0 30 31 31 30 20 20 20 49 46 20 74 61 73 74 24 3d 22 76 22 20 4f 52 20 74 61 73 74 24 ┆ 0110 IF tast$="v" OR tast$┆
0xa1a0…a1c0 3d 22 56 22 20 4f 52 20 74 61 73 74 24 3d 43 48 52 24 28 38 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f ┆="V" OR tast$=CHR$(8) ┆
0xa1c0…a1e0 1f 1f 1f 1f 54 48 45 4e 20 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 30 2c 37 2c 2b 31 29 0d 0a 0d ┆ THEN EXEC løbelys(0,7,+1) ┆
0xa1e0…a200 0a b0 30 31 32 30 20 20 20 49 46 20 74 61 73 74 24 3d 22 68 22 20 4f 52 20 74 61 73 74 24 3d 22 ┆ 0120 IF tast$="h" OR tast$="┆
0xa200…a220 (81,) 48 22 20 4f 52 20 74 61 73 74 24 3d 43 48 52 24 28 32 34 29 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f ┆H" OR tast$=CHR$(24) ┆
0xa220…a240 1f 1f 1f 54 48 45 4e 20 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 37 2c 30 2c 2d 31 29 0d 0a 0d 0a ┆ THEN EXEC løbelys(7,0,-1) ┆
0xa240…a260 b0 30 31 33 30 20 20 20 49 46 20 74 61 73 74 24 3d 22 73 22 20 4f 52 20 74 61 73 74 24 3d 22 53 ┆ 0130 IF tast$="s" OR tast$="S┆
0xa260…a280 22 20 4f 52 20 74 61 73 74 24 3d 22 20 22 20 0d 0a 19 80 81 80 b0 1f 1f 1f 1f 1f 1f 1f 54 48 45 ┆" OR tast$=" " THE┆
0xa280…a2a0 4e 20 45 58 45 43 20 73 74 61 6e 64 73 0d 0a 0d 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 46 41 4c ┆N EXEC stands 0140 UNTIL FAL┆
0xa2a0…a2c0 53 45 0d 0a 0d 0a b0 30 31 35 30 20 45 4e 44 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SE 0150 END -------------┆
0xa2c0…a2e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xa2e0…a2eb 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------- ┆
0xa2eb…a2ee FormFeed {
0xa2eb…a2ee 0c 83 68 ┆ h┆
0xa2eb…a2ee }
0xa2ee…a300 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 6c 7c 62 65 6c ┆ EXEC løbel┆
0xa300…a320 79 73 28 30 2c 37 2c 2b 31 29 f0 20 66 7d 72 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 ┆ys(0,7,+1) får lyset til at løb┆
0xa320…a340 65 20 66 72 61 20 42 49 54 20 30 2c 20 0a 19 80 81 80 64 2e 76 2e 73 2e 20 76 65 6e 73 74 72 65 ┆e fra BIT 0, d.v.s. venstre┆
0xa340…a360 2c 20 6d 6f 64 20 42 49 54 20 37 2c 20 61 6c 74 73 7d 20 68 7c 6a 72 65 2e 20 4d 6f 64 73 76 61 ┆, mod BIT 7, altså højre. Modsva┆
0xa360…a380 72 65 6e 64 65 20 0a 19 80 81 80 66 7d 72 20 b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 37 2c 30 ┆rende får EXEC løbelys(7,0┆
0xa380…a3a0 2c 2d 31 29 f0 20 6c 79 73 65 74 20 74 69 6c 20 61 74 20 6c 7c 62 65 20 64 65 6e 20 61 6e 64 65 ┆,-1) lyset til at løbe den ande┆
0xa3a0…a3c0 6e 20 0a 19 80 82 80 76 65 6a 3a 0d 0a 0d 0a b0 30 31 36 30 20 50 52 4f 43 20 6c 7c 62 65 6c 79 ┆n vej: 0160 PROC løbely┆
0xa3c0…a3e0 73 28 73 74 61 72 74 76 7b 72 64 69 2c 73 6c 75 74 76 7b 72 64 69 2c 73 74 65 70 76 7b 72 64 69 ┆s(startværdi,slutværdi,stepværdi┆
0xa3e0…a400 29 0d 0a 0d 0a b0 30 31 37 30 20 20 20 46 4f 52 20 62 69 74 3a 3d 73 74 61 72 74 76 7b 72 64 69 ┆) 0170 FOR bit:=startværdi┆
0xa400…a420 (82,) 20 54 4f 20 73 6c 75 74 76 7b 72 64 69 0d 0a 19 80 81 80 b0 20 20 20 20 20 20 20 53 54 45 50 20 ┆ TO slutværdi STEP ┆
0xa420…a440 73 74 65 70 76 7b 72 64 69 20 44 4f 0d 0a 0d 0a b0 30 31 38 30 20 20 20 20 20 50 52 49 4e 54 20 ┆stepværdi DO 0180 PRINT ┆
0xa440…a460 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 5e 62 69 74 29 3b 0d 0a 0d 0a b0 30 31 39 30 20 20 20 ┆FILE 1: CHR$(2^bit); 0190 ┆
0xa460…a480 20 20 45 58 45 43 20 70 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 0d 0a b0 30 32 30 ┆ EXEC pause(lysperiode) 020┆
0xa480…a4a0 30 20 20 20 4e 45 58 54 20 62 69 74 0d 0a 0d 0a b0 30 32 31 30 20 20 20 50 52 49 4e 54 20 46 49 ┆0 NEXT bit 0210 PRINT FI┆
0xa4a0…a4c0 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 0d 0a b0 30 32 32 30 20 20 20 45 58 45 43 20 70 ┆LE 1: CHR$(0); 0220 EXEC p┆
0xa4c0…a4e0 61 75 73 65 28 6c 79 73 70 65 72 69 6f 64 65 29 0d 0a 0d 0a b0 30 32 33 30 20 45 4e 44 50 52 4f ┆ause(lysperiode) 0230 ENDPRO┆
0xa4e0…a500 43 20 6c 7c 62 65 6c 79 73 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C løbelys -------------------┆
0xa500…a520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xa520…a540 2d 2d 2d 0d 0a 0d 0a 48 76 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 70 7d 20 4d 45 4c 4c 45 ┆--- Hvis der trykkes på MELLE┆
0xa540…a560 4d 52 55 4d 2d 20 65 6c 6c 65 72 20 53 2d 74 61 73 74 65 6e 20 73 7d 20 0a 75 64 66 7c 72 65 73 ┆MRUM- eller S-tasten så udføres┆
0xa560…a580 20 70 72 6f 63 65 64 75 72 65 6e 20 b0 73 74 61 6e 64 73 f0 2c 20 68 76 6f 72 20 6c 79 73 65 74 ┆ proceduren stands , hvor lyset┆
0xa580…a5a0 20 73 6c 75 6b 6b 65 73 20 6f 67 20 0a 19 80 81 80 64 61 74 61 73 74 72 7c 6d 6d 65 6e 20 6c 75 ┆ slukkes og datastrømmen lu┆
0xa5a0…a5c0 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 33 32 30 20 50 52 4f 43 20 73 74 61 6e 64 73 0d 0a b0 30 33 33 ┆kkes: 0320 PROC stands 033┆
0xa5c0…a5e0 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 33 34 ┆0 PRINT FILE 1: CHR$(0); 034┆
0xa5e0…a600 30 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 33 35 30 20 45 4e 44 50 52 4f 43 20 ┆0 CLOSE FILE 1 0350 ENDPROC ┆
0xa600…a620 (83,) 73 74 61 6e 64 73 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆stands ----------------------┆
0xa620…a640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xa640…a642 0d 0a ┆ ┆
0xa642…a645 FormFeed {
0xa642…a645 0c 82 a8 ┆ ┆
0xa642…a645 }
0xa645…a660 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 54 5b 4c 4c 45 22 3a 0d 0a 0d ┆ PROBLEM "TÆLLE": ┆
0xa660…a680 0a 0d 0a 22 74 7b 6c 6c 65 2d 61 22 20 65 72 20 65 74 20 6c 69 6c 6c 65 20 70 72 6f 67 72 61 6d ┆ "tælle-a" er et lille program┆
0xa680…a6a0 20 64 65 72 20 74 7b 6c 6c 65 72 20 62 69 6e 7b 72 74 2e 20 44 65 72 20 0a 6b 61 6e 20 6e 61 74 ┆ der tæller binært. Der kan nat┆
0xa6a0…a6c0 75 72 6c 69 67 76 69 73 20 6b 75 6e 20 74 7b 6c 6c 65 73 20 66 72 61 20 30 20 74 69 6c 20 32 35 ┆urligvis kun tælles fra 0 til 25┆
0xa6c0…a6e0 35 2c 20 64 61 20 64 65 72 20 6b 75 6e 20 0a 65 72 20 38 20 62 69 74 2f 6c 61 6d 70 65 72 20 70 ┆5, da der kun er 8 bit/lamper p┆
0xa6e0…a700 7d 20 6c 79 73 70 61 6e 65 6c 65 74 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 7b 6c 6c 65 ┆å lyspanelet: 0010 // "tælle┆
0xa700…a720 2d 61 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 ┆-a" 0020 OPEN FILE 1,"/17/PORT┆
0xa720…a740 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 46 4f 52 20 74 61 6c 3a 3d 30 20 54 4f 20 32 ┆", WRITE 0040 FOR tal:=0 TO 2┆
0xa740…a760 35 35 20 44 4f 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 ┆55 DO 0050 PRINT FILE 1: CHR┆
0xa760…a780 24 28 74 61 6c 29 3b 0d 0a b0 30 30 36 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 2f 33 29 ┆$(tal); 0060 EXEC pause(1/3)┆
0xa780…a7a0 0d 0a b0 30 30 37 30 20 4e 45 58 54 20 74 61 6c 0d 0a b0 30 30 38 30 20 50 52 49 4e 54 20 46 49 ┆ 0070 NEXT tal 0080 PRINT FI┆
0xa7a0…a7c0 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 39 30 20 43 4c 4f 53 45 20 46 49 4c 45 ┆LE 1: CHR$(0); 0090 CLOSE FILE┆
0xa7c0…a7e0 20 31 0d 0a b0 30 31 30 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 1 0100 END --------------┆
0xa7e0…a800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xa800…a820 (84,) 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 74 7b 6c 6c 65 2d 62 22 20 6b 61 6e 20 74 7b 6c 6c ┆-------- I "tælle-b" kan tæll┆
0xa820…a840 65 68 61 73 74 69 67 68 65 64 65 6e 20 76 61 72 69 65 72 65 73 2c 20 69 64 65 74 20 0a 62 72 75 ┆ehastigheden varieres, idet bru┆
0xa840…a860 67 65 72 65 6e 20 73 65 6c 76 20 62 65 73 74 65 6d 6d 65 72 20 68 76 6f 72 20 6c 61 6e 67 20 74 ┆geren selv bestemmer hvor lang t┆
0xa860…a880 69 64 20 68 76 65 72 74 20 70 61 75 73 65 20 73 6b 61 6c 20 0a 76 7b 72 65 2e 0d 0a 0d 0a 0d 0a ┆id hvert pause skal være. ┆
0xa880…a8a0 30 30 31 30 20 2f 2f 20 22 74 7b 6c 6c 65 2d 62 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c ┆0010 // "tælle-b" 0020 OPEN FIL┆
0xa8a0…a8c0 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 49 4e ┆E 1,"/17/PORT", WRITE 0030 IN┆
0xa8c0…a8e0 50 55 54 20 22 50 41 55 53 45 54 49 44 3a 20 22 3a 20 74 69 64 0d 0a 30 30 34 30 20 46 4f 52 20 ┆PUT "PAUSETID: ": tid 0040 FOR ┆
0xa8e0…a900 74 61 6c 3a 3d 30 20 54 4f 20 32 35 35 20 44 4f 0d 0a 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 ┆tal:=0 TO 255 DO 0050 PRINT F┆
0xa900…a920 49 4c 45 20 31 3a 20 43 48 52 24 28 74 61 6c 29 3b 0d 0a 30 30 36 30 20 20 20 45 58 45 43 20 70 ┆ILE 1: CHR$(tal); 0060 EXEC p┆
0xa920…a940 61 75 73 65 28 b0 74 69 64 f0 29 0d 0a 30 30 37 30 20 4e 45 58 54 20 74 61 6c 0d 0a 30 30 38 30 ┆ause( tid ) 0070 NEXT tal 0080┆
0xa940…a960 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a 30 30 39 30 20 43 4c ┆ PRINT FILE 1: CHR$(0); 0090 CL┆
0xa960…a980 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 30 30 20 45 4e 44 20 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d ┆OSE FILE 1 0100 END -------┆
0xa980…a9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xa9a0…a9b1 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------------- ┆
0xa9b1…a9b4 FormFeed {
0xa9b1…a9b4 0c 82 b8 ┆ ┆
0xa9b1…a9b4 }
0xa9b4…a9c0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 ┆ PROB┆
0xa9c0…a9e0 4c 45 4d 20 20 22 42 4c 49 4e 4b 2d 30 2f 37 22 3a 0d 0a 0d 0a 44 65 74 74 65 20 70 72 6f 67 72 ┆LEM "BLINK-0/7": Dette progr┆
0xa9e0…aa00 61 6d 20 66 7d 72 20 42 49 54 2d 30 20 6f 67 20 42 49 54 2d 37 20 70 7b 72 65 72 6e 65 20 74 69 ┆am får BIT-0 og BIT-7 pærerne ti┆
0xaa00…aa20 (85,) 6c 20 61 74 20 62 6c 69 6e 6b 65 20 0a 70 7d 20 73 6b 69 66 74 2e 20 53 74 72 75 6b 74 75 72 65 ┆l at blinke på skift. Strukture┆
0xaa20…aa40 6e 20 65 72 20 64 65 6e 20 73 61 6d 6d 65 6e 20 73 6f 6d 20 69 20 65 74 20 73 69 6d 70 65 6c 74 ┆n er den sammen som i et simpelt┆
0xaa40…aa60 20 0a 62 6c 69 6e 6b 2d 70 72 6f 67 72 61 6d 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 62 6c 69 ┆ blink-program 0010 // "bli┆
0xaa60…aa80 6e 6b 2d 37 2f 30 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f ┆nk-7/0" 0020 OPEN FILE 1,"/17/┆
0xaa80…aaa0 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 ┆PORT", WRITE 0030 REPEAT 0┆
0xaaa0…aac0 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 29 3b 0d 0a b0 30 ┆040 PRINT FILE 1: CHR$(1); 0┆
0xaac0…aae0 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 30 36 30 20 20 20 50 ┆050 EXEC pause(0.5) 0060 P┆
0xaae0…ab00 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 38 29 3b 0d 0a b0 30 30 37 30 20 20 ┆RINT FILE 1: CHR$(128); 0070 ┆
0xab00…ab20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 ┆ EXEC pause(0.5) 0080 UNTIL OR┆
0xab20…ab40 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆D(KEY$)=32 0090 PRINT FILE 1: ┆
0xab40…ab60 43 48 52 24 28 30 29 3b 0d 0a b0 30 31 30 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a b0 30 ┆CHR$(0); 0100 CLOSE FILE 1 0┆
0xab60…ab80 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 6c 79 73 65 72 20 6b 75 ┆110 END 0040 : Her lyser ku┆
0xab80…aba0 6e 20 42 49 54 2d 30 20 70 7b 72 65 6e 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 6c 79 ┆n BIT-0 pæren. 0060 : Her ly┆
0xaba0…abc0 73 65 72 20 6b 75 6e 20 42 49 54 2d 37 20 70 7b 72 65 6e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ser kun BIT-7 pæren ---------┆
0xabc0…abe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xabe0…ac00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 42 4c 49 ┆------------- PROBLEM "BLI┆
0xac00…ac20 (86,) 4e 4b 2d 41 2f 42 22 3a 0d 0a 0d 0a 0d 0a 48 65 72 20 6b 6f 6d 6d 65 72 20 73 7d 20 64 65 74 20 ┆NK-A/B": Her kommer så det ┆
0xac20…ac40 66 7c 72 73 74 65 20 70 72 6f 67 72 61 6d 20 64 65 72 20 73 74 79 72 65 72 20 64 65 20 74 6f 20 ┆første program der styrer de to ┆
0xac40…ac60 0a 65 6b 73 74 72 61 20 62 69 74 2e 20 50 6f 72 74 20 31 37 2c 20 73 6f 6d 20 65 72 20 65 6e 20 ┆ ekstra bit. Port 17, som er en ┆
0xac60…ac80 70 61 70 61 6c 6c 65 6c 70 6f 72 74 2c 20 62 65 73 74 7d 72 20 6b 75 6e 20 0a 61 66 20 38 20 62 ┆papallelport, består kun af 8 b┆
0xac80…aca0 69 74 2c 20 6f 67 20 76 69 20 6b 61 6e 20 64 65 72 66 6f 72 20 69 6b 6b 65 20 62 72 75 67 65 20 ┆it, og vi kan derfor ikke bruge ┆
0xaca0…acc0 64 65 6e 20 74 69 6c 20 64 65 20 74 6f 20 0a 65 6b 73 74 72 61 20 62 69 74 2e 20 4e 75 20 73 6b ┆den til de to ekstra bit. Nu sk┆
0xacc0…ace0 61 6c 20 b0 50 4f 52 54 20 31 30 f0 20 62 72 75 67 65 73 2e 20 44 65 74 20 65 72 20 67 61 6e 73 ┆al PORT 10 bruges. Det er gans┆
0xace0…ad00 6b 65 20 76 69 73 74 20 0a 19 80 81 80 65 6e 20 73 65 72 69 65 6c 20 70 6f 72 74 2c 20 6c 69 67 ┆ke vist en seriel port, lig┆
0xad00…ad20 65 73 6f 6d 20 64 65 6e 20 70 72 69 6e 74 65 72 65 6e 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 ┆esom den printeren er tilsluttet┆
0xad20…ad40 2c 20 0a 19 80 81 80 6d 65 6e 20 64 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 74 6f 20 62 69 74 ┆, men den indeholder to bit┆
0xad40…ad60 73 20 64 65 72 20 6e 6f 72 6d 61 6c 74 20 62 72 75 67 65 73 20 74 69 6c 20 0a 19 80 81 80 6b 6f ┆s der normalt bruges til ko┆
0xad60…ad80 6e 74 72 6f 6c 2d 66 6f 72 6d 7d 6c 2e 20 44 65 20 6b 61 6e 20 70 72 6f 67 72 61 6d 6d 65 72 65 ┆ntrol-formål. De kan programmere┆
0xad80…ada0 73 20 6c 69 67 65 73 6f 6d 20 64 65 20 38 20 62 69 74 20 69 20 0a 19 80 81 80 70 6f 72 74 20 31 ┆s ligesom de 8 bit i port 1┆
0xada0…adc0 37 2e 20 44 65 74 20 66 6f 72 75 64 73 7b 74 74 65 72 20 62 6c 6f 74 2c 20 61 74 20 76 69 20 73 ┆7. Det forudsætter blot, at vi s┆
0xadc0…ade0 65 6e 64 65 72 20 64 65 20 64 65 63 69 6d 61 6c 65 20 0a 19 80 81 80 74 61 6c 20 b0 32 34 f0 20 ┆ender de decimale tal 24 ┆
0xade0…ae00 6f 67 20 b0 35 f0 20 69 20 6e 7b 76 6e 74 65 20 72 7b 6b 6b 65 66 7c 6c 67 65 20 b0 75 6d 69 64 ┆og 5 i nævnte rækkefølge umid┆
0xae00…ae20 (87,) 64 65 6c 62 61 72 74 20 66 7c 72 f0 20 64 65 74 20 74 61 6c 20 0a 19 80 84 80 64 65 72 20 73 7b ┆delbart før det tal der sæ┆
0xae20…ae40 74 74 65 72 20 42 49 54 2d 41 20 6f 67 2f 65 6c 6c 65 72 20 42 49 54 2d 42 20 68 7c 6a 65 2e 20 ┆tter BIT-A og/eller BIT-B høje. ┆
0xae40…ae60 b0 32 34 f0 20 6f 67 20 b0 35 f0 20 65 72 20 0a 19 80 86 80 6b 61 72 61 6b 74 65 72 65 72 20 64 ┆ 24 og 5 er karakterer d┆
0xae60…ae80 65 72 20 70 72 6f 67 72 61 6d 6d 65 72 65 72 20 70 6f 72 74 20 31 30 2c 20 b0 30 2f 32 2f 31 32 ┆er programmerer port 10, 0/2/12┆
0xae80…aea0 38 2f 31 33 30 f0 20 65 72 20 0a 19 80 87 80 64 61 74 61 20 64 65 72 20 74 72 61 6e 73 6d 69 74 ┆8/130 er data der transmit┆
0xaea0…aec0 74 65 72 65 73 20 b0 75 64 f0 20 61 66 20 70 6f 72 74 20 31 30 21 0d 0a 0d 0a 44 65 72 20 20 65 ┆teres ud af port 10! Der e┆
0xaec0…aee0 72 20 64 69 73 73 65 20 34 20 6d 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 70 72 6f 67 72 61 6d ┆r disse 4 muligheder for program┆
0xaee0…af00 6d 65 72 69 6e 67 20 61 66 20 42 49 54 2d 41 20 0a 6f 67 20 42 49 54 2d 42 3a 0d 0a 0d 0a 0d 0a ┆mering af BIT-A og BIT-B: ┆
0xaf00…af20 44 45 43 49 4d 41 4c 20 54 41 4c 3a 20 20 20 20 20 20 20 42 49 54 2d 41 3a 20 20 20 20 42 49 54 ┆DECIMAL TAL: BIT-A: BIT┆
0xaf20…af40 2d 42 3a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 20 20 ┆-B: ------------ ------ ┆
0xaf40…af60 20 20 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 ┆ ------ 0 ┆
0xaf60…af80 20 4c 41 56 20 20 20 20 20 20 20 4c 41 56 0d 0a 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 ┆ LAV LAV 2 ┆
0xaf80…afa0 20 20 20 20 20 48 5c 4a 20 20 20 20 20 20 20 4c 41 56 0d 0a 20 20 20 20 20 20 20 31 32 38 20 20 ┆ HØJ LAV 128 ┆
0xafa0…afc0 20 20 20 20 20 20 20 20 20 4c 41 56 20 20 20 20 20 20 20 48 5c 4a 0d 0a 20 32 2b 31 32 38 3d 31 ┆ LAV HØJ 2+128=1┆
0xafc0…afe0 33 30 20 20 20 20 20 20 20 20 20 20 20 48 5c 4a 20 20 20 20 20 20 20 48 5c 4a 0d 0a 0d 0a 2d 2d ┆30 HØJ HØJ --┆
0xafe0…b000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d ┆---------- ------ ----┆
0xb000…b004 (88,) 2d 2d 0d 0a ┆-- ┆
0xb004…b007 FormFeed {
0xb004…b007 0c 83 48 ┆ H┆
0xb004…b007 }
0xb007…b020 0a 0d 0a 0d 0a 0d 0a 22 62 6c 69 6e 6b 2d 41 2f 42 22 20 66 7d 72 20 42 49 ┆ "blink-A/B" får BI┆
0xb020…b040 54 2d 41 20 6f 67 20 42 49 54 2d 42 20 70 7b 72 65 72 6e 65 20 74 69 6c 20 61 74 20 62 6c 69 6e ┆T-A og BIT-B pærerne til at blin┆
0xb040…b060 6b 65 20 70 7d 20 0a 73 6b 69 66 74 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d ┆ke på skift: 0010 // "blink-┆
0xb060…b080 41 2f 42 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f b0 31 30 f0 2f 50 4f ┆A/B" 0020 OPEN FILE 1,"/ 10 /PO┆
0xb080…b0a0 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a 30 30 34 30 20 ┆RT", WRITE 0030 REPEAT 0040 ┆
0xb0a0…b0c0 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 ┆ PRINT FILE 1: CHR$(24);CHR$(5┆
0xb0c0…b0e0 29 3b 43 48 52 24 28 32 29 3b f0 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 ┆);CHR$(2); 0050 EXEC pause(0┆
0xb0e0…b100 2e 35 29 0d 0a 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 52 24 28 ┆.5) 0060 PRINT FILE 1: CHR$(┆
0xb100…b120 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b f0 0d 0a 30 30 37 30 20 20 20 ┆24);CHR$(5);CHR$(128); 0070 ┆
0xb120…b140 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a 30 30 38 30 20 55 4e 54 49 4c 20 4f 52 44 28 ┆EXEC pause(0.5) 0080 UNTIL ORD(┆
0xb140…b160 4b 45 59 24 29 3d 33 32 0d 0a 30 30 39 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 b0 43 48 ┆KEY$)=32 0090 PRINT FILE 1: CH┆
0xb160…b180 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 f0 3b 0d 0a 30 31 30 30 20 43 ┆R$(24);CHR$(5);CHR$(0) ; 0100 C┆
0xb180…b1a0 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 31 31 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 32 30 f0 ┆LOSE FILE 1 0110 END 0020 ┆
0xb1a0…b1c0 3a 20 48 65 72 20 7d 62 6e 65 73 20 70 6f 72 74 20 b0 31 30 f0 20 66 6f 72 20 73 6b 72 69 76 6e ┆: Her åbnes port 10 for skrivn┆
0xb1c0…b1e0 69 6e 67 20 28 57 52 49 54 45 29 2e 0d 0a 0d 0a b0 30 30 34 30 f0 3a 20 48 65 72 20 62 72 75 67 ┆ing (WRITE). 0040 : Her brug┆
0xb1e0…b200 65 73 20 b0 32 34 f0 20 6f 67 20 b0 35 f0 20 74 69 6c 20 61 74 20 22 66 6f 72 74 7b 6c 6c 65 22 ┆es 24 og 5 til at "fortælle"┆
0xb200…b220 (89,) 20 70 6f 72 74 20 31 30 20 61 74 20 0a 19 80 83 80 76 69 20 67 65 72 6e 65 20 76 69 6c 20 70 72 ┆ port 10 at vi gerne vil pr┆
0xb220…b240 6f 67 72 61 6d 6d 65 72 65 20 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 2c 20 6f 67 20 64 65 72 ┆ogrammere BIT-A og BIT-B, og der┆
0xb240…b260 65 66 74 65 72 20 0a 19 80 83 80 73 65 6e 64 65 72 20 76 69 20 74 61 6c 6c 65 74 20 b0 32 f0 2c ┆efter sender vi tallet 2 ,┆
0xb260…b280 20 64 65 72 20 73 7b 74 74 65 72 20 42 49 54 2d 41 20 68 7c 6a 2c 20 73 7d 20 42 49 54 2d 41 20 ┆ der sætter BIT-A høj, så BIT-A ┆
0xb280…b2a0 0a 19 80 84 80 70 7b 72 65 6e 20 6c 79 73 65 72 2c 20 6f 67 20 b0 6b 75 6e f0 20 42 49 54 2d 41 ┆ pæren lyser, og kun BIT-A┆
0xb2a0…b2c0 20 70 7b 72 65 6e 2e 0d 0a 0d 0a b0 30 30 36 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 ┆ pæren. 0060 : Her sendes 24┆
0xb2c0…b2e0 20 6f 67 20 35 20 6c 69 67 65 73 6f 6d 20 69 20 6c 69 6e 69 65 20 30 30 34 30 2c 20 6f 67 20 0a ┆ og 5 ligesom i linie 0040, og ┆
0xb2e0…b300 19 80 81 80 64 65 72 65 66 74 65 72 20 73 65 6e 64 65 73 20 31 32 38 2c 20 64 65 72 20 73 7b 74 ┆ derefter sendes 128, der sæt┆
0xb300…b320 74 65 72 20 42 49 54 2d 42 2c 20 6f 67 20 6b 75 6e 20 42 49 54 2d 42 2c 20 0a 19 80 81 80 68 7c ┆ter BIT-B, og kun BIT-B, hø┆
0xb320…b340 6a 2e 0d 0a 0d 0a b0 30 30 39 30 f0 3a 20 48 65 72 20 73 65 6e 64 65 73 20 32 34 20 6f 67 20 35 ┆j. 0090 : Her sendes 24 og 5┆
0xb340…b360 2c 20 73 61 6d 74 20 30 2e 20 4e 75 6c 6c 65 74 20 73 7b 74 74 65 72 20 62 7d 64 65 20 0a 19 80 ┆, samt 0. Nullet sætter både ┆
0xb360…b380 81 80 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 20 6c 61 76 65 2c 20 73 7d 20 69 6e 67 65 6e 20 ┆ BIT-A og BIT-B lave, så ingen ┆
0xb380…b3a0 61 66 20 64 69 73 73 65 20 74 6f 20 70 7b 72 65 72 20 6c 79 73 65 72 2e 0d 0a 0d 0a 44 65 6e 20 ┆af disse to pærer lyser. Den ┆
0xb3a0…b3c0 65 6e 65 73 74 65 20 66 6f 72 73 6b 65 6c 20 70 7d 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 72 65 ┆eneste forskel på at programmere┆
0xb3c0…b3e0 20 64 65 20 38 20 62 69 74 20 66 72 61 20 70 6f 72 74 20 0a 31 37 2c 20 6f 67 20 64 65 20 32 20 ┆ de 8 bit fra port 17, og de 2 ┆
0xb3e0…b400 62 69 74 20 66 72 61 20 70 6f 72 74 20 31 30 2c 20 65 72 20 61 6c 74 73 7d 20 61 74 20 70 6f 72 ┆bit fra port 10, er altså at por┆
0xb400…b420 (90,) 74 20 31 37 20 6b 61 6e 20 0a 70 72 6f 67 72 61 6d 6d 65 72 65 73 20 64 69 72 65 6b 74 65 20 6d ┆t 17 kan programmeres direkte m┆
0xb420…b440 65 64 20 64 65 74 20 64 65 63 69 6d 61 6c 65 20 74 61 6c 20 64 65 72 20 73 7b 74 74 65 72 20 64 ┆ed det decimale tal der sætter d┆
0xb440…b460 65 20 0a 65 6e 6b 65 6c 74 65 20 62 69 74 73 2c 20 68 76 6f 72 69 6d 6f 64 20 64 65 20 64 65 63 ┆e enkelte bits, hvorimod de dec┆
0xb460…b480 69 6d 61 6c 65 20 74 61 6c 20 32 34 20 6f 67 20 35 20 73 6b 61 6c 20 0a 73 65 6e 64 65 73 20 66 ┆imale tal 24 og 5 skal sendes f┆
0xb480…b4a0 6f 72 75 64 20 66 6f 72 20 b0 68 76 65 72 20 65 6e 65 73 74 65 f0 20 7b 6e 64 72 69 6e 67 20 61 ┆orud for hver eneste ændring a┆
0xb4a0…b4c0 66 20 73 74 61 74 75 73 20 70 7d 20 64 65 20 74 6f 20 0a 19 80 81 80 62 69 74 20 76 69 20 6b 61 ┆f status på de to bit vi ka┆
0xb4c0…b4e0 6c 64 65 72 20 66 6f 72 20 42 49 54 2d 41 20 6f 67 20 42 49 54 2d 42 2e 0d 0a 0d 0a 2d 2d 2d 2d ┆lder for BIT-A og BIT-B. ----┆
0xb4e0…b500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xb500…b520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 74 7b 6e 64 31 30 ┆------------------ "tænd10┆
0xb520…b540 22 f0 20 6f 67 20 b0 73 6c 75 6b 31 30 22 f0 20 65 72 20 74 6f 20 73 6d 7d 20 70 72 6f 67 72 61 ┆" og sluk10" er to små progra┆
0xb540…b560 6d 6d 65 72 20 64 65 72 20 68 68 76 2e 20 0a 19 80 82 80 74 7b 6e 64 65 72 20 6f 67 20 73 6c 75 ┆mmer der hhv. tænder og slu┆
0xb560…b580 6b 6b 65 72 20 42 49 54 2d 41 20 b0 6f 67 f0 20 42 49 54 2d 42 2e 20 44 65 20 72 65 66 65 72 65 ┆kker BIT-A og BIT-B. De refere┆
0xb580…b5a0 72 65 72 20 b0 69 6b 6b 65 f0 20 74 69 6c 20 0a 19 80 84 80 65 6c 65 76 74 65 6b 73 74 65 6e 2c ┆rer ikke til elevteksten,┆
0xb5a0…b5c0 20 6d 65 6e 20 65 72 20 72 61 72 65 20 61 74 20 68 61 76 65 20 70 7d 20 64 69 73 6b 65 74 74 65 ┆ men er rare at have på diskette┆
0xb5c0…b5e0 6e 2e 20 53 7d 20 6b 61 6e 20 0a 19 80 84 80 6d 61 6e 20 62 6c 6f 74 20 73 6b 72 69 76 65 20 6b ┆n. Så kan man blot skrive k┆
0xb5e0…b600 6f 6d 61 6e 64 6f 65 6e 20 b0 72 75 6e 20 22 74 7b 6e 64 31 30 22 f0 20 65 6c 6c 65 72 20 b0 22 ┆omandoen run "tænd10" eller "┆
0xb600…b620 (91,) 72 75 6e 20 0a 19 80 86 80 22 73 6c 75 6b 31 30 22 f0 20 68 76 69 73 20 6d 61 6e 20 7c 6e 73 6b ┆run "sluk10" hvis man ønsk┆
0xb620…b640 65 72 20 61 74 20 74 7b 6e 64 65 20 65 6c 6c 65 72 20 73 6c 75 6b 6b 65 20 64 65 20 74 6f 20 0a ┆er at tænde eller slukke de to ┆
0xb640…b660 19 80 86 80 6c 61 6d 70 65 72 2e 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 74 7b 6e 64 31 30 22 0d ┆ lamper. 0010 // "tænd10" ┆
0xb660…b680 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 ┆ 0020 OPEN FILE 1,"/10/PORT", WR┆
0xb680…b6a0 49 54 45 20 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 34 ┆ITE 0030 PRINT FILE 1: CHR$(24┆
0xb6a0…b6c0 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 b0 31 33 30 f0 29 3b 0d 0a 30 30 34 30 20 43 4c 4f ┆);CHR$(5);CHR$( 130 ); 0040 CLO┆
0xb6c0…b6e0 53 45 20 46 49 4c 45 20 31 0d 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0d 0a 0d 0a 30 30 31 30 20 2f ┆SE FILE 1 0050 END 0010 /┆
0xb6e0…b700 2f 20 22 73 6c 75 6b 31 30 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 ┆/ "sluk10" 0020 OPEN FILE 1,"/1┆
0xb700…b720 30 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 50 52 49 4e 54 20 46 49 4c 45 ┆0/PORT", WRITE 0030 PRINT FILE┆
0xb720…b740 20 31 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 b0 30 f0 29 3b 0d ┆ 1: CHR$(24);CHR$(5);CHR$( 0 ); ┆
0xb740…b760 0a 30 30 34 30 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 0a 30 30 35 30 20 45 4e 44 20 0d 0a 0d ┆ 0040 CLOSE FILE 1 0050 END ┆
0xb760…b780 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0xb780…b799 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------------------- ┆
0xb799…b79c FormFeed {
0xb799…b79c 0c 83 78 ┆ x┆
0xb799…b79c }
0xb79c…b7a0 0a 0d 0a 0d ┆ ┆
0xb7a0…b7c0 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 54 52 41 46 49 4b 22 3a 0d 0a 0d 0a 0d 0a 4e 75 20 73 6b ┆ PROBLEM "TRAFIK": Nu sk┆
0xb7c0…b7e0 61 6c 20 6c 79 73 6b 75 72 76 65 6e 65 20 70 7d 20 6c 79 73 70 61 6e 65 6c 65 74 20 62 72 75 67 ┆al lyskurvene på lyspanelet brug┆
0xb7e0…b800 65 73 2c 20 6f 67 20 6f 6d 73 6b 69 66 74 65 72 65 6e 20 0a 73 6b 61 6c 20 64 65 72 66 6f 72 20 ┆es, og omskifteren skal derfor ┆
0xb800…b820 (92,) 73 74 7d 20 70 7d 20 22 54 52 41 46 49 4b 22 2e 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b 2d 61 31 ┆stå på "TRAFIK". I "trafik-a1┆
0xb820…b840 22 20 6f 67 20 22 74 72 61 66 69 6b 2d 61 32 22 20 65 72 20 64 65 74 20 b0 6b 75 6e f0 20 74 6f ┆" og "trafik-a2" er det kun to┆
0xb840…b860 2d 6c 79 73 65 6e 65 20 64 65 72 20 0a 19 80 81 80 73 6b 61 6c 20 70 72 6f 67 72 61 6d 6d 65 72 ┆-lysene der skal programmer┆
0xb860…b880 65 73 2e 20 44 65 74 20 76 69 6c 20 73 69 67 65 20 61 74 20 62 7d 64 65 20 70 6f 72 74 20 31 37 ┆es. Det vil sige at både port 17┆
0xb880…b8a0 20 6f 67 20 70 6f 72 74 20 0a 19 80 81 80 31 30 20 73 6b 61 6c 20 62 72 75 67 65 73 20 69 20 64 ┆ og port 10 skal bruges i d┆
0xb8a0…b8c0 65 74 20 73 61 6d 6d 65 20 70 72 6f 67 72 61 6d 2e 20 44 65 72 66 6f 72 20 73 6b 61 6c 20 64 65 ┆et samme program. Derfor skal de┆
0xb8c0…b8e0 72 20 0a 19 80 81 80 7d 62 6e 65 73 20 74 69 6c 20 62 65 67 67 65 20 70 6f 72 74 65 2e 20 44 65 ┆r åbnes til begge porte. De┆
0xb8e0…b900 6e 20 65 6e 65 73 74 65 20 66 6f 72 73 6b 65 6c 20 70 7d 0d 0a 22 74 72 61 66 69 6b 2d 61 31 22 ┆n eneste forskel på "trafik-a1"┆
0xb900…b920 20 6f 67 20 22 74 72 61 66 69 6b 2d 61 32 22 20 65 72 20 61 74 20 64 65 74 20 65 72 20 6c 79 73 ┆ og "trafik-a2" er at det er lys┆
0xb920…b940 6b 75 72 76 20 6e 72 2e 20 31 20 0a 70 7d 20 6c 79 73 70 61 6e 65 6c 65 74 20 64 65 72 20 62 72 ┆kurv nr. 1 på lyspanelet der br┆
0xb940…b960 75 67 65 73 20 69 20 64 65 74 20 65 6e 65 20 70 72 6f 67 72 61 6d 2c 20 6f 67 20 6c 79 73 6b 75 ┆uges i det ene program, og lysku┆
0xb960…b980 72 76 20 6e 72 2e 20 32 20 64 65 72 20 0a 62 72 75 67 65 73 20 69 20 64 65 74 20 61 6e 64 65 74 ┆rv nr. 2 der bruges i det andet┆
0xb980…b9a0 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 72 61 66 69 6b 2d 61 31 22 0d 0a b0 30 30 ┆: 0010 // "trafik-a1" 00┆
0xb9a0…b9c0 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 ┆20 OPEN FILE 1,"/17/PORT", WRITE┆
0xb9c0…b9e0 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 32 2c 22 2f 31 30 2f 50 4f 52 54 22 2c ┆ 0030 OPEN FILE 2,"/10/PORT",┆
0xb9e0…ba00 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 20 20 ┆ WRITE 0040 REPEAT 0050 ┆
0xba00…ba20 (93,) 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 36 29 3b 20 2f 2f 20 0d 0a b0 30 30 ┆PRINT FILE 1: CHR$(16); // 00┆
0xba20…ba40 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 ┆60 PRINT FILE 2: CHR$(24);CHR$┆
0xba40…ba60 28 35 29 3b 43 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 ┆(5);CHR$(0); // 0070 EXEC p┆
0xba60…ba80 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆ause(6) 0080 PRINT FILE 1: C┆
0xba80…baa0 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆HR$(0); // 0090 PRINT FILE ┆
0xbaa0…bac0 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 20 2f ┆2: CHR$(24);CHR$(5);CHR$(128); /┆
0xbac0…bae0 2f 20 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 31 30 ┆/ 0100 EXEC pause(4) 0110┆
0xbae0…bb00 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 32 30 20 43 4c 4f 53 45 ┆ UNTIL ORD(KEY$)=32 0120 CLOSE┆
0xbb00…bb20 20 0d 0a b0 30 31 33 30 20 45 4e 44 20 0d 0a 0d 0a 0d 0a b0 30 30 32 30 f0 3a 20 44 61 74 61 73 ┆ 0130 END 0020 : Datas┆
0xbb20…bb40 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 31 20 74 69 6c 20 70 6f 72 74 20 31 37 20 7d 62 6e 65 73 2e ┆trøm nummer 1 til port 17 åbnes.┆
0xbb40…bb60 0d 0a b0 30 30 33 30 f0 3a 20 44 61 74 61 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 32 20 74 69 6c ┆ 0030 : Datastrøm nummer 2 til┆
0xbb60…bb80 20 70 6f 72 74 20 31 30 20 7d 62 6e 65 73 2e 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 ┆ port 10 åbnes. 0050 : TÆND ┆
0xbb80…bba0 52 5c 44 28 31 29 2c 20 6f 67 20 66 7d 20 62 72 7c 6b 64 65 6c 65 20 61 66 20 65 74 20 73 65 6b ┆RØD(1), og få brøkdele af et sek┆
0xbba0…bbc0 75 6e 64 20 65 66 74 65 72 3a 0d 0a b0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 31 29 ┆und efter: 0060 : SLUK GRØN(1)┆
0xbbc0…bbe0 0d 0a 0d 0a b0 30 30 37 30 f0 3a 20 50 61 75 73 65 20 70 7d 20 36 20 73 65 6b 75 6e 64 65 72 2e ┆ 0070 : Pause på 6 sekunder.┆
0xbbe0…bc00 20 44 65 72 20 65 72 20 61 6c 74 73 7d 20 52 5c 44 54 20 69 20 36 20 0a 19 80 81 80 73 65 6b 75 ┆ Der er altså RØDT i 6 seku┆
0xbc00…bc20 (94,) 6e 64 65 72 2e 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 31 29 2c 20 6f 67 ┆nder. 0080 : SLUK RØD(1), og┆
0xbc20…bc40 20 66 7d 20 62 72 7c 6b 64 65 6c 65 20 61 66 20 65 74 20 73 65 6b 75 6e 64 20 65 66 74 65 72 3a ┆ få brøkdele af et sekund efter:┆
0xbc40…bc60 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 31 29 0d 0a 0d 0a b0 30 31 30 30 f0 ┆ 0090 : TÆND GRØN(1) 0100 ┆
0xbc60…bc80 3a 20 50 61 75 73 65 20 70 7d 20 34 20 73 65 6b 75 6e 64 65 72 2e 20 44 65 72 20 65 72 20 61 6c ┆: Pause på 4 sekunder. Der er al┆
0xbc80…bca0 74 73 7d 20 47 52 5c 4e 54 20 69 20 34 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a ┆tså GRØNT i 4 sekunder. ┆
0xbca0…bcc0 b0 30 31 32 30 f0 3a 20 44 61 74 61 73 74 72 7c 6d 6d 65 6e 65 20 6c 75 6b 6b 65 73 2e 0d 0a 0d ┆ 0120 : Datastrømmene lukkes. ┆
0xbcc0…bce0 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0xbce0…bcf9 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------------------- ┆
0xbcf9…bcfc FormFeed {
0xbcf9…bcfc 0c 83 18 ┆ ┆
0xbcf9…bcfc }
0xbcfc…bd00 0a 0d 0a 0d ┆ ┆
0xbd00…bd20 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 72 61 66 69 6b 2d 61 32 22 0d 0a b0 30 30 32 30 20 4f ┆ 0010 // "trafik-a2" 0020 O┆
0xbd20…bd40 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 ┆PEN FILE 1,"/17/PORT", WRITE ┆
0xbd40…bd60 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 32 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 49 ┆0030 OPEN FILE 2,"/10/PORT", WRI┆
0xbd60…bd80 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e ┆TE 0040 REPEAT 0050 PRIN┆
0xbd80…bda0 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 20 2f 2f 20 0d 0a b0 30 30 36 30 20 20 20 ┆T FILE 1: CHR$(8); // 0060 ┆
0xbda0…bdc0 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 ┆PRINT FILE 2: CHR$(24);CHR$(5);C┆
0xbdc0…bde0 48 52 24 28 30 29 3b 20 2f 2f 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆HR$(0); // 0070 EXEC pause(┆
0xbde0…be00 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 ┆6) 0080 PRINT FILE 1: CHR$(0┆
0xbe00…be20 (95,) 29 3b 20 2f 2f 20 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 ┆); // 0090 PRINT FILE 2: CH┆
0xbe20…be40 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 32 29 3b 20 2f 2f 20 0d 0a b0 30 31 ┆R$(24);CHR$(5);CHR$(2); // 01┆
0xbe40…be60 30 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 31 30 20 55 4e 54 49 4c 20 ┆00 EXEC pause(4) 0110 UNTIL ┆
0xbe60…be80 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 31 33 ┆ORD(KEY$)=32 0120 CLOSE 013┆
0xbe80…bea0 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 34 29 0d 0a b0 ┆0 END 0050 : TÆND RØD(4) ┆
0xbea0…bec0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 53 ┆0060 : SLUK GRØN(4) 0080 : S┆
0xbec0…bee0 4c 55 4b 20 52 5c 44 28 34 29 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 34 29 ┆LUK RØD(4) 0090 : TÆND GRØN(4)┆
0xbee0…bf00 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------------┆
0xbf00…bf20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a ┆-------------------------- ┆
0xbf20…bf40 22 74 72 61 66 69 6b 2d 62 22 20 73 74 79 72 65 72 20 64 65 20 74 6f 20 32 2d 6c 79 73 2c 20 6f ┆"trafik-b" styrer de to 2-lys, o┆
0xbf40…bf60 67 20 65 72 20 73 7d 6c 65 64 65 73 20 65 6e 20 0a 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 61 66 20 ┆g er således en kombination af ┆
0xbf60…bf80 64 65 20 74 6f 20 66 6f 72 65 67 7d 65 6e 64 65 20 70 72 6f 67 72 61 6d 6d 65 72 3a 0d 0a 0d 0a ┆de to foregående programmer: ┆
0xbf80…bfa0 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 20 20 50 52 49 4e 54 20 46 ┆ 0040 REPEAT 0050 PRINT F┆
0xbfa0…bfc0 49 4c 45 20 31 3a 20 43 48 52 24 28 38 29 3b 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 ┆ILE 1: CHR$(8); 0060 PRINT ┆
0xbfc0…bfe0 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 ┆FILE 2: CHR$(24);CHR$(5);CHR$(12┆
0xbfe0…c000 38 29 3b 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 ┆8); 0070 EXEC pause(6) 00┆
0xc000…c020 (96,) 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 36 29 3b 0d 0a b0 30 ┆80 PRINT FILE 1: CHR$(16); 0┆
0xc020…c040 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 ┆090 PRINT FILE 2: CHR$(24);CHR┆
0xc040…c060 24 28 35 29 3b 43 48 52 24 28 32 29 3b 20 0d 0a b0 30 31 30 30 20 20 20 45 58 45 43 20 70 61 75 ┆$(5);CHR$(2); 0100 EXEC pau┆
0xc060…c080 73 65 28 34 29 0d 0a b0 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d ┆se(4) 0120 UNTIL ORD(KEY$)=32 ┆
0xc080…c0a0 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 31 29 20 20 2b 20 53 4c 55 4b 20 52 ┆ 0050 : TÆND RØD(1) + SLUK R┆
0xc0a0…c0c0 5c 44 28 34 29 20 0d 0a b0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 31 29 20 2b 20 54 ┆ØD(4) 0060 : SLUK GRØN(1) + T┆
0xc0c0…c0e0 5b 4e 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 ┆ÆND GRØN(4) 0080 : SLUK RØD(┆
0xc0e0…c100 31 29 20 20 2b 20 54 5b 4e 44 20 52 5c 44 28 34 29 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 20 ┆1) + TÆND RØD(4) 0090 : TÆND ┆
0xc100…c120 47 52 5c 4e 28 31 29 20 2b 20 53 4c 55 4b 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a 44 65 6e 20 22 67 ┆GRØN(1) + SLUK GRØN(4) Den "g┆
0xc120…c140 72 7c 6e 6e 65 20 62 7c 6c 67 65 22 20 70 7d 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 31 20 65 72 ┆rønne bølge" på lyskurv nr. 1 er┆
0xc140…c160 20 70 7d 20 34 20 73 65 6b 75 6e 64 65 72 2e 20 0a 44 65 6e 20 22 67 72 7c 6e 6e 65 20 62 7c 6c ┆ på 4 sekunder. Den "grønne bøl┆
0xc160…c180 67 65 22 20 70 7d 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 32 20 65 72 20 70 7d 20 36 20 73 65 6b ┆ge" på lyskurv nr. 2 er på 6 sek┆
0xc180…c1a0 75 6e 64 65 72 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆under. ----------------------┆
0xc1a0…c1c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xc1c0…c1c2 0d 0a ┆ ┆
0xc1c2…c1c5 FormFeed {
0xc1c2…c1c5 0c 83 08 ┆ ┆
0xc1c2…c1c5 }
0xc1c5…c1e0 0a 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 63 31 22 20 6f 67 20 22 74 72 61 66 ┆ "trafik-c1" og "traf┆
0xc1e0…c200 69 6b 2d 63 32 22 20 73 74 79 72 65 72 20 68 68 76 2e 20 6c 79 73 6b 75 72 76 20 6e 72 2e 20 32 ┆ik-c2" styrer hhv. lyskurv nr. 2┆
0xc200…c220 (97,) 20 6f 67 20 0a 6c 79 73 6b 75 72 76 20 6e 72 2e 33 2c 20 61 6c 74 73 7d 20 b0 65 74 f0 20 33 2d ┆ og lyskurv nr.3, altså et 3-┆
0xc220…c240 6c 79 73 3a 0d 0a 0d 0a 0d 0a b0 22 74 72 61 66 69 6b 2d 63 31 22 3a 0d 0a 0d 0a 30 30 33 30 20 ┆lys: "trafik-c1": 0030 ┆
0xc240…c260 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆REPEAT 0040 PRINT FILE 1: C┆
0xc260…c280 48 52 24 28 31 32 38 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 32 29 0d 0a 30 30 35 30 20 20 20 45 ┆HR$(128); // RØD(2) 0050 E┆
0xc280…c2a0 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(6) 0060 PRINT FILE┆
0xc2a0…c2c0 20 31 3a 20 43 48 52 24 28 31 39 32 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 32 29 20 2b 20 47 55 ┆ 1: CHR$(192); // RØD(2) + GU┆
0xc2c0…c2e0 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 ┆L(2) 0070 EXEC pause(2) 008┆
0xc2e0…c300 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 32 29 3b 20 2f 2f 20 20 ┆0 PRINT FILE 1: CHR$(32); // ┆
0xc300…c320 20 20 20 47 52 5c 4e 28 32 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 ┆ GRØN(2) 0090 EXEC pause(4)┆
0xc320…c340 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 34 29 ┆ 0100 PRINT FILE 1: CHR$(64)┆
0xc340…c360 3b 20 2f 2f 20 20 20 20 20 47 55 4c 28 32 29 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 ┆; // GUL(2) 0110 EXEC pau┆
0xc360…c380 73 65 28 31 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a ┆se(1) 0120 UNTIL ORD(KEY$)=32 ┆
0xc380…c3a0 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0xc3a0…c3c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 0d 0a b0 22 ┆------------------------ "┆
0xc3c0…c3e0 74 72 61 66 69 6b 2d 63 32 22 3a 0d 0a 0d 0a 30 30 31 30 20 2f 2f 20 22 74 72 61 66 69 6b 2d 63 ┆trafik-c2": 0010 // "trafik-c┆
0xc3e0…c400 32 22 0d 0a 30 30 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 22 2f 31 37 2f 50 4f 52 54 22 2c ┆2" 0020 OPEN FILE 1,"/17/PORT",┆
0xc400…c420 (98,) 20 57 52 49 54 45 20 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 ┆ WRITE 0030 REPEAT 0040 P┆
0xc420…c440 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 29 3b 20 2f 2f 20 20 20 20 52 5c 44 28 ┆RINT FILE 1: CHR$(1); // RØD(┆
0xc440…c460 33 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 ┆3) 0050 EXEC pause(6) 0060 ┆
0xc460…c480 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 29 3b 20 2f 2f 20 20 20 20 52 ┆ PRINT FILE 1: CHR$(3); // R┆
0xc480…c4a0 5c 44 28 33 29 20 2b 20 47 55 4c 28 33 29 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆ØD(3) + GUL(3) 0070 EXEC paus┆
0xc4a0…c4c0 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆e(2) 0080 PRINT FILE 1: CHR$┆
0xc4c0…c4e0 28 34 29 3b 20 2f 2f 20 20 20 20 47 52 5c 4e 28 33 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 ┆(4); // GRØN(3) 0090 EXEC ┆
0xc4e0…c500 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆pause(4) 0100 PRINT FILE 1: ┆
0xc500…c520 43 48 52 24 28 32 29 3b 20 2f 2f 20 20 20 20 47 55 4c 28 33 29 0d 0a 30 31 31 30 20 20 20 45 58 ┆CHR$(2); // GUL(3) 0110 EX┆
0xc520…c540 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 ┆EC pause(1) 0120 UNTIL ORD(KEY$┆
0xc540…c560 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆)=32 ------------------------┆
0xc560…c580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆
0xc580…c5a0 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 64 22 20 65 72 20 65 6e 20 6b 6f 6d 62 69 6e 61 74 69 6f 6e ┆ "trafik-d" er en kombination┆
0xc5a0…c5c0 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 7d 65 6e 64 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 ┆ af de to foregående programmer┆
0xc5c0…c5e0 2e 20 48 65 72 20 73 74 79 72 65 73 20 61 6c 74 73 7d 20 62 65 67 67 65 20 33 2d 6c 79 73 3a 0d ┆. Her styres altså begge 3-lys: ┆
0xc5e0…c600 0a 0d 0a 0d 0a 30 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 ┆ 0030 REPEAT 0040 PRINT┆
0xc600…c620 (99,) 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 33 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 52 5c 4e ┆ FILE 1: CHR$(33); //RØD(3)+GRØN┆
0xc620…c640 28 32 29 0d 0a 30 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 ┆(2) 0050 EXEC pause(6) 0060┆
0xc640…c660 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 37 29 3b 20 2f 2f 52 5c 44 ┆ PRINT FILE 1: CHR$(67); //RØD┆
0xc660…c680 28 33 29 2b 47 55 4c 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 19 80 81 80 30 30 37 30 20 20 20 45 ┆(3)+GUL(3)+GRØN(2) 0070 E┆
0xc680…c6a0 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 ┆XEC pause(2) 0080 PRINT FILE┆
0xc6a0…c6c0 20 31 3a 20 43 48 52 24 28 31 33 32 29 3b 2f 2f 47 52 5c 4e 28 33 29 2b 52 5c 44 28 32 29 0d 0a ┆ 1: CHR$(132);//GRØN(3)+RØD(2) ┆
0xc6c0…c6e0 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 30 30 20 20 20 50 52 ┆0090 EXEC pause(4) 0100 PR┆
0xc6e0…c700 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 39 34 29 3b 2f 2f 47 55 4c 28 33 29 2b 52 ┆INT FILE 1: CHR$(194);//GUL(3)+R┆
0xc700…c720 5c 44 28 32 29 2b 47 55 4c 28 32 29 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆ØD(2)+GUL(2) 0110 EXEC pause(┆
0xc720…c740 31 29 0d 0a 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d ┆1) 0120 UNTIL ORD(KEY$)=32 -┆
0xc740…c760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xc760…c777 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------------------- ┆
0xc777…c77a FormFeed {
0xc777…c77a 0c 83 48 ┆ H┆
0xc777…c77a }
0xc77a…c780 0a 0d 0a 0d 0a 0d ┆ ┆
0xc780…c7a0 0a 49 20 22 74 72 61 66 69 6b 2d 65 22 20 65 72 20 64 65 74 20 69 67 65 6e 20 64 65 20 74 6f 20 ┆ I "trafik-e" er det igen de to ┆
0xc7a0…c7c0 33 2d 6c 79 73 20 64 65 72 20 73 74 79 72 65 73 2e 20 48 65 72 20 65 72 20 0a 73 65 6b 76 65 6e ┆3-lys der styres. Her er sekven┆
0xc7c0…c7e0 73 65 6e 20 62 6c 6f 74 20 6c 61 76 65 74 20 73 7d 20 64 65 72 20 65 72 20 b0 72 7c 64 74 20 69 ┆sen blot lavet så der er rødt i┆
0xc7e0…c800 20 62 65 67 67 65 20 74 72 61 66 69 6b 80 0a 19 80 81 80 72 65 74 6e 69 6e 67 65 72 f0 20 69 20 ┆ begge trafik retninger i ┆
0xc800…c820 (100,) 31 20 73 65 6b 75 6e 64 20 6d 65 6c 6c 65 6d 20 73 6b 69 66 74 65 6e 65 3a 0d 0a 0d 0a 0d 0a 30 ┆1 sekund mellem skiftene: 0┆
0xc820…c840 30 33 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆030 REPEAT 0040 PRINT FILE ┆
0xc840…c860 31 3a 20 43 48 52 24 28 33 33 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 ┆1: CHR$(33); //RØD(3)+GRØN(2) 0┆
0xc860…c880 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 ┆050 EXEC pause(6) 0060 PRI┆
0xc880…c8a0 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 35 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 55 ┆NT FILE 1: CHR$(65); //RØD(3)+GU┆
0xc8a0…c8c0 4c 28 32 29 0d 0a 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 30 38 ┆L(2) 0070 EXEC pause(3) 008┆
0xc8c0…c8e0 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 39 29 3b 2f 2f 52 5c ┆0 PRINT FILE 1: CHR$(129);//RØ┆
0xc8e0…c900 44 28 33 29 2b 52 5c 44 28 32 29 0d 0a 30 30 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 ┆D(3)+RØD(2) 0090 EXEC pause(2┆
0xc900…c920 29 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 ┆) 0100 PRINT FILE 1: CHR$(13┆
0xc920…c940 31 29 3b 2f 2f 52 5c 44 28 33 29 2b 47 55 4c 28 33 29 2b 52 5c 44 28 32 29 0d 0a 19 80 81 80 30 ┆1);//RØD(3)+GUL(3)+RØD(2) 0┆
0xc940…c960 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a b0 30 31 32 30 20 20 20 50 52 49 ┆110 EXEC pause(1) 0120 PRI┆
0xc960…c980 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 32 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 52 ┆NT FILE 1: CHR$(132);//RØD(2)+GR┆
0xc980…c9a0 5c 4e 28 33 29 0d 0a 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 30 29 0a b0 30 31 ┆ØN(3) 0130 EXEC pause(10) 01┆
0xc9a0…c9c0 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 30 29 3b 2f 2f 52 ┆40 PRINT FILE 1: CHR$(130);//R┆
0xc9c0…c9e0 5c 44 28 32 29 2b 47 55 4c 28 33 29 0d 0a 30 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 ┆ØD(2)+GUL(3) 0150 EXEC pause(┆
0xc9e0…ca00 33 29 0a b0 30 31 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 ┆3) 0160 PRINT FILE 1: CHR$(12┆
0xca00…ca20 (101,) 39 29 3b 2f 2f 52 5c 44 28 32 29 2b 52 5c 44 28 33 29 0d 0a 30 31 37 30 20 20 20 45 58 45 43 20 ┆9);//RØD(2)+RØD(3) 0170 EXEC ┆
0xca20…ca40 70 61 75 73 65 28 32 29 0d 0a b0 30 31 38 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆pause(2) 0180 PRINT FILE 1: ┆
0xca40…ca60 43 48 52 24 28 31 39 33 29 3b 2f 2f 52 5c 44 28 32 29 2b 47 55 4c 28 32 29 2b 52 5c 44 28 33 29 ┆CHR$(193);//RØD(2)+GUL(2)+RØD(3)┆
0xca60…ca80 0d 0a 19 80 81 80 30 31 39 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a 30 32 30 30 ┆ 0190 EXEC pause(1) 0200┆
0xca80…caa0 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ UNTIL ORD(KEY$)=32 ---------┆
0xcaa0…cac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xcac0…cacf 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------- ┆
0xcacf…cad2 FormFeed {
0xcacf…cad2 0c 81 60 ┆ `┆
0xcacf…cad2 }
0xcad2…cae0 0a 0d 0a 0d 0a 0d 0a 49 20 22 74 72 61 66 ┆ I "traf┆
0xcae0…cb00 69 6b 2d 66 22 20 73 74 79 72 65 73 20 b0 61 6c 6c 65 20 34 20 6c 79 73 6b 75 72 76 65 f0 20 70 ┆ik-f" styres alle 4 lyskurve p┆
0xcb00…cb20 7d 20 65 6e 20 67 61 6e 67 3a 0d 0a 0d 0a 0d 0a 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 ┆å en gang: 0040 REPEAT 0┆
0xcb20…cb40 30 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 0d 0a b0 30 30 36 30 20 20 20 50 52 ┆050 PRINT CHR$(7); 0060 PR┆
0xcb40…cb60 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 34 38 29 3b 0d 0a b0 30 30 37 30 20 20 20 ┆INT FILE 1: CHR$(148); 0070 ┆
0xcb60…cb80 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 ┆PRINT FILE 2: CHR$(24);CHR$(5);C┆
0xcb80…cba0 48 52 24 28 32 29 3b 0d 0a 30 30 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 30 29 0d 0a ┆HR$(2); 0080 EXEC pause(10) ┆
0xcba0…cbc0 b0 30 30 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 35 36 29 3b ┆ 0090 PRINT FILE 1: CHR$(156);┆
0xcbc0…cbe0 0d 0a b0 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 ┆ 0100 PRINT FILE 2: CHR$(24)┆
0xcbe0…cc00 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 3b 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 ┆;CHR$(5);CHR$(0); 0110 EXEC p┆
0xcc00…cc20 (102,) 61 75 73 65 28 33 29 0d 0a b0 30 31 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 ┆ause(3) 0120 PRINT FILE 1: C┆
0xcc20…cc40 48 52 24 28 31 35 34 29 3b 0d 0a 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d ┆HR$(154); 0130 EXEC pause(3) ┆
0xcc40…cc60 0a b0 30 31 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 32 31 37 29 ┆ 0140 PRINT FILE 1: CHR$(217)┆
0xcc60…cc80 3b 0d 0a 30 31 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 31 36 30 20 20 ┆; 0150 EXEC pause(2) 0160 ┆
0xcc80…cca0 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 34 31 29 3b 0d 0a b0 30 31 37 30 20 ┆ PRINT FILE 1: CHR$(41); 0170 ┆
0xcca0…ccc0 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 ┆ PRINT FILE 2: CHR$(24);CHR$(5)┆
0xccc0…cce0 3b 43 48 52 24 28 31 32 38 29 3b 0d 0a 30 31 38 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 ┆;CHR$(128); 0180 EXEC pause(1┆
0xcce0…cd00 30 29 0d 0a b0 30 31 39 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 35 ┆0) 0190 PRINT FILE 1: CHR$(5┆
0xcd00…cd20 37 29 3b 0d 0a b0 30 32 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 52 24 28 ┆7); 0200 PRINT FILE 2: CHR$(┆
0xcd20…cd40 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 3b 0d 0a 30 32 31 30 20 20 20 45 58 45 ┆24);CHR$(5);CHR$(0); 0210 EXE┆
0xcd40…cd60 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 32 32 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 ┆C pause(3) 0220 PRINT FILE 1┆
0xcd60…cd80 3a 20 43 48 52 24 28 38 39 29 3b 0d 0a 30 32 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 ┆: CHR$(89); 0230 EXEC pause(3┆
0xcd80…cda0 29 0d 0a b0 30 32 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 35 ┆) 0240 PRINT FILE 1: CHR$(15┆
0xcda0…cdc0 35 29 3b 0d 0a 30 32 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a 30 32 36 30 20 ┆5); 0250 EXEC pause(2) 0260 ┆
0xcdc0…cde0 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a 0d 0a 46 6f 72 20 61 74 20 76 ┆UNTIL ORD(KEY$)=32 For at v┆
0xcde0…ce00 69 73 65 20 68 76 6f 72 64 61 6e 20 61 72 62 65 6a 64 73 61 72 6b 65 6e 65 20 74 69 6c 20 6c 79 ┆ise hvordan arbejdsarkene til ly┆
0xce00…ce20 (103,) 73 6b 75 72 76 6f 70 67 61 76 65 72 6e 65 20 0a 6b 61 6e 20 62 72 75 67 65 73 2c 20 76 69 73 65 ┆skurvopgaverne kan bruges, vise┆
0xce20…ce40 73 20 70 7d 20 6e 7b 73 74 65 20 73 69 64 65 20 68 76 6f 72 64 61 6e 20 65 6e 20 61 6c 67 6f 72 ┆s på næste side hvordan en algor┆
0xce40…ce60 69 74 6d 65 20 0a 74 69 6c 20 22 74 72 61 66 69 6b 2d 66 22 20 6b 61 6e 20 74 61 67 6e 65 73 20 ┆itme til "trafik-f" kan tagnes ┆
0xce60…ce80 73 76 61 72 65 6e 64 65 20 64 69 72 65 6b 74 65 20 74 69 6c 20 0a 70 72 6f 67 72 61 6d 6d 65 74 ┆svarende direkte til programmet┆
0xce80…cea0 2e 20 44 65 74 20 65 72 20 6e 61 74 75 72 6c 69 67 76 69 73 20 64 65 20 64 65 63 69 6d 61 6c 65 ┆. Det er naturligvis de decimale┆
0xcea0…cec0 20 74 61 6c 2c 20 73 61 6d 74 20 0a 70 6f 72 74 65 6e 65 2c 20 64 65 72 20 73 6b 61 6c 20 6b 6f ┆ tal, samt portene, der skal ko┆
0xcec0…cee0 6e 63 65 6e 74 72 65 72 65 73 20 6f 6d 20 21 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ncentreres om ! -------------┆
0xcee0…cf00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xcf00…cf0b 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------- ┆
0xcf0b…cf0e FormFeed {
0xcf0b…cf0e 0c 82 b0 ┆ ┆
0xcf0b…cf0e }
0xcf0e…cf20 0a 0d 0a 0d 0a 0d 0a 45 6e 64 65 6c 69 67 20 65 72 20 ┆ Endelig er ┆
0xcf20…cf40 64 65 72 20 70 7d 20 6e 7b 73 74 65 20 73 69 64 65 20 65 6e 20 6c 69 73 74 6e 69 6e 67 20 61 66 ┆der på næste side en listning af┆
0xcf40…cf60 20 65 74 20 0a 22 67 65 6e 65 72 65 6c 74 22 20 6c 79 73 6b 75 72 76 20 70 72 6f 67 72 61 6d 20 ┆ et "generelt" lyskurv program ┆
0xcf60…cf80 b0 22 54 52 41 46 49 4b 22 f0 2c 20 68 76 6f 72 20 61 6c 6c 65 20 6c 61 6d 70 65 72 20 0a 19 80 ┆ "TRAFIK" , hvor alle lamper ┆
0xcf80…cfa0 81 80 74 7b 6e 64 65 73 20 6f 67 20 73 6c 75 6b 6b 65 73 20 65 6e 20 65 66 74 65 72 20 65 6e 20 ┆ tændes og slukkes en efter en ┆
0xcfa0…cfc0 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 45 58 45 43 2d 0a 19 80 81 80 73 7b 74 6e 69 6e 67 65 72 ┆ved hjælp af EXEC- sætninger┆
0xcfc0…cfe0 2e 20 44 65 74 20 65 72 20 70 72 6f 63 65 80 64 75 72 65 72 6e 65 20 b0 74 7b 6e 64 28 6c 61 6d ┆. Det er proce durerne tænd(lam┆
0xcfe0…d000 70 65 29 f0 20 6f 67 20 0a 19 80 82 80 b0 73 6c 75 6b 28 6c 61 6d 70 65 29 f0 20 64 65 72 20 6b ┆pe) og sluk(lampe) der k┆
0xd000…d020 (104,) 61 6c 64 65 73 2e 0d 0a 0d 0a 50 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e 20 66 2e 65 6b 73 2e 20 ┆aldes. Programmet kan f.eks. ┆
0xd020…d040 62 72 75 67 65 73 20 61 66 20 64 65 20 65 6c 65 76 65 72 20 64 65 72 20 68 61 72 20 73 76 7b 72 ┆bruges af de elever der har svær┆
0xd040…d060 74 20 0a 76 65 64 20 61 74 20 70 72 6f 67 72 61 6d 6d 65 72 65 20 6c 79 73 6b 75 72 76 65 6e 65 ┆t ved at programmere lyskurvene┆
0xd060…d080 20 6d 65 64 20 64 65 72 65 73 20 b0 65 67 6e 65 f0 20 43 4f 4d 41 4c 38 30 2d 0a 19 80 81 80 70 ┆ med deres egne COMAL80- p┆
0xd080…d0a0 72 6f 67 72 61 6d 6d 65 72 2e 20 46 6f 72 74 7b 6c 20 64 65 6d 20 61 74 20 64 65 20 62 6c 6f 74 ┆rogrammer. Fortæl dem at de blot┆
0xd0a0…d0c0 20 73 6b 61 6c 20 62 72 75 67 65 20 0a 19 80 81 80 61 72 62 65 6a 64 73 61 72 6b 65 6e 65 20 6f ┆ skal bruge arbejdsarkene o┆
0xd0c0…d0e0 67 20 64 65 72 65 66 74 65 72 20 69 6e 64 73 7b 74 74 65 20 45 58 45 43 2d 73 7b 74 6e 69 6e 67 ┆g derefter indsætte EXEC-sætning┆
0xd0e0…d100 65 72 6e 65 20 69 20 0a 19 80 81 80 74 6f 70 70 65 6e 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 ┆erne i toppen af programmet┆
0xd100…d120 21 0d 0a 0d 0a b0 22 54 52 41 46 49 4b 2d 31 22 f0 20 6f 67 20 b0 22 54 52 41 46 49 4b 2d 32 22 ┆! "TRAFIK-1" og "TRAFIK-2"┆
0xd120…d140 f0 20 65 72 20 69 64 65 6e 74 69 73 6b 65 20 6d 65 64 20 22 54 52 41 46 49 4b 22 2e 0d 0a 0d 0a ┆ er identiske med "TRAFIK". ┆
0xd140…d160 22 54 52 41 46 49 4b 2d 31 22 20 69 6e 64 65 68 6f 6c 64 65 72 20 45 58 45 43 2d 73 7b 74 6e 69 ┆"TRAFIK-1" indeholder EXEC-sætni┆
0xd160…d180 6e 67 65 72 20 73 76 61 72 65 6e 64 65 20 74 69 6c 20 61 74 20 0a 52 5c 44 28 31 29 20 62 6c 69 ┆nger svarende til at RØD(1) bli┆
0xd180…d1a0 6e 6b 65 72 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 54 52 41 46 49 4b 2d 31 22 0d 0a b0 30 ┆nker: 0010 // "TRAFIK-1" 0┆
0xd1a0…d1c0 30 32 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e ┆020 PROC blink 0030 EXEC tæn┆
0xd1c0…d1e0 64 28 72 7c 64 31 29 0d 0a b0 30 30 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a ┆d(rød1) 0040 EXEC pause(1) ┆
0xd1e0…d200 b0 30 30 35 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 72 7c 64 31 29 0d 0a b0 30 30 36 30 20 20 ┆ 0050 EXEC sluk(rød1) 0060 ┆
0xd200…d220 (105,) 20 45 58 45 43 20 70 61 75 73 65 28 31 29 0d 0a b0 30 30 37 30 20 45 4e 44 50 52 4f 43 20 62 6c ┆ EXEC pause(1) 0070 ENDPROC bl┆
0xd220…d240 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ink -------------------------┆
0xd240…d260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d ┆----------------------------- ┆
0xd260…d280 0a 22 54 52 41 46 49 4b 2d 32 22 20 73 74 79 72 65 72 20 65 74 20 65 6e 6b 65 6c 74 20 33 2d 6c ┆ "TRAFIK-2" styrer et enkelt 3-l┆
0xd280…d2a0 79 73 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 54 52 41 46 49 4b 2d 32 22 0d 0a b0 30 30 32 ┆ys: 0010 // "TRAFIK-2" 002┆
0xd2a0…d2c0 30 20 50 52 4f 43 20 62 6c 69 6e 6b 0d 0a b0 30 30 33 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 ┆0 PROC blink 0030 EXEC tænd(┆
0xd2c0…d2e0 72 7c 64 32 29 0d 0a b0 30 30 34 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 ┆rød2) 0040 EXEC pause(6) 0┆
0xd2e0…d300 30 35 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c 32 29 0d 0a b0 30 30 36 30 20 20 20 45 ┆050 EXEC tænd(gul2) 0060 E┆
0xd300…d320 58 45 43 20 70 61 75 73 65 28 32 29 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 ┆XEC pause(2) 0070 EXEC sluk(┆
0xd320…d340 72 7c 64 32 29 0d 0a b0 30 30 38 30 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a ┆rød2) 0080 EXEC sluk(gul2) ┆
0xd340…d360 b0 30 30 39 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 72 7c 6e 32 29 0d 0a b0 30 31 30 30 20 ┆ 0090 EXEC tænd(grøn2) 0100 ┆
0xd360…d380 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 73 6c ┆ EXEC pause(6) 0110 EXEC sl┆
0xd380…d3a0 75 6b 28 67 72 7c 6e 32 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 74 7b 6e 64 28 67 75 6c ┆uk(grøn2) 0120 EXEC tænd(gul┆
0xd3a0…d3c0 32 29 0d 0a b0 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 33 29 0d 0a b0 30 31 34 30 ┆2) 0130 EXEC pause(3) 0140┆
0xd3c0…d3e0 20 20 20 45 58 45 43 20 73 6c 75 6b 28 67 75 6c 32 29 0d 0a b0 30 31 35 30 20 45 4e 44 50 52 4f ┆ EXEC sluk(gul2) 0150 ENDPRO┆
0xd3e0…d400 43 20 62 6c 69 6e 6b 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C blink ---------------------┆
0xd400…d420 (106,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xd420…d423 2d 0d 0a ┆- ┆
0xd423…d426 FormFeed {
0xd423…d426 0c 83 08 ┆ ┆
0xd423…d426 }
0xd426…d437 0a 0d 0a 0d 0a b0 22 54 52 41 46 49 4b 22 3a 0d 0a ┆ "TRAFIK": ┆
0xd437…d43a FormFeed {
0xd437…d43a 0c 80 98 ┆ ┆
0xd437…d43a }
0xd43a…d440 0a 0d 0a 1a 1a 20 ┆ ┆
0xd440…d460 31 3a 20 43 48 52 24 28 33 33 29 3b 20 2f 2f 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 ┆1: CHR$(33); //RØD(3)+GRØN(2) 0┆
0xd460…d480 30 35 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 36 30 20 20 20 50 52 49 ┆050 EXEC pause(6) 0060 PRI┆