home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_94-04_1994_-_de_Side_B.d64 / spiver (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  226 lines
  1. 67 printchr$(8)+chr$(142)
  2. 90 iffl=0thenfl=1:load"-spiver.dir",8,1
  3. 100 poke53280,0:poke53281,0:poke788,52
  4. 110 z=0
  5. 114 dim d$(1999)
  6. 115 gosub5200
  7. 116 print"[147][151][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]"
  8. 117 print"[145][152]              spiver v4.0+              "
  9. 118 print"[145][152]       by manuel cavero  /1992-94       "
  10. 119 print"[145][155][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]"
  11. 120 print"[152] ein spiele-verzeichniss fuer jedermann"
  12. 121 print" der endlich mal ordnung in seine spie-"
  13. 122 print" lesammlung bringen will. einfach disks"
  14. 123 print"    kennzeichnen und daten eingeben.   "
  15. 124 printtab(14)"viel spass !"
  16. 125 print"[151][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]"
  17. 126 print"[152]  presented by:  starlight vision 1994  "
  18. 127 print"[145][152]       copyright magic-disk 1994        "
  19. 128 print"[145][155][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]"
  20. 129 poke198,0:wait198,1
  21. 130 print"[147][152]             name:[155]"d$(z)
  22. 140 print"[152]   programmlaenge:[155]"d$(z+1)
  23. 150 print"[152]art des programms:[155]"d$(z+2)
  24. 160 print"[152] diskettenkennung:[155]"d$(z+3)
  25. 170 print"[152]            seite:[155]"d$(z+4)
  26. 175 print"[152]           programm nr.:[155]"z/5
  27. 176 os=399:if d$(0)="" then os=400
  28. 177 printtab(6)"[152]speicher:[155]"os-(lp/5)"[152]programmfelder"
  29. 180 print"[151][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]"
  30. 190 print"[145][152] f1: naechstes prg  f2:  vorheriges prg "
  31. 200 print"[145] f3: datei laden    f4: datei speichern "
  32. 210 print"[145] f5: suchen         f7:  eingabe machen "
  33. 220 print"[145] f6/ f8: erstes/   letztes prg anzeigen "
  34. 225 print"[145] a: progr. 'x' anzeigen   @: spiver-dos "
  35. 227 print"[145] p: programm loeschen     $:  directory "
  36. 228 print"[145] c: speicher loeschen     e:  exit      "
  37. 230 print"[145][155][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]"
  38. 235 printtab(6)"[152]copyright by magic-disk 1994"
  39. 240 getq$:ifq$="[133]"andz<1995thenz=z+5:goto130
  40. 250 ifq$="[137]"andz<>0thenz=z-5:goto130
  41. 252 ifq$="$"thensys49152:print""tab(54)"taste bitte.":poke198,0:wait198,1:goto130
  42. 260 ifq$="[134]"then500
  43. 270 ifq$="[138]"then600
  44. 280 ifq$="[135]"then1000
  45. 290 ifq$="[140]"then700
  46. 291 ifq$<>"c"then300
  47. 292 print"[147]wollen sie wirklich alle daten loeschen?"
  48. 293 getq$:ifq$=""then293
  49. 294 ifq$<>"j"then130
  50. 295 clr:dimd$(1999):gosub5200:goto130
  51. 300 ifq$="[136]"then2000
  52. 301 ifq$="p"then6000
  53. 302 ifq$="[139]"thenz=0:goto130
  54. 303 ifq$<>"a"then306
  55. 304 input"[147][155]bitte prg-nr eingeben ![152]";q:ifq=>0andq<400thenz=q*5
  56. 305 goto130
  57. 306 ifq$="@"then3000
  58. 310 ifq$<>"e"then240
  59. 320 print"[147][152]sind sie sicher dass sie das programm"
  60. 322 printtab(7)"verlassen moechten (j/n) ?"
  61. 325 poke198,0:wait198,1:getq$
  62. 330 ifq$<>"j"then130
  63. 340 sys64738
  64. 500 print"[147]wollen sie wirklich neue daten laden ?"
  65. 501 print"  alte daten werden geloescht! (j/n)"
  66. 502 poke198,0:wait198,1:getq$:ifq$<>"j"then130
  67. 503 clr:dimd$(1999):gosub5200
  68. 504 gosub5000:open1,8,15,"r:xyx=spiver."+fl$:input#1,a:close1:ifa<>0then540
  69. 505 open1,8,15,"r:spiver."+fl$+"=xyx":close1
  70. 506 print"[147]      - please wait, loading ... -"
  71. 510 open2,8,2,"spiver."+fl$+",s,r":z=0
  72. 520 input#2,d$(z):if st=64 then lp=z-4:z=0:close2:goto130
  73. 530 z=z+1:goto520
  74. 540 print"[147][150]    - file not found: check disk ! -"
  75. 550 printtab(48)"press a key to continue.":poke198,0:wait198,1:goto130
  76. 600 gosub5000:iflen(fl$)>9orlen(fl$)<0then600
  77. 603 print"[147]      - please wait, saving .... -"
  78. 605 open2,8,2,"@:spiver."+fl$+",s,w":z=-1
  79. 610 z=z+1:ifd$(z)=""then:z=0:goto710
  80. 620 print#2,d$(z):goto610
  81. 700 z=lp:goto130
  82. 710 input#2,i(1),i$,i(2),i(3):close2
  83. 720 print"[151]status:[152]"i(1)","i$","i(2)","i(3):print"[151]taste bitte":poke198,0:wait198,1
  84. 730 goto130
  85. 1000 print"[147]was wollen sie suchen ?"
  86. 1010 print"1:[155] programme mit [152]x[155] bloecken suchen"
  87. 1020 print"2:[155] bestimmte spielearten suchen"
  88. 1025 print"z.b. action-games,adventures"
  89. 1030 print"3:[155] disketten anschauen"
  90. 1040 print"4:[155] programme suchen"
  91. 1042 print"5:[155] freien diskspeicher suchen"
  92. 1045 print"6:[155] zum hauptmenue"
  93. 1050 print"bitte waehlen !"
  94. 1060 getq$:ifq$=""then1060
  95. 1062 ifq$="6"then130
  96. 1065 ifval(q$)<1orval(q$)>5then1060
  97. 1070 q=val(q$):on q goto 1100,1300,1500,1700,1900
  98. 1100 print"[147][152]wieviele bloecke soll das programm"
  99. 1110 input"[155]maximal[152] haben";mx
  100. 1120 input"wieviel bloecke [155]minimal[152]";mn
  101. 1125 az=z:z=1
  102. 1130 ifval(d$(z))<mnorval(d$(z))>mxthen1140
  103. 1135 print"[152]name: [155]"d$(z-1)
  104. 1136 print"[152]disk-kennung:[155] "d$(z+2)" [152]/seite [155]"d$(z+3)
  105. 1137 print"[152]bloecke:[155]"d$(z)"[152]- prg-nr.: [155]"(z-1)/5
  106. 1138 print"[151]taste bitte.[196][196][196][196] _ = abbruch [196][196][196][196][196][196][196][196][155]":poke198,0:wait198,1
  107. 1139 getq$:ifq$="_"thenz=az:goto1000
  108. 1140 ifd$(z)<>""andz<>1996thenz=z+5:goto1130
  109. 1150 z=az:print"             dateiende ....":poke198,0:wait198,1:goto1000
  110. 1300 print"[147] welche spielearten wollen sie suchen ?"
  111. 1310 print"[151]   1: jump'n'run"
  112. 1315 print"    [152]2: action"
  113. 1320 print"     [155]3: simulation"
  114. 1325 print"      [152]4: adventure"
  115. 1330 print"       [151]5: geschicklichkeit"
  116. 1335 print"        [152]6: schrott !":az=z
  117. 1340 getq$:ifq$=""then1340
  118. 1345 ifval(q$)<1orval(q$)>6then1340
  119. 1350 q=val(q$):z=2
  120. 1355 ifd$(z)<>sa$(q)then1370
  121. 1360 print"[155]name:"d$(z-2):print"[152]disk-kennung:[155]"d$(z+1)" [152]/seite [155]"d$(z+2)
  122. 1361 print"[152]prg-nr.:[155]"(z-2)/5
  123. 1362 print"[151]taste bitte.[195][195][195][195] _ = abbruch [195][195][195][195][195][195][195][195]"
  124. 1365 poke198,0:wait198,1
  125. 1368 getq$:ifq$="_"thenz=az:goto1000
  126. 1370 ifd$(z)<>""andz<>1997thenz=z+5:goto1355
  127. 1380 print"dateiende ...":poke198,0:wait198,1:z=az:goto1000
  128. 1500 print"[147][155]bitte geben sie die diskettenkennung"
  129. 1510 input"ein !";dk$
  130. 1520 az=z:z=3
  131. 1530 ifdk$=d$(z)then1560
  132. 1540 ifz<>1998andd$(z)<>""thenz=z+5:goto1530
  133. 1550 print"dateiende ...":poke198,0:wait198,1:z=az:goto1000
  134. 1560 print"[155]name:";d$(z-3)" [152]seite [155]"d$(z+1):print"[152]prg-nr.:[155]"(z-3)/5
  135. 1562 print"[151]taste bitte.[195][195][195][195] _ = abbruch [195][195][195][195][195][195][195][195]"
  136. 1565 poke198,0:wait198,1:getq$:ifq$<>"_"thenz=z+5:goto1530
  137. 1568 z=az:goto1000
  138. 1700 print"[147]bitte geben sie den namen ein ..."
  139. 1710 input"[155]name -->";n$
  140. 1720 az=z:z=0
  141. 1730 ifn$=d$(z)then1760
  142. 1740 ifd$(z)<>""andz<>1995thenz=z+5:goto1730
  143. 1750 print"programm nicht vorhanden ...":poke198,0:wait198,1:z=az:goto1000
  144. 1760 print"[151][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  145. 1761 print"[152]diskettenkennung: [155]"d$(z+3):print"[152]seite [155]"d$(z+4):print"[152]prg-nr.:[155] "z/5
  146. 1762 print"[151]taste bitte.[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  147. 1765 poke198,0:wait198,1
  148. 1770 goto130
  149. 1900 print"[147][152]welche diskette wollen sie untersuchen ?"
  150. 1910 input"[155]diskettenkennung";dk$
  151. 1920 az=z:z=3:s1=664:s2=664
  152. 1925 ifd$(z)<>dk$then1930
  153. 1927 ifd$(z+1)="1"thens1=s1-val(d$(z-2))
  154. 1928 ifd$(z+1)="2"thens2=s2-val(d$(z-2))
  155. 1930 ifz<>1998andd$(z)<>""thenz=z+5:goto1925
  156. 1932 if s1<664 or s2<664 then 1935
  157. 1933 print"diese diskette ist noch nicht re-"
  158. 1934 print"gistriert worden ...":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]":goto1950
  159. 1935 print"auf dieser diskette sind maximal"
  160. 1940 print"auf seite 1:"s1:print"auf seite 2:"s2:print"bloecke frei !"
  161. 1950 print"[151]taste bitte.":poke198,0:wait198,1:z=az:goto1000
  162. 2000 if lp =< z then lp=z
  163. 2005 input"[147][155]name:[152]";d$(z)
  164. 2010 input"[155]laenge in bloecken:[152]";d$(z+1)
  165. 2020 print"[155]art des spieles:[152]"
  166. 2030 fori=1to6:printi;sa$(i):next
  167. 2040 print"[155]bitte waehlen !"
  168. 2050 getq$:ifq$=""then2050
  169. 2060 ifval(q$)<1orval(q$)>6then2050
  170. 2070 d$(z+2)=sa$(val(q$))
  171. 2080 input"diskettenkennung[152]";d$(z+3)
  172. 2090 input"[155]seite[152]";d$(z+4)
  173. 2100 goto130
  174. 3000 print"[147][151][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]"
  175. 3010 print"[152][145]   spiver-dos v1.0+  by manuel cavero [160] "
  176. 3020 print"[145]                                        "
  177. 3030 print"[145] $: directory                           "
  178. 3040 print"[145] s: prg loeschen                        "
  179. 3050 print"[145] f: disk formatieren                    "
  180. 3060 print"[145] n: name aendern                        "
  181. 3065 print"[145] i: disk initialisieren                 "
  182. 3070 print"[145]                                        "
  183. 3080 print"[145] z: zurueck zum hauptmenue              "
  184. 3090 print"[145][155][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]"
  185. 3100 getq$:ifq$=""then3100
  186. 3110 ifq$="$"thenprint"[152]":sys49152:printtab(54)"taste bitte.":poke198,0:wait198,1:goto3000
  187. 3120 ifq$<>"s"then3200
  188. 3130 gosub5100:open1,8,15,"s:"+fl$
  189. 3140 goto3340
  190. 3150 wait198,1:goto3000
  191. 3200 ifq$="i"thenopen1,8,15,"i":print"[147][158]process init ...":goto3340
  192. 3205 ifq$<>"f"then3300
  193. 3210 input"[147][152]disk-name:";q$:input"id   --[157][157][157][157]";i$:open1,8,15,"n:"+q$+","+i$
  194. 3220 goto3340
  195. 3300 ifq$<>"n"then3360
  196. 3310 input"[147][152]alter name:";an$
  197. 3320 input"[155]neuer name:";nn$
  198. 3330 open1,8,15,"r:"+nn$+"="+an$
  199. 3340 input#1,i(1),i$,i(2),i(3):close1
  200. 3345 print"[151]status:[152]"i(1)","i$","i(2)","i(3):print"[151]taste bitte":poke198,0:wait198,1
  201. 3350 goto3000
  202. 3360 ifq$<>"z"then3100
  203. 3370 goto 130
  204. 5000 print"[147][155]* = systemfile !"
  205. 5010 input"[152]filename (max 9 zeichen)";fl$:iffl$="*"thenfl$="sys"
  206. 5020 return
  207. 5100 input"[147][152]filename:";fl$:return
  208. 5200 sa$(1)="jump'n'run"
  209. 5202 sa$(2)="action"
  210. 5203 sa$(3)="simulation"
  211. 5204 sa$(4)="adventure"
  212. 5205 sa$(5)="geschicklichkeit":sa$(6)="schrott !":return
  213. 6000 az=z
  214. 6002 print"           [159]m[155]oving datas .[155].[159].           "
  215. 6003 print"           [159][163][155][163][163][163][163][163][163][163][163][163][163][163][163][163][155][163][159][163]            "
  216. 6005 for z2=1 to 5
  217. 6010 d$(z)=d$(z+5)
  218. 6020 z=z+1
  219. 6025 next z2
  220. 6030 if z<lp+1 then 6005
  221. 6035 if lp>0 then lp=lp-5
  222. 6040 z=az:goto130
  223. 6100 print"[155]name:"d$(z-2)
  224. 6110 print"[152]disk-kennung: "d$(z+1)" /seite "d$(z+2)
  225. 6120 print"prg-nr.:"(z-2)/5:return
  226.