home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / smu (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  112 lines
  1. 11 REM *********************************
  2. 12 REM *                               *
  3. 13 REM *             S M U             *
  4. 14 REM *                               *
  5. 15 REM *  (SCREEN MANAGEMENT UTILITY)  *
  6. 16 REM *                               *
  7. 17 REM *                               *
  8. 19 REM *         GEORG KRCAL           *
  9. 20 REM *   ZIEGELHOFSTRASSE 36/11/9    *
  10. 21 REM *   A - 1220 WIEN               *
  11. 22 REM *   TELEPHON 22-17-724          *
  12. 23 REM *                               *
  13. 24 REM *********************************
  14. 25 REM
  15. 26 REM
  16. 27 REM
  17. 28 REM
  18. 29 IFS=0THENS=1:LOAD"SMUBU",8,1
  19. 30 IFS=1THENS=2:LOAD"SMU.M",8,1
  20. 60 POKE 56,144:CLR
  21. 65 PRINT"[147]"CHR$(14)CHR$(8);:POKE53280,0:POKE53281,0
  22. 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]  "
  23. 75 FORI=1TO25:CD$=CD$+"":FI$=FI$+"##########":RU$=RU$+"!!!!!!!!!!"
  24. 80 CR$=CR$+"":NEXT
  25. 85 CD$=""+CD$:RU$=RU$+"!!!!!":FI$=FI$+"#####"
  26. 90 DIM B$(14),A$(24),BC%(1024)
  27. 100 REM **** ERSTELLEN DES BILDSCHIRMS
  28. 110 PRINT"   ********   ***      *** ***      *** ";
  29. 120 PRINT"  ***    ***  ****    **** ***      *** ";
  30. 130 PRINT" ***      *** *****  ***** ***      *** ";
  31. 140 PRINT"  ***         *** **** *** ***      *** ";
  32. 150 PRINT"   ********   ***  **  *** ***      *** ";
  33. 160 PRINT"         ***  ***      *** ***      *** ";
  34. 180 PRINT" ***      *** ***      *** ***      *** ";
  35. 190 PRINT"  ***    ***  ***      ***  ***    ***  ";
  36. 200 PRINT"   ********   ***      ***   ********   ";
  37. 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]"
  38. 220 PRINT
  39. 230 PRINTTAB(12)"VON  [199]EORG [203]RCAL"
  40. 240 PRINTTAB(13)"[215]IEN, [205]AI 1985":IFXTHEN250
  41. 242 PRINTLEFT$(CD$,24)"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]         [145][145]"
  42. 243 POKE198,0:WAIT198,1:POKE198,0
  43. 244 SYS9*4096
  44. 250 PRINTLEFT$(CD$,24)K$;:X=1
  45. 390 REM KOMMANDOENTGEGENNAHME
  46. 400 S$=LEFT$(K$,X-1)+""+MID$(K$,X,8)+"[146]"+RIGHT$(K$,33-X)
  47. 405 PRINTLEFT$(CD$,24)S$"[145][145]";
  48. 410 WAIT203,63
  49. 420 GETG$:IFG$="J"THEN460
  50. 430 IFG$<>CHR$(13)THEN410
  51. 440 X=X+8:IFX>=40THENX=1
  52. 450 GOTO400
  53. 460 PRINTLEFT$(CD$,24)"                                       [145][145]"
  54. 470 X=(X-1)/8+1:ON X GOTO 480,500,900,670,471
  55. 471 PRINT"[147]";:END
  56. 480 PRINTLEFT$(CD$,24)"[193]LTER [196]ATEINAME [181]                [182][145][145]"
  57. 490 !INLINE 23,17,16,AN$:H$=AN$:GOSUB 2000:AN$=H$:IFAN$=""THEN490
  58. 500 PRINTLEFT$(CD$,24)"[206]EUER [196]ATEINAME [181]                [182][145][145]"
  59. 510 !INLINE 23,17,16,NN$:H$=NN$:GOSUB 2000:NN$=H$:IFNN$=""THEN510
  60. 520 PRINTLEFT$(CD$,24)"                                       [145][145]"
  61. 530 PRINTLEFT$(CD$,24)"[199]ERAETENUMMER [181]   [182][145][145]"
  62. 540 !INLINE 23,15,3,GN$:H$=GN$:GOSUB 2000:GN$=H$:IFGN$=""THEN540
  63. 550 GN=VAL(GN$):IF(GN<>1ANDGN<4)ORGN>255THEN530
  64. 555 PRINTLEFT$(CD$,24)"                                       [145][145]"
  65. 560 IF X=2 THEN SYS12*4096:GOTO640:REM NEUE MASKE
  66. 580 !MASK AN$,GN,B$(0):!SCREEN B$(0)
  67. 590 FORI=1TO255:CD=PEEK(39445+I):CR=PEEK(39700+I):FE=PEEK(39955+I)
  68. 600 CH=PEEK(40210+I):IFCD=128THEN630
  69. 610 H$=FI$:IFFE=1THENH$=RU$
  70. 620 PRINTLEFT$(CD$,CD+1)SPC(CR)LEFT$(H$,CH):NEXT:IFX=4THENRETURN
  71. 630 IFX=4THENRETURN
  72. 640 SYS49162:NN$="@:"+NN$+",S,W"
  73. 650 SYS49589,NN$,GN:REM MASKE ANALYSIEREN UND AUF PERIPHERIE
  74. 652 IFPEEK(832)=0THENPRINT"[147]";:GOTO100
  75. 654 H$="!":IFPEEK(832)=1THENH$="#"
  76. 656 PRINTLEFT$(CD$,24)"[198][197][200][204][197][210]: "H$" - [198]ELD >255 [218]EICHEN - [211][208][193][195][197][160]TASTEN";
  77. 658 H=LEN(NN$)-6:NN$=MID$(NN$,3,H)
  78. 660 GETG$:IFG$=""THEN660
  79. 662 PRINTLEFT$(CD$,24)"                                                     [145][145]"
  80. 664 GOTO640
  81. 670 PRINTLEFT$(CD$,24)"[196]ATEINAME [181]                [182][145][145]"
  82. 680 !INLINE 23,11,16,AN$:H$=AN$:GOSUB 2000:AN$=H$:IFAN$=""THEN670
  83. 690 GOSUB 520
  84. 700 FORI=0TO24:A$(I)="":FORJ=0TO39:BC=PEEK(1024+I*40+J)
  85. 710 IFBC>127THENG$="":GOTO725
  86. 715 IFBC<65ANDBC>31THENG$=CHR$(BC):GOTO725
  87. 717 IFBC<31ORBC>96THENG$=CHR$(BC+64):GOTO725
  88. 720 G$=CHR$(BC+32)
  89. 725 A$(I)=A$(I)+G$:NEXTJ,I
  90. 730 OPEN4,4,7:REM DRUCKER
  91. 740 PRINT#4,"   0         1         2         3"
  92. 750 PRINT#4,"   0....5....0....5....0....5....0....5...."
  93. 755 PRINT#4
  94. 760 FORI=0TO22:H$=STR$(I):H$=RIGHT$(H$,(LEN(H$)-1))
  95. 770 IFLEN(H$)=1THENH$="0"+H$
  96. 780 A$(I)=H$+" "+A$(I)
  97. 790 PRINT#4,A$(I):NEXT
  98. 800 CLOSE 4:REM DRUCKER SCHLIESSEN
  99. 810 PRINT"[147]";:GOTO100
  100. 900 PRINTLEFT$(CD$,24)"[199]ERAETENUMMER [181]   [182][145][145]"
  101. 910 !INLINE 23,15,3,GN$:H$=GN$:GOSUB 2000:GN$=H$:IFGN$=""THEN910
  102. 920 GN=VAL(GN$):IF(GN<>1ANDGN<4)ORGN>255THEN900
  103. 930 PRINTLEFT$(CD$,24)"                                       [145][145]"
  104. 940 OPEN8,GN,1
  105. 950 POKE 183,7:POKE187,169:POKE188,2
  106. 960 POKE 681,64:POKE682,58:POKE683,83:POKE684,77:POKE685,85:POKE686,66
  107. 970 POKE687,85:POKE251,0:POKE252,144
  108. 980 POKE 781,23:POKE782,154:POKE780,251:SYS65496
  109. 1000 CLOSE8:PRINT"[147]";:GOTO100
  110. 2000 FORJ=LEN(H$)TO1STEP-1:IFMID$(H$,J,1)=" "THENNEXT
  111. 2010 H$=LEFT$(H$,J):RETURN
  112.