…12 évvel ezelőtt.

CLS
SCREEN 12
LOCATE 4, 32

PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
SOUND 400, 2
SOUND 0, 1
SOUND 400, 2
SOUND 0, 1
SOUND 400, 2
SOUND 0, 1
SOUND 200, 15
SOUND 0, 5
SOUND 300, 2
SOUND 0, 1
SOUND 300, 2
SOUND 0, 1
SOUND 300, 2
SOUND 0, 1
SOUND 100, 15
SLEEP 2
LOCATE 7, 20
PRINT "Mennyi az abszolult 0 C¯?"
LOCATE 8, 20
PRINT "1.-273 C¯"
LOCATE 9, 20
PRINT "2. 0 C¯"
LOCATE 10, 20
PRINT "3.-10.000 C¯"
INPUT "Mi a v†laszod? ", i%
IF i% = 1 OR i% = 1 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
LOCATE 7, 20
PRINT "Minek nevezik a falfirk†kat m†skÇppen?"
LOCATE 8, 20
PRINT "1.grafiti"
LOCATE 9, 20
PRINT "2.falrajz"
LOCATE 10, 20
PRINT "3.grafitek"
INPUT "Mi a v†laszod? ", i%
IF i% = 1 OR i% = 1 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
LOCATE 7, 20
PRINT "Folytasd a kîzmond†st: Addig j†r a kors¢ a k£tra,..."
LOCATE 8, 20
PRINT "1.m°g tele nem lesz."
LOCATE 9, 20
PRINT "2.m°g a k£tban van v°z. "
LOCATE 10, 20
PRINT "3.m°g el nem tîrik."
INPUT "Mi a v†laszod? ", i%
IF i% = 3 OR i% = 3 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
LOCATE 7, 20
PRINT "H†ny holdja van a Jupiter bolyg¢nak?"
LOCATE 8, 20
PRINT "1.15"
LOCATE 9, 20
PRINT "2.16"
LOCATE 10, 20
PRINT "3.18"
INPUT "Mi a v†laszod? ", i%
IF i% = 2 OR i% = 2 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "Kiest†l pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
scale$ = "cdefgab"
PLAY "L16"
FOR i% = 0 TO 4
PLAY "o" + STR$(i%)
PLAY "x" + VARPTR$(scale$)
NEXT i%
LOCATE 7, 20
PRINT "KîrÅlbelÅl h†ny skorpi¢fajt ismerÅnk?"
LOCATE 8, 20
PRINT "1. 1200."
LOCATE 9, 20
PRINT "2. 250."
LOCATE 10, 20
PRINT "3. 2000."
INPUT "Mi a v†laszod? ", i%
IF i% = 1 OR i% = 1 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
LOCATE 20, 30
PRINT "MµSODIK FORDUL‡"
SLEEP 2
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
LOCATE 7, 20
PRINT "Mit jelent a 'pax' latin sz¢?"
LOCATE 8, 20
PRINT "1. Toll m†rka."
LOCATE 9, 20
PRINT "2. H†bor£."
LOCATE 10, 20
PRINT "3. BÇke."
INPUT "Mi a v†laszod? ", i%
IF i% = 3 OR i% = 3 THEN
PRINT "TALµLT"
SLEEP 1
SOUND 500, 1
SOUND 600, 1
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
SLEEP 1
CLS
END
END IF
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
LOCATE 7, 20
PRINT "Mi az izot¢p?"
LOCATE 8, 20
PRINT "1. Radioakt°v g†z."
LOCATE 9, 20
PRINT "2. Ugyanannak az elemnek kÅlînbÅzã tîmegsz†m£ atomja."
LOCATE 10, 20
PRINT "3. MÇrãeszkîz."
INPUT "Mi a v†laszod? ", i%
IF i% = 2 OR i% = 2 THEN
PRINT "TALµLT"
SLEEP 1
SOUND 500, 1
SOUND 600, 1
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
LOCATE 7, 20
PRINT "Melyik orsz†g vil†gelsã a tehersz†ll°t†sban?"
LOCATE 8, 20
PRINT "1. K°na."
LOCATE 9, 20
PRINT "2. Oroszorsz†g."
LOCATE 10, 20
PRINT "3. USA."
INPUT "Mi a v†laszod? ", i%
IF i% = 2 OR i% = 2 THEN
PRINT "TALµLT"
SLEEP 1
CLS
SOUND 500, 1
SOUND 600, 1
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
ELSE
PRINT "KiestÇl pup†k! GAME OVER"
SOUND 500, 1
SOUND 400, 2
END
END IF
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
LOCATE 20, 30
PRINT "UTOLS‡ KêRDêS JôN!"
SLEEP 2
CLS
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
LOCATE 7, 20
PRINT "Rakd nîvekvã sorba hangerãssÇgÅk alapj†n."
LOCATE 8, 20
PRINT "1.MennydîrgÇs"
LOCATE 9, 20
PRINT "2.Kiab†l†s"
LOCATE 10, 20
PRINT "3.Vonat"
INPUT "Mi a v†laszod? ", i%
IF i% = 231 OR i% = 231 THEN
PRINT "TALµLT"
SLEEP 1
SOUND 500, 2
SOUND 600, 2
LOCATE 13, 45
PRINT "Kiab†l†s 70 dB"
LOCATE 14, 45
PRINT "Vonat 80 dB"
LOCATE 15, 45
PRINT "MennydîrgÇs 100 dB"
SLEEP 5
CLS
CIRCLE (300, 230), 100
CIRCLE (250, 200), 20
CIRCLE (350, 200), 20
CIRCLE (250, 270), 0
DRAW "f20r60e20"
SLEEP 1
CLS
CIRCLE (300, 230), 100
CIRCLE (230, 200), 0
DRAW "r40"
CIRCLE (350, 200), 20
CIRCLE (250, 270), 0
DRAW "f20r60e20"
SLEEP 1
CLS
CIRCLE (300, 230), 100
CIRCLE (250, 200), 20
CIRCLE (350, 200), 20
CIRCLE (250, 270), 0
DRAW "f20r60e20"
END IF
LOCATE 23, 35
PRINT "NYERTêL!"
LOCATE 25, 7
PRINT "KÇsz°tette a zseni†lis programoz¢: Mondovics Mih†ly"
Music$ = "MBo3L8ED+ED+Eo2Bo3DCL2o2A"
PLAY Music$
END
LOCATE 4, 32
PRINT "==================="
LOCATE 5, 36
PRINT "100-b¢l egy"
LOCATE 6, 32
PRINT "==================="
LOCATE 10, 33
PRINT "THE END"
END

Elnézve a kód elején lévő SOUND parancsban kiadott frekvenciákat és időzítéseket, ez nem lesz más, mint Beethoven klasszikus ta-ta-ta-taaaaaja.

A fájl végi CIRCLE-ök pedig a sikeres teljesítésért járó jutalom animáció (egy smile kacsint) kódja…

Régi. Szép. Idők.

Az Automator segítségével elkészítettem egy hasonlóan működő programot OSX-re. Pontosabban két programot. Az egyik a kijelölt területről készít screenshotot, a másik pedig a kiválasztott ablakról. Egy előre beállított saját ftp szerverre tölti fel ezután a képet, majd a kép url-jét a vágólapra másolja. Ideális bloggereknek, akik gyakran osztanak meg bejegyzéseikben képernyőfotókat. Mivel a fotók a saját szervereden vannak, ezért azok mindig elérhetőek.

Íme a konfigolás/használat:

1. Töltsd le a cuccost (172 Kb): scrshot_uploadr
2. Nyisd meg az Upload to FTP 1.5.dmg-t. Telepítsd az Install Upload to FTP csomagot. Ennek köszönhetően az Automatorban lesz olyan eszközünk, amivel ftp szerverre tudunk feltölteni fájlt.
3. Ezután hozz létre egy mappát valahol szimpatikus helyen a gépeden. A screenshotolt fájlokat ide fogja menteni az alkalmazás, majd innen fogja feltölteni ftp-re.
4. Most nyisd meg a selection_scrshot_uploadr és a window_scrshot_uploadr automator workflowokat és mindkettőben végezd el a következő módosításokat:
   1. A legelső Take Screenshot feliratú dobozban a Save To legördülőben add meg a nemrég létrehozott elérési utat (válaszd a new.. opciót), valamint egy fájlnevet. Az itt megadott név lesz a screenshotolt fájlok prefixe, ez kerül kiegészítésre a dátummal majd.
   2. A harmadik Upload to FTP feliratú dobozban add meg az ftp szervered eléréseit. A Base URL mezőbe pedig azt az elérést kell írni, amivel a böngészőn keresztül érjed el a tartalmát.
   3. Most alkalmazásként mentsd ki a módosított munkamenetet (File/Save as/file format: application) és tedd be újonnan létrehozott programjaidat az application mappába (vagy ahová szeretnéd).
5. Már csak le kell töltened a Spark programot, amivel a programok indítására állíthatsz be billentyűkombinációkat. Én meghagytam a hagyományos screenshot kombinációkat, és ezeknek újat csináltam: az egyiknek a ctrl-alt-3 a másiknak a ctrl-alt-4 kombót adtam.

Tulajdonképpen ennyi, készen is vagyunk. Bármi kérdésed vagy észrevételed van akkor jelezd (azt is ha használod és tetszik, mert akkor hízik az egóm)!