home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / smu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.