11 REM *********************************
12 REM *                               *
13 REM *             S M U             *
14 REM *                               *
15 REM *  (SCREEN MANAGEMENT UTILITY)  *
16 REM *                               *
17 REM *                               *
19 REM *         GEORG KRCAL           *
20 REM *   ZIEGELHOFSTRASSE 36/11/9    *
21 REM *   A - 1220 WIEN               *
22 REM *   TELEPHON 22-17-724          *
23 REM *                               *
24 REM *********************************
25 REM
26 REM
27 REM
28 REM
29 IFS=0THENS=1:LOAD"SMUBU",8,1
30 IFS=1THENS=2:LOAD"SMU.M",8,1
60 POKE 56,144:CLR
65 PRINT"[147]"CHR$(14)CHR$(8);:POKE53280,0:POKE53281,0
70 K$=" [205][193]-[193][204][212]  [205][193]-[206][197][213] [213][212][201][204][201][212][217] [196][210][213][195][203][197][206]   [197][206][196][197]  "
75 FORI=1TO25:CD$=CD$+"":FI$=FI$+"##########":RU$=RU$+"!!!!!!!!!!"
80 CR$=CR$+"":NEXT
85 CD$=""+CD$:RU$=RU$+"!!!!!":FI$=FI$+"#####"
90 DIM B$(14),A$(24),BC%(1024)
100 REM **** ERSTELLEN DES BILDSCHIRMS
110 PRINT"   ********   ***      *** ***      *** ";
120 PRINT"  ***    ***  ****    **** ***      *** ";
130 PRINT" ***      *** *****  ***** ***      *** ";
140 PRINT"  ***         *** **** *** ***      *** ";
150 PRINT"   ********   ***  **  *** ***      *** ";
160 PRINT"         ***  ***      *** ***      *** ";
180 PRINT" ***      *** ***      *** ***      *** ";
190 PRINT"  ***    ***  ***      ***  ***    ***  ";
200 PRINT"   ********   ***      ***   ********   ";
210 PRINT""TAB(6)"   [211][195][210][197][197][206][160][205][193][206][193][199][197][205][197][206][212][160][213][212][201][204][201][212][217]"
220 PRINT
230 PRINTTAB(12)"VON  [199]EORG [203]RCAL"
240 PRINTTAB(13)"[215]IEN, [205]AI 1985":IFXTHEN250
242 PRINTLEFT$(CD$,24)"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]         [145][145]"
243 POKE198,0:WAIT198,1:POKE198,0
244 SYS9*4096
250 PRINTLEFT$(CD$,24)K$;:X=1
390 REM KOMMANDOENTGEGENNAHME
400 S$=LEFT$(K$,X-1)+""+MID$(K$,X,8)+"[146]"+RIGHT$(K$,33-X)
405 PRINTLEFT$(CD$,24)S$"[145][145]";
410 WAIT203,63
420 GETG$:IFG$="J"THEN460
430 IFG$<>CHR$(13)THEN410
440 X=X+8:IFX>=40THENX=1
450 GOTO400
460 PRINTLEFT$(CD$,24)"                                       [145][145]"
470 X=(X-1)/8+1:ON X GOTO 480,500,900,670,471
471 PRINT"[147]";:END
480 PRINTLEFT$(CD$,24)"[193]LTER [196]ATEINAME [181]                [182][145][145]"
490 !INLINE 23,17,16,AN$:H$=AN$:GOSUB 2000:AN$=H$:IFAN$=""THEN490
500 PRINTLEFT$(CD$,24)"[206]EUER [196]ATEINAME [181]                [182][145][145]"
510 !INLINE 23,17,16,NN$:H$=NN$:GOSUB 2000:NN$=H$:IFNN$=""THEN510
520 PRINTLEFT$(CD$,24)"                                       [145][145]"
530 PRINTLEFT$(CD$,24)"[199]ERAETENUMMER [181]   [182][145][145]"
540 !INLINE 23,15,3,GN$:H$=GN$:GOSUB 2000:GN$=H$:IFGN$=""THEN540
550 GN=VAL(GN$):IF(GN<>1ANDGN<4)ORGN>255THEN530
555 PRINTLEFT$(CD$,24)"                                       [145][145]"
560 IF X=2 THEN SYS12*4096:GOTO640:REM NEUE MASKE
580 !MASK AN$,GN,B$(0):!SCREEN B$(0)
590 FORI=1TO255:CD=PEEK(39445+I):CR=PEEK(39700+I):FE=PEEK(39955+I)
600 CH=PEEK(40210+I):IFCD=128THEN630
610 H$=FI$:IFFE=1THENH$=RU$
620 PRINTLEFT$(CD$,CD+1)SPC(CR)LEFT$(H$,CH):NEXT:IFX=4THENRETURN
630 IFX=4THENRETURN
640 SYS49162:NN$="@:"+NN$+",S,W"
650 SYS49589,NN$,GN:REM MASKE ANALYSIEREN UND AUF PERIPHERIE
652 IFPEEK(832)=0THENPRINT"[147]";:GOTO100
654 H$="!":IFPEEK(832)=1THENH$="#"
656 PRINTLEFT$(CD$,24)"[198][197][200][204][197][210]: "H$" - [198]ELD >255 [218]EICHEN - [211][208][193][195][197][160]TASTEN";
658 H=LEN(NN$)-6:NN$=MID$(NN$,3,H)
660 GETG$:IFG$=""THEN660
662 PRINTLEFT$(CD$,24)"                                                     [145][145]"
664 GOTO640
670 PRINTLEFT$(CD$,24)"[196]ATEINAME [181]                [182][145][145]"
680 !INLINE 23,11,16,AN$:H$=AN$:GOSUB 2000:AN$=H$:IFAN$=""THEN670
690 GOSUB 520
700 FORI=0TO24:A$(I)="":FORJ=0TO39:BC=PEEK(1024+I*40+J)
710 IFBC>127THENG$="":GOTO725
715 IFBC<65ANDBC>31THENG$=CHR$(BC):GOTO725
717 IFBC<31ORBC>96THENG$=CHR$(BC+64):GOTO725
720 G$=CHR$(BC+32)
725 A$(I)=A$(I)+G$:NEXTJ,I
730 OPEN4,4,7:REM DRUCKER
740 PRINT#4,"   0         1         2         3"
750 PRINT#4,"   0....5....0....5....0....5....0....5...."
755 PRINT#4
760 FORI=0TO22:H$=STR$(I):H$=RIGHT$(H$,(LEN(H$)-1))
770 IFLEN(H$)=1THENH$="0"+H$
780 A$(I)=H$+" "+A$(I)
790 PRINT#4,A$(I):NEXT
800 CLOSE 4:REM DRUCKER SCHLIESSEN
810 PRINT"[147]";:GOTO100
900 PRINTLEFT$(CD$,24)"[199]ERAETENUMMER [181]   [182][145][145]"
910 !INLINE 23,15,3,GN$:H$=GN$:GOSUB 2000:GN$=H$:IFGN$=""THEN910
920 GN=VAL(GN$):IF(GN<>1ANDGN<4)ORGN>255THEN900
930 PRINTLEFT$(CD$,24)"                                       [145][145]"
940 OPEN8,GN,1
950 POKE 183,7:POKE187,169:POKE188,2
960 POKE 681,64:POKE682,58:POKE683,83:POKE684,77:POKE685,85:POKE686,66
970 POKE687,85:POKE251,0:POKE252,144
980 POKE 781,23:POKE782,154:POKE780,251:SYS65496
1000 CLOSE8:PRINT"[147]";:GOTO100
2000 FORJ=LEN(H$)TO1STEP-1:IFMID$(H$,J,1)=" "THENNEXT
2010 H$=LEFT$(H$,J):RETURN