Meine uralte QBasic Programme (1994-1996)

Ich habe als Teenager mal programmiert. Ab der vierten Klasse mit zehn Jahren zuerst Amiga Basic. Diese Programme gingen alle verloren. Als ich 14 Jahre alt war, nutzte ich einen 486er. Da gibt es ein paar wenige QBasic Programme noch. Ich könnte mal den 8088er von 1990 starten. Da sind eine Hand voll mehr Programme, falls ich die da wieder raus bekomme. Ich war jung, hatte noch weniger Ahnung als heute und hatte GNU noch nicht gekannt. Verzeiht mir diese schlechten Programme, die ich jetzt veröffentliche. 2003 sollte bei meiner Ausbildung zum Technischen Zeichner*in zu einer Projektarbeit eine Präsentation erstellt werden. Ich weigerte mich das mit Powerpoint zu mache (konnte das entscheiden) und bastelte eine CD mit Autostart (das ging damals), die den Browser für eine html Präsentation öffnete. Es war sogar Video mit drin. Für den Autostart hatte ich ein neun Zeilen Programm in Visual Basic 6 geschrieben und sechs Stunden im Netz gesucht. Es blendete auch einen Banner ein, dass das Team von dem Projekt zeigte.

Von weltweit Milliarden programmierenden Menschen bin ich der Schlechteste. Ich kann eigentlich nicht wirklich Programme schreiben.


Hier nun die Programme:


CODE.BAS – Die dümmste Variante etwas zu verschlüsseln:

s:
CLS
ca$ = CHR$(0)
PRINT “1 = codieren”
PRINT “2 = decodieren”
PRINT “3 = unbedingt lesen”
PRINT “4 = ENDE”
PRINT : PRINT : PRINT
INPUT “Die Wahl: “, VEgMS
IF VEgMS = 1 THEN GOTO co
IF VEgMS = 2 THEN GOTO deco
IF VEgMS = 3 THEN GOTO les
IF VEgMS = 4 THEN END
GOTO s
co:
CLS
PRINT “Geben Sie die zu codierende Nachricht ein!”
INPUT na$
FOR i = 1 TO LEN(na$)
xa$ = MID$(na$, i, 1)
ca = ASC(xa$)
IF ca = 97 THEN ca = 59
IF ca = 98 THEN ca = 45
IF ca = 99 THEN ca = 41
IF ca = 100 THEN ca = 92
IF ca = 101 THEN ca = 37
IF ca = 102 THEN ca = 33
IF ca = 103 THEN ca = 43
IF ca = 104 THEN ca = 90
IF ca = 105 THEN ca = 36
IF ca = 106 THEN ca = 65
IF ca = 107 THEN ca = 61
IF ca = 108 THEN ca = 47
IF ca = 109 THEN ca = 88
IF ca = 110 THEN ca = 60
IF ca = 111 THEN ca = 63
IF ca = 112 THEN ca = 58
IF ca = 113 THEN ca = 38
IF ca = 114 THEN ca = 42
IF ca = 115 THEN ca = 40
IF ca = 116 THEN ca = 62
IF ca = 117 THEN ca = 77
IF ca = 118 THEN ca = 89
IF ca = 119 THEN ca = 46
IF ca = 120 THEN ca = 75
IF ca = 121 THEN ca = 82
IF ca = 122 THEN ca = 44
ca$ = ca$ + CHR$(ca)
NEXT i
PRINT “Die codierte Nachricht lautet:”
PRINT ca$
PRINT : PRINT
PRINT “Wollen Sie die Nachricht drucken? 1=JA, alles andere=NEIN”
INPUT VEgMS
IF VEgMS = 1 THEN LPRINT ca$
GOTO s
deco:
CLS
PRINT “Geben Sie die zu decodierende Nachricht ein!”
INPUT na$
FOR i = 1 TO LEN(na$)
xa$ = MID$(na$, i, 1)
ca = ASC(xa$)
IF ca = 59 THEN ca = 97
IF ca = 45 THEN ca = 98
IF ca = 41 THEN ca = 99
IF ca = 92 THEN ca = 100
IF ca = 37 THEN ca = 101
IF ca = 33 THEN ca = 102
IF ca = 43 THEN ca = 103
IF ca = 90 THEN ca = 104
IF ca = 36 THEN ca = 105
IF ca = 65 THEN ca = 106
IF ca = 61 THEN ca = 107
IF ca = 47 THEN ca = 108
IF ca = 88 THEN ca = 109
IF ca = 60 THEN ca = 110
IF ca = 63 THEN ca = 111
IF ca = 58 THEN ca = 112
IF ca = 38 THEN ca = 113
IF ca = 42 THEN ca = 114
IF ca = 40 THEN ca = 115
IF ca = 62 THEN ca = 116
IF ca = 77 THEN ca = 117
IF ca = 89 THEN ca = 118
IF ca = 46 THEN ca = 119
IF ca = 75 THEN ca = 120
IF ca = 82 THEN ca = 121
IF ca = 44 THEN ca = 122
ca$ = ca$ + CHR$(ca)
NEXT i
PRINT “Die decodierte Nachricht lautet:”
PRINT ca$
PRINT : PRINT
PRINT “Wollen Sie die Nachricht drucken? 1=JA, alles andere=NEIN”
INPUT VEgMS
IF VEgMS = 1 THEN LPRINT ca$
GOTO s
les:
CLS
PRINT ” B I T T E L E S E N !”
PRINT
PRINT “Die eingegebene Nachricht darf nur aus kleinen Buchstaben bestehen.”
PRINT “Zahlen muessen auch in Buchstaben geschrieben werden. Es koennen”
PRINT “nicht mehr als 250 Zeichen benutzt werden.”
PRINT “Zum Decodieren bitte nur die angegebenen Zeichen benutzen.”
PRINT : PRINT
INPUT “Return “, VEgMS
GOTO s


MULTIPRO.BAS – Genau so dumme Verschlüsselung:

CLS
INPUT “Name: “, na$
INPUT “Alter: “, al
IF al < 5 THEN PRINT “Du bist zu jung!”: END
IF al > 120 THEN PRINT “Sie sind zu alt!”: END
IF na$ = “Matthias” THEN PRINT “Diesen Namen hat der Programmierer dieses Programmes auch.”: INPUT “Return “, j
q:
CLS
PRINT “1= Codier- und Decodiermaschiene”
PRINT “2= HF”
PRINT “10= Info”
PRINT “Alles andere = Ende”
INPUT “Die Eingabe: “, j
IF j = 1 THEN GOTO cod
IF j = 2 THEN GOTO hf
IF j = 10 THEN GOTO hel
END
cod:
INPUT “1=Codierung, 2=Decodierung,3=Hauptmenue “; j
IF j = 1 THEN GOTO co
IF j = 2 THEN GOTO deco
GOTO q
co:
CLS
PRINT na$; “, gebe die zu codierende Nachricht ein!”
INPUT n$
FOR i = 1 TO LEN(n$)
x$ = MID$(n$, i, 1)
c = ASC(x$) + al
IF c > 255 THEN c = c – 255
c$ = c$ + CHR$(c)
NEXT i
PRINT “Die codierte Nachricht lautet:”
PRINT c$
PRINT : PRINT
INPUT “1=Hauptmenue, 2=nochmal”, j
IF j = 1 THEN GOTO q
GOTO co
deco:
CLS
PRINT na$; “, gebe die codierte Nachricht ein! “
PRINT “ACHTUNG! Die Altersangabe am Anfang muss mit der Altersangabe”
PRINT “von der codierten Nachricht uebereinstimmen!!”
INPUT n$
FOR i = 1 TO LEN(n$)
x$ = MID$(n$, i, 1)
c = ASC(x$) – al
IF c < 0 THEN c = c + 255
d$ = d$ + CHR$(c)
NEXT i
PRINT “Die decodierte Nachricht lautet:”
PRINT d$
PRINT : PRINT
INPUT “1=Hauptmenue, 2=nochmal”, j
IF j = 1 THEN GOTO q
GOTO deco
hel:
CLS
PRINT ” I N F O”
PRINT
PRINT ” Die Codiermaschiene”: PRINT
PRINT “Es werden zwar alle wichtigen Sachen im Programmabschnitt”
PRINT “erwaehnt, aber es wurden noch Fehler entdeckt.”
PRINT “So ist es moeglich, noch einmal ein Nachricht einzugeben, doch”
PRINT “das Ergebnis wird einfach hinter das vorherige Ergebnis angehaengt.”
PRINT “Das Programm muss jedesmal neu gestartet werden. In der Original-“
PRINT “Version ist dieser Fehler schon behoben worden. Preis: 399,-DM”
PRINT “Fehler Nr.2, der nicht beseitigt werden kann: Die Nachricht kann nicht”
PRINT “laenger als 250 Zeichen sein. Je nach dem, welches Alter eingegeben”
PRINT “wurde (haengt von der Codierung ab), kann es vorkommen, dass bestimmte”
PRINT “Zeichen nicht lesbar sind. In der Originalversion auch behoben.”
PRINT : PRINT
PRINT ” H F”
PRINT “Teste Dein Gehoer! Wenn Du den Ton nicht mehr hoerst, druecke sofort”
PRINT “auf Pause, damit Du die Frequenz ablesen kannst. Druecke dann eine”
PRINT “beliebige Taste.”
INPUT “Return “, j
GOTO q
hf:
FOR i = 40 TO 25000
PRINT “Frequenz: “; i; ” Hz”
SOUND i, 3
i = i * 1.01
NEXT i
INPUT “Return “, j
GOTO q


MESSER.BAS – Ein sehr primitives Testprogramm zu Messen der CPU Geschwindigkeit für 8086 bis 586:

CLS
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 4, 27: PRINT “(c) 1996 by Matthias Schmidt”
LOCATE 6, 19: PRINT “G E S C H W I N D I G K E I T S M E S S E R”
LOCATE 8, 35: PRINT “fr Ihren PC”
LOCATE 16, 32: INPUT “Weiter mit RETURN”, VEgMS
start:
CLS
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 12, 17: PRINT “Ihr Computer wird nun eine Schleife ausrechnen.”
LOCATE 13, 17: PRINT “Dafr braucht er eine bestimmte Zeit. “
LOCATE 14, 17: PRINT “Die Zeit wird gez„hlt und nacher angegeben. “
LOCATE 15, 17: PRINT “Daran k”nnen sie erkennen, wie schnell ihr “
LOCATE 16, 17: PRINT “Rechner ist. “
LOCATE 18, 32: INPUT “Weiter mit RETURN”, VEgMS
CLS
a$ = TIME$
FOR i = 1 TO 10000
CLS
LOCATE 10, 25: PRINT i; ” von 10000. Bitte warten.”
NEXT i
b$ = TIME$
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 3, 28: PRINT “Zeit des Startes: “; a$
LOCATE 5, 28: PRINT “Zeit des Endes: “; b$
xa$ = MID$(a$, 1, 1)
v = ASC(xa$)
IF v = 48 THEN c = 0
IF v = 49 THEN c = 1
IF v = 50 THEN c = 2
IF v = 51 THEN c = 3
IF v = 52 THEN c = 4
IF v = 53 THEN c = 5
IF v = 54 THEN c = 6
IF v = 55 THEN c = 7
IF v = 56 THEN c = 8
IF v = 57 THEN c = 9
c = c * 10
xa$ = MID$(a$, 2, 1)
v = ASC(xa$)
IF v = 48 THEN c = c + 0
IF v = 49 THEN c = c + 1
IF v = 50 THEN c = c + 2
IF v = 51 THEN c = c + 3
IF v = 52 THEN c = c + 4
IF v = 53 THEN c = c + 5
IF v = 54 THEN c = c + 6
IF v = 55 THEN c = c + 7
IF v = 56 THEN c = c + 8
IF v = 57 THEN c = c + 9
xa$ = MID$(a$, 4, 1)
v = ASC(xa$)
IF v = 48 THEN d = 0
IF v = 49 THEN d = 1
IF v = 50 THEN d = 2
IF v = 51 THEN d = 3
IF v = 52 THEN d = 4
IF v = 53 THEN d = 5
IF v = 54 THEN d = 6
IF v = 55 THEN d = 7
IF v = 56 THEN d = 8
IF v = 57 THEN d = 9
d = d * 10
xa$ = MID$(a$, 5, 1)
v = ASC(xa$)
IF v = 48 THEN d = d + 0
IF v = 49 THEN d = d + 1
IF v = 50 THEN d = d + 2
IF v = 51 THEN d = d + 3
IF v = 52 THEN d = d + 4
IF v = 53 THEN d = d + 5
IF v = 54 THEN d = d + 6
IF v = 55 THEN d = d + 7
IF v = 56 THEN d = d + 8
IF v = 57 THEN d = d + 9
xa$ = MID$(a$, 7, 1)
v = ASC(xa$)
IF v = 48 THEN e = 0
IF v = 49 THEN e = 1
IF v = 50 THEN e = 2
IF v = 51 THEN e = 3
IF v = 52 THEN e = 4
IF v = 53 THEN e = 5
IF v = 54 THEN e = 6
IF v = 55 THEN e = 7
IF v = 56 THEN e = 8
IF v = 57 THEN e = 9
e = e * 10
xa$ = MID$(a$, 8, 1)
v = ASC(xa$)
IF v = 48 THEN e = e + 0
IF v = 49 THEN e = e + 1
IF v = 50 THEN e = e + 2
IF v = 51 THEN e = e + 3
IF v = 52 THEN e = e + 4
IF v = 53 THEN e = e + 5
IF v = 54 THEN e = e + 6
IF v = 55 THEN e = e + 7
IF v = 56 THEN e = e + 8
IF v = 57 THEN e = e + 9
xa$ = MID$(b$, 1, 1)
v = ASC(xa$)
IF v = 48 THEN cm = 0
IF v = 49 THEN cm = 1
IF v = 50 THEN cm = 2
IF v = 51 THEN cm = 3
IF v = 52 THEN cm = 4
IF v = 53 THEN cm = 5
IF v = 54 THEN cm = 6
IF v = 55 THEN cm = 7
IF v = 56 THEN cm = 8
IF v = 57 THEN cm = 9
cm = cm * 10
xa$ = MID$(b$, 2, 1)
v = ASC(xa$)
IF v = 48 THEN cm = cm + 0
IF v = 49 THEN cm = cm + 1
IF v = 50 THEN cm = cm + 2
IF v = 51 THEN cm = cm + 3
IF v = 52 THEN cm = cm + 4
IF v = 53 THEN cm = cm + 5
IF v = 54 THEN cm = cm + 6
IF v = 55 THEN cm = cm + 7
IF v = 56 THEN cm = cm + 8
IF v = 57 THEN cm = cm + 9
xa$ = MID$(b$, 4, 1)
v = ASC(xa$)
IF v = 48 THEN dm = 0
IF v = 49 THEN dm = 1
IF v = 50 THEN dm = 2
IF v = 51 THEN dm = 3
IF v = 52 THEN dm = 4
IF v = 53 THEN dm = 5
IF v = 54 THEN dm = 6
IF v = 55 THEN dm = 7
IF v = 56 THEN dm = 8
IF v = 57 THEN dm = 9
dm = dm * 10
xa$ = MID$(b$, 5, 1)
v = ASC(xa$)
IF v = 48 THEN dm = dm + 0
IF v = 49 THEN dm = dm + 1
IF v = 50 THEN dm = dm + 2
IF v = 51 THEN dm = dm + 3
IF v = 52 THEN dm = dm + 4
IF v = 53 THEN dm = dm + 5
IF v = 54 THEN dm = dm + 6
IF v = 55 THEN dm = dm + 7
IF v = 56 THEN dm = dm + 8
IF v = 57 THEN dm = dm + 9
xa$ = MID$(b$, 7, 1)
v = ASC(xa$)
IF v = 48 THEN em = 0
IF v = 49 THEN em = 1
IF v = 50 THEN em = 2
IF v = 51 THEN em = 3
IF v = 52 THEN em = 4
IF v = 53 THEN em = 5
IF v = 54 THEN em = 6
IF v = 55 THEN em = 7
IF v = 56 THEN em = 8
IF v = 57 THEN em = 9
em = em * 10
xa$ = MID$(b$, 8, 1)
v = ASC(xa$)
IF v = 48 THEN em = em + 0
IF v = 49 THEN em = em + 1
IF v = 50 THEN em = em + 2
IF v = 51 THEN em = em + 3
IF v = 52 THEN em = em + 4
IF v = 53 THEN em = em + 5
IF v = 54 THEN em = em + 6
IF v = 55 THEN em = em + 7
IF v = 56 THEN em = em + 8
IF v = 57 THEN em = em + 9
f = cm – c
g = dm – d
h = em – e
IF h < 0 THEN h = h + 60: g = g – 1
IF g < 0 THEN g = g + 60: f = f – 1
IF f < 0 THEN f = 0
LOCATE 8, 26: PRINT “Ihr System ben”tigte: “
LOCATE 10, 26: PRINT f; ” Stunden “
LOCATE 11, 26: PRINT g; ” Minuten “
LOCATE 12, 26: PRINT h; ” Sekunden, “
LOCATE 14, 26: PRINT “um die Schleife auszurechnen. “
LOCATE 17, 26: PRINT “ACHTUNG! Sekunden k”nnen sich “
LOCATE 18, 26: PRINT ” um 1 ver„ndern! “
LOCATE 20, 26: INPUT ” Weiter mit RETURN. “, VEgMS
fal:
CLS
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 10, 18: PRINT “1 = ENDE 2 = Information DRUCKEN 3 = nochmal”
LOCATE 12, 15: PRINT “Geben Sie die Zahl ein und dannach RETURN.”
LOCATE 14, 40: INPUT VEgMS
IF VEgMS = 1 THEN GOTO ende
IF VEgMS = 2 THEN GOTO druck
IF VEgMS = 3 THEN GOTO start
GOTO fal
ende:
CLS
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 10, 22: PRINT “DIESES PROGRAMM MUSS KOPIERT WERDEN!!!”
LOCATE 11, 22: PRINT “————————————–“
LOCATE 12, 22: PRINT ” “
LOCATE 13, 22: PRINT “Wenn Sie dieses Programm benutzt haben”
LOCATE 14, 22: PRINT “, máen Sie es weiter geben, damit es “
LOCATE 15, 22: PRINT “sich verbreiten kann. Durch die Ver- “
LOCATE 16, 22: PRINT “breitung mittels Kopie entf„llt die “
LOCATE 17, 22: PRINT “Zahlungspflicht. Ver. 1.1 4/96”
LOCATE 20, 26: INPUT ” Zurck zu DOS mit RETURN. “, VEgMS
PRINT
PRINT
END
druck:
CLS
FOR i = 1 TO 25
PRINT CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$( _
176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); _
CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176); CHR$(176)
NEXT i
LOCATE 10, 26: PRINT ” Text wird gedruckt an LPT1. “
LPRINT “GESCHWINDIGKEITSMESSER FšR IHREN PC VER. 1.1 4/96 VEgMS”
LPRINT
LPRINT “*********************************************************”
LPRINT “Am “; DATE$; ” wurde ein Testlauf auf Ihrem PC gemacht.”
LPRINT
LPRINT “ERGEBNIS:”
LPRINT
LPRINT “Ihr System ben”tigte: “
LPRINT
LPRINT f; ” Stunden “
LPRINT g; ” Minuten “
LPRINT h; ” Sekunden, “
LPRINT
LPRINT “um die Schleife auszurechnen. “
LPRINT “ACHTUNG! Sekunden k”nnen sich um 1 ver„ndern”
LPRINT
LPRINT “DIESES PROGRAMM MUSS KOPIERT WERDEN!!!”
LPRINT “Wenn Sie dieses Programm benutzt haben”
LPRINT “, máen Sie es weiter geben, damit es “
LPRINT “sich verbreiten kann. Durch die Ver- “
LPRINT “breitung mittels Kopie entf„llt die “
LPRINT “Zahlungspflicht. Ver. 1.1 4/96”
LOCATE 22, 32: INPUT “Weiter mit Return!”, VEgMS
GOTO fal


MATHE.BAS – Ein kleines Programm für geometrische Berechnung (etwas sinnvoller):

SCREEN 0
anfang:
CLS
WIDTH 80, 50

LOCATE 20, 25: PRINT “Volumenberechnung “
LOCATE 21, 25: PRINT “Dreieck 1”
LOCATE 22, 25: PRINT “Rechteck 2”
LOCATE 23, 25: PRINT “Quader 3”
LOCATE 24, 25: PRINT “Pyramide 4”
LOCATE 25, 25: PRINT “ENDE e”
LOCATE 30, 25: INPUT “Bitte Ausw„hlen”; n

IF n = 1 THEN GOTO Dreieck
IF n = 2 THEN GOTO rechteck
IF n = 3 THEN GOTO quader
IF n = 4 THEN GOTO pyramide
IF n = e THEN GOTO ende

IF NOT n = 1 THEN GOTO falsch
IF NOT n = 2 THEN GOTO falsch
IF NOT n = 3 THEN GOTO falsch
IF NOT n = 4 THEN GOTO falsch
IF NOT n = e THEN GOTO falsch

Dreieck:
CLS
INPUT “L„nge”; a
INPUT “Breite”; b
INPUT “H”he”; h

rechnung = (a * b) * h / 2
PRINT “Das Ergebniss ist”; rechnung
LOCATE 40, 1: INPUT “Drcke ENTER um Fortzufahren”; enter
GOTO anfang

rechteck:
CLS
INPUT “L„nge”; a
INPUT “Breite”; b
INPUT “H”he”; h

rechnung = a * b * h
PRINT “Das Ergebniss ist”; rechnung
LOCATE 40, 1: INPUT “Drcke ENTER um Fortzufahren”; enter
GOTO anfang

quader:
CLS
INPUT “L„nge”; a
rechnung = a * a * a
PRINT “Das Ergebniss ist”; rechnung
GOTO anfang

pyramide:
CLS
INPUT “L„nge”; a
INPUT “Breite”; b
INPUT “H”he”; h

rechnung = (a * b) * h / 3
PRINT “Das Ergebniss”; rechnung
LOCATE 40, 1: INPUT “Drcke ENTER um Fortzufahren”; enter
GOTO anfang

falsch:
CLS
PRINT “Falsche Eingabe”
GOTO anfang

ende:
END


 

Hinterlasse eine Antwort

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *