home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_A.d64 / dat_slf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 0 rem hope you understand:                             changings not allowed!!!(NULL)
  2. 1 print"[147]";
  3. 2 poke53281,15:poke53280,12:yt$="taste f>r weiter.":c1%=1:c2%=7:c3%=3
  4. 3 c4%=14:dd$="data":qw$="2"
  5. 4 print"[155]    ki stadt-land-flu# dateimanager":gosub60:gosub67
  6. 5 print"  [151]der [156]ki stadt-land-flu# dateimanager[151]"
  7. 6 print" ist ein tool um die von ki stadt-land-"
  8. 7 print"  flu#[151] erzeugten datenfelder anzusehen"
  9. 8 printspc(7)"und bei bedarf zu l<schen."
  10. 9 print"!bitte legen sie ihre datendiskette ein!"
  11. 10 gosub63:gosub56:iftc=.thenrun
  12. 11 print"[147][144]soll die diskette gecheckt werden? ";
  13. 12 geta$:ifa$="n"thenprint"nein.":goto16
  14. 13 ifa$="j"thenprint"ja.":gosub67:print"checke...":open1,peek(1023),15,"v":qa=1
  15. 14 ifqa=1thenqa=.:close1:print"ok.":gosub68:gosub63:goto16
  16. 15 goto12
  17. 16 open1,peek(1023),2,"gebiete,s,r":fori=1to5:input#1,wi$(i)
  18. 17 input#1,a$:nexti:close1
  19. 18 gosub67:print"[147][144]welches wissensgebiet?[151]":r=.:k$=""
  20. 19 fori=1to5
  21. 20 printi;wi$(i):nexti
  22. 21 getb$:ifb$<>"1"andb$<>"2"andb$<>"3"andb$<>"4"andb$<>"5"then21
  23. 22 u$=" "+b$:poke55297+val(b$)*40,1:gosub67
  24. 23 print"[144]anfangsbuchstabe?"
  25. 24 print"[151]abcdefghijklmnopqrstuvwxyz"
  26. 25 getb$:ifb$<chr$(65)orb$>chr$(90)then25
  27. 26 poke55656+asc(b$)-65,1:gosub67
  28. 27 u$=u$+b$:goto50
  29. 28 print"[156]";:open1,peek(1023),2,u$+",s,r"
  30. 29 input#1,b$:r=r+1:ifb$="*"thenclose1:ifr>1then34
  31. 30 ifb$="*"andr=1then33
  32. 31 printb$
  33. 32 goto29
  34. 33 print"dieses datenfeld ist leer!":gosub68:goto39
  35. 34 print"l<schen (j/n)? ";:gosub67
  36. 35 geta$:ifa$<>"n"anda$<>"j"then35
  37. 36 ifa$="j"thenprint"ja.":open1,peek(1023),15,"s:"+u$:close1:open1,peek(1023),2,u$+",s,w"
  38. 37 ifa$="j"thenprint#1,"*":close1:print"file erfolgreich gel<scht!":gosub68
  39. 38 ifa$="n"thenprint"nein.":gosub67
  40. 39 print:print"noch einmal (j/n)?"
  41. 40 geta$:ifa$<>"j"anda$<>"n"then40
  42. 41 ifa$="j"then18
  43. 42 goto46
  44. 43 print"[147][150]----------------------------------------";
  45. 44 print" bitte legen sie die spieldiskette ein."
  46. 45 print"[150]----------------------------------------":gosub63
  47. 46 dd$="game":qw$="1"
  48. 47 gosub56:iftc=.then43
  49. 48 print"[147][155]new":print"l[207]"chr$(34)"men/slf"chr$(34)","peek(1023):print"r[213]";
  50. 49 poke631,13:poke632,13:poke633,13:poke198,3:end
  51. 50 open1,peek(1023),2,u$+",s,r":close1:open1,peek(1023),15
  52. 51 fori=1to2:get#1,h$:k$=k$+h$:nexti:close1
  53. 52 ifk$="00"thenprint"ok.             ":goto28
  54. 53 ifk$="62"thenprint"file nicht gefunden!"
  55. 54 ifk$="62"thenprint">berpruefen sie ihr laufwerk!"
  56. 55 goto39
  57. 56 ds$="":open1,8,2,"id"+qw$+",s,r"
  58. 57 fori=1to4:input#1,a$:ds$=ds$+a$:nexti:close1
  59. 58 ifds$<>dd$thentc=.:return
  60. 59 tc=1:return
  61. 60 fori=cs%*40tocs%*40+37:poke55295+i,c1%:poke55296+i,c2%:poke55297+i,c3%
  62. 61 poke55298+i,c4%:nexti:poke55295+i,c1%:poke55296+i,c1%
  63. 62 poke55297+i,c1%:return
  64. 63 fori=1to18
  65. 64 print"";left$(yt$,i);:nexti:poke198,.
  66. 65 geta$:ifa$=""thencs%=24:gosub60:cs%=.:goto65
  67. 66 gosub67:return
  68. 67 s=54272:pokes+24,15:pokes+1,110:pokes+6,9:pokes+4,17:pokes+4,16:return
  69. 68 gosub67:fori=1to720:nexti:gosub67:return
  70.