SZAZ-1.BAS

Még jó múltkor turkáltam valamint a régi backupok közt, és megakadt a szemem ezen a fájlon. Életem első “komolyabb” programja, BASIC nyelven íródott. Jól látható mennyire vakon voltam még…

…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.

Hasonló írások

• AppStorm
• Screenshot feltöltés FTP-re autómatikusan