Jag började med BASIC, först på ABC80. Man skrev `load cas:` för att ladda program från kassettband.
Senare bytte jag till Sinclair ZX81 och därefter till ZX Spectrum. Spectrumen var intressant, särskilt eftersom den svenska generalagenten Beckman Innovation hade översatt BASIC-tolken till svenska, vilket gjorde att man kunde växla mellan två olika tolkar med ett enkelt knapptryck inuti datorn. Detta tillät användning av Å, Ä och Ö i den svenska versionen.
Spectrumen hade också ett makrokommando. Man flyttade markören till rätt läge, och när man väl lärde sig detta, gick programmeringen ganska snabbt.
Annars är det GFA Basic som jag fastnade för mest. Jag använde det på Atari ST, där man kunde köra både tolkad och kompilerad BASIC. Jag skrev ett BBS-program i GFA Basic som även var kompatibelt med Fidonet. På den tiden fanns ingen databasmotor, så man var tvungen att koda sin egen databas. Man hade två filer: en headerfil och en msg-fil. Sedan behövde man skriva ett program som städade bort gamla meddelanden.
Det var mycket lärorikt eftersom man lärde sig att förstå allting från grunden. Idag när man lockar och pockar på folk att de ska lära sig att bli programmerare på en månad... Men vad kan de egentligen?
ZX 81 :
För att rita en cirkelt på 81:an
10 LET cx=32
20 LET cy=22
30 LET r=20
40 FOR y = -r TO r
50 LET dy = y + cy
60 IF dy >= 0 AND dy <= 43 THEN
70 LET d = INT(SQR(r*r - y*y))
80 FOR x = -d TO d
90 LET dx = x + cx
100 IF dx >= 0 AND dx < 64 THEN
110 POKE 16384 + (dy * 32) + INT(dx / 8), PEEK(16384 + (dy * 32) + INT(dx / 8)) OR (128 / (2^(dx MOD 8)))
120 END IF
130 NEXT x
140 END IF
150 NEXT y
Dock har chat gtp spotta ut felaktig kod här.. Eftersom ZX 81:an tolk kunde bara ha en bokstav som variabel.
Samma program på ZX Spectrumen
10 CLS
20 CIRCLE 128, 96, 50
Här får ni manualen till Sinclair Zx 81:an :
https://www.historybit.it/wp-content/uploads/2018/09/ZX81_Bas...