10 REM WRITTEN BY PETER FALK
20 :
30 POKE840,0:REM SEKUNDAER-ADRESSE
40 POKE841,27:POKE842,32:POKE843,84:POKE844,0:POKE845,0:REM DRUCKER-PARAMETER
50 :
60 POKE 55,79:POKE 56,60:REM SPEICHER-
70 POKE643,79:POKE644,60:REM GRENZE
80 CLR                  :REM AUF 15439
90 POKE838,6:POKE839,15:REM FARBEN
100 POKE53280,PEEK(838):POKE53281,PEEK(839)
110 G%=100*0.23:POKE828,G%:REM GEBUEHREN-EINHEIT
120 PRINT"[144][147]";CHR$(14);CHR$(8)
130 GOSUB350:GOSUB600:POKE650,128
140 POKE832,80:REM PUFFERANFANG
150 POKE833,60:REM BEI 15440
160 PRINT"[147]     *******************************"
170 PRINT"     *                             *"
180 PRINT"     *   [211] [213] [208] [197] [210] - [212] [197] [210] [205]  64   *"
190 PRINT"     *   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]   *"
200 PRINT"     *                             *"
210 PRINT"     *    [215]RITTEN BY [208]ETER [198]ALK    *"
220 PRINT"     *                             *"
230 PRINT"     *    (C) 64'ER  1985          *"
240 PRINT"     *                             *"
250 PRINT"     *******************************"
260 PRINT"        (1) - [212]ERMINALPROGRAMM"
270 PRINT"        (2) - [197]DITOR"
280 PRINT"        (0) - [208]ROGRAMM BEENDEN"
290 GETQ$:IFQ$<>"0"ANDQ$<>"1"ANDQ$<>"2"THEN290
300 IFQ$="0"THENEND
310 PRINT"              [204]OADING..."
320 IFQ$="1"THENLOAD"TERMINAL",8
330 IFQ$="2"THENLOAD"EDITOR",8
340 :
350 REM * PEEK+POKE FUER UEBERL. RAM *
360 DATA165,20,72,165,21,72,32,247,183,120,165,1,41,252,133,1,160,0,177,20
370 DATA168,165,1,9,3,133,1,88,104,133,21,104,133,20,76,162,179,32,253,174
380 DATA32,138,173,32,247,183,32,253,174,32,158,183,120,169,52,133,1,138,160
390 DATA0,145,20,169,55,133,1,88,96
400 FORI=698TO765:READA:POKEI,A:NEXT
410 POKE785,186:POKE786,2
420 :
430 REM * LOAD *
440 DATA160,0,169,8,32,180,255,169,98,32,150,255,173,64,3,133,174,173,65
450 DATA3,133,175,32,19,238,145,174,230,174,208,2,230,175,169,208,197,175
460 DATA208,8,169,0,133,174,169,224,133,175,165,175,240,4,36,144,80,223
470 DATA165,174,141,64,3,165,175,141,65,3,32,171,255,96,0
480 FORI=848TO917:READA:POKEI,A:NEXT
490 :
500 REM * DIRECTORY *
510 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
520 DATA133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
530 DATA255,169,0,133,144,160,3,132,251,32,165,255,133,252,164,144,208,47
540 DATA32,165,255,164,144,208,40,164,251,136,208,233,166,252,32,205,189
550 DATA169,32,32,210,255,32,165,255,166,144,208,18,170,240,6,32,210,255
560 DATA76,226,3,169,13,32,210,255,160,2,208,198,32,66,246,96
570 FORI=918TO1022:READA:POKEI,A:NEXT
580 RETURN
590 :
600 REM * F-TASTEN LADEN *
610 OPEN1,8,2,"F-TASTEN,S,R"
620 OPEN2,8,15
630 INPUT#2,F
640 IFF=0THENPRINT"  [196]IE [198]UNKTIONSTASTEN WERDEN GELADEN."
650 PRINT"            [194]ITTE WARTEN..."
660 IFF=0THEN700
670 FORS=54000TO54559
680 SYS735,S,13:NEXT
690 GOTO720
700 FORS=54000TO54559
710 GET#1,A$:SYS735,S,ASC(A$):NEXT
720 CLOSE1:CLOSE2
730 RETURN