home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / 128_160-zeichen (.txt) next >
Commodore BASIC  |  1995-03-30  |  7KB  |  143 lines
  1. 0 REM " [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 1 [143] " (null)   160/128-ZEICHEN-KARTE   (null)
  3. 2 REM " [221]    FUER COMMODORE 1526    [221]
  4. 3 [143] " (null)  VON MARTIN RIETHMUELLER  (null)
  5. 4 REM " [221]  BEI FRAGEN ZUM PROGRAMM  [221]
  6. 5 [143] " (null)   ODER ZUM 1526-DRUCKER   (null)
  7. 6 REM " [221]GEBE ICH GERNE RAT+AUSKUNFT[221]
  8. 7 [143] " (null)      TEL. 07152/47418     (null)
  9. 8 REM " [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  10. 18 [156]:[159]1,4
  11. 19 [153]"LOAD"
  12. 20 [143] ***** DEMO *****
  13. 30 XX$[178]"":[129]X[178]32[164]94:XX$[178]XX$[170]" "[170][199](X):[130]
  14. 40 XX$[178]XX$[170]"DAS IST DER ZEICHENSATZ DES PRGMS."
  15. 60 [141]60000
  16. 70 XX$[178]"":[129]X[178]32[164]94:XX$[178]XX$[170]" "[170][199](X):[130]
  17. 90 [141]61000
  18. 100 [152]1,"UND DAS IST ZUM VERGLEICH DIE NORMALE GROESSE.DA SIEHT MAN DEN ";
  19. 110 [152]1,"UNTERSCHIED!":[137]20
  20. 120 [143] ********** DEMO-ENDE ***********
  21. 59000 [143] "ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  22. 59010 REM "[221]       UNTERPROGRAMM 160-ZEICHEN-KARTE FUER DRUCKER 1526          [221]
  23. 59020 [143] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  24. 59030 REM "[221] AUFRUF: GOSUB 60000.DER INHALT DER VARIABLEN XX$ WIRD AUSGEDRUCKT[221]
  25. 59040 [143] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  26. 59050 REM "[221]                  VERWENDETE VARIABLEN                            [221]
  27. 59060 [143] "(null)                                                                  (null)
  28. 59070 REM "[221] STATUSVARIABLE [ TS ] (ZUR VERMEIDUNG DER MEHRFACHEN EINLESUNG   [221]
  29. 59080 [143] "(null) DER DATAZEILEN IN [ V1$(94) ]                                    (null)
  30. 59090 REM "[221] LAUFVARIABLEN [ II ] UND [ JJ ]                                  [221]
  31. 59100 [143] "(null) DATALESE-VARIABLE [ AA ]                                         (null)
  32. 59110 REM "[221] ARBEITSVARIABLE [ V1$ ]                                          [221]
  33. 59115 [143] "(null) ARBEITSFELD [ W1(2) ]                                            (null)
  34. 59120 REM "[221] [ LE$ ] ZUR POSITIONIERUNG DES DRUCKKOPFES                       [221]
  35. 59130 [143] "(null) DAS FELD [ V1$(94) ],DAS DEN NEUEN ZEICHENSATZ BEINHALTET.       (null)
  36. 59140 REM "[221] DAS FELD [ DR$(160) ],DAS AUSGEDRUCKT WIRD.                      [221]
  37. 59150 [143] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  38. 60000 OPEN4,4
  39. 60005 TS=TS+1:IFTS>1THEN60130
  40. 60010 DATA0,232,0,0,192,0,192,0,112,160,112,160,72,248,176,0,152,32,200,0,80
  41. 60015 DATA168,80,8,0,64,128,0,112,136,0,0,0,136,112,0,80,32,80,0,32,112,32,0,0,4
  42. 60020 DATA24,0,32,32,32,0,0,0,8,0,24,32,192,0
  43. 60025 DATA248,136,248,0,64,192,248,0,184,168,232,0,168,168,248,0,96,184,32
  44. 60030 DATA0,232,168,184,0,248,168,184,0,128,160,248,0,248,168,248,0,232,168,248
  45. 60035 DATA0,0,40,0,0,0,4,40,0,32,80,80,136,80,80,80,0,136,80,80,32,128,168,224
  46. 60040 DATA0,112,168,200,080
  47. 60045 DATA120,160,120,0,248,168,112,0,112,136,136,0,248,136,112,0,248,168,168,0
  48. 60050 DATA248,160,128,0,248,136,152,0,248,32,248,0,0,248,0,0,136,136,240,0
  49. 60055 DATA248,112,136,0,248,8,8,0
  50. 60060 DATA248,64,192,248,248,64,56,0,112,136,112,0,248,160,224,0,112,152,120,0
  51. 60065 DATA248,176,232,0,104,168,176,0,128,248,128,0,248,8,248,0,240,8,240,0,248
  52. 60070 DATA8,56,248,216,32,216,0,224,40,248,0,152,168,200,0
  53. 60077 DATA0,248,136,0,208,168,72,0,0,136,248,0,64,248,64,0
  54. 60080 DIMV1$(94):IFTZ<1THENDIMDR$(160)
  55. 60085 V1$(32)=CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)
  56. 60090 FORII=33TO94
  57. 60095 FORJJ=1TO4
  58. 60100 READAA
  59. 60105 V1$(II)=V1$(II)+CHR$(AA):AA=0
  60. 60110 NEXTJJ
  61. 60115 NEXTII
  62. 60130 FORII=1TO80
  63. 60135 FORJJ=1TO2
  64. 60140 V1$=MID$(XX$,II*2-(2-JJ),1):IFV1$=""THENV1$=" "
  65. 60145 W1(JJ)=ASC(V1$):IFASC(V1$)>94ORASC(V1$)<32THENW1(JJ)=32
  66. 60150 NEXTJJ
  67. 60155 DR$(80+II)=V1$(W1(1))+V1$(W1(2))
  68. 60160 NEXTII
  69. 60165 OPEN6,4,6:PRINT#6,CHR$(0):CLOSE6
  70. 60170 OPEN5,4,5
  71. 60175 FORII=1TO80
  72. 60180 PRINT#5,DR$(80+II):PRINT#4,LE$+CHR$(254)
  73. 60185 LE$=LE$+" ":NEXTII
  74. 60190 CLOSE5:LE$="":OPEN6,4,6:PRINT#6,CHR$(23):PRINT#4,:PRINT#6,CHR$(32):CLOSE6
  75. 60200 XX$="":CLOSE4:RETURN
  76. 60800 REM "[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  77. 60810 [143] "(null)       UNTERPROGRAMM 128-ZEICHEN-KARTE FUER DRUCKER 1526          (null)
  78. 60820 REM "[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  79. 60830 [143] "(null) AUFRUF MIT SYS61000.DER INHALT DER VARIABLEN XX$ WIRD AUSGEDRUCKT(null)
  80. 60840 REM "[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  81. 60850 [143] "(null)                  VERWENDETE VARIABLEN                            (null)
  82. 60860 REM "[221]                                                                  [221]
  83. 60870 [143] "(null) STATUSVARIABLE [ TZ ] (ZUR VERMEIDUNG DER MEHRFACHEN EINLESUNG   (null)
  84. 60880 REM "[221] DER DATAZEILEN IN [ V2$(94,5) ]                                  [221]
  85. 60890 [143] "(null) LAUFVARIABLEN [ II ] UND [ JJ ]                                  (null)
  86. 60900 REM "[221] DATALESE-VARIABLE [ AA ]                                         [221]
  87. 60910 [143] "(null) ARBEITSVARIABLE [ V2$ ]                                          (null)
  88. 60915 REM "[221] ARBEITSFELD [ F(8) ]                                             [221]
  89. 60920 [143] "(null) [ LE$ ] ZUR POSITIONIERUNG DES DRUCKKOPFES                       (null)
  90. 60930 REM "[221] DAS FELD [ V2$(94,5) ],DAS DEN NEUEN ZEICHENSATZ BEINHALTET.     [221]
  91. 60940 [143] "(null) DAS FELD [ DR$(160) ],DAS AUSGEDRUCKT WIRD.                      (null)
  92. 60950 REM "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  93. 61000 [159]4,4:[159]5,4,5
  94. 61005 TZ[178]TZ[170]1:[139]TZ[177]1[167]61140
  95. 61010 [134]V2$(94,5)
  96. 61015 [139]TS[179]1[167][134]DR$(180)
  97. 61020 [129]II[178]1[164]5
  98. 61025 V2$(32,II)[178][199](0)
  99. 61030 [130]II
  100. 61035 [131]0,0,250,0,0,0,224,0,224,0,20,62,20,62,20,98,159,242,140,0
  101. 61040 [131]198,200,16,38,198,108,154,150,110,9,0,0,96,128,0,124,130,130,0,0
  102. 61045 [131]130,130,124,0,0,40,16,124,16,40,16,16,124,16,16,0,0,1,6,0
  103. 61050 [131]16,16,16,16,0,0,0,6,6,0,6,8,16,32,192,124,138,146,124,0
  104. 61055 [131]32,64,254,0,0,70,138,146,98,0,146,146,146,108,0,24,40,94,8,0
  105. 61060 [131]242,146,146,140,0,60,82,146,140,0,144,158,176,208,0,108,146,146,108,0
  106. 61065 [131]100,146,146,124,0,0,0,18,0,0,0,1,12,0,0,16,40,68,68,0
  107. 61070 [131]40,40,40,40,0,68,68,40,16,0,64,128,154,96,0,124,130,178,116,0
  108. 61075 [131]254,144,144,254,0,254,146,146,108,0,124,130,130,130,0,254,130,130,124
  109. 61080 [131]0,254,146,146,146,0,254,144,144,128,0,124,130,146,92,0,254,16,16,254,0
  110. 61085 [131]0,0,190,0,0,132,130,130,252,0,254,16,40,198,0,254,2,2,2,0
  111. 61090 [131]254,64,32,64,254,254,64,32,254,0,124,130,130,124,0,254,144,144,96,0
  112. 61095 [131]124,130,142,126,1,254,152,148,98,0,98,146,146,140,0,128,254,128,128,0
  113. 61100 [131]252,2,2,252,0,248,6,6,248,0,254,2,4,2,254,198,56,56,198,0
  114. 61105 [131]224,18,18,252,0,134,154,178,210,0,254,130,130,0,0,76,178,146,82,0
  115. 61110 [131]0,130,130,254,0,32,64,254,64,32
  116. 61115 [129]II[178]33[164]94
  117. 61120 [129]JJ[178]1[164]5
  118. 61125 [135]AA:V2$(II,JJ)[178][199](AA)
  119. 61130 [130]JJ:[130]II
  120. 61140 [159]6,4,6:[152]6,[199](0):[160]6
  121. 61145 [129]II[178]1[164]16
  122. 61150 [129]JJ[178]1[164]8
  123. 61155 V2$[178][202](XX$,II[172]8[171](8[171]JJ),1):[139]V2$[178]""[167]V2$[178]" "
  124. 61160 F(JJ)[178][198](V2$):[139][198](V2$)[179]32[176][198](V2$)[177]94[167]F(JJ)[178]32
  125. 61165 [130]JJ
  126. 61170 DR$(II[172]5[171]4)[178]V2$(F(1),1)[170]V2$(F(1),2)[170]V2$(F(1),3)[170]V2$(F(1),4)[170]V2$(F(1),5)
  127. 61175 DR$(II[172]5[171]4)[178]DR$(II[172]5[171]4)[170]V2$(F(2),1)[170]V2$(F(2),2)[170]V2$(F(2),3)
  128. 61180 DR$(II[172]5[171]3)[178]V2$(F(2),4)[170]V2$(F(2),5)[170]V2$(F(3),1)[170]V2$(F(3),2)[170]V2$(F(3),3)
  129. 61185 DR$(II[172]5[171]3)[178]DR$(II[172]5[171]3)[170]V2$(F(3),4)[170]V2$(F(3),5)[170]V2$(F(4),1)
  130. 61190 DR$(II[172]5[171]2)[178]V2$(F(4),2)[170]V2$(F(4),3)[170]V2$(F(4),4)[170]V2$(F(4),5)[170]V2$(F(5),1)
  131. 61195 DR$(II[172]5[171]2)[178]DR$(II[172]5[171]2)[170]V2$(F(5),2)[170]V2$(F(5),3)[170]V2$(F(5),4)
  132. 61200 DR$(II[172]5[171]1)[178]V2$(F(5),5)[170]V2$(F(6),1)[170]V2$(F(6),2)[170]V2$(F(6),3)[170]V2$(F(6),4)
  133. 61205 DR$(II[172]5[171]1)[178]DR$(II[172]5[171]1)[170]V2$(F(6),5)[170]V2$(F(7),1)[170]V2$(F(7),2)
  134. 61210 DR$(II[172]5[171]0)[178]V2$(F(7),3)[170]V2$(F(7),4)[170]V2$(F(7),5)[170]V2$(F(8),1)[170]V2$(F(8),2)
  135. 61215 DR$(II[172]5[171]0)[178]DR$(II[172]5[171]0)[170]V2$(F(8),3)[170]V2$(F(8),4)[170]V2$(F(8),5)
  136. 61220 [130]II
  137. 61225 [129]II[178]1[164]80
  138. 61230 [152]5,DR$(II):[152]4,LE$[170][199](254):LE$[178]LE$[170]" "
  139. 61235 [130]II
  140. 61240 LE$[178]""
  141. 61245 [159]6,4,6:[152]6,[199](26):[152]4,:[152]6,[199](32):[160]6:[160]4:[160]5
  142. 61250 XX$[178]"":[142]
  143.