Nostalgie pur - der Sharp PC-1403H

Babyschritte könnte man das nennen, was ich auf diesem Gerät gemacht habe. Jedenfalls hatte ich mit dem Sharp PC-1403H meine ersten Versuche im Programmieren unternommen. Dieses kleine Ding gehörte eigentlich schon damals (als ich noch zur Schule ging) zum alten Eisen, was Taschenrechner betrifft, und doch bot es so viele Möglichkeiten, dass kaum jemand sein volles Potenzial ausgeschöpft hatte.

Der gameboy war damals zwar schon erfunden, aber noch nicht für jedermann bezahlbar. Ausserdem war er in der Schule verboten. Aber zum Glück gab's da noch den Sharp PC-1403H. Auch der konnte in langweiligen Schulstunden für gewisse Unterhaltung sorgen. Mit zwölf Zeilen Code (siehe unten) konnte man sich ein Skirennen programmieren, das aufgrund der technischen Möglichkeiten des Rechners zwar etwas bescheiden, aber doch sehr kurzweilig daherkam. Ein klassiker kann ich nur sagen. Wer noch einen solchen Rechner besitzt, möge sich selbst überzeugen - einfach abtippen und loslegen!

Taschenrechner Sharp PC-1403H
			100:S$="ll":W=9:P=1:SC=0:DIM SP$(18,18):RANDOM
			110:SP$(0)="":FOR I=1 TO 18:SP$(I)=SP$(I-1)+" ":NEXT I
			120:INPUT "Level (1-9) ";L:L=100-(L*10):WAIT L
			130:PRINT SP$(W);"P";SP$(P);S$;SP$(2-P);"P"
			140:I$=INKEY$ :S$="ll"
			150:IF I$="Q" THEN LET P=P-1:S$="//"
			160:IF I$="P" THEN LET P=P+1:S$=CHR$ (92)+CHR$ (92)
			170:R=RND (3):R=R-2:W=W-R:P=P+R
			180:IF W<0 OR W>18 THEN GOTO 170
			190:IF P<0 OR P>2 THEN GOTO 210
			200:SC=SC+1:GOTO 130
			210:WAIT :PRINT "ENDE - ";STR$ (SC);" Punkte":END