home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 38 / Commodore_Disc_38_19xx_-_de.d64 / datgen.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.9 KB  |  171 lines
  1. 10 rem dateigenerator===============c64
  2. 20 rem by alfons mittelmeyer
  3. 40 rem c64
  4. 50 rem basic v2.0
  5. 60 rem ================================
  6. 70 ifpeek(49154)=174then100
  7. 80 sys57812"sysmc",8,0:poke780,0
  8. 90 poke781,254:poke782,191:sys65493
  9. 100 gosub1411
  10. 140 printchr$(14)chr$(147);
  11. 150 sysat,10,5:print"[196][193][212][197][201][199][197][206][197][210][193][212][207][210]";
  12. 160 sysat,10,6:print"--------------";
  13. 170 sysat,10,8:print"1 = [205]aske";
  14. 180 sysat,10,9:print"2 = [196]atei";
  15. 190 sysat,10,10:print"3 = [214]erweis";
  16. 200 sysat,10,12:print"0 = [197]nde";
  17. 210 geta$:ifa$=""then210
  18. 211 a=asc(a$)and3
  19. 220 on a goto 750,490,240
  20. 230 printchr$(142);:end
  21. 240 printchr$(147);
  22. 250 sysat,10,5:print"[214]erweisdateien";
  23. 260 sysat,10,6:print"--------------";
  24. 270 sysat,10,8:print"1 = [197]inrichten";
  25. 280 sysat,10,9:print"2 = [201]nfo";
  26. 290 sysat,10,11:print"0 = [218]urueck";
  27. 300 geta$:ifa$=""then300
  28. 301 a=asc(a$)and3
  29. 310 on a goto 330,410,140
  30. 320 goto140
  31. 330 printchr$(147):sysat,0,7:print"[214]erweisdatei einrichten"
  32. 340 print"----------------------":print
  33. 350 print"[214]erweisdatei? ";:sysin:vw$
  34. 360 print"[205]askendatei? ";:sysin:mk$
  35. 370 print"[196]atenfile? ";:sysin:df$
  36. 380 open8,8,8,vw$+",p,w"
  37. 390 gosub1270:print#8,mk$:print#8,df$:close8
  38. 400 goto240
  39. 410 printchr$(147):sysat,0,7:print"[201]nfo [214]erweisdatei"
  40. 420 print"-----------------":print
  41. 430 print"[214]erweisdatei? ";:sysin:vw$
  42. 440 open8,8,8,vw$+",p,r":gosub1400
  43. 450 sysin:mk$:sysin:mk$:sysin:df$:gosub1410
  44. 460 print"[205]askendatei:  "mk$
  45. 470 print"[196]atenfile:    "df$
  46. 480 print:print"weiter mit [212]aste"
  47. 481 geta$:ifa$=""then481
  48. 482 goto240
  49. 490 printchr$(147)
  50. 500 sysat,10,5:print"[196]atenfiles";
  51. 510 sysat,10,6:print"--------------";
  52. 520 sysat,10,8:print"1 = [197]inrichten";
  53. 530 sysat,10,9:print"2 = [201]nfo";
  54. 540 sysat,10,11:print"0 = [218]urueck";
  55. 550 geta$:ifa$=""then550
  56. 555 a=asc(a$)and3
  57. 560 on a goto 580,660,140
  58. 570 goto140
  59. 580 printchr$(147):sysat,0,7:print"[196]atenfile einrichten"
  60. 590 print"--------------------":print
  61. 600 print"[198]ile-[206]ame? ";:sysin:nf$
  62. 610 input"[198]eldzahl";fz
  63. 620 input"[205]aximale [211]atzzahl";ms
  64. 630 open8,8,8,nf$+",p,w"
  65. 640 gosub1270:print#8,fz:print#8,ms:print#8,0:close8
  66. 650 goto490
  67. 660 printchr$(147):sysat,0,7:print"[201]nfo [196]atenfile"
  68. 670 print"--------------":print
  69. 680 print"[198]ile-[206]ame? ";:sysin:nf$
  70. 690 open8,8,8,nf$+",p,r"
  71. 700 input#8,mk$:input#8,fz:input#8,ms:input#8,sz:close8
  72. 710 print"[198]eldzahl:  "fz
  73. 720 print"[205]aximale [211]atzzahl: "ms
  74. 730 print"[193]ktuelle [211]atzzahl: "sz
  75. 740 print:print"weiter mit [212]aste"
  76. 741 geta$:ifa$=""then741
  77. 742 goto490
  78. 750 printchr$(147);:clr:dimx(50),y(50),z$(50),xf(50),yf(50),fl(50)
  79. 751 gosub1411
  80. 760 sysat,10,5:print"[205]askenfiles";
  81. 770 sysat,10,6:print"-----------";
  82. 780 sysat,10,8:print"1 = [197]inrichten";
  83. 790 sysat,10,9:print"2 = [201]nfo";
  84. 800 sysat,10,10:print"3 = [193]endern";
  85. 810 sysat,10,12:print"0 = [218]urueck";
  86. 820 geta$:ifa$=""then820
  87. 821 a=asc(a$)and3
  88. 830 on a goto 850,1280,1380,140
  89. 840 goto140
  90. 850 tz=1:fz=1
  91. 860 printchr$(147)
  92. 870 sysat,1,23:printright$(str$(tz),2)+": x = [216], y = [217], z = [212]exteintrag";
  93. 880 sysat,5,24:print"f = [198]eld, b = [194]ild, e = [197]nde";
  94. 890 sysat,x(tz),y(tz):print""z$(tz)"[146]";
  95. 891 geta$:ifa$=""then890
  96. 892 sysat,0,22:printle$;
  97. 893 syswo,a$,"xyzfbe[145]",n:ifn=0then890
  98. 894 ifn>3thensysat,x(tz),y(tz):printz$(tz);
  99. 900 on n goto 910,920,930,1010,940,1150,970,990
  100. 910 sysat,1,22:print"[216]-[203]oordinate "str$(x(tz));:sysat,13,22:inputa:gosub961
  101. 911 x(tz)=a:goto890
  102. 920 sysat,1,22:print"[217]-[203]oordinate "str$(y(tz));:sysat,13,22:inputa:gosub961
  103. 921 y(tz)=a:goto890
  104. 930 sysat,1,22:print"[212]exteintrag? "z$(tz);:sysat,14,22:sysin:z$:gosub961
  105. 931 z$(tz)=z$:goto891
  106. 940 printchr$(147):fori=1totz:sysat,x(i),y(i):printz$(i);:next
  107. 950 fori=1tofz:sysat,xf(i),yf(i):print"<";:sysat,xf(i)+1+fl(i),yf(i)
  108. 960 print">";:next:goto870
  109. 961 sysat,x(tz),y(tz):printleft$(le$,len(z$(tz))):return
  110. 970 iftz<>1thentz=tz-1
  111. 980 sysat,1,23:printright$(str$(tz),2);:goto890
  112. 990 iftz<>50thentz=tz+1:sysat,1,23:printright$(str$(tz),2);
  113. 1000 goto890
  114. 1010 sysat,1,23:printright$(str$(fz),2)": x = [216], y = [217], z = [198]eldlaenge ";
  115. 1020 sysat,5,24:print"t = [212]ext, b = [194]ild, e = [197]nde";
  116. 1030 sysat,xf(fz),yf(fz):print"<"left$(le$,fl(fz))"[146]>";
  117. 1031 geta$:ifa$=""then1030
  118. 1032 sysat,0,22:printle$;
  119. 1033 syswo,a$,"xyztbe[145]",n:ifn=0then1030
  120. 1034 ifn>3thensysat,xf(fz),yf(fz):print""left$(le$,fl(fz));
  121. 1040 on n goto 1050,1060,1070,870,1080,1150,1110,1130
  122. 1050 sysat,1,22:print"[216]-[203]oordinate "str$(xf(fz));:sysat,13,22:inputa:gosub1072
  123. 1051 xf(fz)=a:goto1030
  124. 1060 sysat,1,22:print"[217]-[203]oordinate "str$(yf(fz)):sysat,13,22:inputa:gosub1072
  125. 1061 yf(fz)=a:goto1030
  126. 1070 sysat,1,22:print"[198]eldlaenge "str$(fl(fz));:sysat,11,22:inputa:gosub1072
  127. 1071 fl(fz)=a:goto1030
  128. 1072 sysat,xf(fz),yf(fz):printleft$(le$+" ",fl(fz)+2);:return
  129. 1080 printchr$(147):fori=1totz:sysat,x(i),y(i):printz$(i);:next
  130. 1090 fori=1tofz:sysat,xf(i),yf(i):print"<";:sysat,xf(i)+1+fl(i),yf(i)
  131. 1100 print">";:next:goto1010
  132. 1110 iffz<>1thenfz=fz-1
  133. 1120 sysat,1,23:printright$(str$(fz),2);:goto1030
  134. 1130 iffz<>50thenfz=fz+1:sysat,1,23:printright$(str$(fz),2);
  135. 1140 goto1030
  136. 1150 printchr$(147)
  137. 1160 sysat,10,5:print"[197]nde der [205]askengenerierung";
  138. 1170 sysat,10,6:print"--------------------------";
  139. 1180 sysat,10,8:print"[205]aske speichern j/n ?";
  140. 1181 geta$:ifa$=""then1181
  141. 1190 if a$="n"then750
  142. 1200 if a$<>"j"then1180
  143. 1210 print:print:print"[198]ilename? ";:sysin:f$
  144. 1220 fori=1totz:ifz$(i)=""thenz$(i)=" "
  145. 1230 next
  146. 1240 open8,8,8,f$+",p,w":gosub1270:print#8,fz:print#8,tz
  147. 1250 fori=1totz:print#8,x(i):print#8,y(i):print#8,z$(i):next
  148. 1260 fori=1tofz:print#8,xf(i):print#8,yf(i):print#8,fl(i):next:close8:goto750
  149. 1270 print#8,chr$(1)chr$(1)chr$(0)chr$(0):return
  150. 1280 printchr$(147):sysat,0,7:print"[201]nfo [205]askendatei"
  151. 1290 sysat,0,8:print"----------------";:gosub1310
  152. 1300 sysat,0,24:print"[215]eiter mit [212]aste";
  153. 1301 geta$:ifa$=""then1301
  154. 1302 goto750
  155. 1310 print:print:print"[205]asken-[206]ame? ";:sysin:f$
  156. 1320 open8,8,8,f$+",p,r":gosub1400:sysin:mk$:sysin:fz
  157. 1330 sysin:tz:fori=1totz:sysin:x(i):sysin:y(i):sysin:z$(i):next
  158. 1340 fori=1tofz:inputxf(i),yf(i),fl(i):next:gosub1410
  159. 1350 printchr$(147):fori=1totz:sysat,x(i),y(i):printz$(i);:next
  160. 1360 fori=1tofz:sysat,xf(i),yf(i):print"<";:sysat,xf(i)+1+fl(i),yf(i)
  161. 1370 print">";:next:return
  162. 1380 printchr$(147):sysat,0,7:print"[205]aske aendern";
  163. 1390 sysat,0,8:print"-------------";:gosub1310:goto870
  164. 1400 poke19,8:poke781,8:sys65478:return
  165. 1410 close8:sys65484:poke19,0:return
  166. 1411 in=49465:at=49152:wo=49172
  167. 1412 le$="          ":le$=left$(le$+le$+le$+le$,39):return
  168. 1420 rem ==============================
  169. 1430 rem  p r o g r a m m e n d e
  170. 1440 rem ==============================
  171.