home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / multi-lister (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  134 lines
  1. 1000 rem ********************
  2. 1010 rem *   multi-lister   *
  3. 1020 rem *   (c)  1987 by   *
  4. 1030 rem *  andreas elvers  *
  5. 1040 rem ********************
  6. 1050 :
  7. 1060 ad=36864
  8. 1070 for i=ad to ad+77:read a:pokei,a:next
  9. 1080 au$="[196]rucker":tx$="keine[146]"
  10. 1090 fo$="normal/40/3"
  11. 1100 zs=40:sp=3
  12. 1110 open255,8,15
  13. 1120 poke53280,0:poke53281,11:printchr$(14)chr$(8)
  14. 1130 :
  15. 1140 print"[147][155]            [205]ulti-[204]ister [214]1.0           [146]";
  16. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  17. 1160 printspc(10)"[211]ie haben die [215]ahl !"
  18. 1170 printspc(10)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  19. 1180 print"[158]  1.) [212]extdatei   :";tx$
  20. 1190 print"  2.) [193]usgabe auf :";au$
  21. 1200 print"  3.) [198]ormatierung:";fo$
  22. 1210 print"  4.) [196]rucken !!"
  23. 1220 print"  5.) [197]nde"
  24. 1230 print"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  25. 1240 print"    (c) [202]uly 1987 by [193]ndreas [197]lvers"
  26. 1250 print"[144]           [206]edderste [215]eg 6"
  27. 1260 print"            3139  [203]atemin"
  28. 1270 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  29. 1280 :
  30. 1290 geta$:ifa$<"1"ora$>"5"then1290
  31. 1300 poke214,15:print
  32. 1310 fori=1to5:print"                                        ";:next
  33. 1320 poke214,15:print
  34. 1330 onval(a$)gosub1380,1440,1490,1670,2090
  35. 1340 goto1140
  36. 1350 :
  37. 1360 :
  38. 1370 :
  39. 1380 print"[144][206]ame der [212]extdatei:";
  40. 1390 la=16:gosub2140
  41. 1400 tx$=t$:return
  42. 1410 :
  43. 1420 :
  44. 1430 :
  45. 1440 ifau$="[196]rucker"thenau$="[194]ildschirm":return
  46. 1450 au$="[196]rucker":return
  47. 1460 :
  48. 1470 :
  49. 1480 :
  50. 1490 print"[211]chriftart ([206])ormal/([205])icro:  [157][157]";
  51. 1500 la=1:gosub2140
  52. 1510 ift$="n"thenfo$="normal/":goto1540
  53. 1520 ift$="m"thenfo$=" micro/":goto1540
  54. 1530 print"[145][145]";:goto1490
  55. 1540 print"[218]eichen pro [211]palte (1-134) :   [157][157][157]";
  56. 1550 la=3:gosub2140
  57. 1560 zs=int(val(t$)):ifzs<1orzs>134thenprint"[145][145]";:goto1540
  58. 1570 fo$=fo$+mid$(str$(zs),2,3)+"/"
  59. 1580 ms=int(136/(zs+2))
  60. 1590 print"[215]ieviele [211]palten (1-";ms;"[157]) : [157]";
  61. 1600 la=2:gosub2140
  62. 1610 sp=val(t$)
  63. 1620 ifsp<1orsp>msthenprint"[145][145]";:goto1590
  64. 1630 fo$=fo$+t$:return
  65. 1640 :
  66. 1650 :
  67. 1660 :
  68. 1670 if tx$="keine[146]"thenreturn
  69. 1680 ifau$="[194]ildschirm"then1970
  70. 1690 print"  [201]ch drucke..."
  71. 1700 print" [218]um [211]toppen bitte '_' druecken."
  72. 1710 open1,8,2,tx$:input#255,fe
  73. 1720 iffe<>0then1930
  74. 1730 open2,4,1
  75. 1740 print#2,chr$(27)"@";chr$(27)chr$(15);
  76. 1750 print#2,chr$(27)chr$(67)chr$(0)chr$(12);
  77. 1760 ifmid$(fo$,1,1)="n"thenml=62:goto1790
  78. 1770 print#2,chr$(27)chr$(65)chr$(6);
  79. 1780 print#2,chr$(27)chr$(83)"0";:ml=128
  80. 1790 df=int((136-sp*zs)/sp)
  81. 1800 n=1:z=1
  82. 1810 :
  83. 1820 print#2,chr$(27)chr$(108)chr$(n);
  84. 1830 sysad,zs
  85. 1840 if peek(250)=222 then 1920
  86. 1850 geta$:ifa$="_"thenprint#2,"  *** break ***":goto1920
  87. 1860 z=z+1:ifz<ml then 1830
  88. 1870 n=n+df+zs:z=1
  89. 1880 if n>136-zs then 1900
  90. 1890 print#2,chr$(27)chr$(12);:goto1820
  91. 1900 print#2,chr$(12);:goto1800
  92. 1910 :
  93. 1920 close1:close2:return
  94. 1930 print"     [196]isk-[198]ehler... ([210]eturn)";
  95. 1940 la=0:gosub2140:close1:return
  96. 1950 :
  97. 1960 :
  98. 1970 open 1,8,2,tx$:input#255,fe
  99. 1980 if fe<>0 then 1930
  100. 1990 print"[147]";
  101. 2000 sysad,39
  102. 2010 geta$:ifa$="_"then2030
  103. 2020 if peek(250)<>222 then 2000
  104. 2030 print"  ** ende **"
  105. 2040 geta$:ifa$=""then2040
  106. 2050 close1:return
  107. 2060 :
  108. 2070 :
  109. 2080 :
  110. 2090 poke53280,14:poke53281,6:print"[147][154]";
  111. 2100 close255:end
  112. 2110 :
  113. 2120 :
  114. 2130 :
  115. 2140 t$="":l=0
  116. 2150 print"[164]";
  117. 2160 geta$:ifa$=chr$(20)then2220
  118. 2170 ifa$=chr$(13)thenprintchr$(20):return
  119. 2180 ifa$<chr$(32)ora$>"^"then2160
  120. 2190 ifl=lathen2160
  121. 2200 t$=t$+a$:l=l+1
  122. 2210 print"[157]"a$;:goto2150
  123. 2220 ifl=0then2160
  124. 2230 l=l-1:t$=mid$(t$,1,l)
  125. 2240 printchr$(20)chr$(20);
  126. 2250 goto 2150
  127. 2260 :
  128. 2270 :
  129. 2280 :
  130. 2290 data32,253,174,32,158,183,134,250,162,1,32,198,255,166,250,32,207,255,157
  131. 2300 data60,3,201,13,240,12,36,144,112,36,202,208,239,169,13,157,60,3,32,204
  132. 2310 data255,162,2,32,201,255,166,250,189,60,3,32,210,255,189,60,3,202,201,13
  133. 2320 data208,242,32,204,255,96,202,169,13,157,60,3,169,222,133,250,208,240,0
  134.