home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / polydat (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  367 lines
  1. 70 REM ********************************
  2. 80 REM *        INITIALISIEREN        *
  3. 90 REM ********************************
  4. 100 POKE 55,0:POKE 56,58:CLR
  5. 110 PRINT"[147]":POKE 808,254
  6. 120 VI=53248:POKE VI+32,6:POKE VI+33,6
  7. 130 FOR I=0 TO 62:READ X:POKE 832+I,X
  8. 140 NEXT I:POKE 2040,13:POKE VI,55
  9. 150 POKE VI+1,195:POKE 657,128
  10. 160 S$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 170 T$=S$+"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  12. 180 U$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 190 POKE 3,0:POKE 4,0
  14. 200 PRINT CHR$(142)"[147][158]"TAB(9)"[213]"S$"[201]":PRINT TAB(9)"[221]    POLYDAT V2.0    [221]"
  15. 210 PRINTTAB(9)"[202]"S$"[203]":PRINT" [213]"T$"[201]  [221]"SPC(36)"[221]  [221]  AUTOREN :";
  16. 220 PRINT SPC(25)"[221]  [221]"SPC(36)"[221]  [221]        CHRISTIAN SUESSKIND         [221]"
  17. 230 PRINT" [221]"SPC(36)"[221]  [221]        MATTHIAS KEREIT             [221]  [221]"SPC(36)"[221]"
  18. 240 PRINT" [202]"T$"[203]  [213]"T$"[201]"
  19. 250 PRINT" [221]"SPC(36)"[221]  [221]        COPYRIGHT 1987              [221]  [221]"SPC(36)"[221] ";
  20. 260 PRINT" [221]        BY MARKT & TECHNIK          [221]  [221]"SPC(36)"[221]  [202]"T$"[203][145][145][145]"
  21. 270 POKE VI+21,1:IF PEEK(49152)=120ANDPEEK(49153)=165ANDPEEK(49154)=1 THEN 310
  22. 280 SYS(57812)"D2",8:POKE 780,0:POKE 781,0:POKE 782,192:SYS 65493
  23. 290 OPEN 15,8,15:INPUT#15,A,B$,C,D:CLOSE 15:IF A=0 THEN 310
  24. 300 PRINT"      BITTE PROGRAMMDISK EINLEGEN !":GOSUB 8100:GOTO 200
  25. 310 GOSUB 8600:POKE VI+21,0
  26. 370 ID=15000:DIM X(30),Y(30),L(30)
  27. 380 PRINT"[147]":GOSUB 8900
  28. 760 :
  29. 770 REM *******************************
  30. 780 REM *         HAUPT-MENUE         *
  31. 790 REM *******************************
  32. 800 SYS 52258
  33. 810 GOSUB 8100:A=ASC(A$)-48
  34. 820 IF A<1 OR A>6 THEN 810
  35. 830 GOSUB 8700:ON A GOTO 1000,2000,3000,4000,5000,6000
  36. 960 :
  37. 970 REM *******************************
  38. 980 REM *       DATEI EINRICHTEN      *
  39. 990 REM *******************************
  40. 1000 A$="DATEI EINRICHTEN":GOSUB 9000:PRINT"   ALTE MASKE VERWENDEN (J/N) ?
  41. 1010 [141] 8200:[139] A$[178]"J"[167] 1900
  42. 1015 [141] 8800:[139] DN$[179][177]""[167] [153]"LOAD"
  43. 1020 DN$[178]"":[158] 51171
  44. 1030 KO$[178]"      'ASC1' VAL(null)STR$VAL     'ASC2' ATNPEEKPEEK(null)(null)LENLEFT$      ":[141] 9700
  45. 1040 [151] 250,0:[158] 50052:[139] [194](250)[179][177]147 [167] 1050
  46. 1045 [141] 8100:[139] A$[178]"LOAD"[167] [153] A$
  47. 1048 [137] 1020
  48. 1050 [139] [194](250)[178]137 [167] [141] 8900:[137] 9600
  49. 1060 [141] 8900:[158] 49210:[141] 9210:[139] AE [175] AE[179][178]30 [175] RL[179]255 [167] 1400
  50. 1070 [139] AE[178]0 [167] KO$[178]"     (null)VALRIGHT$(null) VALRIGHT$(null)CHR$ATNPEEKVALASCVAL(null)STR$ (null)(null)(null)LEFT$ATN(null)STR$VAL(null) !     "
  51. 1080 [139] AE[177]30 [167] KO$[178]"       (null)(null)(null)RIGHT$VAL(null)VAL VALRIGHT$(null)CHR$ATNPEEKVALASCVAL(null)STR$VAL(null) !        "
  52. 1090 [139] RL[177]254 [167] KO$[178]"          STR$ATN(null)VAL(null)(null)ATN(null)(null) (null)(null) (null)ATN(null)CHR$ !         "
  53. 1100 [141] 9700:[141] 8100:[137] 1030
  54. 1400 A$[178]"DATEI EINRICHTEN":[141] 9000
  55. 1410 [153] [199](142)"   MASKE AENDERN (J/N) ?":[141] 8200
  56. 1420 [139] A$[178]"J"[167] [141] 8800:[137] 1030
  57. 1500 [139] AE[178]1 [167] ZA[178]1:[137] 1530
  58. 1510 [153]"   INDEXFELD (1";[196]([171]AE);") :";:L[178][195]([196](AE))[171]1
  59. 1520 [141] 8300:[139] ZA[179]1 [176] ZA[177]AE [176] A[178]133 [167] [153]"ONONON":[137] 1510
  60. 1530 IN[178]ZA:[151] ID[170]1,IN:[153]
  61. 1540 [153]"   DATENDISK EINLEGEN !      >TASTE<":[141] 8100
  62. 1560 [153]"ON                                    ONON":[159] 15,8,15:[141] 9210
  63. 1570 [141] 9800:[160] 15:FB[178]FB[171]6
  64. 1680 [139] A [167] [141] 8530:[137] 1550
  65. 1690 [139] FB[179]0 [167] [153]"   DISKETTE VOLL !      >TASTE<ON":[141] 8100:[137] 1540
  66. 1700 NE[178]1:[151] ID[170]4,1:[151] ID[170]5,0
  67. 1720 [141] 9300:DN$[178]NA$
  68. 1730 [158](57812)"M-"[170]DN$,8
  69. 1740 [158] 52926:[159] 15,8,15
  70. 1750 [132]15,A,B$,C,D:[139] A[178]0 [167] 1790
  71. 1760 [139] A[179][177]63 [167] [141] 8530:[137] 1730
  72. 1770 [153]"   DATEI BEREITS VORHANDEN !":[153]"   UEBERSCHREIBEN (J/N) ?"
  73. 1780 [141] 8200:[139] A$[178]"N"[167] [160] 15:[137] 1720
  74. 1785 [152]15,"S:??"DN$:[160] 15:[137] 1730
  75. 1790 [160] 15:[158](57812)"I-"[170]DN$,8
  76. 1800 [151] 193,152:[151] 194,58
  77. 1810 X[178]ID[170]7[170]3[172]AE[170]NU[172](IL[170]2):[151] 175,X[173]256:[151] 174,X[171]256[172][194](175):[158] 62957
  78. 1820 [141] 8500:[139] A [167] 1790
  79. 1830 [159] 1,8,2,"  "[170]DN$[170]",L,"[170][199](RL)
  80. 1840 [160] 1
  81. 1860 [153]"   DATEN EINGEBEN (J/N) ?":[141] 8200
  82. 1870 [139] A$[178]"J"[167] [141] 9200:[137] 2020
  83. 1880 [137] 800
  84. 1900 [153]"   NAME DER MASKE :";
  85. 1910 NA$[178]DN$:L[178]14:[141] 8400
  86. 1920 [158](57812)"M-"[170]NA$,8:[151] 780,0:[151] 781,0:[151] 782,160:[158] 65493
  87. 1930 [141] 8500:[139] A [167] 1000
  88. 1940 [158] 49210:AE[178][194](ID):[137] 1410
  89. 1960 :
  90. 1970 [143] ******************************
  91. 1980 [143] *       DATEN EINGEBEN       *
  92. 1990 [143] ******************************
  93. 2000 A$[178]"DATEN EINGEBEN":[141] 9000:[141] 9300
  94. 2010 [141] 9100:[139] A [167] 2000
  95. 2020 AL[178]NE:[159] 15,8,15:[141] 9800
  96. 2100 [160] 15:FB[178][181](252[172]FB[173]RL):FB[178][181](FB[173](1[170]IL[173]254))
  97. 2105 [139] FB[179]1 [167] [141] 8800:[137] 2460
  98. 2110 [159] 1,8,2,"  "[170]DN$:[141] 8510
  99. 2112 [139] A [167] [160] 1:[137] 2000
  100. 2115 [141] 8800
  101. 2120 X[178][181](NE[173]256):Y[178]NE[171]256[172]X:[152]15,"P"[170][199](2)[170][199](Y)[170][199](X)[170][199](1)
  102. 2125 [132]15,A,B$,C,D
  103. 2130 KO$[178]" 'ASC1' VAL(null)STR$VAL STR$VAL(null) VALRIGHT$(null)CHR$ATNPEEKVAL  'ASC2' ATNPEEKPEEK(null)(null)LENLEFT$  ":I[178]1
  104. 2140 [141] 9700:[141] 9510:[158] 49979
  105. 2300 IE[178]2:X[178]ID[170]6[170]3[172]AE[170](NE[171]1)[172](IL[170]2):[151] X[170]1,NE[173]256:[151] X,NE[171]256[172][194](X[170]1)
  106. 2310 [129] I[178]1 [164] L(IN):[151] X[170]1[170]I,[194](1023[170]40[172]Y(IN)[170]X(IN)[170]I):[130] I:NE[178]NE[170]1
  107. 2400 KO$[178]" 'VAL' VAL(null)STR$VAL  'ATN' ATNVAL(null)STR$VAL(null)(null)  'ASC1' VALRIGHT$(null)CHR$VALPEEKVAL(null) ":[141] 9700
  108. 2410 [141] 8100:[139] A$[178]"A"[167] NE[178]NE[171]1:IE[178]3:[137] 2120
  109. 2420 [139] A$[178]"E"[167] 2500
  110. 2430 [139] A$[178]"LET"[167] [160] 1:[160] 15:[141] 9900:[141] 2800:[137] 2400
  111. 2440 [139] A$[179][177]"INPUT"[167] 2410
  112. 2450 FB[178]FB[171]1:[139] FB[177]0 [167] 2120
  113. 2460 [160] 1:[160] 15
  114. 2470 KO$[178]" VAL(null)STR$VAL STR$VAL(null) VALRIGHT$(null)CHR$ATNPEEKVAL !   STR$RIGHT$(null)(null)VAL(null)(null)VAL (null)(null)(null)(null) ! ":[141] 9700
  115. 2480 [139] IE[178]0 [167] [141] 8100:[137] 800
  116. 2500 [151] ID[170]5,NE[173]256:[151] ID[170]4,NE[171]256[172][194](ID[170]5):[139] NE[178]AL [167] 2700
  117. 2510 [151] 248,AL[173]256:[151] 247,AL[171]256[172][194](248):[151] 189,IL[170]2:[158] 49514
  118. 2700 [160] 1:[160] 15
  119. 2710 [159] 1,8,15,"S:I-"[170]DN$:[160] 1
  120. 2720 [158](57812)"I-"[170]DN$,8:[151] 193,152
  121. 2730 [151] 194,58:X[178]ID[170]7[170]3[172]AE[170]NE[172](IL[170]2)
  122. 2740 [151] 175,X[173]256:[151] 174,X[171]256[172][194](175):[158] 62957:IE[178]0:[137] 800
  123. 2800 [159] 1,8,2,"  "[170]DN$:[137] 8510
  124. 2960 :
  125. 2970 [143] ******************************
  126. 2980 [143] *        DATEN SUCHEN        *
  127. 2990 [143] ******************************
  128. 3000 GF[178]0:IE[178]0:A$[178]"DATEN SUCHEN":[141] 9000:[141] 9300
  129. 3010 [141] 9100:[139] A [167] 3000
  130. 3020 [139] NE[178]1 [167] [153]"   KEINE DATEN VORHANDEN !":[141] 8100:[137] 800
  131. 3021 [153]"   BEREICH ODER EINZELN SUCHEN (B/E) ?"
  132. 3022 [141] 8100:[139] A$[179][177]"B"[175] A$[179][177]"E"[167] 3022
  133. 3023 SU$[178]A$:[139] SU$[178]"E"[167] 3025
  134. 3024 [153]"   VOLLSTAENDIG AUSDRUCKEN (J/N) ?":[141] 8200:AD$[178]A$
  135. 3025 [159] 1,8,2,"  "[170]DN$:[159] 2,8,15
  136. 3030 KO$[178]" 'ASC1' VAL(null)STR$VAL STR$VAL(null) VALRIGHT$(null)CHR$ATNPEEKVAL  'ASC2' ATNPEEKPEEK(null)(null)LENLEFT$  "
  137. 3040 [141] 9500:[141] 8900:T[178]0:W[178]0
  138. 3100 [129] J[178]1 [164] AE:I[178]0:[129] K[178]0 [164]L(J)[171]1
  139. 3110 [139] [194](1024[170]X(J)[170]40[172]Y(J)[170]K)[179][177]32 [167] I[178]1:W[178]W[171](J[179][177]IN):K[178]L(J)[171]1
  140. 3120 [130] K:[151] 51725[170]J,I:[130] J
  141. 3130 I[178][194](51725[170]IN)
  142. 3140 [139] I[178]0 [167] AN[178]1:E[178]NE[171]1:[137] 3300
  143. 3200 [158] 51205:[139] [194](248)[178]0 [167] 3800
  144. 3210 AN[178]256[172][194](250)[170][194](249)
  145. 3220 E[178]256[172][194](252)[170][194](251)
  146. 3300 [139] SU$[178]"E"[167] 3330
  147. 3310 [139] AN[177]E [175] GF[178]1 [167] 3750
  148. 3320 [139] AN[177]E [167] 3800
  149. 3330 [141] 8800:[141] 9700:AZ[178]AN:[139] W[178]0 [167] 3500
  150. 3400 I[178]ID[170]6[170]3[172]AE[170](IL[170]2)[172](AN[171]1)
  151. 3410 LO[178][194](I):HI[178][194](I[170]1):[152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
  152. 3420 [158] 51761:AZ[178]AN
  153. 3430 [139] [194](248)[178]0 [175] AN[178]E [175] (SU$[178]"E" [176] GF[178]0) [167] 3800
  154. 3440 [139] [194](248)[178]0 [175] AN[178]E [167] 3750
  155. 3450 [139] [194](248)[178]0 [167] AN[178]AN[170]1:[137] 3400
  156. 3500 GF[178]1:I[178]ID[170]6[170]3[172]AE[170](IL[170]2)[172](AN[171]1)
  157. 3510 LO[178][194](I):HI[178][194](I[170]1):[152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
  158. 3520 [158] 49906:AN[178]AN[170]1
  159. 3521 [139] SU$[178]"E"[167] 3530
  160. 3523 KO$[178]"  'STR$' STR$(null)(null)LEN(null)VAL(null)  '(null)ATN(null)(null)VAL'  WEITERSUCHEN  ":[139] AD$[178]"J"[167] 3525
  161. 3524 [141] 9700:[141] 8100:[139] A$[179][177]"D"[167]3300
  162. 3525 [141] 9700:[158] 50843:[139] [194](2)[178]0 [167] [158] 49376:[137] 3300
  163. 3526 [160] 1:[160] 2
  164. 3527 OK$[178]KO$:KO$[178]"   STR$(null)(null)LEN(null)VAL(null) VALRIGHT$(null)(null)LENLEFT$ATN(null)(null)VAL(null) !    >(null)ATN(null)(null)VAL<   ":[141] 9700:KO$[178]OK$
  165. 3528 [158] 50843:[139] [194](2)[179][177]0 [167] [141] 8100:[137] 3528
  166. 3529 [141] 9700:[158] 49376:[159] 1,8,2,"  "[170]DN$:[159] 2,8,15:[137] 3300
  167. 3530 KO$[178]" 'STR$'STR$(null)(null)LEN(null)VAL(null) 'ATN'ATNVAL(null)STR$VAL(null)(null) '+/-'PEEK(null)ATNVAL(null)(null)VAL(null)(null) ":[141] 9700
  168. 3540 [141] 8100:[139] A$[179][177]"D"[167] 3550
  169. 3545 [158] 50843:[139] [194](2)[178]0 [167] [158] 49376:[137] 3530
  170. 3546 [160] 1:[160] 2:KO$[178]" STR$(null)(null)LEN(null)VAL(null) VALRIGHT$(null)(null)LENLEFT$ATN(null)(null)VAL(null) ! 'ASC1' (null)(null)VALLEN(null)(null)VALLEFT$(null) ":[141] 9700
  171. 3547 [141] 8100:[139] A$[178]"INPUT"[167] [159] 1,8,2,"  "[170]DN$:[159] 2,8,15:[137]3530
  172. 3548 [158] 50843:[139] [194](2)[179][177]0 [167] 3547
  173. 3549 [158] 49376:[159] 1,8,2,"  "[170]DN$:[159] 2,8,15:[137] 3530
  174. 3550 [139] A$[178]"+"[175] AN[179][177]NE [167] 3500
  175. 3551 [139] A$[178]"-"[175] AN[179][177]2 [167] AN[178]AN[171]2:[137] 3500
  176. 3552 [139] A$[178]"+"[176] A$[178]"-"[167] 3540
  177. 3554 [139] A$[179][177]"A"[167] AN[178]AZ:[137] 3600
  178. 3555 KO$[178]" 'ASC1' VAL(null)STR$VAL STR$VAL(null) VALRIGHT$(null)CHR$ATNPEEKVAL  'ASC2' ATNPEEKPEEK(null)(null)LENLEFT$  "
  179. 3560 IE[178]1:I[178]1:[141]9700:[141]9510:[152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
  180. 3570 I[178]ID[170]6[170]3[172]AE:X[178]I[170](NE[171]1)[172](IL[170]2):Y[178]I[170](AN[171]2)[172](IL[170]2):[129] J[178]2 [164] IL[170]1
  181. 3575 [151] Y[170]J,[194](1022[170]40[172]Y(IN)[170]X(IN)[170]J):[130] J:[129] J[178]0 [164] IL[170]1
  182. 3580 [151] X[170]J,[194](Y[170]J):[130] J:[129] J[178]Y [164] X:[151] J,[194](J[170]IL[170]2):[130] J
  183. 3590 [151] 248,(NE[171]1)[173]256:[151] 247,NE[171]1[171]256[172][194](248):[151] 189,IL[170]2:[158] 49514
  184. 3595 [158] 49979:[137]3530
  185. 3600 AN[178]AN[170]1:[139] AN[179][178]E [167]KO$[178]"'(null)' (null)VALRIGHT$(null)VAL(null)  '(null)' (null)VAL(null) (null)(null)LENLEFT$VAL(null)  'ASC1' VAL(null)STR$VAL ":[137]3710
  186. 3700 KO$[178]"      '(null)' (null)VAL(null) (null)(null)LENLEFT$VAL(null)   'ASC1' VAL(null)STR$VAL      "
  187. 3710 [141] 9700:[141] 8100
  188. 3720 [139] A$[178]"W"[175] AN[179][178]E [167] 3300
  189. 3730 [139] A$[178]"N"[167] 3030
  190. 3740 [139] A$[179][177]"INPUT"[167] 3710
  191. 3750 [160] 1:[160] 2:[139] IE [167] 2710
  192. 3760 [137] 800
  193. 3800 KO$[178]"  STR$ATN(null)VAL(null)(null)ATN(null)(null) (null)RIGHT$LENLEFT$(null) (null)(null)(null)LEFT$ATN(null)STR$VAL(null)  >(null)ATN(null)(null)VAL<  "
  194. 3810 [141] 9700:[141] 8100
  195. 3820 [139] SU$[178]"E"[167] 3700
  196. 3830 [137] 3750
  197. 3960 :
  198. 3970 [143] ******************************
  199. 3980 [143] *      DRUCKERPARAMETER      *
  200. 3990 [143] ******************************
  201. 4000 A$[178]"DRUCKERPARAMETER":[141] 9000
  202. 4010 [153]"   BREITSCHRIFT (J/N) ?":[141] 8200:D$[178]A$:[139] D$[178]"J"[167] 4040
  203. 4020 [153]"   TABWERT (0-40) :  CMDCMD";
  204. 4030 L[178]2:[141] 8300:[151] 4,ZA:[139] ZA[179]0 [176] ZA[177]40 [167] [153]"ONONON":[137] 4020
  205. 4040 [151] 3,0:[139] D$[178]"J"[167] [151] 3,1
  206. 4050 [137] 800
  207. 4960 :
  208. 4970 [143] ******************************
  209. 4980 [143] *      DISKOPERATIONEN       *
  210. 4990 [143] ******************************
  211. 5000 [158] 52261
  212. 5010 [141] 8100:A[178][198](A$)[171]48
  213. 5020 [139] A[179]1 [176] A[177]6 [167] 5010
  214. 5030 [141] 8700:[145] A [137] 5100,5300,5400,5500,5600,800
  215. 5100 A$[178]"DIRECTORY":[141] 9000:[159] 1,8,0,"$0"
  216. 5110 [161]#1,A$,B$:[141] 8510:[139] A [167] [160] 15:[137] 5800
  217. 5120 A$[178]"DIRECTORY":[141] 9000:[129] I[178]1 [164] 16
  218. 5130 [158] 49753:[139] ST [167] 5180
  219. 5140 [161] A$:[139] A$[178]"GOTO"[167] 9600
  220. 5150 [139] A$[178]"INPUT"[167] [160] 15:[137] 5800
  221. 5160 [130] I:[139] ST [167] 5180
  222. 5170 [153]:[153]:[141] 8600:[137] 5120
  223. 5180 [153]"BLOCKS FREE":[160] 15
  224. 5190 [141] 8600:[137] 5800
  225. 5300 A$[178]"DATEI LOESCHEN":[141] 9000:F[178]44:L[178]14
  226. 5310 [153]"   NAME DER DATEI :";
  227. 5320 NA$[178]"":[141] 8400
  228. 5330 [159] 1,8,15,"S:??"[170]NA$[170]","[170]NA$
  229. 5340 [137] 5800
  230. 5400 A$[178]"DATEI UMBENENNEN":[141] 9000:[153]"   ALTER NAME :";
  231. 5410 L[178]14:NA$[178]DN$:[141] 8400:MA$[178]NA$
  232. 5420 [153]:[153]"   NEUER NAME :";
  233. 5430 L[178]14:NA$[178]"":[141] 8400:[139] NA$[178]MA$ [167] 5000
  234. 5440 [159] 1,8,15,"R:M-"[170]NA$[170]"=M-"[170]MA$
  235. 5450 [152]1,"R:I-"[170]NA$[170]"=I-"[170]MA$
  236. 5460 [152]1,"R:  "[170]NA$[170]"=  "[170]MA$
  237. 5470 [152]1,"R:"[170]NA$[170]"="[170]MA$:[160] 1
  238. 5480 [159] 1,8,15:[132]1,A,B$,C,D
  239. 5490 [160] 1:DN$[178]NA$:[137] 5000
  240. 5500 A$[178]"DISK FORMATIEREN":[141] 9000
  241. 5510 [153]"   DISKETTENNAME :";
  242. 5520 L[178]16:NA$[178]"":[141] 8400
  243. 5530 [153]"   DISKETTEN ID :";:MA$[178]NA$
  244. 5540 L[178]2:NA$[178]"":[141] 8400
  245. 5550 [159] 1,8,15:[152]1,"M-W"[199](81)[199](0)[199](1)[199](255):[160] 1
  246. 5560 [159] 1,8,15,"N:"[170]MA$[170]","[170]NA$
  247. 5570 [153];:[137] 5800
  248. 5600 [159] 1,8,15,"V"
  249. 5800 [160] 1:[141] 8500:[137] 5000
  250. 5960 :
  251. 5970 [143] ******************************
  252. 5980 [143] *       PROGSAMM ENDE        *
  253. 5990 [143] ******************************
  254. 6000 [153] [163]12)"SICHER (J/N) ?";
  255. 6010 [141] 8200:[139] A$[178]"N"[167] 800
  256. 6020 [158] 58236
  257. 7960 :
  258. 7970 [143] ******************************
  259. 7980 [143] *  ALLGEMEINE UNTERROUTINEN  *
  260. 7990 [143] ******************************
  261. 8000 [151] 211,X:[151] 214,Y:[158] 58640
  262. 8010 [142]
  263. 8090 :
  264. 8100 [151] 198,0
  265. 8110 [161] A$:[139] A$[178]""[167] 8110
  266. 8120 [139] A$[178]"GOTO"[167] 9600
  267. 8130 [142]
  268. 8190 :
  269. 8200 [141] 8100
  270. 8210 [139] A$[179][177]"J"[175] A$[179][177]"N"[167] 8200
  271. 8220 [142]
  272. 8290 :
  273. 8300 [129] I[178]1 [164] L:[151] 256[170]I,0:[130] I
  274. 8310 F[178]1:[151] 250,L:[158] 50877
  275. 8320 [141] 8420:ZA[178][197](NA$):[142]
  276. 8390 :
  277. 8400 [129] I[178]1 [164] L:[151] 256[170]I,[198]([202](NA$,I,1)[170][199](0)):[130] I
  278. 8410 F[178]0:[151] 250,L:[158] 50885
  279. 8420 [139] [194](250)[178]137 [167] 9600
  280. 8430 X[178]1024[170][194](211)[170]40[172][194](214)
  281. 8440 NA$[178]"":[129] I[178]1 [164] L:Y[178][194](X[170]I)
  282. 8450 Y[178]Y[171]64[172](Y[179]32 [176] Y[177]95)[171]32[172](Y[177]63 [175] Y[179]96):NA$[178]NA$[170][199](Y):[130] I
  283. 8460 [139] [201](NA$,1)[178]" "[167] NA$[178][200](NA$,[195](NA$)[171]1):[137] 8460
  284. 8470 [139] NA$[179][177]""[176] F [167] [153]:[142]
  285. 8480 [137] 8410
  286. 8490 :
  287. 8500 [141] 8510:[160] 15:[142]
  288. 8510 [159] 15,8,15:[132]15,A,B$,C,D
  289. 8520 [139] A[178]0 [167] [142]
  290. 8530 [151] 250,A:[158] 51927:A[178][194](250)
  291. 8540 [153]:[139] A [167] [153]"  "A;B$;C;D
  292. 8550 [160] 15:A[178]1
  293. 8590 :
  294. 8600 [153] [163]30)">RETURN<":[139] ID [167] 8100
  295. 8610 [161] A$:[139] A$[178]""[167] 8610
  296. 8620 [142]
  297. 8690 :
  298. 8700 X[178](4[170]2[172]A)[172]40[170]1136
  299. 8710 [129] I[178]13 [164] 1 [169] [171]1
  300. 8720 [151] X[171]27[170]I,[194](X[171]27[170]I) [176] 128
  301. 8730 [151] X[171]I,[194](X[171]I) [176] 128:[130] I
  302. 8740 [129] I[178]0 [164] 100:[130] I:[142]
  303. 8790 :
  304. 8800 [151] 49166,160:[151] 49170,4
  305. 8810 [153] [199](14);:[158] 49152:[142]
  306. 8890 :
  307. 8900 [151] 49166,4:[151] 49170,160
  308. 8910 [137] 8810
  309. 8990 :
  310. 9000 [153]"LOAD"[163]20[171][195](A$)[173]2);A$:[153][163]20[171][195](A$)[173]2);[200](U$,[195](A$))
  311. 9010 [153] [199](142);:[158] 51171:[142]
  312. 9090 :
  313. 9100 A[178]0:[139] NA$[178]DN$ [167] 9200
  314. 9110 [158](57812)"M-"[170]NA$,8:[151] 780,0:[151] 781,0:[151] 782,160:[158] 65493
  315. 9120 [141] 8500:[139] A [167] [142]
  316. 9130 [158](57812)"I-"[170]NA$,8:[151] 780,0:[151] 781,152:[151] 782,58:[158] 65493
  317. 9140 [141] 8500:[139] A [167] [142]
  318. 9150 DN$[178]NA$
  319. 9190 :
  320. 9200 [158] 49334
  321. 9210 AE[178][194](ID):IN[178][194](ID[170]1)
  322. 9220 [139] AE[177]30 [167] [142]
  323. 9240 NE[178][194](ID[170]4)[170]256[172][194](ID[170]5)
  324. 9250 [129] I[178]1 [164] AE:X[178]ID[170]3[170]3[172]I:L(I)[178][194](X):X(I)[178][194](X[170]1):Y(I)[178][194](X[170]2):[130] I
  325. 9260 RL[178]0:[129] I[178]1 [164] AE:RL[178]RL[170]L(I):[130]
  326. 9270 IL[178]L(IN):[142]
  327. 9290 :
  328. 9300 [153]"   NAME DER DATEI :";:L[178]14
  329. 9310 F[178]42:NA$[178]DN$:[141] 8400:[142]
  330. 9490 :
  331. 9500 I[178]1:[141] 8800:[141] 9700
  332. 9510 X[178]X(I):Y[178]Y(I):[141] 8000
  333. 9520 X[178]1024[170]40[172]Y[170]X
  334. 9530 [151] 252,X[173]256:[151] 251,X[171]256[172][194](252):[151] 253,L(I):[151] 254,I
  335. 9540 [151] 250,0:[158] 50625:I[178][194](254)
  336. 9550 [139] [194](250)[178]133 [167] [142]
  337. 9560 [139] [194](250)[178]137 [167] 9600
  338. 9570 [139] I[179]1 [167] I[178]AE
  339. 9580 [139] I[177]AE [167] I[178]1
  340. 9590 [137] 9510
  341. 9599 :
  342. 9600 [160] 1:[160] 2:[160] 15
  343. 9610 [158] 50821:[139] IE[178]3 [167] NE[178]NE[170]1:[137] 2500
  344. 9620 [139] IE[178]2 [167] 2500
  345. 9630 [139] IE[178]1 [167] 2710
  346. 9640 [137] 800
  347. 9690 :
  348. 9700 X[178]1:Y[178]24:[141] 8000:[153]"";KO$;"WAIT";:[151] 2023,32:[142]
  349. 9790 :
  350. 9800 [152]15,"I":[158] 52182:FB[178][194](250)[170]256[172][194](251)
  351. 9810 [132]15,A,B$,C,D:[142]
  352. 9890 :
  353. 9900 [159] 15,8,15:[141] 9800:FB[178][181](252[172]FB[173]RL):FB[178][181](FB[173](1[170]IL[173]254)):[160] 15
  354. 9910 KO$[178]" 0000 ASC(null)VALRIGHT$VAL, 0000 PEEKVAL(null)VALCHR$(null)VAL STR$ATN(null)VAL(null)(null)ATNVAL(null)(null)VAL ":[139] FB[177]9999 [167] FB[178]9999
  355. 9920 X[178]NE:[139] NE[177]9999 [167] X[178]9999
  356. 9930 A$[178][201]([196](FB),[195]([196](FB))[171]1):B$[178][201]([196](X[171]1),[195]([196](X[171]1))[171]1)
  357. 9940 KO$[178][200](KO$,5[171][195](A$))[170]A$[170][202](KO$,6,12[171][195](B$))[170]B$[170][201](KO$,21)
  358. 9950 [141] 9700:[141] 8100:[142]
  359. 9960 :
  360. 9970 [143] ******************************
  361. 9980 [143] *           DATAS            *
  362. 9990 [143] ******************************
  363. 10000 [131] 000,000,000,015,255,240,031,255,248,056,000,028,049,129,140,051
  364. 10010 [131] 195,204,049,129,140,048,000,012,051,000,204,049,000,140,048,255
  365. 10020 [131] 012,056,000,012,031,255,248,015,255,240,000,000,000,015,255,240
  366. 10030 [131] 022,102,104,043,102,212,086,102,106,127,255,254,000,000,000
  367.