{"id":1260,"date":"2024-01-29T19:31:58","date_gmt":"2024-01-29T19:31:58","guid":{"rendered":"https:\/\/research.swissdigitization.ch\/?p=1260"},"modified":"2025-07-18T10:39:41","modified_gmt":"2025-07-18T10:39:41","slug":"crossplatform-basic-game-8-bit-homecomputer-moeglich-linejewels-als-eine-antwort","status":"publish","type":"post","link":"https:\/\/research.swissdigitization.ch\/?p=1260","title":{"rendered":"CrossPlatform-BASIC-Game (8-Bit Homecomputer) – M\u00f6glich? LineJewels\/LineJewls als eine Antwort [LinePrinterActionGame]"},"content":{"rendered":"\n

Fragestellung: Ist es m\u00f6glich ein Basic-Game zu entwickeln, das auf den meisten 8Bit-Homecomputern wie C64,MSX,MS-DOS,ZX81 etc l\u00e4uft? L\u00e4uft bestenfalls mit keinen! bis kleinen \u00c4nderungen?<\/strong> <\/p>\n\n\n\n

BASIC war die Sprache der 8Bit Homecomputer. Sie war alt (Darthmouth 1964), klein, eine Interpretersprache und dadurch relativ einfach zu implementieren. <\/p>\n\n\n\n

Erste Erkenntnisse zur „Lingua-Franca“ BASIC<\/strong><\/p>\n\n\n\n

Es w\u00fcrde also nahe liegen sie als die Lingua-Franca zu benutzen \u00fcber alle 8bit-HomeComputer hinweg. Und das trifft mehr oder minder f\u00fcr den ersten Darthmouth-Standard auch zu. Mehr oder weniger l\u00e4uft alles dadrauf – nimmt man es nicht so genau mit Strings (Definierte Stringl\u00e4nge bei Atari400\/800, kein einfaches Concat mit +, Input) oder dem RND-Befehl (RND(4) QW-Basic). <\/p>\n\n\n\n

Leider war Basic aber auch auf Input-Output-Programme f\u00fcr die fr\u00fche Entwicklung von Programme entwickelt worden, das heisst letztlich die Shell. Und so fehlt der Sprache per Standard jede Art von Keypressing-Funktionalit\u00e4t oder auch Grafikm\u00f6glichkeiten. Und hier legten sich die verschiedenen Computerhersteller wirklich ins Zeug Inkompatibilit\u00e4t aufzubauen. Allein die Geschichte um das Atari Basic zeigt auf was die Probleme waren: Der normale Interpreter brauchte schon 8k (Rom-Gr\u00f6sse mit akzeptablen Preis) – Atari wollte aber logischerweise auch Grafik-Commandos im Basic haben. Wie also reduzieren das Ganze? Indem man Befehle strich und anschliessend Befehle zus\u00e4tzlich ins ROM verlagerte (wo es anscheinend unendlich langsam war). <\/p>\n\n\n\n

All dies zeigt auf, dass diese Homecomputer letztlich zuerst als Hardware-Software-Paket verkauft wurden (obwohl Atari sein Basic zuerst seperat verkaufte). Die Kompatibilit\u00e4t war zuerst einmal da, indem man die meisten BASIC Lernkurse damit machen konnte. Danach wollten alle einzeln brillieren. Damit liessen sich nat\u00fcrlich de facto keine Platform \u00fcbergreifende Software entwicklen und verkaufen, zumal auch keine Compiler existierten. Nat\u00fcrlich hatte auch jede Platform ihren eigenen Zeichensatz mit eigenen GrafikChars.<\/p>\n\n\n\n

LineJeweled – Game in der Lingua-Franca „BASIC“<\/strong><\/p>\n\n\n\n

Um \u00fcberhaupt eine Game \u00fcber verschiedene Plattformen entwickeln zu k\u00f6nnen, musste also benutzt werden, was im Standard-Output m\u00f6glich ist. Und das ist Print und Print ; (Lineprinter waren mal sehr in Mode). Ein Grafikaufbau mit CLS (Clearscreen) ist wegen Geschwindigkeit und Verf\u00fcgbarkeit des Befehls oder seiner Simulation (30x Print „“) leider nicht m\u00f6glich.) <\/p>\n\n\n\n

Das heisst letztlich musste eine Spielmechanik gefunden werden, die ein einfaches Actiongetriebenes Game doch m\u00f6glich macht und auch funktioniert, wenn man nicht auf dem Bildschirm zeichnen kann. Nach vielen Experimenten stellte sich heraus, dass man am Besten sich mit einer Variante von BeJeweled oder 3+ Gewinnt bedient. Das Spiel schreibt fortw\u00e4hrend das Spielfeld fort und der Spieler kann bei der Cursorposition einen zuf\u00e4lligen Edelstein einf\u00fcgen. So kann der Spieler* 3+ Reihen in jede Richtung generieren und Punkte sammeln. Technisch muss auch nichts im Spielfeld ge\u00e4ndert werden. Und das Spiel lebt vom Printen von Linien und verl\u00e4ngert das Spielfeld automatisch gegen oben. Dadurch entsteht ein f\u00fcr die Verh\u00e4ltnisse komplexes Spiel. <\/p>\n\n\n\n

Auf dem C64 sieht das wie folgt aus:<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Da die Anzeigen nicht immer neu gezeichnet werden, m\u00fcssen sie einmal pro Linie geschrieben werden. Dadurch schreibt das Spiel auch seine eigne History per PRINT ins Fenster.<\/p>\n\n\n\n\n\n\n\n

Der Aufbau:
AkutellerScore | Aktuelle Linie | N\u00e4chsterEdelstein | Spielfeld > Gemachte Reihen + Punkte<\/p>\n\n\n\n

Das Spiel ist deswegen Action getrieben, weil das Spiel unabh\u00e4ngig vom Spieler Edelsteine setzt und immer schneller wird.<\/p>\n\n\n\n

LineJewel<\/strong>s<\/p>\n\n\n\n

Das Spiel kann hier in einem BBCMicro Emulator Online gespielt werden:
Let’s Play LineJewels ><\/a><\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

<\/p>\n\n\n\n

Herausforderungen<\/strong>: Keypressing, RND, Strings<\/p>\n\n\n\n

Prinzipiell ist die Grundmechanik bei allen Varianten diesselbe – also ein Code. Probleme gab es hier mit der Funktion von RND (Einige Interpreter spucken hier einen Integer aus RND(4) > 0-4) und die Stringbehandlung: Atari verwendet eine selbstdefinierte gefixte L\u00e4nge. Einige Interpreter k\u00f6nnen keine Befehle mit „:“ aneinanderh\u00e4ngen. Und andere wiederum kennen wie das Orginal nur [A-Z] und [AA-ZZ] Variabeln wie das Darthmouth-Orginal. Der Code musste also jeweils so angepasst werden, dass er mit all diesen Varianten l\u00e4uft, wobei das Problem ist: Gewisse Interpreter geben Fehlermeldung aus, wenn die Syntax nicht ihrer Syntax entspricht. All dies liess sich jedoch irgendwie umschiffen.<\/p>\n\n\n\n

Die gr\u00f6sste Herausfoderung war\/ist sicherlich das Nutzen von Keypressed, da dieses nicht im UrBasicStandard vorhanden war und darum auf jedem Computer irgendwie anders implementiert wurde. Keypress-Detection ist aber auch essentiell ist f\u00fcr jede Art von Actionspiel. Aus diesem Grund gibt es am Anfang eine Auswahl der Computer. Damit l\u00e4sst sich dann einfach die jeweilige Keypressed-Routine, die funktioniert nutzen. Eine Autodetection scheint (wie beim RND) nicht m\u00f6glich zu sein, zu unterschiedlich sind die Dinge und zu verschieden auch die Befehlss\u00e4tze. So kennt nicht jedes Basic PEEK! <\/p>\n\n\n\n

Auch die Gr\u00f6sse des RAMs spielt vorallem bei dem Array der Edelsteine eine Rolle und so war dann DIM(10,100) f\u00fcr einige Computer schon zuviel. <\/p>\n\n\n\n

Fazit<\/strong>: C64, MSX, Amstrad, BBC Micro, MS-DOS (GW-BASIC), Atari400\/800<\/p>\n\n\n\n

Prinzipiell scheint es unm\u00f6glich ein Actionbasiertes Game zu machen, dass auf allen 8Bit Computern l\u00e4uft. Zu divergent sind die verschiedenen Dialekte oder anders gesagt, das Fehlen von INKEY im urspr\u00fcnglichen Standard. <\/p>\n\n\n\n

Im Fall von LineJewels wurde der Kompromiss gemacht und die Keypressing-Routine mehrfach ausgef\u00fchrt, dadurch l\u00e4uft es zumindest auf 6-Systemen. Sicherlich k\u00f6nnte man noch PET hinzunehmen (\u00e4hnlich wie C64) und eine SMAKY Version einbauen. Bei ZX81 und Spektrum ist es meiner Meinung nach schwierig bzw. muss noch ausprobiert werden (Der ZX81 speichert das Programm nicht als Source-Code sondern in Codes). <\/p>\n\n\n\n

Den Code direkt auf dem C64 ausf\u00fchren? Hier findet man das File dazu D64 ><\/a><\/p>\n\n\n\n

Versionen<\/strong><\/p>\n\n\n\n

Atari 400\/800 Version<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Amstrad Version<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Noch nicht offizielle PET-Version<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

<\/p>\n\n\n\n

Code<\/strong><\/p>\n\n\n\n

Es sei schon gewarnt, der Code ist nicht besonders h\u00fcbsch geworden. Das liegt auch daran, dass das Erweitern des Codes mit Linebasierung umst\u00e4ndlich ist. Und so funktioniert ein st\u00e4ndiges Erweitern eigentlich nicht in BASIC, vermultich auch ein Grund, warum sich BASIC nicht wirklich f\u00fcr gr\u00f6ssere Projekte eignete und warum sich sp\u00e4ter zeilenlose Basics durchgesetzt haben.<\/p>\n\n\n\n

<\/p>\n\n\n\n

1 REM LINE JEWELS - CROSS 8BIT PORTABLE BASIC GAME \n2 REM NEO LISTING\/TYPE IN 8BIT GAME ---\n3 REM C64_ VICE - F10 - IMPORT | PET_ WWW.MASSWERK.AT\/PET\/ \n4 REM AMSTRAD (CPC)_ ARNDOLD (AUTOTYPE)\n5 REM MICROBBC_ BBCMIC.RO\/ MSX_ WEBMSX.ORG (OPTION+B)\n6 REM ATARI 800XL_ WWW.ATARIMAC.COM\/INDEX.PHP\n7 REM ------------- COPY FROM HERE -------------------\n8 DIM F$(50):DIM A$(50):DIM AC$(50):DIM CH$(50):DIM MO$(50)\n9 DIM RE$(50):DIM L$(50):DIM DX$(50):DIM OB$(50):DIM N$(50)\n10 LET A$=\"\"\n11 F$=\"#X.O\"\n12 MC=0\n13 CH$=\"\"\n14 LET HC = 420\n15 LET AC$=\"\"\n16 VE = 0.6\n17 DIM GT(10,100)\n28 GOTO 70\n39 REM SETTINGS\n40 A$=\"\"\n41 A=0\n42 CH=0\n43 IF MC=2 THEN GOTO 51\n44 IF MC=3 THEN GOTO 56\n45 IF MC=4 THEN GOTO 58\n46 REM C64-BASIC\n47 A = PEEK(197)\n48 IF A=10 THEN A$=\"A\": GOTO 69\n49 IF A=13 THEN A$=\"S\": GOTO 69\n50 GOTO 69\n51 REM ATARI 800XL\n52 CH=PEEK(764):POKE 764,255:IF CH=255 THEN GOTO 69\n53 IF CH=63 THEN A$=\"A\":GOTO 69\n54 IF CH=62 THEN A$=\"S\":GOTO 69\n55 GOTO 69\n56 REM MICRO BBC\n57 A$=INKEY$(0):GOTO 69\n58 REM GW-BASIC, MSX, AMSTRAD (ATTENTION UPPERCASE)\n59 A$=INKEY$\n69 GOTO 1320\n70 REM GO ON\n80 SP = 60\n95 TS = 0\n97 REM BASIC DARTHMOUTH > 64 - ONLY 2BYTE VAR NAMES!\n100 GOSUB 5000\n101 OB$ = \"#XO.\"\n102 PRINT \"<#><.><O><O>\"\n103 PRINT \"<#><O><O><X><X>\"\n104 PRINT \"\"\n105 PRINT \"LINEJEWELS - ONE BUTTON JEWLERY \";VE\n106 PRINT \"\"\n117 PRINT \"ONE SOURCE FOR ALL OF THEM\"\n118 PRINT \"NEO LISTING \/ TYPE-IN 8BIT-GAME\"\n111 PRINT \"BY CHLUDENS.CH (EXPER. ARCHEOLOGY)\"\n112 PRINT \"GREETINGS R. WERNER, S. HOELTGEN\"\n113 PRINT \"USAGE: <S> SET STONE \"\n114 PRINT \"       <A> ONE FORWARD\"\n115 PRINT \"TODO : CREATE 3+ LINES\"\n116 PRINT \"       WITH THE DIAMONDS \";OB$\n117 PRINT \"HIGHSCORE: \";HC\n128 REM PRINT \" \";CHR$(7);CHR$(7);CHR$(7)\n130 PRINT \" \"\n131 PRINT \"COMPUTER: 1:C64 2:ATARI 800XL \"\n132 PRINT \"          3:MICRO BBC \"\n133 PRINT \"          4:MSDOS(GW),MSX,AMSTRAD \"\n134 INPUT MC\n135 PRINT \"\" \n136 PRINT \"\"\n137 PRINT \"GET RICH! \"\n138 PRINT \"(NO CHANCE IF ARE NOT YET)\"\n139 PRINT \"\"\n500 SC = 0\n510 LI = 0\n520 X = 0\n530 AC$ = \"#\"\n540 REM \n1000 REM NEXT LINE\n1001 GOSUB 6000\n1002 AC$ = CH$\n1005 X = 0\n1006 MO$ = \"INTERACTIVE\"\n1007 RE$ = \"\"\n1008 REM IF SC<10000 THEN PRINT ;\" \";\n1009 IF SC<1000 THEN PRINT ;\" \";\n1010 IF SC<100 THEN PRINT ;\" \";\n1011 IF SC <10 THEN PRINT ;\" \";\n1012 L$ = \"\"\n1013 IF LI>40 THEN L$=\" \"\n1015 PRINT STR$(SC);\" !\";L$;STR$(50-LI);\"! \";AC$;\" ! \";\n1100 GOSUB 6000\n1110 REM\n1119 KP = 0\n1120 IF LI<2 THEN MO$ = \"FORWARD\"\n1190 IF MO$<>\"INTERACTIVE\" THEN GOTO 1410\n1199 H = 0 \n1200 REM --- CHECK KEYS AND PAUSE ---\n1300 REM .\n1305 REM .\n1310 GOTO 40\n1320 IF A$=\"S\" THEN CH$ = AC$\n1330 IF A$=\"S\" THEN MO$ = \"ENDLINE\"\n1332 IF A$=\"S\" THEN RE$ = \" >\"\n1333 IF A$=\"S\" THEN KP = 1\n1334 IF A$=\"S\" THEN GOTO 1410\n1335 IF A$=\"A\" THEN GOTO 1410\n1336 IF A$=\"s\" THEN CH$ = AC$\n1337 IF A$=\"s\" THEN MO$ = \"ENDLINE\"\n1338 IF A$=\"s\" THEN RE$ = \" >\"\n1339 IF A$=\"s\" THEN KP = 1\n1340 IF A$=\"s\" THEN GOTO 1410\n1341 IF A$=\"a\" THEN GOTO 1410\n1351 H = H + 1\n1352 SP = (50 - LI)\/2\n1360 IF H<SP THEN GOTO 1200\n1410 PRINT CH$;\n1411 LET FV = 0\n1412 GOSUB 7000\n1418 REM ----\n1420 GT(X,LI)=FV\n1425 IF KP = 0 THEN GOTO 2000\n1430 REM CHECK ALL - VERTICAL - HORIZONTAL ETC\n1431 TS = 0\n1432 FOR Q=0 TO 3\n1433 VX = 0\n1434 REM TS=0\n1435 VY = -1\n1436 GOSUB 7000\n1438 IF Q=3 THEN VY = 0\n1439 IF Q=3 THEN VX = -1\n1440 CO = 0\n1441 IF Q=1 THEN VX = -1\n1442 IF Q=2 THEN VX = 1\n1443 SX = X\n1444 SY = LI\n1445 SX = SX + VX\n1446 SY = SY + VY\n1447 CO = CO + 1\n1460 IF SX<0 THEN GOTO 1500\n1461 IF SY<0 THEN GOTO 1500\n1462 IF SX>10 THEN GOTO 1500\n1470 IF GT(SX,SY)=FV THEN GOTO 1445\n1500 REM \n1510 REM RE$ = RE$ + \"\";CO\n1511 DX$ = \"!\"\n1512 IF Q=1 THEN DX$ = \"!\"\n1513 IF Q=2 THEN DX$ = \"\/\"\n1514 IF Q=3 THEN DX$ = \"-\"\n1520 IF CO>2 THEN TS = TS + (CO*10)\n1521 IF MC=2 THEN IF CO>2 THEN RE$(LEN(RE$)+1)= STR$(CO)\n1522 IF MC=2 THEN IF CO>2 THEN RE$(LEN(RE$)+1)= DX$:GOTO 1524\n1523 IF CO>2 THEN RE$ = RE$ + \"\" + STR$(CO) + \"\"+DX$\n1524 REM IF MC<>2 THEN IF CO>2 THEN PRINT CHR$(7);\n1600 NEXT Q\n2000 X = X + 1\n2010 REM\n2020 REM\n2400 IF X<10 THEN GOTO 1100\n2405 SC = SC + TS\n2406 IF MC=2 THEN IF TS>0 THEN RE$(LEN(RE$)+1)=STR$(TS):GOTO 2410\n2407 IF TS>0 THEN RE$ = RE$ + \" +\" + STR$(TS)\n2410 IF RE$<>\"\" THEN PRINT RE$;\n2500 PRINT \" \"\n2510 LI = LI + 1\n2520 IF LI>49 THEN GOTO 7050\n2600 REM\n3900 GOTO 1000\n4000 END\n5000 REM CLS\n5010 FOR T=0 TO 40\n5020 PRINT \" \"\n5030 NEXT T\n5040 RETURN\n6000 REM GET NEXT CHAR\n6001 C = RND(4)\n6002 IF C=0 THEN GOTO 6007\n6003 IF C=1 THEN GOTO 6007\n6004 IF C=2 THEN GOTO 6007\n6005 IF C=3 THEN GOTO 6007\n6006 C = INT(RND(1)*4)\n6007 REM C64 ETC\n6020 CH$ = \"#\"\n6030 IF C=1 THEN CH$ = \"X\"\n6040 IF C=2 THEN CH$ = \"O\"\n6050 IF C=3 THEN CH$ = \".\"\n6060 RETURN\n7000 REM GET FIELD VALUE FROM CH$\n7009 FV = 0\n7010 IF CH$=\"X\" THEN FV = 1\n7020 IF CH$=\"O\" THEN FV = 2\n7030 IF CH$=\".\" THEN FV = 3\n7040 RETURN\n7050 PRINT \" \"\n7055 PRINT \"END OF THE GAME\"\n7060 IF SC<HC THEN GOTO 7065\n7061 PRINT \"\"\n7062 PRINT \"NEW HIGHSCORE! \";SC\n7063 HC=SC\n7065 PRINT \" \"\n7070 PRINT \"ANOTHER TRY? Y | N\"\n7080 INPUT N$\n7090 IF N$=\"Y\" THEN GOTO 500<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
Fragestellung: Ist es m\u00f6glich ein Basic-Game zu entwickeln, das auf den meisten 8Bit-Homecomputern wie C64,MSX,MS-DOS,ZX81 etc l\u00e4uft? L\u00e4uft bestenfalls mit keinen! bis kleinen \u00c4nderungen? BASIC war die Sprache der 8Bit Homecomputer. Sie war alt (Darthmouth 1964), klein, eine Interpretersprache und dadurch relativ einfach zu implementieren. Erste Erkenntnisse zur „Lingua-Franca“ BASIC Es w\u00fcrde also nahe liegen […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[66,15,1],"tags":[],"class_list":["post-1260","post","type-post","status-publish","format-standard","hentry","category-basic","category-coding","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/posts\/1260","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1260"}],"version-history":[{"count":21,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/posts\/1260\/revisions"}],"predecessor-version":[{"id":5135,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=\/wp\/v2\/posts\/1260\/revisions\/5135"}],"wp:attachment":[{"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1260"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1260"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/research.swissdigitization.ch\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1260"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}