|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 54400 (0xd480)
Types: RcTekst
Names: »LÆRER.WP«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LÆRER.WP«
╱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 en 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. 60 blink pr. minut. Lysperioden er lige ↓
┆19┆┄┆81┆┄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┆.↲
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 x 100↲
┆b0┆0180 priklængde:=0.2/hastighed x 100↲
┆b0┆0190 streglængde:=0.5/hastighed x 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 x 100)↲
┆b0┆0210 NEXT tegnnr↲
↲
┆b0┆0230 PROC prik↲
┆b0┆0240 PRINT FILE 1: CHR$(255)↲
┆b0┆0250 EXEC pause(0.25/hastighed x 100)↲
┆b0┆0260 PRINT FILE 1: CHR$(0);↲
┆b0┆0270 EXEC pause(0.2/hastighed x 100)↲
┆b0┆0280 ENDPROC prik↲
↲
┆b0┆0300 PROC streg↲
┆b0┆0310 PRINT FILE 1: CHR$(255);↲
┆b0┆0320 EXEC pause(0.6/hastighed x 100)↲
┆b0┆0330 PRINT FILE 1: CHR$(0);↲
┆b0┆0340 EXEC pause(0.2/hastighed x 100)↲
┆b0┆0340 ENDPROC streg↲
╱04002d4e0a00060000000002144a314000000000000000000000000000000000000000000000000018222c36404a545e68727c86909aa4ff04╱
╱04002d4e0a00060000000002074d31400000000000000000000000000000000000000000000000000b151f29333d47515b656f79838d97ff04╱
↓
↲
┆b0┆0060-0090┆f0┆: Her tildeles tekstvariablen ┆b0┆morsetegn$┆f0┆ de ↓
┆19┆┄┆82┆┄enkelte morsetegns 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 FILE 1: CHR$(65); RØD(3)+GUL(2)↲
0
0x0000…0020 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 65 6e 20 46 4f 52 2f 4e 45 58 ┆. Her er blot anvendt en FOR/NEX┆
0x33c0…33e0 54 2d 6c 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 ┆T-løkke: 0010 // "pause-b" ┆
0x33e0…3400 b0 30 30 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 ┆ 0020 FOR n:=1 TO 1000 DO 0030┆
0x3400…3420 20 4e 45 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 ┆ NEXT 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 2d 2d 2d 0d 0a 0d 0a 44 65 6e 20 62 65 64 73 74 65 20 6d 65 74 6f ┆------------- Den bedste meto┆
0x3460…3480 64 65 20 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 ┆de at lave en pause på, er natur┆
0x3480…34a0 6c 69 67 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 ┆ligvis at benytte micro'ens int┆
0x34a0…34c0 65 72 6e 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 ┆erne ur, der kan aflæses fra et┆
0x34c0…34e0 20 70 72 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 ┆ program ved at tildele en talva┆
0x34e0…3500 72 69 61 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 ┆riabel urets aktuelle klokkesle┆
0x3500…3520 74 2e 20 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 ┆t. "pause-c" udfører en pause på┆
0x3520…3540 20 31 20 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 ┆ 1 sekund: 0010 // "pause-c┆
0x3540…3560 22 0d 0a 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 ┆" 0020 start:=SYS(3)/50 0030┆
0x3560…3580 20 52 45 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 ┆ REPEAT 0040 slut:=SYS(3)/5┆
0x3580…35a0 30 0d 0a 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 ┆0 0050 UNTIL slut-start>=1 0┆
0x35a0…35c0 30 36 30 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 ┆060 END 0020: Talvariablen┆
0x35c0…35e0 20 53 54 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 ┆ START tildeles en værdi svarend┆
0x35e0…3600 65 20 0a 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 ┆e til det aktuelle sekund-t┆
0x3600…3620 61 6c 2e 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 ┆al. START anvendes til at g┆
0x3620…3640 65 6d 6d 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 ┆emme klokkeslettet ved pausens s┆
0x3640…3660 74 61 72 74 2e 20 b0 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 ┆tart. SYS(3) er en funkti┆
0x3660…3680 6f 6e 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 ┆on der har funktionsværdien svar┆
0x3680…36a0 65 6e 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 ┆ende til antal let af lysne┆
0x36a0…36c0 74 74 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 ┆ttets vekselstrøm-perioder siden┆
0x36c0…36e0 20 6d 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 ┆ micro'en blev tændt. Vekse┆
0x36e0…3700 6c 73 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 ┆lstrømmen er på 50 perioder pr. ┆
0x3700…3720 73 65 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 ┆se kund. Hvis START skal ┆
0x3720…3740 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 74 69 6c 20 0a ┆tildeles en værdi svarende til ┆
0x3740…3760 19 80 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 ┆ antallet af hele sekunder,┆
0x3760…3780 20 73 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 ┆ skal SYS(3) divideres med ┆
0x3780…37a0 35 30 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 ┆50! 0040: Talvariablen SLUT┆
0x37a0…37c0 20 74 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 ┆ tildeles det aktuelle seku┆
0x37c0…37e0 6e 64 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 ┆nd-tal. 0030-0050: I d┆
0x37e0…3800 65 6e 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 ┆enne løkke gentages aflæsningen ┆
0x3800…3820 61 66 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 ┆af uret med talvariablen SL┆
0x3820…3840 55 54 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 ┆UT indtil forskellen mellem SLUT┆
0x3840…3860 20 6f 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 ┆ og START er 1, altså 1 sek┆
0x3860…3880 75 6e 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 ┆und. ------------------------┆
0x3880…38a0 2d 2d 2d 2d 2d 2d 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 ┆------------------------------ ┆
0x38a0…38a3 FormFeed {
0x38a0…38a3 0c 84 90 ┆ ┆
0x38a0…38a3 }
0x38a3…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 ┆ I "pause-cTID1" kan pa┆
0x38c0…38e0 75 73 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 ┆uselængden varieres. I "pause┆
0x38e0…3900 2d 63 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 ┆-cTID2" er pausen skrevt som en ┆
0x3900…3920 70 72 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 ┆procedure der kaldes sådan: EX┆
0x3920…3940 45 43 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 ┆EC pause(3.5) , hvilket svarer t┆
0x3940…3960 69 6c 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 ┆il en pause på 3,5 sekunder┆
0x3960…3980 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 ┆. ---------------------------┆
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 2d 2d 0d 0a 0d 0a 22 ┆--------------------------- "┆
0x39a0…39c0 50 52 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 ┆PROC-pause" indeholder kun pro┆
0x39c0…39e0 63 65 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 ┆ceduren fra "pause-cTID2": ┆
0x39e0…3a00 31 30 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 ┆1000 PROC pause(sekunder) 1010┆
0x3a00…3a20 20 20 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 ┆ start:=SYS(3)/50 1020 REP┆
0x3a20…3a40 45 41 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 ┆EAT 1030 slut:=SYS(3)/50 ┆
0x3a40…3a60 0a b0 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 ┆ 1040 UNTIL slut-start>=sekun┆
0x3a60…3a80 64 65 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 ┆der 1050 ENDPROC pause Denn┆
0x3a80…3aa0 65 20 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 ┆e procedure er gemt på disketten┆
0x3aa0…3ac0 20 73 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 ┆ som en LIST-fil. Den kan derfo┆
0x3ac0…3ae0 72 20 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 ┆r hentes frem og blandes ind i┆
0x3ae0…3b00 20 0a 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 ┆ de kommende programmer med┆
0x3b00…3b20 20 45 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 ┆ ENTER komandoen. Så behøver ┆
0x3b20…3b40 81 80 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 ┆ man ikke at skrive proceduren ┆
0x3b40…3b60 66 6f 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 ┆forfra når den skal bruges.┆
0x3b60…3b80 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 ┆ ----------------------------┆
0x3b80…3b9c 2d 2d 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 ┆-------------------------- ┆
0x3b9c…3b9f FormFeed {
0x3b9c…3b9f 0c 81 60 ┆ `┆
0x3b9c…3b9f }
0x3b9f…3ba0 0a ┆ ┆
0x3ba0…3bc0 0d 0a 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 ┆ PROBLEM "BLINK": Al┆
0x3bc0…3be0 67 6f 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 ┆goritmen for blink er simpel: Fø┆
0x3be0…3c00 72 73 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 ┆rst skal lampen tændes - så ska┆
0x3c00…3c20 6c 20 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 ┆l der udføres en pause - så skal┆
0x3c20…3c40 20 6c 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 ┆ lampen slukkes - så skal der u┆
0x3c40…3c60 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 64 65 72 20 0a 62 ┆dføres en pause - så skal der b┆
0x3c60…3c80 65 67 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 ┆egyndes forfra : 0010 // "bl┆
0x3c80…3ca0 69 6e 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 ┆ink-a1" 0020 OPEN FILE 1,"/17/┆
0x3ca0…3cc0 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┆
0x3cc0…3ce0 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 20 20 20 20 ┆040 PRINT FILE 1: CHR$(8); ┆
0x3ce0…3d00 20 20 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 ┆ .... TÆND 0050 FOR vent:=1┆
0x3d00…3d20 20 54 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 ┆ TO 500 DO .... PAUSE 00┆
0x3d20…3d40 36 30 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 ┆60 NEXT vent 0070 PRINT FI┆
0x3d40…3d60 4c 45 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 ┆LE 1: CHR$(0); .... SLUK ┆
0x3d60…3d80 30 30 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 ┆0080 FOR vent:=1 TO 500 DO ┆
0x3d80…3da0 20 20 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 ┆ .... PAUSE 0090 NEXT vent┆
0x3da0…3dc0 0d 0a 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 ┆ 0100 UNTIL FALSE ┆
0x3dc0…3de0 20 20 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 ┆ .... FORFRA 0110 CLOSE F┆
0x3de0…3e00 49 4c 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 ┆ILE 1 0120 END 0040: Dec┆
0x3e00…3e20 69 6d 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 ┆imalt 8, binært 00001000, sendes┆
0x3e20…3e40 20 74 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 ┆ til lyspanelet så BIT3-lam┆
0x3e40…3e60 70 65 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 ┆pen, og kun denne, lyser. er bl┆
0x3e60…3e80 65 76 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 ┆evet tændt. 0050-0060: Pau┆
0x3e80…3ea0 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 30 30 37 30 3a ┆se med FOR/NEXT-løkke. 0070:┆
0x3ea0…3ec0 f0 20 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 ┆ Decimalt 0, binært 00000000, s┆
0x3ec0…3ee0 65 6e 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 ┆endes til lyspanelet så all┆
0x3ee0…3f00 65 20 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 ┆e 8 lamper slukkes. 0080-009┆
0x3f00…3f20 30 3a 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 ┆0: Pause med FOR/NEXT-løkke. ┆
0x3f20…3f40 0a b0 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 ┆ 0030-00100: Løkke der gentage┆
0x3f40…3f60 72 20 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 ┆r det enkelte blink. Løkken┆
0x3f60…3f80 20 6b 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 ┆ kan kun standes ved at trykke p┆
0x3f80…3fa0 7d 20 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 ┆å ESCAPE, hvorfor linierne ┆
0x3fa0…3fc0 30 31 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 ┆0110 og 0120 aldrig bliver udfør┆
0x3fc0…3fe0 74 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 ┆t. --------------------------┆
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 2d 2d 0d 0a 0d 0a ┆---------------------------- ┆
0x4000…4020 48 65 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 ┆Her er FOR/NEXT-pausen udskiftet┆
0x4020…4040 20 6d 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 ┆ med proceduren pause : 001┆
0x4040…4060 30 20 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 ┆0 // "blink-a2" 0020 OPEN FILE ┆
0x4060…4080 31 2c 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 ┆1,"/17/PORT", WRITE 0030 REPEA┆
0x4080…40a0 54 20 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 ┆T 0040 PRINT FILE 1: CHR$(8)┆
0x40a0…40c0 3b 0d 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 ┆; 0050 EXEC pause(0.5) 0060┆
0x40c0…40e0 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 30 37 30 ┆ PRINT FILE 1: CHR$(0); 0070┆
0x40e0…4100 20 20 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 ┆ EXEC pause(0.5) 0080 UNTIL F┆
0x4100…4120 41 4c 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 ┆ALSE 0090 CLOSE FILE 1 0100 EN┆
0x4120…4140 44 20 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 ┆D 0110 // 0120 PROC pause(se┆
0x4140…4160 6b 75 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 ┆kunder) 0130 start:=SYS(3)/5┆
0x4160…4180 30 0d 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 ┆0 0140 REPEAT 0150 sl┆
0x4180…41a0 75 74 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 ┆ut:=SYS(3)/50 0160 UNTIL slu┆
0x41a0…41c0 74 2d 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 ┆t-start>=sekunder 0170 ENDPROC┆
0x41c0…41e0 20 70 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 ┆ pause ----------------------┆
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 2d 2d ┆--------------------------------┆
0x4200…4202 0d 0a ┆ ┆
0x4202…4205 FormFeed {
0x4202…4205 0c 83 78 ┆ x┆
0x4202…4205 }
0x4205…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 ┆ I "blink-b1" og "bli┆
0x4220…4240 6e 6b 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 ┆nk-b2" blinker alle 8 lamper for┆
0x4240…4260 64 69 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 ┆di det decimale tal 255 sende┆
0x4260…4280 73 20 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 ┆s til lyspanelet i stedet f┆
0x4280…42a0 6f 72 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 ┆or 8 : 0010 // "blink-b2" 0┆
0x42a0…42c0 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 49 54 ┆020 OPEN FILE 1,"/17/PORT", WRIT┆
0x42c0…42e0 45 20 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 ┆E 0030 REPEAT 0040 PRINT F┆
0x42e0…4300 49 4c 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 ┆ILE 1: CHR$( 255 ); 0050 EXEC┆
0x4300…4320 20 70 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 ┆ pause(0.5) 0060 PRINT FILE 1┆
0x4320…4340 3a 20 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 ┆: CHR$(0); 0070 EXEC pause(0.┆
0x4340…4360 35 29 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 ┆5) 0080 UNTIL FALSE 0090 CLOSE┆
0x4360…4380 20 46 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 ┆ FILE 1 0100 END 0110 // 012┆
0x4380…43a0 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 31 33 30 20 20 20 73 ┆0 PROC pause(sekunder) 0130 s┆
0x43a0…43c0 74 61 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 ┆tart:=SYS(3)/50 0140 REPEAT ┆
0x43c0…43e0 0a 30 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 ┆ 0150 slut:=SYS(3)/50 0160 ┆
0x43e0…4400 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 72 0d 0a 30 31 ┆ UNTIL slut-start>=sekunder 01┆
0x4400…4420 37 30 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 ┆70 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 2d 2d 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 65 74 20 6d 65 64 20 61 74 20 20 ┆---------- Problemet med at ┆
0x4460…4480 b0 43 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 ┆ CLOSE FILE 1 -sætningen aldrig┆
0x4480…44a0 20 0a 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 ┆ udføres, fordi programmet ┆
0x44a0…44c0 73 74 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 ┆standses inde i REPEAT/UNTI┆
0x44c0…44e0 4c 2d 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 ┆L-løkken med ESCAPE-tasten, kan ┆
0x44e0…4500 6c 7c 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 ┆løses med at programmet sta┆
0x4500…4520 6e 64 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 ┆ndses med en anden tast end ESCA┆
0x4520…4540 50 45 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 ┆PE, for eksempel MELLEMRUM-┆
0x4540…4560 74 61 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 ┆tasten, den er nem at ramme, ┆
0x4560…4580 81 80 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 ┆ eller S-tasten for STOP. I ┆
0x4580…45a0 22 62 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 ┆"blink-c1" og "blink-c2" er prob┆
0x45a0…45c0 6c 65 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 ┆lemet løst ved at der i bunden ┆
0x45c0…45e0 61 66 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 ┆af REPEAT/UNTIL-løkken undersøge┆
0x45e0…4600 73 20 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 ┆s om der er blevet trykket på d┆
0x4600…4620 65 6e 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 ┆en valgte tast eller ej: 001┆
0x4620…4640 30 20 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 ┆0 // "blink-c2" 0020 OPEN FILE ┆
0x4640…4660 31 2c 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 ┆1,"/17/PORT", WRITE 0030 PRINT┆
0x4660…4680 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 4e ┆ "STOP: TRYK PÅ MELLEMRUM-TASTEN┆
0x4680…46a0 20 21 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 ┆ !!" 0040 REPEAT 0050 PRINT┆
0x46a0…46c0 20 46 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 ┆ FILE 1: CHR$(255); 0060 EXEC┆
0x46c0…46e0 20 70 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 ┆ pause(0.5) 0070 PRINT FILE 1┆
0x46e0…4700 3a 20 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 ┆: CHR$(0); 0080 EXEC pause(0.┆
0x4700…4720 35 29 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 ┆5) 0090 UNTIL ORD(KEY$)=32 0┆
0x4720…4740 31 30 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 ┆100 CLOSE FILE 1 0110 END 012┆
0x4740…4760 30 20 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 ┆0 // 0130 PROC pause(sekunder) ┆
0x4760…4780 0a 30 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 ┆ 0140 start:=SYS(3)/50 0150 ┆
0x4780…47a0 20 52 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 ┆ REPEAT 0160 slut:=SYS(3)/┆
0x47a0…47c0 35 30 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 ┆50 0170 UNTIL slut-start>=sek┆
0x47c0…47e0 75 6e 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 ┆under 0180 ENDPROC pause 00┆
0x47e0…4800 39 30 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 ┆90: Valget mellem disse to muli┆
0x4800…4820 67 68 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 ┆gheder er nærmet en smagssag: ┆
0x4820…4840 0d 0a 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 ┆ A: 0090 UNTIL KEY$=" " ┆
0x4840…4860 42 3a 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 ┆B: 0090 UNTIL ORD(KEY$)=32 ┆
0x4860…4880 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 ┆ ------------------------------┆
0x4880…489a 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 ┆------------------------ ┆
0x489a…489d FormFeed {
0x489a…489d 0c 84 80 ┆ ┆
0x489a…489d }
0x489d…48a0 0a 0d 0a ┆ ┆
0x48a0…48c0 0d 0a 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 ┆ NB: Fra dette sted i tekste┆
0x48c0…48e0 6e 20 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 ┆n udelades listningen af pr┆
0x48e0…4900 6f 63 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 ┆oceduren "pause(sekunder)". Den ┆
0x4900…4920 66 6f 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 ┆forudsættes at være i alle ┆
0x4920…4940 64 65 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 ┆de programmer hvor procedurekald┆
0x4940…4960 65 74 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 ┆et EXEC pause(X) forekommer┆
0x4960…4980 20 21 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 ┆ ! --------------------------┆
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 2d 2d 0d 0a 0d 0a ┆---------------------------- ┆
0x49a0…49c0 49 20 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 ┆I "blink-d1" er den konstante pa┆
0x49c0…49e0 75 73 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 ┆uselængde udskiftet med variabl┆
0x49e0…4a00 65 6e 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 ┆en PAUSELÆNGDE, der tildeles en ┆
0x4a00…4a20 76 7b 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 ┆værdi i INPUT-sætningen: ┆
0x4a20…4a40 30 30 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 ┆0010 // "blink-d1" 0020 ant:=20┆
0x4a40…4a60 0d 0a 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 ┆ 0030 PRINT CHR$(12) 0040 OPEN┆
0x4a60…4a80 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 30 35 ┆ FILE 1,"/17/PORT", WRITE 005┆
0x4a80…4aa0 30 20 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 ┆0 INPUT "SKRIV PAUSELÆNGDEN I SE┆
0x4aa0…4ac0 4b 55 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 ┆KUNDER: ": ┆
0x4ac0…4ae0 20 20 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 ┆ pauselæng┆
0x4ae0…4b00 64 65 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 ┆de 0060 PRINT "STOP: TRYK PÅ ME┆
0x4b00…4b20 4c 4c 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 ┆LLEMRUM-TASTEN !!" 0070 REPEAT ┆
0x4b20…4b40 0d 0a 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 ┆ 0080 PRINT FILE 1: CHR$(255)┆
0x4b40…4b60 3b 0d 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 ┆; 0090 EXEC pause( pauselængd┆
0x4b60…4b80 65 f0 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 ┆e ) 0100 PRINT FILE 1: CHR$(0┆
0x4b80…4ba0 29 3b 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 ┆); 0110 EXEC pause( pauselæng┆
0x4ba0…4bc0 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 29 3d 33 32 0d 0a 30 ┆de ) 0120 UNTIL ORD(KEY$)=32 0┆
0x4bc0…4be0 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 44 20 0d 0a 0d 0a 2d ┆130 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 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 56 61 72 69 61 74 69 ┆--------------------- Variati┆
0x4c20…4c40 6f 6e 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 ┆onen i blinkhastigheden kan også┆
0x4c40…4c60 20 64 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 ┆ defineres som en ændring af bl┆
0x4c60…4c80 69 6e 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 ┆inkfrekvensen, altså antal brink┆
0x4c80…4ca0 20 70 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 ┆ pr. sekund. I "blink-d2" tilde┆
0x4ca0…4cc0 6c 65 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 ┆les BLINKFREKVENSEN en værdi i ┆
0x4cc0…4ce0 49 4e 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 ┆INPUT-sætningen, hvorefter pause┆
0x4ce0…4d00 6c 7b 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 ┆længden fastsættes i linie 0050┆
0x4d00…4d20 2c 20 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 ┆, så lysperioden og mørkeperiode┆
0x4d20…4d40 6e 20 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 ┆n er lige lange for de enkelte ┆
0x4d40…4d60 62 6c 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 ┆blink: 0010 // "blink-d2" 00┆
0x4d60…4d80 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 45 4e 20 46 49 4c ┆20 PRINT CHR$(12) 0030 OPEN FIL┆
0x4d80…4da0 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 34 30 20 49 4e ┆E 1,"/17/PORT", WRITE 0040 IN┆
0x4da0…4dc0 50 55 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 ┆PUT "SKRIV ANTAL BLINK PR. SEKUN┆
0x4dc0…4de0 44 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 20 20 20 ┆D: ": ┆
0x4de0…4e00 20 20 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 ┆ blinkfrekvens 005┆
0x4e00…4e20 30 20 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 ┆0 pauselængde:=1/(blinkfrekvens*┆
0x4e20…4e40 32 29 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 ┆2) 0060 PRINT "STOP: TRYK PÅ ME┆
0x4e40…4e60 4c 4c 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 ┆LLEMRUM-TASTEN !!" 0070 REPEAT ┆
0x4e60…4e80 0d 0a 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 ┆ 0080 PRINT FILE 1: CHR$(255)┆
0x4e80…4ea0 3b 0d 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 ┆; 0090 EXEC pause( pauselængd┆
0x4ea0…4ec0 65 f0 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 ┆e ) 0100 PRINT FILE 1: CHR$(0┆
0x4ec0…4ee0 29 3b 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 ┆); 0110 EXEC pause( pauselæng┆
0x4ee0…4f00 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 29 3d 33 32 0d 0a 30 ┆de ) 0120 UNTIL ORD(KEY$)=32 0┆
0x4f00…4f20 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 44 20 0d 0a 0d 0a 2d ┆130 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…4f57 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------------------- ┆
0x4f57…4f5a FormFeed {
0x4f57…4f5a 0c 83 48 ┆ H┆
0x4f57…4f5a }
0x4f5a…4f60 0a 0d 0a 0d 0a 0d ┆ ┆
0x4f60…4f80 0a 49 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 ┆ I "blink-e" fastlægges lysperio┆
0x4f80…4fa0 64 65 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 ┆den og mørkeperioden i to tilde┆
0x4fa0…4fc0 6c 69 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 ┆lingssætninger: 0010 // "blin┆
0x4fc0…4fe0 6b 2d 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 ┆k-e" 0020 PRINT CHR$(12) 0030 ┆
0x4fe0…5000 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 0a ┆OPEN FILE 1,"/17/PORT", WRITE ┆
0x5000…5020 b0 30 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 ┆ 0040 lysperiode:=1 0050 mørke┆
0x5020…5040 70 65 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 ┆periode:=0.5 0060 PRINT "STOP: ┆
0x5040…5060 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 0a 30 30 ┆TRYK PÅ MELLEMRUM-TASTEN !!" 00┆
0x5060…5080 37 30 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 ┆70 REPEAT 0080 PRINT FILE 1:┆
0x5080…50a0 20 43 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 ┆ CHR$(255); 0090 EXEC pause( ┆
0x50a0…50c0 6c 79 73 70 65 72 69 6f 64 65 f0 29 0d 0a 30 31 30 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 ┆lysperiode ) 0100 PRINT FILE ┆
0x50c0…50e0 31 3a 20 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 ┆1: CHR$(0); 0110 EXEC pause( ┆
0x50e0…5100 6d 7c 72 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 ┆mørkeperiode ) 0120 UNTIL ORD(K┆
0x5100…5120 45 59 24 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 ┆EY$)=32 0130 CLOSE FILE 1 0140┆
0x5120…5140 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 2d 2d 2d 2d ┆ END -----------------------┆
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 2d 2d 2d 0d ┆------------------------------- ┆
0x5160…5180 0a 0d 0a 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 ┆ I "blink-f" kan lysperioden o┆
0x5180…51a0 67 20 6d 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 ┆g mørkeperioden varieres: 001┆
0x51a0…51c0 30 20 2f 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 ┆0 // "blink-f" 0020 PRINT CHR$(┆
0x51c0…51e0 31 32 29 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 ┆12) 0030 OPEN FILE 1,"/17/PORT"┆
0x51e0…5200 2c 20 57 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 ┆, WRITE 0040 INPUT "SKRIV LYS┆
0x5200…5220 50 45 52 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 ┆PERIODEN I SEKUNDER: ": ┆
0x5220…5240 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 20 20 ┆ ┆
0x5240…5260 20 20 20 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 ┆ lysperiode 0050 INPUT "┆
0x5260…5280 53 4b 52 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 ┆SKRIV MØRKEPERIODEN I SEKUNDER: ┆
0x5280…52a0 22 3a 20 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 ┆": ┆
0x52a0…52c0 20 20 20 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 ┆ mørkeperiode 0060 P┆
0x52c0…52e0 52 49 4e 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 ┆RINT "STOP: TRYK PÅ MELLEMRUM-TA┆
0x52e0…5300 53 54 45 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 ┆STEN !!" 0070 REPEAT 0080 P┆
0x5300…5320 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 30 30 39 30 20 20 20 ┆RINT FILE 1: CHR$(255); 0090 ┆
0x5320…5340 45 58 45 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 ┆EXEC pause( lysperiode ) 0100 ┆
0x5340…5360 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 31 30 20 20 20 ┆ PRINT FILE 1: CHR$(0); 0110 ┆
0x5360…5380 45 58 45 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 ┆EXEC pause( mørkeperiode ) 0120┆
0x5380…53a0 20 55 4e 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 ┆ UNTIL ORD(KEY$)=32 0130 CLOSE ┆
0x53a0…53c0 46 49 4c 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 ┆FILE 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…53ed 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------- ┆
0x53ed…53f0 FormFeed {
0x53ed…53f0 0c 82 d8 ┆ ┆
0x53ed…53f0 }
0x53f0…5400 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 ┆ PROBLEM ┆
0x5400…5420 20 22 52 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 ┆ "REAKTION": Lamperne skal ┆
0x5420…5440 74 7b 6e 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 ┆tændes et tilfældigt antal sekun┆
0x5440…5460 64 65 72 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 ┆der efter at programmet er star┆
0x5460…5480 74 65 74 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 ┆tet, hvorefter lamperne skal sl┆
0x5480…54a0 75 6b 6b 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 ┆ukkes når en tast bliver trykket┆
0x54a0…54c0 20 6e 65 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 ┆ ned: 0010 // "reaktion-a" ┆
0x54c0…54e0 b0 30 30 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 ┆ 0020 RANDOMIZE 0030 PRINT CHR┆
0x54e0…5500 24 28 31 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 ┆$(12) 0040 OPEN FILE 1,"/17/PO┆
0x5500…5520 52 54 22 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 ┆RT", WRITE 0050 EXEC pause(RN┆
0x5520…5540 44 28 33 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 ┆D(3,7)) 0060 PRINT FILE 1: CHR┆
0x5540…5560 24 28 32 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 ┆$(255); 0070 REPEAT 0080 UN┆
0x5560…5580 54 49 4c 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 ┆TIL ORD(KEY$)<>0 0090 PRINT FI┆
0x5580…55a0 4c 45 20 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 ┆LE 1: CHR$(0); 0100 CLOSE 0┆
0x55a0…55c0 31 31 30 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 ┆110 END 0050 : Her udføres ┆
0x55c0…55e0 65 6e 20 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 ┆en pause på mellem 3 og 7 sekund┆
0x55e0…5600 65 72 2c 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 0d ┆er, tilfældigt udtaget. ┆
0x5600…5620 0a b0 30 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 ┆ 0060 : Alle 8 lamper tændes. ┆
0x5620…5640 0d 0a b0 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 ┆ 0070-0080 : Her ventes der ti┆
0x5640…5660 6c 20 65 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 ┆l en eller anden tast blive┆
0x5660…5680 72 20 74 72 79 6b 6b 65 74 20 6e 65 64 2e 0d 0a 0d 0a b0 30 30 39 30 f0 3a 20 41 6c 6c 65 20 6c ┆r trykket ned. 0090 : Alle l┆
0x5680…56a0 61 6d 70 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 ┆amper 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 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 ┆-------- Nu skal der tages ti┆
0x56e0…5700 64 20 70 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 ┆d på hvor længe det varer fra l┆
0x5700…5720 61 6d 70 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 ┆amperne bliver tændt, til der tr┆
0x5720…5740 79 6b 6b 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 ┆ykkes på en tast: 0010 // "re┆
0x5740…5760 61 6b 74 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 ┆aktion-b" 0020 RANDOMIZE 0030 ┆
0x5760…5780 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 49 4c 45 20 31 ┆PRINT CHR$(12) 0040 OPEN FILE 1┆
0x5780…57a0 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 44 49 4d 20 76 ┆,"/17/PORT", WRITE 0050 DIM v┆
0x57a0…57c0 69 64 65 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 ┆idere$ OF 10 0060 INPUT "TRYK ┆
0x57c0…57e0 3c 52 45 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 ┆<RETURN> NÅR DU ER KLAR !!": vid┆
0x57e0…5800 65 72 65 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 ┆ere$ 0070 EXEC pause(RND(3,7)) ┆
0x5800…5820 0a 30 30 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 ┆ 0080 PRINT FILE 1: CHR$(255); ┆
0x5820…5840 b0 30 30 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 ┆ 0090 start:=SYS(3)/50 0100 REP┆
0x5840…5860 45 41 54 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 ┆EAT 0110 UNTIL ORD(KEY$)<>0 ┆
0x5860…5880 30 31 32 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 ┆0120 slut:=SYS(3)/50 0130 PRINT┆
0x5880…58a0 20 46 49 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 ┆ FILE 1: CHR$(0); 0140 reaktio┆
0x58a0…58c0 6e 73 74 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 ┆nstid:=slut-start 0150 PRINT "┆
0x58c0…58e0 52 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 ┆REAKTIONSTID: ";reaktionstid;" s┆
0x58e0…5900 65 6b 2e 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 ┆ek." 0160 CLOSE 0170 END ┆
0x5900…5920 b0 30 30 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 ┆ 0060 : Her skal der trykkes på ┆
0x5920…5940 52 45 54 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 ┆RETURN-tasten før reaktions┆
0x5940…5960 6d 7d 6c 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 ┆målingen foretages. videre$ er┆
0x5960…5980 20 65 6e 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 ┆ en dummy- variabel der kun ┆
0x5980…59a0 62 72 75 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 ┆bruges til at standse program af┆
0x59a0…59c0 80 76 69 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 ┆ vik lingen indtil der tryk┆
0x59c0…59d7 6b 65 73 20 70 7d 20 52 45 54 55 52 4e 2d 74 61 73 74 65 6e 2e 0d 0a ┆kes på RETURN-tasten. ┆
0x59d7…59da FormFeed {
0x59d7…59da 0c 83 58 ┆ X┆
0x59d7…59da }
0x59da…59e0 0a 0d 0a 0d 0a 0d ┆ ┆
0x59e0…5a00 0a b0 30 30 39 30 20 6f 67 20 30 31 32 30 f0 3a 20 4d 69 63 72 6f 27 65 6e 73 20 69 6e 74 65 72 ┆ 0090 og 0120 : Micro'ens inter┆
0x5a00…5a20 6e 65 20 75 72 20 61 66 6c 7b 73 65 73 20 69 20 73 74 61 72 74 65 6e 20 0a 19 80 81 80 28 b0 73 ┆ne ur aflæses i starten ( s┆
0x5a20…5a40 74 61 72 74 f0 29 20 6f 67 20 69 20 73 6c 75 74 6e 69 6e 67 65 6e 20 28 b0 73 6c 75 74 f0 29 20 ┆tart ) og i slutningen ( slut ) ┆
0x5a40…5a60 61 66 20 72 65 61 6b 74 69 6f 6e 73 70 65 72 69 6f 64 65 6e 2e 0d 0a 0d 0a b0 30 31 34 30 f0 3a ┆af reaktionsperioden. 0140 :┆
0x5a60…5a80 20 52 65 61 6b 74 69 6f 6e 73 74 69 64 65 6e 20 62 65 72 65 67 6e 65 73 2e 0d 0a 0d 0a b0 30 31 ┆ Reaktionstiden beregnes. 01┆
0x5a80…5aa0 35 30 f0 3a 20 52 65 61 6b 74 69 6f 6e 73 74 69 64 65 6e 20 73 6b 72 69 76 65 73 20 70 7d 20 73 ┆50 : Reaktionstiden skrives på s┆
0x5aa0…5ac0 6b 7b 72 6d 65 6e 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 ┆kærmen. ---------------------┆
0x5ac0…5ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x5ae0…5b00 2d 0d 0a 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 ┆- I "reaktion-c" er data-tran┆
0x5b00…5b20 73 6d 69 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 ┆smissionen til lyspanelet ersta┆
0x5b20…5b40 74 74 65 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 ┆ttet med CHR$(7), der får microe┆
0x5b40…5b60 6e 20 74 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 ┆n til at give et dyt eller et b┆
0x5b60…5b80 65 65 70 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 ┆eep: 0010 // "reaktion-c" 00┆
0x5b80…5ba0 32 30 20 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 ┆20 PRINT CHR$(12) 0030 RANDOMIZ┆
0x5ba0…5bc0 45 20 0d 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 ┆E 0040 DIM videre$ OF 10 0050┆
0x5bc0…5be0 20 49 4e 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 ┆ INPUT "TRYK <RETURN> NÅR DU ER ┆
0x5be0…5c00 4b 4c 41 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 ┆KLAR !!": videre$ 0060 EXEC pau┆
0x5c00…5c20 73 65 28 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 ┆se(RND(3,7)) 0070 PRINT CHR$(7┆
0x5c20…5c40 29 0d 0a 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 ┆) 0080 start:=SYS(3)/50 0090 R┆
0x5c40…5c60 45 50 45 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 ┆EPEAT 0100 UNTIL ORD(KEY$)<>0 ┆
0x5c60…5c80 0a 30 31 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 ┆ 0110 slut:=SYS(3)/50 0120 reak┆
0x5c80…5ca0 74 69 6f 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 ┆tionstid:=slut-start 0130 PRINT┆
0x5ca0…5cc0 20 22 52 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 ┆ "REAKTIONSTID: ";reaktionstid;"┆
0x5cc0…5ce0 20 73 65 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 ┆ sek." 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 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 ┆---------- Normalt er man h┆
0x5d20…5d40 75 72 74 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 ┆urtigere til at reagere på et ly┆
0x5d40…5d60 64 2d 0a 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 ┆d- signal, end på et lys-signal.┆
0x5d60…5d80 20 4d 65 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 ┆ Men det er der jo mulighed for┆
0x5d80…5da0 20 61 74 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 ┆ at undersøge med de to ovenståe┆
0x5da0…5db2 6e 64 65 20 0a 70 72 6f 67 72 61 6d 6d 65 72 2e 0d 0a ┆nde programmer. ┆
0x5db2…5db5 FormFeed {
0x5db2…5db5 0c 82 b0 ┆ ┆
0x5db2…5db5 }
0x5db5…5dc0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f ┆ PRO┆
0x5dc0…5de0 42 4c 45 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 ┆BLEM "FYR": Her er beskreve┆
0x5de0…5e00 74 20 22 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 ┆t "fyr-d" som en mulig løsning p┆
0x5e00…5e20 7d 20 0a 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 ┆å problemet i elevteksten: ┆
0x5e20…5e40 30 30 31 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 ┆0010 // "fyr-d" 0020 CLOSE ┆
0x5e40…5e60 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 52 49 ┆0030 OPEN FILE 1,"/17/PORT", WRI┆
0x5e60…5e80 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 43 48 52 24 28 30 29 ┆TE 0040 PRINT FILE 1: CHR$(0)┆
0x5e80…5ea0 3b 0d 0a 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 ┆; 0050 REPEAT 0060 EXEC l┆
0x5ea0…5ec0 79 73 28 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 ┆ys(4) 0070 EXEC mørke(2) 0┆
0x5ec0…5ee0 30 38 30 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 ┆080 EXEC isofaseblink(5,2) 0┆
0x5ee0…5f00 30 39 30 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 ┆090 EXEC hurtigblink(20) 010┆
0x5f00…5f20 30 20 20 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 ┆0 EXEC gruppeblink(5,3) 0110┆
0x5f20…5f40 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 50 52 49 4e 54 ┆ UNTIL ORD(KEY$)=32 0120 PRINT┆
0x5f40…5f60 20 46 49 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 ┆ FILE 1: CHR$(0); 0130 CLOSE F┆
0x5f60…5f80 49 4c 45 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 ┆ILE 1 0140 END 0040 : Her┆
0x5f80…5fa0 20 73 6c 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 ┆ slukkes alle lamper der måtte v┆
0x5fa0…5fc0 7b 72 65 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 ┆ære tændt før programmet bl┆
0x5fc0…5fe0 65 76 20 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 ┆ev startet. 0060-0100 : Her ┆
0x5fe0…6000 65 72 20 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 ┆er selve fyrets karakteristik so┆
0x6000…6020 6d 20 0a 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 ┆m 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 2d 2d 2d 0d 0a 0d 0a b0 45 58 45 43 20 6c 79 73 28 34 29 ┆---------------- EXEC lys(4)┆
0x6060…6080 f0 20 74 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 ┆ tænder fyret i 4 sekunder: ┆
0x6080…60a0 b0 30 31 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 ┆ 0160 PROC lys(sek) 0170 PRI┆
0x60a0…60c0 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 31 38 30 20 20 20 45 ┆NT FILE 1: CHR$(255); 0180 E┆
0x60c0…60e0 58 45 43 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 ┆XEC pause(sek) 0190 PRINT FI┆
0x60e0…6100 4c 45 20 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 ┆LE 1: CHR$(0); 0200 ENDPROC ly┆
0x6100…6120 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 2d 2d 2d 2d 2d ┆s ---------------------------┆
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 2d 2d 2d 0d 0a 0d 0a b0 ┆--------------------------- ┆
0x6140…6160 45 58 45 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 ┆EXEC mørke(2) slukker fyret i 2┆
0x6160…6180 20 73 65 6b 75 6e 64 65 72 3a 20 0d 0a 0d 0a b0 30 32 32 30 20 50 52 4f 43 20 6d 7c 72 6b 65 28 ┆ sekunder: 0220 PROC mørke(┆
0x6180…61a0 73 65 6b 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 48 52 24 ┆sek) 0230 PRINT FILE 1: CHR$┆
0x61a0…61c0 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 73 65 6b 29 0d 0a b0 ┆(0); 0240 EXEC pause(sek) ┆
0x61c0…61e0 30 32 35 30 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 ┆0250 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 2d 2d 2d 2d 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 ┆------------ EXEC isofasebli┆
0x6220…6240 6e 6b 28 35 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 ┆nk(5,2) får fyret til at give 5┆
0x6240…6260 20 62 6c 69 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 ┆ blink, hvor hvert blink ┆
0x6260…6280 62 65 73 74 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 ┆består af en lysperiode og en ┆
0x6280…62a0 80 82 80 6d 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 ┆ mørkeperiode der er lige lang┆
0x62a0…62c0 65 20 28 3d 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 ┆e (=isofase), tilsammen 2 s┆
0x62c0…62e0 65 6b 75 6e 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 ┆ekunder. blinktid er altså lys┆
0x62e0…6300 70 65 72 69 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 ┆perioden + mørke perioden: ┆
0x6300…6320 0a 0d 0a b0 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 ┆ 0270 PROC isofaseblink(antal┆
0x6320…6340 62 6c 69 6e 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 ┆blink,blinktid) 0280 FOR bli┆
0x6340…6360 6e 6b 3a 3d 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 ┆nk:=1 TO antalblink DO 0290 ┆
0x6360…6380 20 20 45 58 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 ┆ EXEC lys(blinktid/2) 0300 ┆
0x6380…63a0 20 20 45 58 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 ┆ EXEC mørke(blinktid/2) 0310 ┆
0x63a0…63c0 20 20 4e 45 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 ┆ NEXT blink 0320 ENDPROC isof┆
0x63c0…63e0 61 73 65 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 ┆aseblink --------------------┆
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 2d 2d ┆--------------------------------┆
0x6400…6404 2d 2d 0d 0a ┆-- ┆
0x6404…6407 FormFeed {
0x6404…6407 0c 84 88 ┆ ┆
0x6404…6407 }
0x6407…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 ┆ EXEC hurtigblink(┆
0x6420…6440 32 30 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 32 30 20 68 75 ┆20) får fyret til at give 20 hu┆
0x6440…6460 72 74 69 67 65 20 0a 19 80 81 80 62 6c 69 6e 6b 2c 20 64 2e 76 2e 73 2e 20 36 30 20 62 6c 69 6e ┆rtige blink, d.v.s. 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 6c 69 67 65 ┆k pr. minut. Lysperioden er lige┆
0x6480…64a0 20 0a 19 80 81 80 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 ┆ 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 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 2d 2d 2d 2d 2d 2d 2d 2d 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 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 b0 30 30 36 30 20 20 ┆ kommer de tre prikker: 0060 ┆
0x6b40…6b60 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 37 30 ┆ PRINT FILE 1: CHR$(255); 0070┆
0x6b60…6b80 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 49 4e ┆ EXEC pause(0.2) 0080 PRIN┆
0x6b80…6ba0 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 45 43 ┆T FILE 1: CHR$(0); 0090 EXEC┆
0x6ba0…6bc0 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 45 20 ┆ pause(0.2) 0100 PRINT FILE ┆
0x6bc0…6be0 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 75 73 ┆1: CHR$(255); 0110 EXEC paus┆
0x6be0…6c00 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 43 48 ┆e(0.2) 0120 PRINT FILE 1: CH┆
0x6c00…6c20 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 29 0d ┆R$(0); 0130 EXEC pause(0.2) ┆
0x6c20…6c40 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 35 29 ┆ 0140 PRINT FILE 1: CHR$(255)┆
0x6c40…6c60 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 31 36 ┆; 0150 EXEC pause(0.2) 016┆
0x6c60…6c80 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 31 37 ┆0 PRINT FILE 1: CHR$(0); 017┆
0x6c80…6ca0 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 58 45 ┆0 EXEC pause(0.2) 0190 EXE┆
0x6ca0…6cc0 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 65 20 ┆C pause(1) Her kommer de tre ┆
0x6cc0…6ce0 73 74 72 65 67 65 72 3a 0d 0a b0 30 32 31 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆streger: 0210 PRINT FILE 1: ┆
0x6ce0…6d00 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 73 65 28 30 ┆CHR$(255); 0220 EXEC pause(0┆
0x6d00…6d20 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 48 52 24 28 ┆.5) 0230 PRINT FILE 1: CHR$(┆
0x6d20…6d40 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 0d 0a b0 30 ┆0); 0240 EXEC pause(0.2) 0┆
0x6d40…6d60 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 29 3b 0d 0a ┆250 PRINT FILE 1: CHR$(255); ┆
0x6d60…6d80 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 37 30 20 20 ┆ 0260 EXEC pause(0.5) 0270 ┆
0x6d80…6da0 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 38 30 20 20 ┆ PRINT FILE 1: CHR$(0); 0280 ┆
0x6da0…6dc0 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 49 4e 54 20 ┆ EXEC pause(0.2) 0290 PRINT ┆
0x6dc0…6de0 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 45 58 45 43 ┆FILE 1: CHR$(255); 0300 EXEC┆
0x6de0…6e00 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 49 4c 45 20 ┆ pause(0.5) 0310 PRINT FILE ┆
0x6e00…6e20 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 75 73 65 28 ┆1: CHR$(0); 0320 EXEC pause(┆
0x6e20…6e40 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 0a 0d 0a 4f ┆0.2) 0340 EXEC pause(1) O┆
0x6e40…6e60 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 3a 0d 0a b0 ┆g her er så tre prikker igen: ┆
0x6e60…6e80 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 32 35 35 29 3b 0d ┆0360 PRINT FILE 1: CHR$(255); ┆
0x6e80…6ea0 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 b0 2e 0d 0a 6f 2e ┆ 0370 EXEC pause(0.2) . o.┆
0x6ea0…6ec0 73 2e 76 2e 0d 0a 0d 0a 4f 67 20 74 69 6c 20 73 69 64 73 74 20 61 66 73 6c 75 74 6e 69 6e 67 65 ┆s.v. Og til sidst afslutninge┆
0x6ec0…6ee0 6e 20 70 7d 20 70 72 6f 67 72 61 6d 6d 65 74 3a 0d 0a b0 30 35 31 30 20 55 4e 54 49 4c 20 4f 52 ┆n på programmet: 0510 UNTIL OR┆
0x6ee0…6f00 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 35 32 30 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 ┆D(KEY$)=32 0520 PRINT FILE 1: ┆
0x6f00…6f20 43 48 52 24 28 30 29 3b 0d 0a b0 30 35 33 30 20 43 4c 4f 53 45 20 0d 0a b0 30 35 34 30 20 45 4e ┆CHR$(0); 0530 CLOSE 0540 EN┆
0x6f20…6f40 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 --------------------------┆
0x6f40…6f5e 2d 2d 2d 2d 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 ┆---------------------------- ┆
0x6f5e…6f61 FormFeed {
0x6f5e…6f61 0c 83 68 ┆ h┆
0x6f5e…6f61 }
0x6f61…6f80 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 62 22 20 65 72 20 65 6e 20 6c 7c 73 6e 69 6e 67 20 ┆ "morse-b" er en løsning ┆
0x6f80…6fa0 70 7d 20 64 65 74 20 73 61 6d 6d 65 20 70 72 6f 62 6c 65 6d 2e 20 48 65 72 20 65 72 20 0a 64 65 ┆på det samme problem. Her er de┆
0x6fa0…6fc0 72 20 6c 61 76 65 74 20 65 6e 20 70 72 6f 63 65 64 75 72 65 20 74 69 6c 20 68 68 76 2e 20 65 6e ┆r lavet en procedure til hhv. en┆
0x6fc0…6fe0 20 70 72 69 6b 20 6f 67 20 65 6e 20 73 74 72 65 67 3a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f ┆ prik og en streg: 0010 //┆
0x6fe0…7000 20 22 6d 6f 72 73 65 2d 62 22 0d 0a b0 30 30 32 30 20 43 4c 4f 53 45 20 0d 0a b0 30 30 33 30 20 ┆ "morse-b" 0020 CLOSE 0030 ┆
0x7000…7020 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 0a ┆OPEN FILE 1,"/17/PORT", WRITE ┆
0x7020…7040 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 b0 30 ┆ 0040 PRINT FILE 1: CHR$(0); 0┆
0x7040…7060 30 35 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 72 69 6b 28 33 ┆050 REPEAT 0070 EXEC prik(3┆
0x7060…7080 29 0d 0a b0 30 30 38 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 ┆) 0080 EXEC mellemrum(1) 0┆
0x7080…70a0 30 39 30 20 20 20 45 58 45 43 20 73 74 72 65 67 28 33 29 0d 0a b0 30 31 30 30 20 20 20 45 58 45 ┆090 EXEC streg(3) 0100 EXE┆
0x70a0…70c0 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 0d 0a b0 30 31 31 30 20 20 20 45 58 45 43 20 70 72 69 ┆C mellemrum(1) 0110 EXEC pri┆
0x70c0…70e0 6b 28 33 29 0d 0a b0 30 31 32 30 20 20 20 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 37 29 0d ┆k(3) 0120 EXEC mellemrum(7) ┆
0x70e0…7100 0a b0 30 31 34 30 20 55 4e 54 49 4c 20 4f 52 44 28 4b 45 59 24 29 3d 33 32 0d 0a b0 30 31 35 30 ┆ 0140 UNTIL ORD(KEY$)=32 0150┆
0x7100…7120 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 31 36 30 20 43 ┆ PRINT FILE 1: CHR$(0); 0160 C┆
0x7120…7140 4c 4f 53 45 20 0d 0a b0 30 31 37 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 31 39 30 20 50 52 4f 43 20 ┆LOSE 0170 END 0190 PROC ┆
0x7140…7160 6d 65 6c 6c 65 6d 72 75 6d 28 61 6e 74 61 6c 29 0d 0a b0 30 32 30 30 20 20 20 46 4f 52 20 6e 3a ┆mellemrum(antal) 0200 FOR n:┆
0x7160…7180 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a ┆=1 TO antal DO EXEC pause(0.2) ┆
0x7180…71a0 b0 30 32 31 30 20 45 4e 44 50 52 4f 43 20 6d 65 6c 6c 65 6d 72 75 6d 0d 0a 0d 0a b0 30 32 33 30 ┆ 0210 ENDPROC mellemrum 0230┆
0x71a0…71c0 20 50 52 4f 43 20 70 72 69 6b 28 61 6e 74 61 6c 29 0d 0a b0 30 32 34 30 20 20 20 46 4f 52 20 70 ┆ PROC prik(antal) 0240 FOR p┆
0x71c0…71e0 72 69 6b 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 32 35 30 20 20 20 20 20 ┆riknr:=1 TO antal DO 0250 ┆
0x71e0…7200 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 32 36 30 20 ┆PRINT FILE 1: CHR$(255); 0260 ┆
0x7200…7220 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 32 29 0d 0a b0 30 32 37 30 20 20 20 20 20 50 ┆ EXEC pause(0.2) 0270 P┆
0x7220…7240 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 38 30 20 20 20 20 ┆RINT FILE 1: CHR$(0); 0280 ┆
0x7240…7260 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 4e 45 58 54 20 70 ┆ EXEC pause(0.2) 0290 NEXT p┆
0x7260…7280 72 69 6b 6e 72 0d 0a b0 30 33 30 30 20 45 4e 44 50 52 4f 43 20 70 72 69 6b 0d 0a b0 0d 0a b0 30 ┆riknr 0300 ENDPROC prik 0┆
0x7280…72a0 33 32 30 20 50 52 4f 43 20 73 74 72 65 67 28 61 6e 74 61 6c 29 0d 0a b0 30 33 33 30 20 20 20 46 ┆320 PROC streg(antal) 0330 F┆
0x72a0…72c0 4f 52 20 73 74 72 65 67 6e 72 3a 3d 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a b0 30 33 34 30 ┆OR stregnr:=1 TO antal DO 0340┆
0x72c0…72e0 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 35 35 29 3b 0d 0a b0 ┆ PRINT FILE 1: CHR$(255); ┆
0x72e0…7300 30 33 35 30 20 20 20 20 20 45 58 45 43 20 70 61 75 73 65 28 30 2e 35 29 0d 0a b0 30 33 36 30 20 ┆0350 EXEC pause(0.5) 0360 ┆
0x7300…7320 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 3b 0d 0a b0 30 33 37 ┆ PRINT FILE 1: CHR$(0); 037┆
0x7320…7340 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 33 38 30 20 20 20 4e ┆0 EXEC pause(0.2) 0380 N┆
0x7340…7360 45 58 54 20 73 74 72 65 67 6e 72 0d 0a b0 30 33 39 30 20 45 4e 44 50 52 4f 43 20 73 74 72 65 67 ┆EXT stregnr 0390 ENDPROC streg┆
0x7360…7380 0d 0a 0d 0a 0d 0a b0 30 30 37 30 2d 30 31 32 30 f0 3a 20 48 65 72 20 22 6b 61 6c 64 65 73 22 20 ┆ 0070-0120 : Her "kaldes" ┆
0x7380…73a0 70 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 68 76 65 72 20 0a 19 80 81 ┆prikkerne og stregerne hver ┆
0x73a0…73c0 80 66 6f 72 20 73 69 67 2e 20 b0 45 58 45 43 20 6d 65 6c 6c 65 6d 72 75 6d 28 31 29 f0 20 73 76 ┆ for sig. EXEC mellemrum(1) sv┆
0x73c0…73e0 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 6d 65 6c 6c 65 6d 20 0a 19 80 82 80 70 ┆arer til mellemrum mellem p┆
0x73e0…7400 72 69 6b 6b 65 72 6e 65 20 6f 67 20 73 74 72 65 67 65 72 6e 65 20 69 20 6f 67 20 6d 65 6c 6c 65 ┆rikkerne og stregerne i og melle┆
0x7400…7420 6d 20 62 6f 67 73 74 61 76 65 72 6e 65 2c 20 6f 67 20 0a 19 80 82 80 b0 45 58 45 43 20 6d 65 6c ┆m bogstaverne, og EXEC mel┆
0x7420…7440 6c 65 6d 72 75 6d 28 37 29 f0 20 73 76 61 72 65 72 20 74 69 6c 20 6d 65 6c 6c 65 6d 72 75 6d 20 ┆lemrum(7) svarer til mellemrum ┆
0x7440…7460 6d 65 6c 6c 65 6d 20 6f 72 64 65 6e 65 2e 20 20 20 20 0d 0a 0d 0a b0 30 31 39 30 2d 30 32 31 30 ┆mellem ordene. 0190-0210┆
0x7460…7480 f0 3a 20 45 74 20 6d 65 6c 6c 65 6d 72 75 6d 20 73 76 61 72 65 72 20 62 6c 6f 74 20 74 69 6c 20 ┆ : Et mellemrum svarer blot til ┆
0x7480…74a0 65 6e 20 70 61 75 73 65 20 70 7d 20 0a 19 80 81 80 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a ┆en pause på 0.2 sekunder. ┆
0x74a0…74c0 0d 0a b0 30 32 33 30 2d 30 33 30 30 f0 3a 20 45 6e 20 70 72 69 6b 20 62 65 73 74 7d 72 20 61 66 ┆ 0230-0300 : En prik består af┆
0x74c0…74e0 20 65 6e 20 6c 79 73 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 32 20 0a 19 80 81 80 73 65 6b 75 6e ┆ en lysperiode på 0.2 sekun┆
0x74e0…7500 64 65 72 20 6f 67 20 65 6e 20 6d 7c 72 6b 65 70 65 72 69 6f 64 65 20 70 7d 20 30 2e 32 20 73 65 ┆der og en mørkeperiode på 0.2 se┆
0x7500…7520 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 33 32 2d 30 33 39 30 f0 3a 20 45 6e 20 73 74 72 65 67 20 ┆kunder. 032-0390 : En streg ┆
0x7520…7540 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 35 20 0a ┆består af en lysperiode på 0.5 ┆
0x7540…7560 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 64 65 20 ┆ sekunder og en mørkeperiode ┆
0x7560…7580 70 7d 20 30 2e 32 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a 4c 79 73 2d 20 6f 67 20 6d 7c 72 6b ┆på 0.2 sekunder. Lys- og mørk┆
0x7580…75a0 65 70 65 72 69 6f 64 65 72 6e 65 20 62 7c 72 20 73 65 6c 76 66 7c 6c 67 65 6c 69 67 20 66 61 73 ┆eperioderne bør selvfølgelig fas┆
0x75a0…75c0 74 6c 7b 67 67 65 73 20 0a 65 66 74 65 72 20 65 6c 65 76 65 72 6e 65 73 20 65 67 6e 65 20 7c 6e ┆tlægges efter elevernes egne øn┆
0x75c0…75c7 73 6b 65 72 2e 0d 0a ┆sker. ┆
0x75c7…75ca FormFeed {
0x75c7…75ca 0c 83 70 ┆ p┆
0x75c7…75ca }
0x75ca…75e0 0a 0d 0a 0d 0a 0d 0a 49 20 22 6d 6f 72 73 65 2d 63 22 20 65 72 20 ┆ I "morse-c" er ┆
0x75e0…7600 6d 75 6c 69 67 68 65 64 65 6e 20 66 6f 72 20 61 74 20 76 61 72 69 65 72 65 20 6d 6f 72 73 65 2d ┆muligheden for at variere morse-┆
0x7600…7620 0a 68 61 73 74 69 67 68 65 64 65 6e 20 74 69 6c 66 7c 6a 65 74 2e 20 48 65 72 20 65 72 20 22 6e ┆ hastigheden tilføjet. Her er "n┆
0x7620…7640 6f 72 6d 61 6c 68 61 73 74 69 67 68 65 64 65 6e 22 20 73 61 74 20 0a 74 69 6c 20 31 30 30 25 2e ┆ormalhastigheden" sat til 100%.┆
0x7640…7660 20 48 76 69 73 20 68 61 73 74 69 67 68 65 64 65 6e 20 73 6b 61 6c 20 68 61 6c 76 65 72 65 73 2c ┆ Hvis hastigheden skal halveres,┆
0x7660…7680 20 73 6b 61 6c 20 64 65 72 20 0a 73 7d 6c 65 64 65 73 20 69 6e 64 74 61 73 74 65 73 20 20 b0 35 ┆ skal der således indtastes 5┆
0x7680…76a0 30 f0 20 20 66 6f 72 20 35 30 25 2c 20 6f 67 20 b0 32 30 30 f0 20 66 6f 72 20 61 74 20 66 6f 72 ┆0 for 50%, og 200 for at for┆
0x76a0…76c0 64 6f 62 6c 65 20 0a 19 80 82 80 68 61 73 74 69 67 68 65 64 65 6e 2c 20 64 2e 76 2e 73 2e 20 32 ┆doble hastigheden, d.v.s. 2┆
0x76c0…76e0 30 30 25 3a 0d 0a 0d 0a 48 65 72 20 65 72 20 73 65 6c 76 65 20 70 72 6f 67 72 61 6d 6d 65 74 73 ┆00%: Her er selve programmets┆
0x76e0…7700 20 73 74 72 75 6b 74 75 72 20 61 66 73 70 65 6a 6c 65 74 20 69 20 0a 70 72 6f 63 65 64 75 72 65 ┆ struktur afspejlet i procedure┆
0x7700…7720 6b 61 6c 64 65 6e 65 3a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 63 22 0d 0a ┆kaldene: 0010 // "morse-c" ┆
0x7720…7740 b0 30 30 32 30 20 45 58 45 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a b0 30 30 33 30 20 45 58 45 43 ┆ 0020 EXEC åbne_port 0030 EXEC┆
0x7740…7760 20 69 6e 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 30 34 30 20 45 58 45 43 20 62 6c 69 6e 6b ┆ ind_hastighed 0040 EXEC blink┆
0x7760…7780 0d 0a b0 30 30 35 30 20 45 58 45 43 20 6c 75 6b 6b 65 5f 70 6f 72 74 0d 0a b0 30 30 36 30 20 45 ┆ 0050 EXEC lukke_port 0060 E┆
0x7780…77a0 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 -------------------------┆
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 0d 0a 0d ┆----------------------------- ┆
0x77c0…77e0 0a 48 65 72 20 7d 62 6e 65 73 20 70 6f 72 74 20 31 37 2c 20 6f 67 20 6c 61 6d 70 65 72 6e 65 20 ┆ Her åbnes port 17, og lamperne ┆
0x77e0…7800 73 6c 75 6b 6b 65 73 3a 0d 0a 0d 0a b0 30 30 38 30 20 50 52 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 ┆slukkes: 0080 PROC åbne_port┆
0x7800…7820 0d 0a b0 30 30 39 30 20 20 20 43 4c 4f 53 45 20 0d 0a b0 30 31 30 30 20 20 20 4f 50 45 4e 20 46 ┆ 0090 CLOSE 0100 OPEN F┆
0x7820…7840 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 31 31 30 20 ┆ILE 1,"/17/PORT", WRITE 0110 ┆
0x7840…7860 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 31 32 30 20 ┆ PRINT FILE 1: CHR$(0); 0120 ┆
0x7860…7880 45 4e 44 50 52 4f 43 20 7d 62 6e 65 5f 70 6f 72 74 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ENDPROC åbne_port -----------┆
0x7880…78a0 2d 2d 2d 2d 2d 2d 2d 2d 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 0d 0a 0d 0a 48 65 72 20 69 6e 64 74 61 73 74 65 73 20 62 6c 69 ┆----------- Her indtastes bli┆
0x78c0…78e0 6e 6b 2d 68 61 73 74 69 67 68 65 64 65 6e 3a 0d 0a 0d 0a b0 30 31 34 30 20 50 52 4f 43 20 69 6e ┆nk-hastigheden: 0140 PROC in┆
0x78e0…7900 64 5f 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 ┆d_hastighed 0150 PRINT CHR$(┆
0x7900…7920 31 32 29 0d 0a b0 30 31 36 30 20 20 20 49 4e 50 55 54 20 22 53 4b 52 49 56 20 48 41 53 54 49 47 ┆12) 0160 INPUT "SKRIV HASTIG┆
0x7920…7940 48 45 44 20 28 6e 6f 72 6d 61 6c 3d 31 30 30 25 29 3a 20 22 3a 20 0d 0a 19 80 81 80 b0 20 20 20 ┆HED (normal=100%): ": ┆
0x7940…7960 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 ┆ ┆
0x7960…7980 20 20 20 20 20 20 68 61 73 74 69 67 68 65 64 0d 0a b0 30 31 37 30 20 20 20 6d 65 6c 6c 65 6d 72 ┆ hastighed 0170 mellemr┆
0x7980…79a0 75 6d 6c 7b 6e 67 64 65 3a 3d 30 2e 32 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 0d 0a b0 ┆umlængde:=0.2/hastighed x 100 ┆
0x79a0…79c0 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 73 74 69 67 68 65 64 ┆0180 priklængde:=0.2/hastighed┆
0x79c0…79e0 20 78 20 31 30 30 0d 0a b0 30 31 39 30 20 20 20 73 74 72 65 67 6c 7b 6e 67 64 65 3a 3d 30 2e 35 ┆ x 100 0190 streglængde:=0.5┆
0x79e0…7a00 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 0d 0a b0 30 32 30 30 20 45 4e 44 50 52 4f 43 20 ┆/hastighed x 100 0200 ENDPROC ┆
0x7a00…7a20 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 2d 2d 2d ┆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 0d 0a 0d 0a 4f 67 20 68 65 72 20 75 64 66 7c 72 65 73 20 73 65 6c 76 65 20 ┆------- Og her udføres selve ┆
0x7a60…7a80 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 6f 72 73 ┆blink-sekvensen ligesom i "mors┆
0x7a80…7aa0 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 32 33 30 ┆e-b": 0220 PROC blink 0230┆
0x7aa0…7ac0 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 69 6b 28 ┆ REPEAT 0240 EXEC prik(┆
0x7ac0…7ae0 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 31 29 0d ┆3) 0250 EXEC mellemrum(1) ┆
0x7ae0…7b00 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 37 30 20 ┆ 0260 EXEC streg(3) 0270 ┆
0x7b00…7b20 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 20 20 20 ┆ EXEC mellemrum(1) 0280 ┆
0x7b20…7b40 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 20 6d 65 ┆ EXEC prik(3) 0290 EXEC me┆
0x7b40…7b60 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 28 4b 45 ┆llemrum(7) 0300 UNTIL ORD(KE┆
0x7b60…7b80 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 0d 0a 2d ┆Y$)=32 0310 ENDPROC blink -┆
0x7b80…7ba0 2d 2d 2d 2d 2d 2d 2d 2d 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…7bb7 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------------------- ┆
0x7bb7…7bba FormFeed {
0x7bb7…7bba 0c 83 58 ┆ X┆
0x7bb7…7bba }
0x7bba…7bc0 0a 0d 0a 0d 0a 0d ┆ ┆
0x7bc0…7be0 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 67 20 64 ┆ Til sidst slukkes lamperne og d┆
0x7be0…7c00 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 50 52 4f ┆atastrømmen lukkes: 0330 PRO┆
0x7c00…7c20 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 49 4c 45 ┆C lukke_port 0340 PRINT FILE┆
0x7c20…7c40 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 0a b0 30 ┆ 1: CHR$(0); 0350 CLOSE 0┆
0x7c40…7c60 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 2d 2d 2d ┆360 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 0d 0a 0d 0a 0d 0a 0d 0a 50 72 6f 63 65 64 75 72 ┆---------------- Procedur┆
0x7ca0…7cc0 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 65 f0 20 ┆erne prik , streg og pause ┆
0x7cc0…7ce0 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 73 65 2d ┆er som i programmet "morse-┆
0x7ce0…7ce5 62 22 2e 0d 0a ┆b". ┆
0x7ce5…7ce8 FormFeed {
0x7ce5…7ce8 0c 81 00 ┆ ┆
0x7ce5…7ce8 }
0x7ce8…7d00 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 64 22 20 62 6c 69 6e 6b 65 72 ┆ "morse-d" blinker┆
0x7d00…7d20 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 20 48 65 ┆ navnet OLE (/---/.-.././). He┆
0x7d20…7d40 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 f0 3a 0d ┆r blot proceduren blink : ┆
0x7d40…7d60 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 52 45 50 ┆ 0240 PROC blink 0250 REP┆
0x7d60…7d80 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 2d 2d 2d ┆EAT 0260 // -------------┆
0x7d80…7da0 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 20 20 20 ┆-- 0270 EXEC streg(3) ┆
0x7da0…7dc0 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 20 6d 65 ┆ .... O 0280 EXEC me┆
0x7dc0…7de0 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 2d 2d 2d ┆llemrum(5) 0290 // -------┆
0x7de0…7e00 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 28 31 29 ┆-------- 0300 EXEC prik(1)┆
0x7e00…7e20 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 20 20 45 ┆ .... L 0310 E┆
0x7e20…7e40 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 70 72 69 ┆XEC streg(1) 0320 EXEC pri┆
0x7e40…7e60 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 6d 28 35 ┆k(2) 0330 EXEC mellemrum(5┆
0x7e60…7e80 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 2d 2d 0d ┆) 0340 // --------------- ┆
0x7e80…7ea0 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 20 20 20 ┆ 0350 EXEC prik(1) ┆
0x7ea0…7ec0 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 6c 65 6d ┆ .... E 0360 EXEC mellem┆
0x7ec0…7ee0 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 2d 2d 2d ┆rum(5) 0370 // -----------┆
0x7ee0…7f00 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 6d 28 35 ┆---- 0380 EXEC mellemrum(5┆
0x7f00…7f20 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 2d 2d 0d ┆) 0390 // --------------- ┆
0x7f20…7f40 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 b0 30 34 ┆ 0400 UNTIL ORD(KEY$)=32 04┆
0x7f40…7f60 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 2d 2d 2d ┆10 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 0d 0a 0d 0a 0d 0a 44 65 74 20 73 6b 61 6c 20 6e 7b 76 6e 65 73 2c ┆---------- Det skal nævnes,┆
0x7fa0…7fc0 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 65 2c 20 ┆ at morseprogrammerne er svære, ┆
0x7fc0…7fe0 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 6b 65 72 ┆ og det vil ikke være forker┆
0x7fe0…8000 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 80 82 80 ┆t at springe dem over hvis ┆
0x8000…8020 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 72 20 69 ┆elevernes forudsætninger eller i┆
0x8020…8040 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 0a 0d 0a ┆nteresse ikke slår til. ┆
0x8040…8060 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 66 6f 72 ┆"morse-e", på næste side, er for┆
0x8060…8080 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 61 64 20 ┆ eksempel i overkanten af hvad ┆
0x8080…80a0 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 65 20 6b ┆eleverne må forventes at kunne k┆
0x80a0…80a7 6c 61 72 65 2e 0d 0a ┆lare. ┆
0x80a7…80aa FormFeed {
0x80a7…80aa 0c 82 98 ┆ ┆
0x80a7…80aa }
0x80aa…80c0 0a 0d 0a 0d 0a 0d 0a 22 6d 6f 72 73 65 2d 65 22 20 65 72 20 65 74 ┆ "morse-e" er et┆
0x80c0…80e0 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 72 65 6c ┆ løsningsforslag til et "generel┆
0x80e0…8100 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 6f 74 20 ┆t" morseprogram, hvor der blot ┆
0x8100…8120 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 6b 7b 72 ┆skal indtastes en tekst på skær┆
0x8120…8140 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 65 72 20 ┆men og trykkes <RETURN>. Det er ┆
0x8140…8160 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 7b 72 68 ┆absolut i overkanten hvad sværh┆
0x8160…8175 65 64 73 67 72 61 64 65 6e 20 61 6e 67 7d 72 2e 20 0d 0a 0d 0a ┆edsgraden angår. ┆
0x8175…81ae Params {
0x8175…81ae 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@ ┆
0x8175…81ae 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 ┆
0x8175…81ae }
0x81ae…81e7 Params {
0x81ae…81e7 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@ ┆
0x81ae…81e7 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ø ┆
0x81ae…81e7 }
0x81e7…8200 0a b0 30 30 31 30 20 2f 2f 20 22 6d 6f 72 73 65 2d 65 22 0d 0a b0 30 30 32 ┆ 0010 // "morse-e" 002┆
0x8200…8220 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 34 30 20 ┆0 dec:=255 0030 CLOSE 0040 ┆
0x8220…8240 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 0a ┆OPEN FILE 1,"/17/PORT", WRITE ┆
0x8240…8260 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 30 2c 74 ┆ 0050 DIM morsetegn$(96) OF 10,t┆
0x8260…8280 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 39 37 20 ┆ekst$ OF 80 0060 FOR tegn:=97 ┆
0x8280…82a0 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 6e 2d 39 ┆TO 122 DO READ morsetegn$(tegn-9┆
0x82a0…82c0 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 22 2d 2e ┆6) 0070 DATA ".-","-...","-.┆
0x82c0…82e0 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 2e 2e 2e ┆-.","-..",".","..-.","--.","....┆
0x82e0…8300 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 2d 22 2c ┆","..",".---" 0080 DATA "-.-",┆
0x8300…8320 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 2c 22 2d ┆".-..","--","-.","---",".--.","-┆
0x8320…8340 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 41 54 41 ┆-.-",".-.","...","-" 0090 DATA┆
0x8340…8360 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 2e 2d 2d ┆ "..-","...-",".--","-..-","-.--┆
0x8360…8380 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 56 20 54 ┆","--.." 0110 INPUT "SKRIV T┆
0x8380…83a0 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 0d 0a b0 ┆EKST: ": tekst$ 0120 PRINT ┆
0x83a0…83c0 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 31 30 30 ┆0130 INPUT "SKRIV HASTIGHED (100┆
0x83c0…83e0 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 34 30 20 ┆=normal): ": hastighed 0140 ┆
0x83e0…8400 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 44 4f 0d ┆FOR tegnnr:=1 TO LEN(tekst$) DO ┆
0x8400…8420 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 73 74 24 ┆ 0150 morsetegnnr:=ORD(tekst$┆
0x8420…8440 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 46 4f 52 ┆(tegnnr:tegnnr))-96 0160 FOR┆
0x8440…8460 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 6d 6f 72 ┆ signal:=1 TO LEN(morsetegn$(mor┆
0x8460…8480 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 6f 72 73 ┆setegnnr)) DO 0170 IF mors┆
0x8480…84a0 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 6e 61 6c ┆etegn$(morsetegnnr,signal:signal┆
0x84a0…84c0 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 20 20 20 ┆)="." THEN EXEC prik 0180 ┆
0x84c0…84e0 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 6e 61 6c ┆IF morsetegn$(morsetegnnr,signal┆
0x84e0…8500 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 0a b0 30 ┆:signal)="-" THEN EXEC streg 0┆
0x8500…8520 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 45 43 20 ┆190 NEXT signal 0200 EXEC ┆
0x8520…8540 70 61 75 73 65 28 31 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 32 31 30 20 ┆pause(1/hastighed x 100) 0210 ┆
0x8540…8560 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 0a ┆NEXT tegnnr 0230 PROC prik ┆
0x8560…8580 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 0d ┆ 0240 PRINT FILE 1: CHR$(255) ┆
0x8580…85a0 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 68 ┆ 0250 EXEC pause(0.25/hastigh┆
0x85a0…85c0 65 64 20 78 20 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 ┆ed x 100) 0260 PRINT FILE 1:┆
0x85c0…85e0 20 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 ┆ CHR$(0); 0270 EXEC pause(0.┆
0x85e0…8600 32 2f 68 61 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 32 38 30 20 45 4e 44 50 52 4f ┆2/hastighed x 100) 0280 ENDPRO┆
0x8600…8620 43 20 70 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 ┆C prik 0300 PROC streg 031┆
0x8620…8640 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 0a b0 30 ┆0 PRINT FILE 1: CHR$(255); 0┆
0x8640…8660 33 32 30 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 20 78 ┆320 EXEC pause(0.6/hastighed x┆
0x8660…8680 20 31 30 30 29 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 ┆ 100) 0330 PRINT FILE 1: CHR┆
0x8680…86a0 24 28 30 29 3b 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 ┆$(0); 0340 EXEC pause(0.2/ha┆
0x86a0…86c0 73 74 69 67 68 65 64 20 78 20 31 30 30 29 0d 0a b0 30 33 34 30 20 45 4e 44 50 52 4f 43 20 73 74 ┆stighed x 100) 0340 ENDPROC st┆
0x86c0…86c5 72 65 67 0d 0a ┆reg ┆
0x86c5…86fe Params {
0x86c5…86fe 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@ ┆
0x86c5…86fe 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ø ┆
0x86c5…86fe }
0x86fe…8737 Params {
0x86fe…8737 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@ ┆
0x86fe…8737 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 ┆
0x86fe…8737 }
0x8737…8740 0a 0d 0a b0 30 30 36 30 2d ┆ 0060-┆
0x8740…8760 30 30 39 30 f0 3a 20 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 ┆0090 : Her tildeles tekstvariabl┆
0x8760…8780 65 6e 20 b0 6d 6f 72 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 ┆en morsetegn$ de enkelte ┆
0x8780…87a0 6d 6f 72 73 65 74 65 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 ┆morsetegns udseende læst fra DAT┆
0x87a0…87c0 41 2d 73 7b 74 6e 69 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 ┆A-sætningerne. 0110 : Her ti┆
0x87c0…87e0 6c 64 65 6c 65 73 20 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 ┆ldeles tekst$ den ønskede teks┆
0x87e0…8800 74 2e 0d 0a 0d 0a b0 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 ┆t. 0160-0190 : Her udføres d┆
0x8800…8820 65 20 65 6e 6b 65 6c 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 ┆e enkelte morsesignaler, altså ┆
0x8820…8840 19 80 81 80 64 65 20 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 ┆ de enkelte prikker og strege┆
0x8840…8860 72 2e 0d 0a 0d 0a b0 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 ┆r. 0140-0210 : Her udføres d┆
0x8860…8880 65 20 65 6e 6b 65 6c 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 ┆e enkelte bogstaver, der består ┆
0x8880…88a0 0a 19 80 81 80 61 66 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 ┆ af et eller flere morsesign┆
0x88a0…88c0 61 6c 65 72 20 28 3d 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 ┆aler (=prikker og streger). ┆
0x88c0…88e0 30 32 30 30 f0 3a 20 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 ┆0200 : Her udføres mellemrummmen┆
0x88e0…8900 65 20 6d 65 6c 6c 65 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 ┆e mellem de enkelte bogstav┆
0x8900…8920 65 72 2e 0d 0a 0d 0a 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 ┆er. Som det kan ses, kræver d┆
0x8920…8940 65 6e 6e 65 20 6f 70 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 ┆enne opgave, at eleverne er for┆
0x8940…8960 74 72 6f 6c 69 67 65 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 ┆trolige med variable med index, ┆
0x8960…8980 73 61 6d 74 20 64 65 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 ┆samt del-strenge. Så opgaven er┆
0x8980…89a0 20 67 6f 64 20 68 76 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 ┆ god hvis der er et par skrappe ┆
0x89a0…89c0 65 6c 65 76 65 72 20 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 ┆elever der mangler lidt udfordr┆
0x89c0…89c6 69 6e 67 2e 0d 0a ┆ing. ┆
0x89c6…89c9 FormFeed {
0x89c6…89c9 0c 84 80 ┆ ┆
0x89c6…89c9 }
0x89c9…89e0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 4c 5c 42 45 4c 59 ┆ PROBLEM "LØBELY┆
0x89e0…8a00 53 22 3a 0d 0a 0d 0a 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 ┆S": I "løb-a1" er anvendt "┆
0x8a00…8a20 47 5c 47 2d 4f 47 2d 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 ┆GØG-OG-GOKKE-METODEN", idet hve┆
0x8a20…8a40 72 74 20 67 65 6e 6e 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 ┆rt gennemløb består at 8 "PRINT ┆
0x8a40…8a60 46 49 4c 45 22 2d 73 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 ┆FILE"-sætninger. Lyset løber ku┆
0x8a60…8a80 6e 20 b0 65 6e f0 20 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 ┆n en gang fra venstre mod højr┆
0x8a80…8aa0 65 3a 0d 0a 0d 0a b0 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 ┆e: 0010 // "løb-a1" 0020 O┆
0x8aa0…8ac0 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 ┆
0x8ac0…8ae0 30 30 33 30 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 30 ┆0030 PRINT FILE 1: CHR$(1); 00┆
0x8ae0…8b00 34 30 20 45 58 45 43 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 ┆40 EXEC pause(0.3) 0050 PRINT ┆
0x8b00…8b20 46 49 4c 45 20 31 3a 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 ┆FILE 1: CHR$(2); 0060 EXEC pau┆
0x8b20…8b40 73 65 28 30 2e 33 29 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 ┆se(0.3) 0070 PRINT FILE 1: CHR┆
0x8b40…8b60 24 28 34 29 3b 0d 0a 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 ┆$(4); 0080 EXEC pause(0.3) 0┆
0x8b60…8b80 30 39 30 20 50 52 49 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 ┆090 PRINT FILE 1: CHR$(8); 010┆
0x8b80…8ba0 30 20 45 58 45 43 20 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 ┆0 EXEC pause(0.3) 0110 PRINT F┆
0x8ba0…8bc0 49 4c 45 20 31 3a 20 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 ┆ILE 1: CHR$(16); 0120 EXEC pau┆
0x8bc0…8be0 73 65 28 30 2e 33 29 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 ┆se(0.3) 0130 PRINT FILE 1: CHR┆
0x8be0…8c00 24 28 33 32 29 3b 0d 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 ┆$(32); 0140 EXEC pause(0.3) ┆
0x8c00…8c20 30 31 35 30 20 50 52 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 ┆0150 PRINT FILE 1: CHR$(64); 0┆
0x8c20…8c40 31 36 30 20 45 58 45 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 ┆160 EXEC pause(0.3) 0170 PRINT┆
0x8c40…8c60 20 46 49 4c 45 20 31 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 ┆ FILE 1: CHR$(128); 0180 EXEC ┆
0x8c60…8c80 70 61 75 73 65 28 30 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 ┆pause(0.3) 0190 CLOSE FILE 1 ┆
0x8c80…8ca0 b0 30 32 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 2d 2d 2d 2d ┆ 0200 END ------------------┆
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 2d 2d 2d ┆--------------------------------┆
0x8cc0…8ce0 2d 2d 2d 2d 0d 0a 0d 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 ┆---- Problemet bør løses på e┆
0x8ce0…8d00 6e 20 6d 65 72 65 20 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 ┆n mere elegant måde, nemlig med ┆
0x8d00…8d20 65 6e 20 0a 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 2c 20 68 76 6f 72 20 65 74 20 67 65 6e 6e ┆en FOR/NEXT-løkke, hvor et genn┆
0x8d20…8d40 65 6d 6c 7c 62 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 ┆emløb kan udtrykkes simpelt ren┆
0x8d40…8d60 74 20 6d 61 74 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 ┆t matematisk: 2 opløftet til en ┆
0x8d60…8d80 70 6f 74 65 6e 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 ┆potens svarende til bit-nummere┆
0x8d80…8da0 74 2c 20 61 6c 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 ┆t, altså 2 i nulte (=1), 2 i f┆
0x8da0…8dc0 7c 72 73 74 65 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 ┆ørste (=2), 2 i anden (=4), 2 i ┆
0x8dc0…8de0 74 72 65 64 69 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 ┆tredie (=8), ... o.s.v.. I "┆
0x8de0…8e00 6c 7c 62 2d 61 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 ┆løb-a2" er det gjort sådan: ┆
0x8e00…8e20 30 30 31 30 20 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 ┆0010 // "løb-a2" 0020 OPEN FIL┆
0x8e20…8e40 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 46 4f ┆E 1,"/17/PORT", WRITE 0030 FO┆
0x8e40…8e60 52 20 6e 3a 3d 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 ┆R n:=0 TO 7 DO 0040 PRINT FI┆
0x8e60…8e80 4c 45 20 31 3a 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 ┆LE 1: CHR$(2^n); 0050 EXEC p┆
0x8e80…8ea0 61 75 73 65 28 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 ┆ause(0.3) 0060 NEXT n 0070 C┆
0x8ea0…8ec0 4c 4f 53 45 20 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 ┆LOSE 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 2d 2d 2d 2d 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 62 22 20 65 ┆----------------- I "løb-b" e┆
0x8f00…8f20 72 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6c 61 67 74 20 69 6e 64 20 69 20 65 6e 20 ┆r FOR/NEXT-løkken lagt ind i en ┆
0x8f20…8f40 22 52 45 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 ┆"REPEAT- UNTIL"-løkke, for at få┆
0x8f40…8f60 20 67 65 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 ┆ gennemløbet gentaget indtil de┆
0x8f60…8f80 72 20 74 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 ┆r trykkes på mellemrum-tasten: ┆
0x8f80…8fa0 0d 0a b0 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 ┆ 0040 REPEAT 0050 FOR bit:┆
0x8fa0…8fc0 3d 30 20 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 ┆=0 TO 7 DO 0060 PRINT FILE ┆
0x8fc0…8fe0 31 3a 20 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 ┆1: CHR$(2^bit); 0070 EXEC p┆
0x8fe0…9000 61 75 73 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 ┆ause(0.3) 0080 NEXT bit 009┆
0x9000…9020 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 2d 2d 2d ┆0 UNTIL 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…9050 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆-------------- ┆
0x9050…9053 FormFeed {
0x9050…9053 0c 84 88 ┆ ┆
0x9050…9053 }
0x9053…9060 0a 0d 0a 0d 0a 0d 0a 49 20 22 6c 7c 62 ┆ I "løb┆
0x9060…9080 2d 63 22 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 ┆-c" er tilføjet muligheden for a┆
0x9080…90a0 74 20 76 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 ┆t variere blinkfrekvensen: 0┆
0x90a0…90c0 30 31 30 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 ┆010 // "løb-c" 0020 OPEN FILE 1┆
0x90c0…90e0 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 49 4e 54 ┆,"/17/PORT", WRITE 0030 PRINT┆
0x90e0…9100 20 22 53 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 ┆ "SKRIV LYSPERIODEN" 0040 PRIN┆
0x9100…9120 54 20 22 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 ┆T "I SEKUNDER" 0050 INPUT "FOR┆
0x9120…9140 20 48 56 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 ┆ HVER PÆRE: ": lysperiode 0060 ┆
0x9140…9160 50 52 49 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 ┆PRINT 0070 PRINT "STOP: TRYK P┆
0x9160…9180 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 38 30 20 52 45 50 ┆Å MELLEMRUM-TASTEN !!" 0080 REP┆
0x9180…91a0 45 41 54 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 ┆EAT 0090 FOR bit:=0 TO 7 DO ┆
0x91a0…91c0 0a 30 31 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 ┆ 0100 PRINT FILE 1: CHR$(2^b┆
0x91c0…91e0 69 74 29 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 ┆it); 0110 EXEC pause( lyspe┆
0x91e0…9200 72 69 6f 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 ┆riode ) 0120 NEXT bit 0130 U┆
0x9200…9220 4e 54 49 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 ┆NTIL ORD(KEY$)=32 0140 PRINT FI┆
0x9220…9240 4c 45 20 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 ┆LE 1: CHR$(0); 0150 CLOSE FILE ┆
0x9240…9260 31 0d 0a 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 ┆1 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 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 ┆------ I "løb-d" gennemløbes ┆
0x92a0…92c0 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6d 65 64 20 65 74 20 0a 6e 65 67 61 74 69 76 74 ┆FOR/NEXT-løkken med et negativt┆
0x92c0…92e0 20 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 ┆ STEP, svarende til at BIT-7 pær┆
0x92e0…9300 65 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 ┆en begynder og BIT-0 pæren slut┆
0x9300…9320 74 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 ┆ter hvert gennemløb: 0090 ┆
0x9320…9340 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 0d 0a b0 30 31 30 ┆FOR bit:=7 TO 0 STEP -1 DO 010┆
0x9340…9360 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 3b ┆0 PRINT FILE 1: CHR$(2^bit);┆
0x9360…9380 0d 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 ┆ 0110 EXEC pause(lysperiod┆
0x9380…93a0 65 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 ┆e) 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 2d 0d 0a 0d 0a 49 20 22 6c 7c 62 2d 65 31 22 20 65 72 20 ┆-------------- I "løb-e1" er ┆
0x93e0…9400 64 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 ┆det talvariablen DECTAL der s┆
0x9400…9420 65 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 ┆endes til lyspanelet. DECT┆
0x9420…9440 41 4c f0 20 66 6f 72 7c 67 65 73 20 69 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e 20 6d 65 ┆AL 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 6c 7c 62 2d 65 32 22 20 69 6e 64 6c 65 64 65 73 20 46 4f 52 2f 4e 45 58 54 2d 6c 7c 6b 6b 65 6e ┆løb-e2" indledes FOR/NEXT-løkken┆
0x9620…9640 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 6c 65 ┆ med at 0 sendes til lyuspanele┆
0x9640…9660 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 72 20 ┆t så alle pærer slukkes, og der ┆
0x9660…9680 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 62 65 ┆udføres en pause før pærerne be┆
0x9680…96a0 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 7d 64 ┆gynder at lyse op. På denne måd┆
0x96a0…96c0 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 76 65 ┆e slukkes også BIT-0 pæren i hve┆
0x96c0…96e0 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 b0 30 ┆r gennemløb: 0080 REPEAT 0┆
0x96e0…9700 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 b0 30 ┆090 PRINT FILE 1: CHR$(0); 0┆
0x9700…9720 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 30 31 ┆100 EXEC pause(lysperiode) 01┆
0x9720…9740 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 3a 3d ┆10 dectal:=0 0120 FOR bit:=┆
0x9740…9760 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 63 74 ┆0 TO 7 DO 0130 dectal:=dect┆
0x9760…9780 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 31 3a ┆al+2^bit 0140 PRINT FILE 1:┆
0x9780…97a0 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 70 61 ┆ CHR$(dectal); 0150 EXEC pa┆
0x97a0…97c0 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 69 74 ┆use(lysperiode) 0160 NEXT bit┆
0x97c0…97e0 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 2d 2d ┆ 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 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 22 20 ┆------------------- "løb-e3" ┆
0x9820…9840 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 6e 20 ┆virker som "løb-e2". Her er den ┆
0x9840…9860 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 20 73 ┆største 2- talspotens blot 8 i s┆
0x9860…9880 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 65 72 ┆tedet for 7. 2 opløftet til 8 er┆
0x9880…98a0 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 30 30 ┆ 256, hvilket svarer til 100000┆
0x98a0…98c0 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 62 69 ┆000 binært. Der skal altså 9 bi┆
0x98c0…98e0 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 65 72 ┆t til, hvor lyspanelet kun viser┆
0x98e0…9900 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 72 20 ┆ de 8 laveste bit. Igen lamper ┆
0x9900…9920 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 74 69 ┆lyser derfor hvis 2 opløftet ti┆
0x9920…9940 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 69 6c ┆l 8. potens ( =256 ) sendes til┆
0x9940…9960 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 74 3a ┆ lyspanelet: 0090 FOR bit:┆
0x9960…9980 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 4c 45 ┆=0 TO 8 DO 0100 PRINT FILE┆
0x9980…99a0 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 45 58 ┆ 1: CHR$(2^bit-1); 0110 EX┆
0x99a0…99c0 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┆
0x99c0…99e0 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 ----------------------┆
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 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 6b 61 ┆ Hvis man ønsker at lyset ska┆
0x9a20…9a40 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 65 72 ┆l løbe fra højre mod venstre er┆
0x9a40…9a60 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 20 6c ┆ "løb-e4" måske en nærliggende l┆
0x9a60…9a80 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 21 21 ┆øsning - men den duer IKKE !!┆
0x9a80…9aa0 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 20 70 7b ┆ Her er det nemlig en slukket pæ┆
0x9aa0…9ac0 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 65 6e 20 ┆re der "løber", og ikke en ┆
0x9ac0…9ae0 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 54 4f 20 ┆tændt: 0090 FOR bit:=8 TO ┆
0x9ae0…9b00 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 20 46 49 ┆0 STEP -1 DO 0100 PRINT FI┆
0x9b00…9b20 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 ┆
0x9b20…9b40 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 ┆
0x9b40…9b60 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 --------------------┆
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 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 6c 7c 73 ┆-- "løb-e5" er en korrekt løs┆
0x9ba0…9bc0 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 72 61 20 ┆ning, hvis lyset skal løbe fra ┆
0x9bc0…9be0 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 64 20 61 ┆højre mod venstre samtidig med a┆
0x9be0…9c00 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 0d 0a 0d 0a ┆t lysene skal "opsummeres": ┆
0x9c00…9c20 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 20 2d 31 20 ┆ 0090 FOR bit:=8 TO 0 STEP -1 ┆
0x9c20…9c40 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 43 48 52 24 ┆DO 0100 PRINT FILE 1: CHR$┆
0x9c40…9c60 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 45 43 20 70 ┆(255-2^bit+1); 0110 EXEC p┆
0x9c60…9c80 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 58 54 20 62 ┆ause(lysperiode) 0120 NEXT b┆
0x9c80…9ca0 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 2d 2d 2d 2d ┆it --------------------------┆
0x9ca0…9cbe 2d 2d 2d 2d 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 ┆---------------------------- ┆
0x9cbe…9cc1 FormFeed {
0x9cbe…9cc1 0c 83 48 ┆ H┆
0x9cbe…9cc1 }
0x9cc1…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 46 4f 52 2f ┆ I "løb-f" er det to FOR/┆
0x9ce0…9d00 4e 45 58 54 2d 6c 7c 6b 6b 65 72 20 64 65 72 20 68 76 65 72 20 66 6f 72 20 73 69 67 20 0a 66 7d ┆NEXT-løkker der hver for sig få┆
0x9d00…9d20 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 6f 64 20 68 7c 6a ┆r lyset til at løbe hhv. mod høj┆
0x9d20…9d40 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 20 52 45 50 45 41 ┆re og mod venstre: 0070 REPEA┆
0x9d40…9d60 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 37 20 44 4f 0d 0a ┆T 0080 FOR bit:=0 TO 7 DO ┆
0x9d60…9d80 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 52 24 28 32 5e 62 ┆ 0090 PRINT FILE 1: CHR$(2^b┆
0x9d80…9da0 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 28 6c 79 73 70 65 ┆it); 0100 EXEC pause(lyspe┆
0x9da0…9dc0 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 30 31 32 30 20 20 ┆riode) 0110 NEXT bit 0120 ┆
0x9dc0…9de0 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 33 30 20 20 20 ┆ PRINT FILE 1: CHR$(0); 0130 ┆
0x9de0…9e00 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 34 30 20 20 20 ┆EXEC pause(lysperiode) 0140 ┆
0x9e00…9e20 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 0d 0a b0 30 31 35 ┆FOR bit:=7 TO 0 STEP -1 DO 015┆
0x9e20…9e40 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 3b ┆0 PRINT FILE 1: CHR$(2^bit);┆
0x9e40…9e60 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 70 65 72 69 6f 64 ┆ 0160 EXEC pause(lysperiod┆
0x9e60…9e80 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 20 20 20 50 52 49 ┆e) 0170 NEXT bit 0180 PRI┆
0x9e80…9ea0 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 20 20 45 58 45 43 ┆NT FILE 1: CHR$(0); 0190 EXEC┆
0x9ea0…9ec0 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 4e 54 49 4c 20 4f ┆ pause(lysperiode) 0200 UNTIL O┆
0x9ec0…9ee0 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 2d 2d 2d 2d 2d 2d ┆RD(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 0d 0a 0d 0a 22 6c 7c 62 2d 67 31 22 2c 20 22 6c 7c 62 2d 67 32 22 20 6f 67 20 22 ┆----- "løb-g1", "løb-g2" og "┆
0x9f20…9f40 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 6e 69 6e 67 20 0a ┆løb-g3" er forslag til løsning ┆
0x9f40…9f60 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 61 20 74 61 73 74 ┆af problemet med at man fra tast┆
0x9f60…9f80 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 74 20 74 69 6c 20 ┆aturet skal kunne få lyset til ┆
0x9f80…9fa0 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 6d 6f 64 20 76 65 ┆at løbe hhv. mod højre og mod ve┆
0x9fa0…9fc0 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 0a b0 30 30 31 30 ┆nstre. Her "løb-g2": 0010┆
0x9fc0…9fe0 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 49 4c 45 20 31 2c ┆ // "løb-g2" 0020 OPEN FILE 1,┆
0x9fe0…a000 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 44 49 4d 20 74 61 ┆"/17/PORT", WRITE 0030 DIM ta┆
0xa000…a020 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 50 3a 20 54 52 59 ┆st$ OF 1 0040 PRINT "STOP: TRY┆
0xa020…a040 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 b0 30 30 35 30 ┆K PÅ MELLEMRUM-TASTEN !!" 0050┆
0xa040…a060 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 0d 0a b0 30 30 36 ┆ PRINT "SKRIV LYSPERIODEN" 006┆
0xa060…a080 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 30 20 49 4e 50 55 ┆0 PRINT "I SEKUNDER" 0070 INPU┆
0xa080…a0a0 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 72 69 6f 64 65 0d ┆T "FOR HVER PÆRE: ": lysperiode ┆
0xa0a0…a0c0 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 ┆ -----------------------------┆
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 0d 0a 0d 0a 48 65 72 ┆------------------------- Her┆
0xa0e0…a100 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 7c 62 65 6c 79 73 ┆ er selve afviklingen af løbelys┆
0xa100…a120 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 7c 62 65 6c 79 73 ┆et. Det er proce duren løbelys┆
0xa120…a140 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 6c 79 73 65 74 20 ┆ (se næste side) der får lyset ┆
0xa140…a160 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 20 52 45 50 45 41 ┆til at løbe: 0090 REPEA┆
0xa160…a180 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 0a 0d 0a b0 30 31 ┆T 0100 tast$:=KEY$ 01┆
0xa180…a1a0 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 3d 22 56 22 20 4f ┆10 IF tast$="v" OR tast$="V" O┆
0xa1a0…a1c0 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 1f 1f 1f 1f 54 48 ┆R tast$=CHR$(8) TH┆
0xa1c0…a1e0 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 0a b0 30 31 32 30 ┆EN EXEC løbelys(0,7,+1) 0120┆
0xa1e0…a200 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 48 22 20 4f 52 20 ┆ IF tast$="h" OR tast$="H" OR ┆
0xa200…a220 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 1f 1f 1f 54 48 45 ┆tast$=CHR$(24) THE┆
0xa220…a240 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 b0 30 31 33 30 20 ┆N EXEC løbelys(7,0,-1) 0130 ┆
0xa240…a260 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 22 20 4f 52 20 74 ┆ IF tast$="s" OR tast$="S" OR t┆
0xa260…a280 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 4e 20 45 58 45 43 ┆ast$=" " THEN EXEC┆
0xa280…a2a0 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 53 45 0d 0a 0d 0a ┆ stands 0140 UNTIL FALSE ┆
0xa2a0…a2c0 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 2d 2d 2d 2d 2d 2d ┆ 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…a2e5 2d 2d 2d 0d 0a ┆--- ┆
0xa2e5…a2e8 FormFeed {
0xa2e5…a2e8 0c 83 68 ┆ h┆
0xa2e5…a2e8 }
0xa2e8…a300 0a 0d 0a 0d 0a 0d 0a b0 45 58 45 43 20 6c 7c 62 65 6c 79 73 28 30 2c 37 ┆ EXEC løbelys(0,7┆
0xa300…a320 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 65 20 66 72 61 20 ┆,+1) får lyset til at løbe fra ┆
0xa320…a340 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 2c 20 6d 6f 64 20 ┆BIT 0, d.v.s. venstre, mod ┆
0xa340…a360 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 72 65 6e 64 65 20 ┆BIT 7, altså højre. Modsvarende ┆
0xa360…a380 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 2c 2d 31 29 f0 20 ┆ får EXEC løbelys(7,0,-1) ┆
0xa380…a3a0 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 6e 20 0a 19 80 82 ┆lyset til at løbe den anden ┆
0xa3a0…a3c0 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 73 28 73 74 61 72 ┆ vej: 0160 PROC løbelys(star┆
0xa3c0…a3e0 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 29 0d 0a 0d 0a b0 ┆tværdi,slutværdi,stepværdi) ┆
0xa3e0…a400 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 20 54 4f 20 73 6c ┆0170 FOR bit:=startværdi TO sl┆
0xa400…a420 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 73 74 65 70 76 7b ┆utværdi STEP stepvæ┆
0xa420…a440 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 46 49 4c 45 20 31 ┆rdi DO 0180 PRINT FILE 1┆
0xa440…a460 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 20 20 45 58 45 43 ┆: CHR$(2^bit); 0190 EXEC┆
0xa460…a480 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 30 20 20 20 4e 45 ┆ pause(lysperiode) 0200 NE┆
0xa480…a4a0 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 4c 45 20 31 3a 20 ┆XT bit 0210 PRINT FILE 1: ┆
0xa4a0…a4c0 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 61 75 73 65 28 6c ┆CHR$(0); 0220 EXEC pause(l┆
0xa4c0…a4e0 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 43 20 6c 7c 62 65 ┆ysperiode) 0230 ENDPROC løbe┆
0xa4e0…a500 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 2d 2d 2d 2d 2d 2d ┆lys -------------------------┆
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 0d 0a 0d ┆----------------------------- ┆
0xa520…a540 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 4d 52 55 4d 2d 20 ┆ Hvis der trykkes på MELLEMRUM- ┆
0xa540…a560 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 20 70 72 6f 63 65 ┆eller S-tasten så udføres proce┆
0xa560…a580 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 20 73 6c 75 6b 6b ┆duren stands , hvor lyset slukk┆
0xa580…a5a0 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 6b 6b 65 73 3a 0d ┆es og datastrømmen lukkes: ┆
0xa5a0…a5c0 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 30 20 20 20 50 52 ┆ 0320 PROC stands 0330 PR┆
0xa5c0…a5e0 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 30 20 20 20 43 4c ┆INT FILE 1: CHR$(0); 0340 CL┆
0xa5e0…a600 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 73 74 61 6e 64 73 ┆OSE FILE 1 0350 ENDPROC stands┆
0xa600…a620 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 ┆ ----------------------------┆
0xa620…a63c 2d 2d 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 ┆-------------------------- ┆
0xa63c…a63f FormFeed {
0xa63c…a63f 0c 82 a8 ┆ ┆
0xa63c…a63f }
0xa63f…a640 0a ┆ ┆
0xa640…a660 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 0a 0d 0a 22 74 7b ┆ PROBLEM "TÆLLE": "tæ┆
0xa660…a680 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 20 64 65 72 20 74 ┆lle-a" er et lille program der t┆
0xa680…a6a0 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 75 72 6c 69 67 76 ┆æller binært. Der kan naturligv┆
0xa6a0…a6c0 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 35 2c 20 64 61 20 ┆is kun tælles fra 0 til 255, da ┆
0xa6c0…a6e0 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 7d 20 6c 79 73 70 ┆der kun er 8 bit/lamper på lysp┆
0xa6e0…a700 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 2d 61 22 0d 0a b0 ┆anelet: 0010 // "tælle-a" ┆
0xa700…a720 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 49 ┆0020 OPEN FILE 1,"/17/PORT", WRI┆
0xa720…a740 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 35 35 20 44 4f 0d ┆TE 0040 FOR tal:=0 TO 255 DO ┆
0xa740…a760 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 24 28 74 61 6c 29 ┆ 0050 PRINT FILE 1: CHR$(tal)┆
0xa760…a780 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 0d 0a b0 30 30 37 ┆; 0060 EXEC pause(1/3) 007┆
0xa780…a7a0 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 4c 45 20 31 3a 20 ┆0 NEXT tal 0080 PRINT FILE 1: ┆
0xa7a0…a7c0 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 20 31 0d 0a b0 30 ┆CHR$(0); 0090 CLOSE FILE 1 0┆
0xa7c0…a7e0 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 2d 2d 2d 2d 2d 2d ┆100 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 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 65 68 61 73 74 69 ┆-- I "tælle-b" kan tællehasti┆
0xa820…a840 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 67 65 72 65 6e 20 ┆gheden varieres, idet brugeren ┆
0xa840…a860 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 69 64 20 68 76 65 ┆selv bestemmer hvor lang tid hve┆
0xa860…a880 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 30 30 31 30 20 2f ┆rt pause skal være. 0010 /┆
0xa880…a8a0 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 45 20 31 2c 22 2f ┆/ "tælle-b" 0020 OPEN FILE 1,"/┆
0xa8a0…a8c0 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 50 55 54 20 22 50 ┆17/PORT", WRITE 0030 INPUT "P┆
0xa8c0…a8e0 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 74 61 6c 3a 3d 30 ┆AUSETID: ": tid 0040 FOR tal:=0┆
0xa8e0…a900 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 49 4c 45 20 31 3a ┆ TO 255 DO 0050 PRINT FILE 1:┆
0xa900…a920 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 61 75 73 65 28 b0 ┆ CHR$(tal); 0060 EXEC pause( ┆
0xa920…a940 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 20 50 52 49 4e 54 ┆tid ) 0070 NEXT tal 0080 PRINT┆
0xa940…a960 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 4f 53 45 20 46 49 ┆ FILE 1: CHR$(0); 0090 CLOSE FI┆
0xa960…a980 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 2d 2d 2d 2d 2d 2d ┆LE 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…a9ab 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------- ┆
0xa9ab…a9ae FormFeed {
0xa9ab…a9ae 0c 82 b8 ┆ ┆
0xa9ab…a9ae }
0xa9ae…a9c0 0a 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 20 22 ┆ PROBLEM "┆
0xa9c0…a9e0 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 61 6d 20 66 7d 72 ┆BLINK-0/7": Dette program får┆
0xa9e0…aa00 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 6c 20 61 74 20 62 ┆ BIT-0 og BIT-7 pærerne til at b┆
0xaa00…aa20 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 6e 20 65 72 20 64 ┆linke på skift. Strukturen er d┆
0xaa20…aa40 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 20 0a 62 6c 69 6e ┆en sammen som i et simpelt blin┆
0xaa40…aa60 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 6e 6b 2d 37 2f 30 ┆k-program 0010 // "blink-7/0┆
0xaa60…aa80 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 22 2c ┆" 0020 OPEN FILE 1,"/17/PORT",┆
0xaa80…aaa0 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 30 20 20 20 ┆ WRITE 0030 REPEAT 0040 ┆
0xaaa0…aac0 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 30 35 30 20 20 20 ┆PRINT FILE 1: CHR$(1); 0050 ┆
0xaac0…aae0 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 52 49 4e 54 20 46 ┆EXEC pause(0.5) 0060 PRINT F┆
0xaae0…ab00 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 20 45 58 45 43 20 ┆ILE 1: CHR$(128); 0070 EXEC ┆
0xab00…ab20 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 44 28 4b 45 59 24 ┆pause(0.5) 0080 UNTIL ORD(KEY$┆
0xab20…ab40 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 43 48 52 24 28 30 ┆)=32 0090 PRINT FILE 1: CHR$(0┆
0xab40…ab60 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 31 31 30 20 45 4e ┆); 0100 CLOSE FILE 1 0110 EN┆
0xab60…ab80 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 6e 20 42 49 54 2d ┆D 0040 : Her lyser kun BIT-┆
0xab80…aba0 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 73 65 72 20 6b 75 ┆0 pæren. 0060 : Her lyser ku┆
0xaba0…abc0 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 2d 2d 2d 2d 2d 2d ┆n 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 0d 0a 0d 0a 0d 0a b0 50 52 4f 42 4c 45 4d 20 22 42 4c 49 4e 4b 2d 41 2f 42 ┆------- PROBLEM "BLINK-A/B┆
0xac00…ac20 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 66 7c 72 73 74 65 ┆": Her kommer så det første┆
0xac20…ac40 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 0a 65 6b 73 74 72 ┆ program der styrer de to ekstr┆
0xac40…ac60 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 70 61 70 61 6c 6c ┆a bit. Port 17, som er en papall┆
0xac60…ac80 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 69 74 2c 20 6f 67 ┆elport, består kun af 8 bit, og┆
0xac80…aca0 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 64 65 6e 20 74 69 ┆ vi kan derfor ikke bruge den ti┆
0xaca0…acc0 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 61 6c 20 b0 50 4f ┆l de to ekstra bit. Nu skal PO┆
0xacc0…ace0 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 6b 65 20 76 69 73 ┆RT 10 bruges. Det er ganske vis┆
0xace0…ad00 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 65 73 6f 6d 20 64 ┆t en seriel port, ligesom d┆
0xad00…ad20 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 2c 20 0a 19 80 81 ┆en printeren er tilsluttet, ┆
0xad20…ad40 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 73 20 64 65 72 20 ┆ men den indeholder to bits der ┆
0xad40…ad60 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 6e 74 72 6f 6c 2d ┆normalt bruges til kontrol-┆
0xad60…ad80 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 73 20 6c 69 67 65 ┆formål. De kan programmeres lige┆
0xad80…ada0 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 37 2e 20 44 65 74 ┆som de 8 bit i port 17. Det┆
0xada0…adc0 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 65 6e 64 65 72 20 ┆ forudsætter blot, at vi sender ┆
0xadc0…ade0 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 6f 67 20 b0 35 f0 ┆de decimale tal 24 og 5 ┆
0xade0…ae00 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 64 65 6c 62 61 72 ┆ i nævnte rækkefølge umiddelbar┆
0xae00…ae20 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 74 74 65 72 20 42 ┆t før det tal der sætter B┆
0xae20…ae40 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 b0 32 34 f0 20 6f ┆IT-A og/eller BIT-B høje. 24 o┆
0xae40…ae60 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 65 72 20 70 72 6f ┆g 5 er karakterer der pro┆
0xae60…ae80 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 38 2f 31 33 30 f0 ┆grammerer port 10, 0/2/128/130 ┆
0xae80…aea0 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 74 65 72 65 73 20 ┆ er data der transmitteres ┆
0xaea0…aec0 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 72 20 64 69 73 73 ┆ ud af port 10! Der er diss┆
0xaec0…aee0 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 6d 65 72 69 6e 67 ┆e 4 muligheder for programmering┆
0xaee0…af00 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 44 45 43 49 4d 41 ┆ af BIT-A og BIT-B: DECIMA┆
0xaf00…af20 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 2d 42 3a 0d 0a 2d ┆L TAL: BIT-A: BIT-B: -┆
0xaf20…af40 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 20 20 2d 2d 2d 2d ┆----------- ------ ----┆
0xaf40…af60 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 20 4c 41 56 20 20 ┆-- 0 LAV ┆
0xaf60…af80 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 20 20 20 20 20 48 ┆ LAV 2 H┆
0xaf80…afa0 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 20 20 20 20 20 20 ┆ØJ LAV 128 ┆
0xafa0…afc0 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 33 30 20 20 20 20 ┆ LAV HØJ 2+128=130 ┆
0xafc0…afe0 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 2d 2d 2d 2d 2d 2d ┆ HØJ HØJ --------┆
0xafe0…affe 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 2d 2d 0d 0a ┆---- ------ ------ ┆
0xaffe…b001 FormFeed {
0xaffe…b001 0c 83 48 ┆ H┆
0xaffe…b001 }
0xb001…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 54 2d 41 20 6f 67 ┆ "blink-A/B" får BIT-A og┆
0xb020…b040 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 6b 65 20 70 7d 20 ┆ BIT-B pærerne til at blinke på ┆
0xb040…b060 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 41 2f 42 22 0d 0a ┆ skift: 0010 // "blink-A/B" ┆
0xb060…b080 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 52 54 22 2c 20 57 ┆0020 OPEN FILE 1,"/ 10 /PORT", W┆
0xb080…b0a0 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 20 20 50 52 49 4e ┆RITE 0030 REPEAT 0040 PRIN┆
0xb0a0…b0c0 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 29 3b 43 48 52 24 ┆T FILE 1: CHR$(24);CHR$(5);CHR$┆
0xb0c0…b0e0 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 2e 35 29 0d 0a 30 ┆(2); 0050 EXEC pause(0.5) 0┆
0xb0e0…b100 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 32 34 29 3b 43 48 ┆060 PRINT FILE 1: CHR$(24);CH┆
0xb100…b120 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 45 58 45 43 20 70 ┆R$(5);CHR$(128); 0070 EXEC p┆
0xb120…b140 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 4b 45 59 24 29 3d ┆ause(0.5) 0080 UNTIL ORD(KEY$)=┆
0xb140…b160 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 52 24 28 32 34 29 ┆32 0090 PRINT FILE 1: CHR$(24)┆
0xb160…b180 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 4c 4f 53 45 20 46 ┆;CHR$(5);CHR$(0) ; 0100 CLOSE F┆
0xb180…b1a0 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 3a 20 48 65 72 20 ┆ILE 1 0110 END 0020 : Her ┆
0xb1a0…b1c0 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 69 6e 67 20 28 57 ┆åbnes port 10 for skrivning (W┆
0xb1c0…b1e0 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 65 73 20 b0 32 34 ┆RITE). 0040 : Her bruges 24┆
0xb1e0…b200 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 20 70 6f 72 74 20 ┆ og 5 til at "fortælle" port ┆
0xb200…b220 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 6f 67 72 61 6d 6d ┆10 at vi gerne vil programm┆
0xb220…b240 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 65 66 74 65 72 20 ┆ere BIT-A og BIT-B, og derefter ┆
0xb240…b260 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 20 64 65 72 20 73 ┆ sender vi tallet 2 , der s┆
0xb260…b280 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 0a 19 80 84 80 70 ┆ætter BIT-A høj, så BIT-A p┆
0xb280…b2a0 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 20 70 7b 72 65 6e ┆æren lyser, og kun BIT-A pæren┆
0xb2a0…b2c0 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 20 6f 67 20 35 20 ┆. 0060 : Her sendes 24 og 5 ┆
0xb2c0…b2e0 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 19 80 81 80 64 65 ┆ligesom i linie 0040, og de┆
0xb2e0…b300 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 74 65 72 20 42 49 ┆refter sendes 128, der sætter BI┆
0xb300…b320 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 6a 2e 0d 0a 0d 0a ┆T-B, og kun BIT-B, høj. ┆
0xb320…b340 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 2c 20 73 61 6d 74 ┆ 0090 : Her sendes 24 og 5, samt┆
0xb340…b360 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 81 80 42 49 54 2d ┆ 0. Nullet sætter både BIT-┆
0xb360…b380 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 61 66 20 64 69 73 ┆A og BIT-B lave, så ingen af dis┆
0xb380…b3a0 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 65 6e 65 73 74 65 ┆se to pærer lyser. Den eneste┆
0xb3a0…b3c0 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 20 64 65 20 38 20 ┆ forskel på at programmere de 8 ┆
0xb3c0…b3e0 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 62 69 74 20 66 72 ┆bit fra port 17, og de 2 bit fr┆
0xb3e0…b400 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 74 20 31 37 20 6b ┆a port 10, er altså at port 17 k┆
0xb400…b420 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 65 64 20 64 65 74 ┆an programmeres direkte med det┆
0xb420…b440 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 65 20 0a 65 6e 6b ┆ decimale tal der sætter de enk┆
0xb440…b460 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 69 6d 61 6c 65 20 ┆elte bits, hvorimod de decimale ┆
0xb460…b480 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 6f 72 75 64 20 66 ┆tal 24 og 5 skal sendes forud f┆
0xb480…b4a0 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 66 20 73 74 61 74 ┆or hver eneste ændring af stat┆
0xb4a0…b4c0 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 6c 64 65 72 20 66 ┆us på de to bit vi kalder f┆
0xb4c0…b4e0 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 2d 2d 2d 2d 2d 2d ┆or 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 0d 0a 0d 0a 0d 0a b0 22 74 7b 6e 64 31 30 22 f0 20 6f 67 20 ┆------------ "tænd10" og ┆
0xb520…b540 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 6d 6d 65 72 20 64 ┆ sluk10" er to små programmer d┆
0xb540…b560 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 6b 6b 65 72 20 42 ┆er hhv. tænder og slukker B┆
0xb560…b580 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 72 65 72 20 b0 69 ┆IT-A og BIT-B. De refererer i┆
0xb580…b5a0 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 20 6d 65 6e 20 65 ┆kke til elevteksten, men e┆
0xb5a0…b5c0 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 6e 2e 20 53 7d 20 ┆r rare at have på disketten. Så ┆
0xb5c0…b5e0 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 6f 6d 61 6e 64 6f ┆kan man blot skrive komando┆
0xb5e0…b600 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 72 75 6e 20 0a 19 ┆en run "tænd10" eller "run ┆
0xb600…b620 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 65 72 20 61 74 20 ┆ "sluk10" hvis man ønsker at ┆
0xb620…b640 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 19 80 86 80 6c 61 ┆tænde eller slukke de to la┆
0xb640…b660 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 0a 30 30 32 30 20 ┆mper. 0010 // "tænd10" 0020 ┆
0xb660…b680 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 49 54 45 20 0d 0a ┆OPEN FILE 1,"/10/PORT", WRITE ┆
0xb680…b6a0 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 29 3b 43 48 52 24 ┆0030 PRINT FILE 1: CHR$(24);CHR$┆
0xb6a0…b6c0 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 53 45 20 46 49 4c ┆(5);CHR$( 130 ); 0040 CLOSE FIL┆
0xb6c0…b6e0 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 2f 20 22 73 6c 75 ┆E 1 0050 END 0010 // "slu┆
0xb6e0…b700 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 30 2f 50 4f 52 54 ┆k10" 0020 OPEN FILE 1,"/10/PORT┆
0xb700…b720 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 20 31 3a 20 43 48 ┆", WRITE 0030 PRINT FILE 1: CH┆
0xb720…b740 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 0a 30 30 34 30 20 ┆R$(24);CHR$(5);CHR$( 0 ); 0040 ┆
0xb740…b760 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 2d 2d 2d 2d 2d ┆CLOSE FILE 1 0050 END -----┆
0xb760…b780 2d 2d 2d 2d 2d 2d 2d 2d 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…b793 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆----------------- ┆
0xb793…b796 FormFeed {
0xb793…b796 0c 83 78 ┆ x┆
0xb793…b796 }
0xb796…b7a0 0a 0d 0a 0d 0a 0d 0a b0 50 52 ┆ PR┆
0xb7a0…b7c0 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 61 6c 20 6c 79 73 ┆OBLEM "TRAFIK": Nu skal lys┆
0xb7c0…b7e0 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 65 73 2c 20 6f 67 ┆kurvene på lyspanelet bruges, og┆
0xb7e0…b800 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 73 74 7d 20 70 7d ┆ omskifteren skal derfor stå på┆
0xb800…b820 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 22 20 6f 67 20 22 ┆ "TRAFIK". I "trafik-a1" og "┆
0xb820…b840 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 2d 6c 79 73 65 6e ┆trafik-a2" er det kun to-lysen┆
0xb840…b860 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 65 73 2e 20 44 65 ┆e der skal programmeres. De┆
0xb860…b880 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 20 6f 67 20 70 6f ┆t vil sige at både port 17 og po┆
0xb880…b8a0 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 65 74 20 73 61 6d ┆rt 10 skal bruges i det sam┆
0xb8a0…b8c0 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 72 20 0a 19 80 81 ┆me program. Derfor skal der ┆
0xb8c0…b8e0 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 6e 20 65 6e 65 73 ┆ åbnes til begge porte. Den enes┆
0xb8e0…b900 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 20 6f 67 20 22 74 ┆te forskel på "trafik-a1" og "t┆
0xb900…b920 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 6b 75 72 76 20 6e ┆rafik-a2" er at det er lyskurv n┆
0xb920…b940 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 75 67 65 73 20 69 ┆r. 1 på lyspanelet der bruges i┆
0xb940…b960 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 72 76 20 6e 72 2e ┆ det ene program, og lyskurv nr.┆
0xb960…b980 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 3a 0d 0a 0d 0a 0d ┆ 2 der bruges i det andet: ┆
0xb980…b9a0 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 32 30 20 4f 50 45 ┆ 0010 // "trafik-a1" 0020 OPE┆
0xb9a0…b9c0 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 30 ┆N FILE 1,"/17/PORT", WRITE 00┆
0xb9c0…b9e0 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 54 45 ┆30 OPEN FILE 2,"/10/PORT", WRITE┆
0xb9e0…ba00 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 54 20 ┆ 0040 REPEAT 0050 PRINT ┆
0xba00…ba20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 36 29 3b 20 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 ┆FILE 1: CHR$(16); 0060 PRI┆
0xba20…ba40 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 48 52 24 ┆NT FILE 2: CHR$(24);CHR$(5);CHR$┆
0xba40…ba60 28 30 29 3b 20 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 ┆(0); 0070 EXEC pause(6) ┆
0xba60…ba80 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 29 3b 20 20 0d ┆0080 PRINT FILE 1: CHR$(0); ┆
0xba80…baa0 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 52 24 28 32 34 29 3b ┆ 0090 PRINT FILE 2: CHR$(24);┆
0xbaa0…bac0 43 48 52 24 28 35 29 3b 43 48 52 24 28 31 32 38 29 3b 20 20 0d 0a b0 30 31 30 30 20 20 20 45 58 ┆CHR$(5);CHR$(128); 0100 EX┆
0xbac0…bae0 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 4f 52 44 28 4b 45 59 ┆EC pause(4) 0110 UNTIL ORD(KEY┆
0xbae0…bb00 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 30 20 45 4e 44 20 0d ┆$)=32 0120 CLOSE 0130 END ┆
0xbb00…bb20 0a 0d 0a 0d 0a b0 30 30 32 30 f0 3a 20 44 61 74 61 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 31 20 ┆ 0020 : Datastrøm nummer 1 ┆
0xbb20…bb40 74 69 6c 20 70 6f 72 74 20 31 37 20 7d 62 6e 65 73 2e 0d 0a b0 30 30 33 30 f0 3a 20 44 61 74 61 ┆til port 17 åbnes. 0030 : Data┆
0xbb40…bb60 73 74 72 7c 6d 20 6e 75 6d 6d 65 72 20 32 20 74 69 6c 20 70 6f 72 74 20 31 30 20 7d 62 6e 65 73 ┆strøm nummer 2 til port 10 åbnes┆
0xbb60…bb80 2e 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 31 29 2c 20 6f 67 20 66 7d 20 ┆. 0050 : TÆND RØD(1), og få ┆
0xbb80…bba0 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 0d 0a b0 30 ┆brøkdele af et sekund efter: 0┆
0xbba0…bbc0 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 31 29 0d 0a 0d 0a b0 30 30 37 30 f0 3a 20 50 61 ┆060 : SLUK GRØN(1) 0070 : Pa┆
0xbbc0…bbe0 75 73 65 20 70 7d 20 36 20 73 65 6b 75 6e 64 65 72 2e 20 44 65 72 20 65 72 20 61 6c 74 73 7d 20 ┆use på 6 sekunder. Der er altså ┆
0xbbe0…bc00 52 5c 44 54 20 69 20 36 20 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 30 38 30 ┆RØDT i 6 sekunder. 0080┆
0xbc00…bc20 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 31 29 2c 20 6f 67 20 66 7d 20 62 72 7c 6b 64 65 6c 65 20 61 ┆ : SLUK RØD(1), og få brøkdele a┆
0xbc20…bc40 66 20 65 74 20 73 65 6b 75 6e 64 20 65 66 74 65 72 3a 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e 44 ┆f et sekund efter: 0090 : TÆND┆
0xbc40…bc60 20 47 52 5c 4e 28 31 29 0d 0a 0d 0a b0 30 31 30 30 f0 3a 20 50 61 75 73 65 20 70 7d 20 34 20 73 ┆ GRØN(1) 0100 : Pause på 4 s┆
0xbc60…bc80 65 6b 75 6e 64 65 72 2e 20 44 65 72 20 65 72 20 61 6c 74 73 7d 20 47 52 5c 4e 54 20 69 20 34 20 ┆ekunder. Der er altså GRØNT i 4 ┆
0xbc80…bca0 0a 19 80 81 80 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a b0 30 31 32 30 f0 3a 20 44 61 74 61 73 74 ┆ sekunder. 0120 : Datast┆
0xbca0…bcc0 72 7c 6d 6d 65 6e 65 20 6c 75 6b 6b 65 73 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆rømmene lukkes. -------------┆
0xbcc0…bce0 2d 2d 2d 2d 2d 2d 2d 2d 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…bceb 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------- ┆
0xbceb…bcee FormFeed {
0xbceb…bcee 0c 83 18 ┆ ┆
0xbceb…bcee }
0xbcee…bd00 0a 0d 0a 0d 0a 0d 0a b0 30 30 31 30 20 2f 2f 20 22 74 ┆ 0010 // "t┆
0xbd00…bd20 72 61 66 69 6b 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 2f 31 ┆rafik-a2" 0020 OPEN FILE 1,"/1┆
0xbd20…bd40 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 33 30 20 4f 50 45 4e 20 46 49 4c 45 ┆7/PORT", WRITE 0030 OPEN FILE┆
0xbd40…bd60 20 32 2c 22 2f 31 30 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 20 0d 0a b0 30 30 34 30 20 52 45 50 ┆ 2,"/10/PORT", WRITE 0040 REP┆
0xbd60…bd80 45 41 54 20 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 24 ┆EAT 0050 PRINT FILE 1: CHR$┆
0xbd80…bda0 28 38 29 3b 20 20 0d 0a b0 30 30 36 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 32 3a 20 43 48 ┆(8); 0060 PRINT FILE 2: CH┆
0xbda0…bdc0 52 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 30 29 3b 20 20 0d 0a b0 30 30 37 30 ┆R$(24);CHR$(5);CHR$(0); 0070┆
0xbdc0…bde0 20 20 20 45 58 45 43 20 70 61 75 73 65 28 36 29 0d 0a b0 30 30 38 30 20 20 20 50 52 49 4e 54 20 ┆ EXEC pause(6) 0080 PRINT ┆
0xbde0…be00 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 20 20 0d 0a b0 30 30 39 30 20 20 20 50 52 49 4e ┆FILE 1: CHR$(0); 0090 PRIN┆
0xbe00…be20 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 48 52 24 28 ┆T FILE 2: CHR$(24);CHR$(5);CHR$(┆
0xbe20…be40 32 29 3b 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 ┆2); 0100 EXEC pause(4) 01┆
0xbe40…be60 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 31 32 30 20 43 4c 4f ┆10 UNTIL ORD(KEY$)=32 0120 CLO┆
0xbe60…be80 53 45 20 0d 0a b0 30 31 33 30 20 45 4e 44 20 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 ┆SE 0130 END 0050 : TÆND ┆
0xbe80…bea0 52 5c 44 28 34 29 0d 0a b0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a ┆RØD(4) 0060 : SLUK GRØN(4) ┆
0xbea0…bec0 b0 30 30 38 30 f0 3a 20 53 4c 55 4b 20 52 5c 44 28 34 29 0d 0a b0 30 30 39 30 f0 3a 20 54 5b 4e ┆ 0080 : SLUK RØD(4) 0090 : TÆN┆
0xbec0…bee0 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D GRØN(4) -------------------┆
0xbee0…bf00 2d 2d 2d 2d 2d 2d 2d 2d 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 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 62 22 20 73 74 79 72 65 72 20 64 65 20 74 6f ┆--- "trafik-b" styrer de to┆
0xbf20…bf40 20 32 2d 6c 79 73 2c 20 6f 67 20 65 72 20 73 7d 6c 65 64 65 73 20 65 6e 20 0a 6b 6f 6d 62 69 6e ┆ 2-lys, og er således en kombin┆
0xbf40…bf60 61 74 69 6f 6e 20 61 66 20 64 65 20 74 6f 20 66 6f 72 65 67 7d 65 6e 64 65 20 70 72 6f 67 72 61 ┆ation af de to foregående progra┆
0xbf60…bf80 6d 6d 65 72 3a 0d 0a 0d 0a 0d 0a b0 30 30 34 30 20 52 45 50 45 41 54 20 0d 0a b0 30 30 35 30 20 ┆mmer: 0040 REPEAT 0050 ┆
0xbf80…bfa0 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 0d 0a b0 30 30 36 30 ┆ PRINT FILE 1: CHR$(8); 0060┆
0xbfa0…bfc0 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 28 35 ┆ PRINT FILE 2: CHR$(24);CHR$(5┆
0xbfc0…bfe0 29 3b 43 48 52 24 28 31 32 38 29 3b 20 0d 0a b0 30 30 37 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆);CHR$(128); 0070 EXEC paus┆
0xbfe0…c000 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 48 52 24 ┆e(6) 0080 PRINT FILE 1: CHR$┆
0xc000…c020 28 31 36 29 3b 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 52 ┆(16); 0090 PRINT FILE 2: CHR┆
0xc020…c040 24 28 32 34 29 3b 43 48 52 24 28 35 29 3b 43 48 52 24 28 32 29 3b 20 0d 0a b0 30 31 30 30 20 20 ┆$(24);CHR$(5);CHR$(2); 0100 ┆
0xc040…c060 20 45 58 45 43 20 70 61 75 73 65 28 34 29 0d 0a b0 30 31 32 30 20 55 4e 54 49 4c 20 4f 52 44 28 ┆ EXEC pause(4) 0120 UNTIL ORD(┆
0xc060…c080 4b 45 59 24 29 3d 33 32 0d 0a 0d 0a b0 30 30 35 30 f0 3a 20 54 5b 4e 44 20 52 5c 44 28 31 29 20 ┆KEY$)=32 0050 : TÆND RØD(1) ┆
0xc080…c0a0 20 2b 20 53 4c 55 4b 20 52 5c 44 28 34 29 20 0d 0a b0 30 30 36 30 f0 3a 20 53 4c 55 4b 20 47 52 ┆ + SLUK RØD(4) 0060 : SLUK GR┆
0xc0a0…c0c0 5c 4e 28 31 29 20 2b 20 54 5b 4e 44 20 47 52 5c 4e 28 34 29 0d 0a 0d 0a b0 30 30 38 30 f0 3a 20 ┆ØN(1) + TÆND GRØN(4) 0080 : ┆
0xc0c0…c0e0 53 4c 55 4b 20 52 5c 44 28 31 29 20 20 2b 20 54 5b 4e 44 20 52 5c 44 28 34 29 0d 0a b0 30 30 39 ┆SLUK RØD(1) + TÆND RØD(4) 009┆
0xc0e0…c100 30 f0 3a 20 54 5b 4e 44 20 47 52 5c 4e 28 31 29 20 2b 20 53 4c 55 4b 20 47 52 5c 4e 28 34 29 0d ┆0 : TÆND GRØN(1) + SLUK GRØN(4) ┆
0xc100…c120 0a 0d 0a 44 65 6e 20 22 67 72 7c 6e 6e 65 20 62 7c 6c 67 65 22 20 70 7d 20 6c 79 73 6b 75 72 76 ┆ Den "grønne bølge" på lyskurv┆
0xc120…c140 20 6e 72 2e 20 31 20 65 72 20 70 7d 20 34 20 73 65 6b 75 6e 64 65 72 2e 20 0a 44 65 6e 20 22 67 ┆ nr. 1 er på 4 sekunder. Den "g┆
0xc140…c160 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 32 20 65 72 ┆rønne bølge" på lyskurv nr. 2 er┆
0xc160…c180 20 70 7d 20 36 20 73 65 6b 75 6e 64 65 72 2e 0d 0a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ på 6 sekunder. -------------┆
0xc180…c1a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xc1a0…c1ab 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆--------- ┆
0xc1ab…c1ae FormFeed {
0xc1ab…c1ae 0c 83 08 ┆ ┆
0xc1ab…c1ae }
0xc1ae…c1c0 0a 0d 0a 0d 0a 0d 0a 22 74 72 61 66 69 6b 2d 63 31 22 ┆ "trafik-c1"┆
0xc1c0…c1e0 20 6f 67 20 22 74 72 61 66 69 6b 2d 63 32 22 20 73 74 79 72 65 72 20 68 68 76 2e 20 6c 79 73 6b ┆ og "trafik-c2" styrer hhv. lysk┆
0xc1e0…c200 75 72 76 20 6e 72 2e 20 32 20 6f 67 20 0a 6c 79 73 6b 75 72 76 20 6e 72 2e 33 2c 20 61 6c 74 73 ┆urv nr. 2 og lyskurv nr.3, alts┆
0xc200…c220 7d 20 b0 65 74 f0 20 33 2d 6c 79 73 3a 0d 0a 0d 0a 0d 0a b0 22 74 72 61 66 69 6b 2d 63 31 22 3a ┆å et 3-lys: "trafik-c1":┆
0xc220…c240 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 20 ┆ 0030 REPEAT 0040 PRINT ┆
0xc240…c260 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 38 29 3b 20 20 20 20 20 52 5c 44 28 32 29 0d 0a 30 ┆FILE 1: CHR$(128); RØD(2) 0┆
0xc260…c280 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┆
0xc280…c2a0 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 39 32 29 3b 20 20 20 20 20 52 5c 44 28 32 29 ┆NT FILE 1: CHR$(192); RØD(2)┆
0xc2a0…c2c0 20 2b 20 47 55 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 ┆ + GUL(2) 0070 EXEC pause(2) ┆
0xc2c0…c2e0 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 33 32 29 3b ┆ 0080 PRINT FILE 1: CHR$(32);┆
0xc2e0…c300 20 20 20 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 ┆ GRØN(2) 0090 EXEC pause┆
0xc300…c320 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 43 48 52 24 28 ┆(4) 0100 PRINT FILE 1: CHR$(┆
0xc320…c340 36 34 29 3b 20 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 ┆64); GUL(2) 0110 EXEC pa┆
0xc340…c360 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 29 3d 33 32 0d ┆use(1) 0120 UNTIL ORD(KEY$)=32 ┆
0xc360…c380 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 ┆ -----------------------------┆
0xc380…c3a0 2d 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 ┆------------------------- ┆
0xc3a0…c3c0 22 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 ┆"trafik-c2": 0010 // "trafik-┆
0xc3c0…c3e0 63 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 ┆c2" 0020 OPEN FILE 1,"/17/PORT"┆
0xc3e0…c400 2c 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 ┆, WRITE 0030 REPEAT 0040 ┆
0xc400…c420 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 29 3b 20 20 20 20 20 52 5c 44 28 33 ┆PRINT FILE 1: CHR$(1); RØD(3┆
0xc420…c440 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 20 ┆) 0050 EXEC pause(6) 0060 ┆
0xc440…c460 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 33 29 3b 20 20 20 20 20 52 5c 44 28 ┆ PRINT FILE 1: CHR$(3); RØD(┆
0xc460…c480 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 65 28 32 ┆3) + GUL(3) 0070 EXEC pause(2┆
0xc480…c4a0 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 34 29 ┆) 0080 PRINT FILE 1: CHR$(4)┆
0xc4a0…c4c0 3b 20 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 70 61 75 73 65 ┆; GRØN(3) 0090 EXEC pause┆
0xc4c0…c4e0 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 43 48 52 24 28 ┆(4) 0100 PRINT FILE 1: CHR$(┆
0xc4e0…c500 32 29 3b 20 20 20 20 20 47 55 4c 28 33 29 0d 0a 30 31 31 30 20 20 20 45 58 45 43 20 70 61 75 73 ┆2); GUL(3) 0110 EXEC paus┆
0xc500…c520 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 0d ┆e(1) 0120 UNTIL ORD(KEY$)=32 ┆
0xc520…c540 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 ┆ -------------------------------┆
0xc540…c560 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 22 74 72 ┆----------------------- "tr┆
0xc560…c580 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 20 61 66 20 64 65 20 ┆afik-d" er en kombination af de ┆
0xc580…c5a0 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 2e 20 48 65 72 20 73 ┆to foregående programmer. Her s┆
0xc5a0…c5c0 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 0a 0d 0a 0d 0a 30 30 ┆tyres altså begge 3-lys: 00┆
0xc5c0…c5e0 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 31 ┆30 REPEAT 0040 PRINT FILE 1┆
0xc5e0…c600 3a 20 43 48 52 24 28 33 33 29 3b 20 20 20 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 ┆: CHR$(33); RØD(3)+GRØN(2) 00┆
0xc600…c620 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 4e ┆50 EXEC pause(6) 0060 PRIN┆
0xc620…c640 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 36 37 29 3b 20 20 20 52 5c 44 28 33 29 2b 47 55 4c ┆T FILE 1: CHR$(67); RØD(3)+GUL┆
0xc640…c660 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 58 45 43 20 70 61 75 ┆(3)+GRØN(2) 0070 EXEC pau┆
0xc660…c680 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 20 31 3a 20 43 48 52 ┆se(2) 0080 PRINT FILE 1: CHR┆
0xc680…c6a0 24 28 31 33 32 29 3b 20 20 47 52 5c 4e 28 33 29 2b 52 5c 44 28 32 29 0d 0a 30 30 39 30 20 20 20 ┆$(132); GRØN(3)+RØD(2) 0090 ┆
0xc6a0…c6c0 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 49 4e 54 20 46 49 4c ┆EXEC pause(4) 0100 PRINT FIL┆
0xc6c0…c6e0 45 20 31 3a 20 43 48 52 24 28 31 39 34 29 3b 20 20 47 55 4c 28 33 29 2b 52 5c 44 28 32 29 2b 47 ┆E 1: CHR$(194); GUL(3)+RØD(2)+G┆
0xc6e0…c700 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 31 29 0d 0a 30 31 32 ┆UL(2) 0110 EXEC pause(1) 012┆
0xc700…c720 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 2d 2d 2d ┆0 UNTIL ORD(KEY$)=32 --------┆
0xc720…c740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xc740…c750 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆-------------- ┆
0xc750…c753 FormFeed {
0xc750…c753 0c 83 48 ┆ H┆
0xc750…c753 }
0xc753…c760 0a 0d 0a 0d 0a 0d 0a 49 20 22 74 72 61 ┆ I "tra┆
0xc760…c780 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 33 2d 6c 79 73 20 64 ┆fik-e" er det igen de to 3-lys d┆
0xc780…c7a0 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 73 65 6e 20 62 6c 6f ┆er styres. Her er sekvensen blo┆
0xc7a0…c7c0 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 20 62 65 67 67 65 20 ┆t lavet så der er rødt i begge ┆
0xc7c0…c7e0 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 31 20 73 65 6b 75 6e ┆trafik retninger i 1 sekun┆
0xc7e0…c800 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 30 33 30 20 52 45 50 ┆d mellem skiftene: 0030 REP┆
0xc800…c820 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 48 52 24 ┆EAT 0040 PRINT FILE 1: CHR$┆
0xc820…c840 28 33 33 29 3b 20 20 20 52 5c 44 28 33 29 2b 47 52 5c 4e 28 32 29 0d 0a 30 30 35 30 20 20 20 45 ┆(33); RØD(3)+GRØN(2) 0050 E┆
0xc840…c860 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┆
0xc860…c880 20 31 3a 20 43 48 52 24 28 36 35 29 3b 20 20 20 52 5c 44 28 33 29 2b 47 55 4c 28 32 29 0d 0a 30 ┆ 1: CHR$(65); RØD(3)+GUL(2) 0┆
0xc880…c8a0 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 30 20 20 20 50 52 49 ┆070 EXEC pause(3) 0080 PRI┆
0xc8a0…c8c0 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 32 39 29 3b 20 20 52 5c 44 28 33 29 2b 52 5c ┆NT FILE 1: CHR$(129); RØD(3)+RØ┆
0xc8c0…c8e0 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 29 0d 0a b0 30 31 30 ┆D(2) 0090 EXEC pause(2) 010┆
0xc8e0…c900 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 31 29 3b 20 20 52 5c ┆0 PRINT FILE 1: CHR$(131); RØ┆
0xc900…c920 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 31 31 30 20 20 20 45 ┆D(3)+GUL(3)+RØD(2) 0110 E┆
0xc920…c940 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 4e 54 20 46 49 4c 45 ┆XEC pause(1) 0120 PRINT FILE┆
0xc940…c960 20 31 3a 20 43 48 52 24 28 31 33 32 29 3b 20 20 52 5c 44 28 32 29 2b 47 52 5c 4e 28 33 29 0d 0a ┆ 1: CHR$(132); RØD(2)+GRØN(3) ┆
0xc960…c980 30 31 33 30 20 20 20 45 58 45 43 20 70 61 75 73 65 28 31 30 29 0d 0a b0 30 31 34 30 20 20 20 50 ┆0130 EXEC pause(10) 0140 P┆
0xc980…c9a0 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 31 33 30 29 3a 20 20 52 5c 44 28 32 29 2b ┆RINT FILE 1: CHR$(130): RØD(2)+┆
0xc9a0…c9c0 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 33 29 0d 0a b0 30 ┆GUL(3) 0150 EXEC pause(3) 0┆
0xc9c0…c9e0 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 39 29 3b 20 20 ┆160 PRINT FILE 1: CHR$(129); ┆
0xc9e0…ca00 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 70 61 75 73 65 ┆RØD(2)+RØD(3) 0170 EXEC pause┆
0xca00…ca20 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 43 48 52 24 28 ┆(2) 0180 PRINT FILE 1: CHR$(┆
0xca20…ca40 31 39 33 29 3b 20 20 52 5c 44 28 32 29 2b 47 55 4c 28 32 29 2b 52 5c 44 28 33 29 0d 0a 19 80 81 ┆193); RØD(2)+GUL(2)+RØD(3) ┆
0xca40…ca60 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 20 55 4e 54 49 ┆ 0190 EXEC pause(1) 0200 UNTI┆
0xca60…ca80 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 2d 2d 2d ┆L ORD(KEY$)=32 --------------┆
0xca80…caa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xcaa0…caaa 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆-------- ┆
0xcaaa…caad FormFeed {
0xcaaa…caad 0c 81 60 ┆ `┆
0xcaaa…caad }
0xcaad…cac0 0a 0d 0a 0d 0a 0d 0a 49 20 22 74 72 61 66 69 6b 2d 66 22 ┆ I "trafik-f"┆
0xcac0…cae0 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 7d 20 65 6e 20 ┆ styres alle 4 lyskurve på en ┆
0xcae0…cb00 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 30 35 30 20 20 ┆gang: 0040 REPEAT 0050 ┆
0xcb00…cb20 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 49 4e 54 20 46 ┆ PRINT CHR$(7); 0060 PRINT F┆
0xcb20…cb40 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 50 52 49 4e 54 ┆ILE 1: CHR$(148); 0070 PRINT┆
0xcb40…cb60 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 48 52 24 28 32 ┆ FILE 2: CHR$(24);CHR$(5);CHR$(2┆
0xcb60…cb80 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 b0 30 30 39 30 ┆); 0080 EXEC pause(10) 0090┆
0xcb80…cba0 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 0d 0a b0 30 31 ┆ PRINT FILE 1: CHR$(156); 01┆
0xcba0…cbc0 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 3b 43 48 52 24 ┆00 PRINT FILE 2: CHR$(24);CHR$┆
0xcbc0…cbe0 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 61 75 73 65 28 ┆(5);CHR$(0); 0110 EXEC pause(┆
0xcbe0…cc00 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 48 52 24 28 31 ┆3) 0120 PRINT FILE 1: CHR$(1┆
0xcc00…cc20 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 0a b0 30 31 34 ┆54); 0130 EXEC pause(3) 014┆
0xcc20…cc40 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 3b 0d 0a 30 31 ┆0 PRINT FILE 1: CHR$(217); 01┆
0xcc40…cc60 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 20 50 52 49 4e ┆50 EXEC pause(2) 0160 PRIN┆
0xcc60…cc80 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 20 20 50 52 49 ┆T FILE 1: CHR$(41); 0170 PRI┆
0xcc80…cca0 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 48 52 24 ┆NT FILE 2: CHR$(24);CHR$(5);CHR$┆
0xcca0…ccc0 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 30 29 0d 0a b0 ┆(128); 0180 EXEC pause(10) ┆
0xccc0…cce0 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 37 29 3b 0d 0a ┆0190 PRINT FILE 1: CHR$(57); ┆
0xcce0…cd00 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 32 34 29 3b 43 ┆ 0200 PRINT FILE 2: CHR$(24);C┆
0xcd00…cd20 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 43 20 70 61 75 ┆HR$(5);CHR$(0); 0210 EXEC pau┆
0xcd20…cd40 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 3a 20 43 48 52 ┆se(3) 0220 PRINT FILE 1: CHR┆
0xcd40…cd60 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 29 0d 0a b0 30 ┆$(89); 0230 EXEC pause(3) 0┆
0xcd60…cd80 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 35 29 3b 0d 0a ┆240 PRINT FILE 1: CHR$(155); ┆
0xcd80…cda0 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 55 4e 54 49 4c ┆0250 EXEC pause(2) 0260 UNTIL┆
0xcda0…cdc0 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 69 73 65 20 68 ┆ ORD(KEY$)=32 For at vise h┆
0xcdc0…cde0 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 73 6b 75 72 76 ┆vordan arbejdsarkene til lyskurv┆
0xcde0…ce00 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 73 20 70 7d 20 ┆opgaverne kan bruges, vises på ┆
0xce00…ce20 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 69 74 6d 65 20 ┆næste side hvordan en algoritme ┆
0xce20…ce40 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 73 76 61 72 65 ┆ til "trafik-f" kan tagnes svare┆
0xce40…ce60 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 2e 20 44 65 74 ┆nde direkte til programmet. Det┆
0xce60…ce80 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 20 74 61 6c 2c ┆ er naturligvis de decimale tal,┆
0xce80…cea0 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 6e 63 65 6e 74 ┆ samt portene, der skal koncent┆
0xcea0…cec0 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 2d 2d 2d 2d 2d ┆reres om ! ------------------┆
0xcec0…cee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0xcee0…cee6 2d 2d 2d 2d 0d 0a ┆---- ┆
0xcee6…cee9 FormFeed {
0xcee6…cee9 0c 82 b0 ┆ ┆
0xcee6…cee9 }
0xcee9…cf00 0a 0d 0a 0d 0a 0d 0a 45 6e 64 65 6c 69 67 20 65 72 20 64 65 72 20 70 ┆ Endelig er der p┆
0xcf00…cf20 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 20 65 74 20 0a ┆å næste side en listning af et ┆
0xcf20…cf40 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 b0 22 54 52 41 ┆"generelt" lyskurv program "TRA┆
0xcf40…cf60 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 81 80 74 7b 6e ┆FIK" , hvor alle lamper tæn┆
0xcf60…cf80 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 76 65 64 20 68 ┆des og slukkes en efter en ved h┆
0xcf80…cfa0 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 2e 20 44 65 74 ┆jælp af EXEC- sætninger. Det┆
0xcfa0…cfc0 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 70 65 29 f0 20 ┆ er proce durerne tænd(lampe) ┆
0xcfc0…cfe0 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 61 6c 64 65 73 ┆og sluk(lampe) der kaldes┆
0xcfe0…d000 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 62 72 75 67 65 ┆. Programmet kan f.eks. bruge┆
0xd000…d020 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 74 20 0a 76 65 ┆s af de elever der har svært ve┆
0xd020…d040 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 20 6d 65 64 20 ┆d at programmere lyskurvene med ┆
0xd040…d060 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 72 6f 67 72 61 ┆deres egne COMAL80- progra┆
0xd060…d080 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 20 73 6b 61 6c ┆mmer. Fortæl dem at de blot skal┆
0xd080…d0a0 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 67 20 64 65 72 ┆ bruge arbejdsarkene og der┆
0xd0a0…d0c0 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 65 72 6e 65 20 ┆efter indsætte EXEC-sætningerne ┆
0xd0c0…d0e0 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 21 0d 0a 0d 0a ┆i toppen af programmet! ┆
0xd0e0…d100 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 f0 20 65 72 20 ┆ "TRAFIK-1" og "TRAFIK-2" er ┆
0xd100…d120 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 22 54 52 41 46 ┆identiske med "TRAFIK". "TRAF┆
0xd120…d140 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 6e 67 65 72 20 ┆IK-1" indeholder EXEC-sætninger ┆
0xd140…d160 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 6e 6b 65 72 3a ┆svarende til at RØD(1) blinker:┆
0xd160…d180 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 30 32 30 20 50 ┆ 0010 // "TRAFIK-1" 0020 P┆
0xd180…d1a0 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 72 7c 64 ┆ROC blink 0030 EXEC tænd(rød┆
0xd1a0…d1c0 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 b0 30 30 35 30 ┆1) 0040 EXEC pause(1) 0050┆
0xd1c0…d1e0 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 20 45 58 45 43 ┆ EXEC sluk(rød1) 0060 EXEC┆
0xd1e0…d200 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 69 6e 6b 0d 0a ┆ pause(1) 0070 ENDPROC blink ┆
0xd200…d220 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 ┆ ------------------------------┆
0xd220…d240 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 54 52 41 ┆------------------------ "TRA┆
0xd240…d260 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 79 73 3a 0d 0a ┆FIK-2" styrer et enkelt 3-lys: ┆
0xd260…d280 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 30 20 50 52 4f ┆ 0010 // "TRAFIK-2" 0020 PRO┆
0xd280…d2a0 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 72 7c 64 32 29 ┆C blink 0030 EXEC tænd(rød2)┆
0xd2a0…d2c0 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 30 35 30 20 20 ┆ 0040 EXEC pause(6) 0050 ┆
0xd2c0…d2e0 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 58 45 43 20 70 ┆ EXEC tænd(gul2) 0060 EXEC p┆
0xd2e0…d300 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 72 7c 64 32 29 ┆ause(2) 0070 EXEC sluk(rød2)┆
0xd300…d320 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 b0 30 30 39 30 ┆ 0080 EXEC sluk(gul2) 0090┆
0xd320…d340 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 20 20 45 58 45 ┆ EXEC tænd(grøn2) 0100 EXE┆
0xd340…d360 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 75 6b 28 67 72 ┆C pause(6) 0110 EXEC sluk(gr┆
0xd360…d380 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 32 29 0d 0a b0 ┆øn2) 0120 EXEC tænd(gul2) ┆
0xd380…d3a0 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 20 20 20 45 58 ┆0130 EXEC pause(3) 0140 EX┆
0xd3a0…d3c0 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 43 20 62 6c 69 ┆EC sluk(gul2) 0150 ENDPROC bli┆
0xd3c0…d3e0 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 2d ┆nk --------------------------┆
0xd3e0…d3fe 2d 2d 2d 2d 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 ┆---------------------------- ┆
0xd3fe…d401 FormFeed {
0xd3fe…d401 0c 83 08 ┆ ┆
0xd3fe…d401 }
0xd401…d412 0a 0d 0a 0d 0a b0 22 54 52 41 46 49 4b 22 3a 0d 0a ┆ "TRAFIK": ┆
0xd412…d415 FormFeed {
0xd412…d415 0c 80 98 ┆ ┆
0xd412…d415 }
0xd415…d420 0a 0d 0a 1a 1a 20 31 3a 20 43 48 ┆ 1: CH┆
0xd420…d440 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 30 35 30 20 20 ┆R$(33); //RØD(3)+GRØN(2) 0050 ┆
0xd440…d460 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 20 46 49 4c 45 ┆ EXEC pause(6) 0060 PRI FILE┆
0xd460…d480 20 31 3a 20 43 48 52 24 28 36 35 29 3b 20 20 20 52 5c 44 28 33 29 2b 47 55 4c 28 32 29 0d 0a 30 ┆ 1: CHR$(65); RØD(3)+GUL(2) 0┆