home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / coverfox (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  238 lines
  1. 10 rem guenther schubert
  2. 20 rem molnerweg 13
  3. 30 rem 4600 dortmund 13
  4. 40 rem tel.(0231) 212701
  5. 50 rem 22.7.88
  6. 60 :
  7. 70 print chr$ (147);
  8. 80 poke 53280,0:poke 53281,0:poke 657,128
  9. 90 dim na$(146),zu(146),fi$(62,2),a$(62),f(62),lg(100),rg(100)
  10. 100 for i=704 to 766:read q:poke i,q:next
  11. 110 for i=832 to 958:read ue:poke i,ue:next
  12. 120 for i=52992 to 53242:read m:poke i,m:next
  13. 130 d=1:v=53248:sp=2041:sk=13
  14. 140 rd$=chr$ (129):cy$=chr$ (159):we$=chr$ (150):ge$=chr$ (158)
  15. 150 ra$=chr$ (18):ro$=chr$ (146):lg$=chr$ (153):o$=chr$ (0)
  16. 160 cr$=chr$ (99):fr$=chr$ (2):zs$=chr$ (122):xp$=chr$ (120)
  17. 170 yp$=chr$ (121):l$=chr$ (108):v$=chr$ (118):i$=chr$ (105)
  18. 180 sp$=chr$ (32):re$=chr$ (13):fk$=chr$ (84)
  19. 190 cc$="  cover - fox   (c) 7.88 by gs-soft  "
  20. 200 poke 53265,11:poke 2040,11
  21. 210 for i=0 to 1:poke sp+i,sk+i:next
  22. 220 poke v,209:poke v+1,106
  23. 230 poke v+2,237:poke v+3,50
  24. 240 poke v+4,5:poke v+5,50
  25. 250 poke v+16,4:poke v+39,8:poke v+40,7:poke v+41,7
  26. 260 poke v+21,7
  27. 270 z=4:s=24:gosub 540:print ge$"cover - fox"
  28. 280 z=5:s=23:gosub 540:print "[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  29. 290 z=6:s=24:gosub 540:print rd$"(c) 7.88 by"
  30. 300 z=7:s=22:gosub 540:print "g nther schubert"
  31. 310 z=9:s=5:gosub 540:print rd$"[164][164][164]"ge$"[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]"
  32. 320 z=10:s=5:gosub 540:print rd$ra$" e "ge$" = directory / disk einseitig "
  33. 330 z=11:s=5:gosub 540:print rd$"[164][164][164]"ge$"[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]"
  34. 340 z=12:s=5:gosub 540
  35. 350 print rd$ra$" b "ge$" = directory / disk beidseitig "
  36. 360 z=14:s=5:gosub 540:print rd$"[164][164][164]"ge$"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  37. 370 z=15:s=5:gosub 540:print rd$ra$" _ "ge$" = programm beenden "
  38. 380 poke 53265,27
  39. 390 get g$:if g$="" then 390
  40. 400 if g$<>"_" then 430
  41. 410 gosub 500:z=12:s=11:gosub 540:print we$"auf wiedersehen !!"
  42. 420 for p=1 to 1500:next:poke v+21,0:sys 64738
  43. 430 if g$="e" then af=60:goto 460
  44. 440 if g$="b" then af=30:pz=1:goto 460
  45. 450 goto 390
  46. 460 gosub 500:z=10:s=10:gosub 540:print ge$"diskette einlegen !!"
  47. 470 gosub 480:gosub 570:goto 690
  48. 480 z=12:s=16:gosub 540:print "taste..."
  49. 490 poke 198,0:wait 198,1:poke 198,0
  50. 500 for z=8 to 15:s=0:gosub 540
  51. 510 print "                                       ":next:return
  52. 520 get g$:if g$<>chr$ (74) and g$<>chr$ (78) then 520
  53. 530 return
  54. 540 poke 214,z:poke 211,s:sys 58732:return
  55. 550 ef=27:if af<10 then ef=28
  56. 560 z=23:s=ef:gosub 540:print we$;af:return
  57. 570 close 15:open 15,8,15,"i"
  58. 580 input# 15,f1,f$,f2,f3:if f1=0 then return
  59. 590 z=10:s=15-len (f$)/2:gosub 540:print f1;f$;f2;f3
  60. 600 gosub 480
  61. 610 if fk=1 then fk=0:goto 1770
  62. 620 goto 570
  63. 630 if no+en>=c then return
  64. 640 sys 53056,0,2,2,23,18:no=no+1
  65. 650 z=23:s=2:gosub 540:print na$(zu(no+en-1));:return
  66. 660 if no=0 then return
  67. 670 sys 53056,1,2,2,23,18:no=no-1
  68. 680 z=2:s=2:gosub 540:print na$(zu(no+1)):return
  69. 690 z=1:s=3:gosub 540:print "bitte warten !"
  70. 700 close 1:open 1,8,15,"i":open 2,8,2,"#"
  71. 710 s=1:c=1:f(d)=0
  72. 720 print# 1,"u1 2 0 18"s
  73. 730 get #2,t$:get #2,s$:s=asc (s$+o$)
  74. 740 for bp=0 to 7:print# 1,"b-p 2";bp*32+2
  75. 750 sys 52992,2,3,x$:f=asc (left$ (x$,1)) and 15
  76. 760 if f<>2 then next:goto 790
  77. 770 sys 52992,2,16,x$:na$(c)=x$
  78. 780 zu(c)=c:c=c+1:next
  79. 790 if t$<>"" then 720
  80. 800 open 8,8,15,"i":open 9,8,2,"#"
  81. 810 print# 8,"u1 2 0 18 0":print# 8,"b-p 2 144"
  82. 820 dn$(d)="":for i=1 to 23:get #9,n$
  83. 830 if n$=chr$ (160) then n$=chr$ (32)
  84. 840 dn$(d)=dn$(d)+n$:next
  85. 850 close 8:close 9
  86. 860 id$(d)=mid$ (dn$(d),19,2)
  87. 870 z=0:s=0:gosub 540:print cy$"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  88. 880 z=1:s=0:gosub 540:print ra$;dn$(d);ro$
  89. 890 close 2
  90. 900 print chr$ (19);chr$ (17);chr$ (17);chr$ (62);chr$ (145);
  91. 910 cp=2:no=0:nu=0:en=c
  92. 920 if en>23 then en=23
  93. 930 print re$spc(2)na$(nu+1);:nu=nu+1:if nu<en-1 then 930
  94. 940 z=10:s=21:gosub 540:print lg$"return"we$" = einlesen"
  95. 950 z=12:s=21:gosub 540:print lg$"f1"we$"     = einlesen"
  96. 960 z=13:s=30:gosub 540:print "beenden"
  97. 970 z=15:s=21:gosub 540:print lg$"_ "we$"= neu starten"
  98. 980 z=18:s=21:gosub 540:print lg$"crsr/right"we$" = auf"
  99. 990 z=20:s=21:gosub 540:print lg$"crsr/down"we$"  = ab"
  100. 1000 z=23:s=21:gosub 540:print lg$"frei =";we$;af;lg$;"files";cy$
  101. 1010 get ta$:if ta$="" then 1010
  102. 1020 if ta$=chr$ (145) or ta$=chr$ (29) then if cp>2 then cp=cp-1:goto 1100
  103. 1030 if ta$=chr$ (145) or ta$=chr$ (29) then if cp=2 then gosub 660
  104. 1040 if ta$=chr$ (17) then if cp<en then if no+cp<c then cp=cp+1:goto 1110
  105. 1050 if ta$=chr$ (17) then if cp>=23 then gosub 630
  106. 1060 if ta$=re$ then 1120
  107. 1070 if ta$=chr$ (133) then 1420
  108. 1080 if ta$=chr$ (95) then poke v+21,0:run
  109. 1090 goto 1010
  110. 1100 sys 53056,0,2,0,23,0:goto 1010
  111. 1110 sys 53056,1,2,0,23,0:goto 1010
  112. 1120 te=zu(no+cp-1)
  113. 1130 if af=0 and left$ (na$(te),1)<>rd$ then 1010
  114. 1140 a=a+1
  115. 1150 a$(a)="":if left$ (na$(te),1)=rd$ then u=1:goto 1190
  116. 1160 if na$(te)="" then 1010
  117. 1170 af=af-1:f(d)=f(d)+1
  118. 1180 gosub 550
  119. 1190 for i=1 to len (na$(te))
  120. 1200 z$=mid$ (na$(te),i,1)
  121. 1210 t=asc (z$)
  122. 1220 if t=160 then 1240
  123. 1230 a$(a)=a$(a)+chr$ (t)
  124. 1240 next i
  125. 1250 if u=0 then 1390
  126. 1260 na$(te)=mid$ (a$(a),2,len (a$(a))-2)
  127. 1270 u=0:k=0
  128. 1280 for i=1 to a
  129. 1290 b$=rd$+a$(i)+cy$
  130. 1300 if a$(i)="" then 1340
  131. 1310 if b$=a$(a) then a$(i)="":a$(a)="":goto 1340
  132. 1320 k=k+1
  133. 1330 a$(k)=a$(i)
  134. 1340 next i
  135. 1350 af=af+1:f(d)=f(d)-1:a=k
  136. 1360 gosub 550
  137. 1370 z=cp:s=2:gosub 540:print cy$;na$(te)
  138. 1380 goto 1010
  139. 1390 na$(te)=rd$+na$(te)+cy$
  140. 1400 z=cp:s=2:gosub 540:print na$(te)
  141. 1410 goto 1010
  142. 1420 for z=0 to 1:s=0:gosub 540
  143. 1430 print "                       ":next
  144. 1440 for z=2 to 8:s=0:gosub 540
  145. 1450 print "                     ":next
  146. 1460 for z=9 to 23:s=0:gosub 540
  147. 1470 print "                                       ":next
  148. 1480 z=12:s=6:gosub 540:print we$"alphabetisch sortieren j/n ?"
  149. 1490 gosub 520
  150. 1500 if g$=chr$ (78) then 1670
  151. 1510 gosub 500:z=12:s=12:gosub 540:print we$"moment bitte.."
  152. 1520 z=0:lg(1)=1:rg(1)=a
  153. 1530 gosub 1550
  154. 1540 goto 1670
  155. 1550 z=z+1:if lg(z)>=rg(z) then 1660
  156. 1560 x=lg(z):y=rg(z)
  157. 1570 vg$=a$(int ((x+y)/2))
  158. 1580 if x>y then 1640
  159. 1590 if a$(x)<vg$ then x=x+1:goto 1590
  160. 1600 if a$(y)>vg$ then y=y-1:goto 1600
  161. 1610 if x>y then 1640
  162. 1620 s$=a$(x):a$(x)=a$(y):a$(y)=s$
  163. 1630 x=x+1:y=y-1:goto 1580
  164. 1640 rg(z+1)=y:lg(z+1)=lg(z):gosub 1550
  165. 1650 lg(z+1)=x:rg(z+1)=rg(z):gosub 1550
  166. 1660 z=z-1:return
  167. 1670 for i=1 to a
  168. 1680 fi$(i,d)=a$(i):a$(i)=""
  169. 1690 next
  170. 1700 a=0
  171. 1710 gosub 500
  172. 1720 if pz=0 then 1770
  173. 1730 d=d+1:af=30
  174. 1740 if d=3 then d=2:goto 1770
  175. 1750 z=10:s=11:gosub 540:print ge$"diskette wenden !!"
  176. 1760 gosub 480:gosub 570:goto 690
  177. 1770 z=10:s=8:gosub 540:print we$"datendiskette einlegen !"
  178. 1780 gosub 480:gosub 570
  179. 1790 if d=1 then 1820
  180. 1800 x1$="=98 ":x2$="=158 "
  181. 1810 if f(1)<f(2) then yp=int (int (30-(f(2)))*9/2)+126:goto 1830
  182. 1820 yp=int (int (30-(f(1)))*9/2)+126
  183. 1830 y$="="+right$ (str$ (yp),3)+sp$
  184. 1840 if d=1 then 1860
  185. 1850 goto 1890
  186. 1860 if d=1 and f(1)<31 then ap=1:goto 1880
  187. 1870 x1$="=108 ":y$="=126 ":x2$="=168 ":goto 1890
  188. 1880 x1$="=180 ":x2$="=240 "
  189. 1890 z=12:s=4:gosub 540
  190. 1900 print ge$"printfox-textfile = dir."+id$(1)+sp$+id$(2)+".tf"
  191. 1910 close 1:close 15
  192. 1920 open 15,8,15:open 1,8,2,"dir."+id$(1)+sp$+id$(2)+".tf,p,w"
  193. 1930 print# 1,fk$;fr$;cr$;cc$
  194. 1940 for x=1 to d
  195. 1950 if x=2 then x1$="=321 ":x2$="=381 "
  196. 1960 print# 1,fr$;zs$;"=40 ";xp$;x1$;yp$;y$;l$;"=60"
  197. 1970 print# 1,id$(x)
  198. 1980 print# 1,fr$;zs$;"=101 ";xp$;x2$;yp$;y$;v$;"=1 ";l$;"=140";
  199. 1990 if ap=1 or pz=1 then print# 1,re$;:goto 2010
  200. 2000 print# 1,sp$;i$;"=395 ";xp$;"=331 ";yp$;"=126 ";l$;"=140"
  201. 2010 for i=1 to f(x)
  202. 2020 print# 1,fi$(i,x)
  203. 2030 next i,x
  204. 2040 print# 1,o$:close 1:gosub 500:fk=1:gosub 580:poke v+21,0:run
  205. 2050 data 204,,,,,,204,,
  206. 2060 data 204,,,204,,,204,,
  207. 2070 data 120,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  208. 2080 data 255,255,255,255,255,255,192,,63
  209. 2090 data 195,255,255,195,255,240,195,255,240
  210. 2100 data 195,255,240,195,255,240,195,,48
  211. 2110 data 195,252,48,195,252,48,195,252,63
  212. 2120 data 195,252,63,195,252,63,192,,63
  213. 2130 data 255,255,255,192,,,255,255,255
  214. 2140 data 255,,,255,255,255,255,255,255,
  215. 2150 data 255,255,240,255,255,240,255,255,240
  216. 2160 data 255,255,240,,15,240,255,255,240
  217. 2170 data 192,,48,195,255,240,195,255,240
  218. 2180 data 195,255,240,,15,240,195,15,240
  219. 2190 data 192,,48,255,12,48,255,12,48
  220. 2200 data 255,12,48,,12,48,255,252,48
  221. 2210 data ,,48,255,255,240,255,255,240
  222. 2220 data 32,253,174,32,158,183,32,30,225,32,253,174,32,158,183,138,72,32
  223. 2230 data 253,174,32,139,176,133,73,132,74,32,163,182,104,32,117,180,160,2
  224. 2240 data 185,97,,145,73,136,16,248,200,32,18,225,145,98,200,196,97,208,246
  225. 2250 data 32,204,255,96,,,,,
  226. 2260 data 32,245,207,138,72,32,245,207,224,,176,3,76
  227. 2270 data 72,178,224,24,176,249,134,251,32,245,207,224,0,144,240,224,39
  228. 2280 data 176,236,134,253,32,245,207,224,25,176,227,134,252,232,138,56,229
  229. 2290 data 251,144,218,240,216,133,250,32,245,207,224,40,176,207,228,253,144
  230. 2300 data 203,134,254,104,170,165,172,72,165,173,72,165,174,72,165,175,72
  231. 2310 data 224,,208,22,166,251,198,250,240,44,32,240,233,232,189,240,236,133
  232. 2320 data 172,181,217,32,219,207,48,236,202,240,3,76,72,178,166,252,198,250
  233. 2330 data 240,16,32,240,233,202,189,240,236,133,172,181,217,32,219,207,48
  234. 2340 data 236,164,254,32,240,233,32,36,234,169,32,145,209,136,196,253,16
  235. 2350 data 249,76,88,233,41,3,13,136,2,133,173,32,224,233,164,254,177,172
  236. 2360 data 145,209,177,174,145,243,136,196,253,16
  237. 2370 data 243,96,32,253,174,76,158,183
  238.