home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24a.d64 / multi-lister (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.