Erik Håkanson 𒄠
Today for Tomorrow, 1985
updated
**Youtube Creator Studio Audio improvement have been tested in this clip**
With help from my friend Mikael who is a computer system engineer, he came by to play some GTA-5 and hear the sound and check out the gear :)
MÅLVIKT-70.
RUN.
MAGNETIC-SNAP.
STOP RUN.
RUN.
SNABBMINNE-OM-MAN-FÅR-SÄGA-SÅ.
FLAG.
PARA.
END-IF.
MOZAVE001-ISRAEL-FILE-0.
STOP RUN.
KANSKE MILITÄRT NU-ELLER-ALDRIG-PROGRAM SKRIVET I COBOL 1982 ?
RUN.
NOLL-SKITSNACK-POLICY.
NON-BACKTALKING-POLICY.
TVÅ-SJÄLVMÅL-OCH-DU-UTESLUTS.
TWO-STRIKES-AND-YOU-ARE-DOWN.
77 00 MEMORY-LOGIC. OVER 98.91 %. 00 00 00 99.
PERFORM INIT-STATUS-CHECK.
TERMINATE IF-STATEMENT.
REPORT SECTION.
PERFORM ATDX-400-REPORT.
ACCEPT PARA-FLAG SECTION.
ACCEPT RANDOM-NUMBERS 1 TO 9999.
STOP RUN.
IDENTIFICATION DIVISION.
DATA DIVISION.
PROGRAM-ID. COBOLDREAMS.
RUN.
0
STOP RUN.
HOUSEKEEPING.
MOVE-FILES 0 TO 0.
END-DECLARATIVES.
77 END-IF.
PIC (X24) IF DATA-80-LINK-REQUEST IS TRUE GO-TO LINE-3000 AND THEN-DIRECTLY TO LINE 0.
70 00 90 0000.
ENVIRONMENT DIVISION.
RUN.
00
STOP RUN.
GOTO 0.
STOP RUN.
PLEASE RUN-STOP .
SELECT VESSEL. HYDRA-CRUISER-8000. DUPLICATE VESSEL TO
MEMORY-STORAGE-SECTION.
GOTO 00.
RUN.
STOP RUN.
MOVE-FILES 00 TO 00.
END-IF.
SOURCE-COMPUTER. MTXA-4000.
AUTHOR. ERIK-VALKYRIAN-HÅKANSON.
PROGRAM-ID. COBOL-DREAMS.
100 .
200 RUN.
300 0
400 STOP RUN.
500 GO TO LINE-200.
600 .
IDENTIFICATION DIVISION.
03 SYMBOLIC-DESTINATION.
GO TO LINE-0.
END-FLAG.
MOVE-FILES 0 TO 00.
MOVE-FILES 00 TO 0.
HOUSEKEEPING.
MOVE-PROGRAM COBOL-DREAMS. TO INVENTORY-FILE-01.
UPDATE INVENTORY-DIRECTORY.
RUN 0.
00 STOP RUN.
END-DECLARATIVES.
END-IF.
RUN-STOP.
DUPLICATE-MOVE-COMPARE COBOL-DREAMS. WITH 00-COBOL-DREAMS-00.
FIND HIGHEST-NUMBER
AND WRITE TO INV-FILE-01.
SELECT INV-FILE-01 AND
WRITE HIGHEST-NUMBER TO LINE-2800.
IF-DECLARATIVE FOR LINE-2800.
IF A-VALUE IS OVER 9400
THEN CONVERT-MODULE-CURRENCY
TO US-DOLLAR.
DUPLICATE 0-COBOL-DREAMS-0. AND MOVE TO INV-FILE-02.
READ INV-FILE-01 TO
STORAGE-MEMORY-SECTION.
ENVIRONMENT-IDENTIFICATION
DATA DIVISON.
CREATE INV-FILE 03 IN STORAGE-
SECTION.
GO TO LINE-4000. GO TO LINE-0.
COMPARE INV-FILE-01 WITH
INV-FILE-02. WRITE DIFFERENCES
TO INV-FILE-03.
DUPLICATE INV-FILE-03 AND
WRITE SUB-MODULE-CONTENT
AT END-OF INV-FILE-01.
PERFORM FUNCTION-SPECIFIED-BY-DCI-FUNCTION.
RUN.
77 NO-DATA-OR-ADVANCING-TYPE
00 DATA-SIMULATION.
PERFORM-TRAJECTORY-HEADING FOR 01-YR CURRENCY-INFLATION-INCREASE FOR INV-FILE-03.
CALCULATE YEARLY CURRENCY-INFLATION-INCREASE IF INFLATION-RATE IS 21 PERCENT.
SEND-NEW-DATA FOR INV-FILE-03
TO MACHINE-PRINTER. PERFORM-PRINT-OPERATION FOR LINES 00 THRU 0900.
Trots att COBOL kom redan ♒︎1959−1960 så kör flera svenska storbanker fortfarande sina datacentraler med COBOL-program .
1970 var COBOL världens mest utbredda språk för programmering .
IDENTIFICATION DIVISION.
DATA VISION.
PROGRAM-ID. VALKYRIANSVIDEOBLOGG2022.
MOVE INVENTORY-FILE 1 TO 2
FD INPUT-FILE.
Följande ska vara riktiga COBOL-kommandon :
IDENTIFICATION DIVISION. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE ASSIGN TO DISK FILE STATUS IS INPUT-STATUS. DATA DIVISION. FILE SECTION. FD INPUT-FILE VALUE OF TITLE IS "DISK-FILE". 01 INPUT-REC PIC X(80). WORKING-STORAGE SECTION. 77 INPUT-STATUS PIC XX. PROCEDURE DIVISION. DECLARATIVES. DECL-1 SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON INPUT.
D-0010. DISPLAY "I/O ERROR READING FILE".
DISPLAY "FILE STATUS IS " INPUT-STATUS.
STOP RUN.
END DECLARATIVES. MAIL-1000 SECTION. P-1010.
MOVE "00" TO INPUT-STATUS.
OPEN INPUT INPUT-FILE.
READ INPUT-FILE.
STOP RUN.
Folge 03 auf diesem kleinen selbstgemachten Videoblog.
In diesem Abschnitt geht es teilweise um die Programmiersprache COBOL.
Trotz der Tatsache, dass COBOL bereits zwischen −1959 und 1960 auf den Markt kam, betreiben mehrere große schwedische Banken ihre Rechenzentren immer noch mit COBOL-Programmen.
1970 war COBOL die weltweit am weitesten verbreitete Programmiersprache.
IDENTIFIKATIONSABTEILUNG.
DATENSICHT.
PROGRAMM-ID. VALKYRIANSVIDEOBLOGG2022.
INVENTARDATEI 1 NACH 2 VERSCHIEBEN
FD-EINGABE-DATEI.
Episode 03 on this little home-made video blog. This section is partly about the programming language COBOL.
Despite the fact that COBOL came as early as −1959−1960, several major Swedish banks still run their data centers with COBOL programs.
In 1970, COBOL was the world's most widely used programming language.
IDENTIFICATION DIVISION.
DATA VISION.
PROGRAM ID. VALKYRIANSVIDEOBLOGG2022.
MOVE INVENTORY FILE 1 TO 2
FD INPUT FILE.
En liten bonusepisod, planerar att släppa omkring 1 avsnitt i veckan.
Denna handlar om min hembyggda minidatorcentral X−7000 som består av en maskinpark med rätt många delvis sammankopplade enheter.
En av enheterna är en MacBook Pro i7 SSD från 2018, köpt i Schweiz med Schweizertangentbord.
När jag ger denna MacBook ett "ls"-kommando, som typ säger åt datorn att lista innehållet i nuvarande datakatalog, så händer följande som ni kan se i videoblogginlägget.
Gissar att en vanlig modern Apple-persondator skriver ut max 1 kvarts A4
på skärmen om man ger den " LS "-kommandot.
VARNING! KAN VARA TRÅKIGT OM MAN INTE ÄR DATAGEEK VARNING! ⚠️
och ja, jag har försökt koda om den.
. 🇺🇸 🇬🇧 🇦🇺 🇩🇪 .
A small bonus episode, planning to release about 1 episode a week.
This is about my home-built minicomputercenter X−7000, which consists of a machinepark with quite a few partially interconnected units.
One of the units is a MacBook Pro i7 SSD from 2018, bought in Switzerland with a Swiss keyboard.
When I give this MacBook an "ls"-command, which kind of tells the computer to list the contents of the current data directory, the following happens as you can see in the videoblogpost.
Guessing a standard Apple-computer prints max a quarter of an A4-page
if you give it the " LS "-command.
WARNING! CAN BE BORING IF YOU ARE NOT DATAGEEK WARNING! ⚠️
and yes, I have tried to recode it.
har bestämt mig för att försöka mig på en videoblogg (VLOGG).
planen är att denna ska handla om bland annat psykisk hälsa, livet och maskiner.
AVSNITT 02: framtidens stordatorer ?
LOVED FRIENDS! 💜 ⚡️ ⚠️ 🇺🇸🇬🇧🇦🇺🇩🇪
have decided to try VLOGGING (videoblogging).
the plan is to include mental health, life, machines and more.
EPISODE 02: supercomputers of the future ? 𒌌
------
I will try to make about 1 of these a week. % TTX⏤80: 31 80 00
Planerar att försöka göra 1 avsnitt i veckan. % DMX⏤800: ENGAGED
2022.05.05
/// Erik Håkanson in Sweden (im the guy controlling the drone)
The driver is my little brother (born 1987) and then there is an old friend chilling out in the sun.
** The backgroundfilm is from the Swedish Stockholm summer of 2013 **
har bestämt mig för att försöka mig på en videoblogg (VLOGG).
planen är att denna ska handla om bland annat psykisk hälsa, livet och maskiner.
AVSNITT 02: framtidens stordatorer ?
LOVED FRIENDS! 💜 ⚡️ ⚠️ 🇺🇸🇬🇧🇦🇺🇩🇪
have decided to try VLOGGING (videoblogging).
the plan is to include mental health, life, machines and more.
EPISODE 02: supercomputers of the future ? 𒌌
------
I will try to make about 1 of these a week. % TTX⏤80: 31 90 00
Planerar att försöka göra 1 avsnitt i veckan. % DMX⏤800: ENGAGED
2022.05.05
/// Erik Håkanson in Sweden (im the guy controlling the drone)
The driver is my little brother (born 1987) and then there is an old friend chilling out in the sun.
** Recorded in the Swedish Stockholm summer of 2013 **
har bestämt mig för att försöka mig på en videoblogg (VLOGG).
planen är att denna ska handla om bland annat psykisk hälsa, livet och maskiner.
AVSNITT 02: framtidens stordatorer ?
LOVED FRIENDS! 💜 ⚡️ ⚠️ 🇺🇸🇬🇧🇦🇺🇩🇪
have decided to try VLOGGING (videoblogging).
the plan is to include mental health, life, machines and more.
EPISODE 02: supercomputers of the future ? 𒌌
------
I will try to make 1 of these a week. 30179 .
Planerar att försöka göra 1 avsnitt i veckan. 800-90 .
2022.05.04
/// Erik in Sweden
har bestämt mig för att försöka mig på en videoblogg (VLOGG).
planen är att denna ska handla om bland annat psykisk hälsa, livet och maskiner.
AVSNITT 01: personifierad psykiatri ?
LOVED FRIENDS! 💜 ⚡️ ⚠️ 🇺🇸🇬🇧🇦🇺🇩🇪
have decided to try VLOGGING (videoblogging).
the plan is to include mental health, life, machines and more.
EPISODE 01: personalized psychiatry ? 𒌌
15 min one-shot, jag filmar + pratar + är tekniker samtidigt, så lite stökigt att kolla på kanske ;) Men denna ska ändå inte visas för andra än de som är med i projektet.
Kolla gärna utan bild, det här klippet är egentligen bara för ref-lyssning av att "SOUND BY ADHD-5000" ska bli ett kvalitetsbegrepp ;)
kommit på en massa sätt att höja ljudkvaliteten på gamla ljud :) kommer bli sjukt kul att kunna massproducera skräp som folk gillar att dansa till :)
Please fast forward to 02:20 (or press 1 on keyboard) and keep it until 11:57 to hear the first ADHD-5000 recorded song, feat YEE :)
I am drinking coffee while the ADHD-5000 is running the AAM-program and meanwhile digitizing last nights freestyle with Yee. We did one shot and it was 5 minutes 18 secs. All recorded on Betacam SP and 5D Mark III. Here the audio is modulated after
you enter the wanted audio parameters and then the stream is sent to both the DSLR via cable and a WAV-recorder that prints to SD-cards (analog to digital conversion).
After the video is some audio-post-roll, from LP.
Run through a computer controlled SONY compressor/limiter+noice gate, and a Behringer Xenyx X1222 audio mixer with built in pre-amp, 24-bit digital effects processor and through a AMPEX CVR-75 etc etc.
:) (:
Footage and ADHD-5000-user: Erik Håkanson
It took me closer to 800 hours in build time but it was awesome and I have the ADHD-7000 and ADHD-9000 blueprints in my head but they will require 3-phase power which I lack in my current home.
Write comments or suggestions in the commentary field below if you want :)
peace!
/Erik Håkanson
/Erik, founder
Data of prod: Sthlm
Production time: A couple of days in total (18 hours maybe)
Year of prod: 2002
Equip used: Canon XM2 + Premiere + Canopus RT video card
Beware of loud shitty digital sound, if you have a high-end system cranked up to where it is supposed to be for dynamic range possibilities, turn it way down, this one sounds like crap, but it's the only copy I still have, I think. Might have it on Super-VHS which was my mastering format of choice back then.
/Erik
Director, cameraman, editing, post production, audio mixing (video online audio mix), by mini-me in the early 00:s.
Music by Herr P and D Double E.
Shot and edited in about 6 hours in total.
This was the fun old days of being a total beginner and still having lot to learn. Good times, woop woop :)
Thanks to mr A (first name) O D B (last name) for letting us use the BMW E34 530i V8 for the shoot. And thanks for the understanding people on the train where we recorded. This was in the old days where you could record on trains in Stockholm without a filming permit from SL, if I remember correctly.
or German lession part 3.
I am talking german to the ADHD-5000, thanks to Google, Apple, etc, for unawarely contributing to this, now somewhat functional, installation.
Original by Genesis
File a complaint if the copyright etc


