Naja, stimmt. So einfach ist das nicht, naja, ich kenne mich mit Basic schon sehr aus, deshalb sage ich, das ist einfach.
Ich hab noch eins aus Atari-Zeiten:
[pre]
10 REM ZENSURENSPIEGEL
11 REM
12 REM (C) 1991 COMPUTER@FFE JENS RABE
13 REM
20 DIM ZENSUREN(30):? CHR$(125);:GOSUB 1080
30 ? CHR$(125);"ZENSURENSPIEGEL":? "==============="
40 ?:?:?
50 ? "MENUE"
60 ?
70 ? "1. NEUER ZENSURENSPIEGEL"
80 ? "2. ZENSURENSPIEGEL LADEN"
90 ? "3. ZENSURENSPIEGEL SPEICHERN"
100 ? "4. ZENSUREN EINGEBEN
110 ? "5. TABELLE, DURCHSCHNITT"
120 ? "6. LEISTUNGSKURVE"
130 ? "7. ENDE"
140 ?
150 ? "DEINE WAHL: ";:INPUT W
160 IF W<1 OR W>7 OR W<>INT(W) THEN 30
170 ON W GOSUB 1000,2000,3000,4000,5000,6000,190
180 GOTO 30
190 POP:END
995 REM
996 REM ******************************
997 REM * NEUER ZENSURENSPIEGEL *
998 REM ******************************
999 REM
1000 ? CHR$(125);"NEUER ZENSURENSPIEGEL"
1010 ? "=====================":?
1020 ? "DIES LOESCHT DEN IM SPEICHER BEFINDLI-"
1030 ? "CHEN ZENSURENSPIEGEL."
1040 ?
1050 ? "BIST DU SICHER? (0 - NEIN, 1 - JA): ":INPUT W
1060 IF W<>0 AND W<>1 THEN ?"UNGUELTIGE EINGABE":GOTO 1050
1070 IF W=0 THEN RETURN
1080 ?:? "ARBEITE..."
1090 ANZAHL=0
1100 FOR I=1 TO 30:ZENSUREN(I)=0:NEXT I
1110 RETURN
1995 REM
1996 REM ******************************
1997 REM * ZENSURENSPIEGEL LADEN *
1998 REM ******************************
1999 REM
2000 ? CHR$(125);"ZENSURENSPIEGEL LADEN"
2010 ? "=====================":?
2020 ? "DIES LOESCHT DEN IM SPEICHER BEFINDLI-"
2030 ? "CHEN ZENSURENSPIEGEL."
2040 ?
2050 ? "BIST DU SICHER? (0 - NEIN, 1 - JA): ":INPUT W
2060 IF W<>0 AND W<>1 THEN ?"UNGUELTIGE EINGABE":GOTO 2050
2070 IF W=0 THEN RETURN
2080 ?
2090 ? "KASSETTE AN DIE RICHTIGE POSITION BRIN-"
2100 ? "GEN, DANN PLAY UND RETURN DRUECKEN"
2110 ?
2120 OPEN #1,4,0,"C:"
2130 INPUT #1,ANZAHL
2140 FOR I=1 TO ANZAHL
2150 INPUT #1,ZENSUREN(I)
2160 NEXT I
2170 CLOSE #1
2180 FOR I=ANZAHL+1 TO 30:ZENSUREN(I)=0:NEXT I
2190 RETURN
2995 REM
2996 REM ******************************
2997 REM * ZENSURENSPIEGEL SPEICHERN *
2998 REM ******************************
2999 REM
3000 ? CHR$(125);"ZENSURENSPIEGEL SPEICHERN"
3010 ? "=========================":?
3020 ? "KASSETTE AN DIE RICHTIGE POSITION BRIN-"
3030 ? "GEN, DANN RECORD+PLAY UND RETURN..."
3040 OPEN #1,8,0,"C:"
3050 PRINT #1;ANZAHL
3060 FOR I=1 TO ANZAHL
3070 PRINT #1;ZENSUREN(I)
3080 NEXT I
3090 CLOSE #1
3100 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I
3110 RETURN
3995 REM
3996 REM ******************************
3997 REM * ZENSUREN EINGEBEN *
3998 REM ******************************
3999 REM
4000 ? CHR$(125);"ZENSUREN EINGEBEN"
4010 ? "=================":?
4020 ? "AUFHOEREN -> 0 EINGEBEN"
4030 ? "GEHE ZU POSITION -> -1 EINGEBEN"
4040 ?
4050 P=ANZAHL+1
4060 ? "ZENSUR ";P;:INPUT Z
4070 IF P>30 AND Z>=1 AND Z<=6 THEN ? "ZU VIELE ZENSUREN":GOTO 4100
4080 ZENSUR(P)=Z
4090 P=P+1:ANZAHL=ANZAHL+1
4100 IF P<>-1 THEN 4130
4110 GOSUB 5020:? "POSITION (1 BIS ";ANZAHL+1;") ";
4120 INPUT P:IF P<1 OR P>ANZAHL+1 THEN ? "UNGUELTIGE EINGABE":GOTO 4110
4130 IF P<>0 THEN 4060
4140 RETURN
4995 REM
4996 REM ******************************
4997 REM * TABELLE, DURCHSCHNITT *
4998 REM ******************************
4999 REM
5000 ? CHR$(125);"TABELLE, DURCHSCHNITT"
5010 ? "=====================":?
5020 STA=1
5030 ? "NR.","NOTE","NR.","NOTE"
5040 ? "===","====","===","===="
5050 ?:SUMME=0
5060 FOR I=1 TO ANZAHL
5070 ? I,ZENSUREN(I),:SUMME=SUMME+ZENSUREN(I)
5080 STA=STA+1:IF STA=3 THEN STA=1:?
5090 NEXT I:?:? "DURCHSCHNITT: ";SUMME/ANZAHL
5100 ? "TASTE"
5110 POKE 764,255
5120 IF PEEK(764)=255 THEN 5120
5130 POKE 764,255
5140 RETURN
5995 REM
5996 REM ******************************
5997 REM * GRAFISCHE DARSTELLUNG *
5998 REM ******************************
5999 REM
6000 GRAPHICS 15
6010 COLOR 1
6020 PLOT 0,0
6030 DRAWTO 0,159
6040 PLOT 0,159
6050 DRAWTO 159,159
6060 FOR I=0 TO 29
6070 PLOT I*5,0
6080 DRAWTO I*5,159
6090 NEXT I
6100 COLOR 2
6110 PLOT 0,ZENSUREN(1)*20+39
6120 FOR I=2 TO ANZAHL
6130 DRAWTO (I-1)*5,ZENSUREN(I)*20+39
6140 NEXT I
6150 COLOR 3
6160 PLOT 0,ZENSUREN(1)*20+39
6170 SUMME=ZENSUREN(1)
6180 FOR I=2 TO ANZAHL
6190 SUMME=SUMME+ZENSUREN(I)
6200 DRAWTO (I-1)*5,SUMME/I*20+39
6210 NEXT I
6220 ? "GRUEN: ZENSUREN"
6230 ? "BLAU: DURCHSCHNITT: ";SUMME/ANZAHL
6240 ? "TASTE";
6250 POKE 764,255
6260 IF PEEK(764)=255 THEN 6260
6270 POKE 764,255
6280 GRAPHICS 0
6290 RETURN
[/pre]
Ich glaube, das erreicht in etwa die Schwierigkeit des Adventures. Habe damals eine ganze Woche dran gesessen, bis ich die grafische Darstellung hingekriegt habe.
Mit dem Programm hab ich dann immer meine Zensuren verwaltet. Da stand dann auf der Kassettenhülle (Nicht wundern wegen den Fächern, ich war 3. Klasse):
000 - 037 Zensurenspiegel, Programm (B)
037 - 046 Zensuren Mathe (Daten)
046 - 053 Zensuren Deutsch (Daten)
053 - 062 Zensuren Heimatkunde (Daten)
062 - 072 Zensuren Sport (Daten)
072 - 080 Zensuren Werken (Daten)
080 - 090 Zensuren Zeichnen (Daten)
090 - 098 Zensuren Schulgarten (Daten)
Wenn ich dann die entsprechenden Zensuren wollte, musste ich dann immer die Kassette hin- und herspulen...
Keep on slidin'
http://slidespix.homestead.com/files/jens_in_coaster.jpghttp://www.spassbadfuehrer.de