10 DIM T$(6,10),V$(70),S$(48,8),N$(30),J$(10),X$(70)
20 X$="**********************************************************************"
30 PRINT"ERLAEUTERUNGEN:"\Z=0\READ V$,V$,V$,V$,V$
40 PRINT"DIESES PROGRAMM BIETET IHNEN DIE MOEGLICHKEIT, EINE BELIEBIGE"
50 PRINT"ANZAHL VOM STUNDENPLAENEN DRUCKEN ZU LASSEN. DIESE KOENNEN"
60 PRINT"SOWOHL BLANKO (1) ALS AUCH AUSGEFUELLT (2) HERGESTELLT WERDEN."
70 PRINT"DIE AUFNAHMEFAEHIGKEIT LIEGT BEI ACHT STUNDEN PRO TAG."
80 PRINT\PRINT"ANZAHL";\INPUT A
90 PRINT"ART (1 ODER 2)";\INPUT B\IF B=1 THEN 250
100 IF B=2 THEN 110\PRINT\PRINT"NEU EINGEBEN!"\PRINT\GOTO 90
110 PRINT\PRINT\PRINT"ERLAEUTERUNGEN:"
120 PRINT"ZUR KENNZEICHNUNG EINER STUNDE MUESSEN GENAU ACHT ZEICHEN"
130 PRINT"VERWENDET WERDEN! ES FOLGEN NUN VIER FRAGEN. FALLS DIE ENT-"
140 PRINT"SPRECHENDEN FELDER DES PLANES VON HAND AUSGEFUELLT WERDEN"
150 PRINT"SOLLEN, DRUECKEN SIE ALS ANTWORT DIE LEERTASTE!"
160 PRINT\PRINT"VOR- UND NACHNAME DES PLANINHABERS";\INPUT N$\C=30-LEN(N$)
165 FOR S= 1 TO C\N$=N$&" "\NEXT S
170 PRINT"KLASSE";\INPUT K$\PRINT"SCHULJAHR";\INPUT J$\C=7-LEN(J$)
175 FOR S= 1 TO C\J$=J$&" "\NEXT S
180 PRINT"