home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ins_slf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  94 lines
  1. 0 rem wehe dem, der dieses programm hier      abaendert! tu's nicht...(NULL)
  2. 1 yt$="taste f>r weiter.":c1%=1:c2%=7:c3%=3:c4%=14:print"[147]";
  3. 2 poke53281,15:poke53280,12:dd$="game"
  4. 3 print"[155]    ki stadt-land-flu# installation":gosub82:gosub89
  5. 4 print"    legen sie eine [156]diskette f>r die"
  6. 5 print"[144]   ki stadt-land-flu# datendisk  ein"
  7. 6 print"[151]wenn sie eine eigenst@ndige data-disk"
  8. 7 print"erstellen wollen, so legen sie eine":print"leer-disk ein!"
  9. 8 print"wollen sie dagegen die datas mit auf der";
  10. 9 print"spiel-diskette speichern, so lassen sie"
  11. 10 print"die spiel-disk im laufwerk!"
  12. 11 print"[129]     die gesamte installation wird"
  13. 12 print"   ca. 15 minuten in anspruch nehmen!"
  14. 13 gosub86
  15. 14 c1%=15
  16. 15 print"[147]bitte geben sie [156]5 wissensgebiete ein,"
  17. 16 print"mit denen sie [144]ki stadt-land-flu# spielen";
  18. 17 print"wollen."
  19. 18 e%=1:lo=65:hi=90:ul=12:sf(1)=64:sf(2)=60:sf(3)=62:sf(4)=35
  20. 19 fori=1to5:gosub89
  21. 20 print:print"[151]wissensgebiet"i": ";:gosub66:wi$(i)=wm$
  22. 21 fora=1to5:ifwi$(i)=wi$(a)anda<>ithenyy=1
  23. 22 ifyy=1thenprint"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][145]";:yy=.:goto20
  24. 23 nexta
  25. 24 print:print"welcher artikel?"
  26. 25 print"1)[154]ein  "wi$(i):print"2)[154]eine "wi$(i)
  27. 26 geta$:ifa$<>"1"anda$<>"2"then26
  28. 27 ifa$="1"thenat$(i)="ein "
  29. 28 ifa$="2"thenat$(i)="eine"
  30. 29 cs%=5:gosub82:cs%=7:gosub82:cs%=8:gosub82:cs%=9:gosub82
  31. 30 print"[145][145][145][145][145][145]";:forgg=1to6
  32. 31 print"                                       "
  33. 32 nextgg:print"[145][145][145][145][145][145]";:nexti:c1%=1:fori=1to5:print"[158]"at$(i)" [154]"wi$(i):nexti
  34. 33 gosub90:print:print"alles richtig? ";
  35. 34 geta$:gosub65:ifa$<>"j"anda$<>"n"then34
  36. 35 ifa$="j"thenprint"ja.":gosub86
  37. 36 ifa$="n"thenfori=1to5:wi$(i)="":nexti:goto14
  38. 37 gosub91:ifds$="00"then42
  39. 38 print"[147][150]----------------------------------------";
  40. 39 print"  bereite diskette f>r die daten vor."
  41. 40 print"[150]----------------------------------------";:gosub89
  42. 41 open1,8,15,"n:ki s-l-f datas,d[204]":close1
  43. 42 print"[147][154]----------------------------------------";
  44. 43 print"      datenfelder werden erzeugt."
  45. 44 print"[154]----------------------------------------":gosub89
  46. 45 open1,peek(1023),2,"id2,s,w":fori=1to4:reada$:print#1,a$:nexti:close1
  47. 46 open1,peek(1023),2,"bestenliste,s,w"
  48. 47 fori=1to10:reada$:print#1,a$:print#1,0:nexti:close1
  49. 48 open1,peek(1023),2,"gebiete,s,w"
  50. 49 fori=1to5:print#1,wi$(i):print#1,at$(i):nexti:close1
  51. 50 poke56334,peek(56334)and254:poke53265,peek(53265)and239
  52. 51 forx=1to5:fori=65to90
  53. 52 open1,peek(1023),2,str$(x)+chr$(i)+",s,w":print#1,"*":close1:nexti,x
  54. 53 poke56334,peek(56334)or1:poke53265,peek(53265)or16
  55. 54 print"[147]fertig! alle dateien erfolgreich";
  56. 55 printspc(17)"eingerichtet!":gosub90:gosub86
  57. 56 datad,a,t,a,l1ve macht h<rig!,forever rof-fd!,"kult=digital talk","hallo ihr..."
  58. 57 datatigercrewer!,"willst'n cf?!","<kometal...","or biometal?","and:","by(t)e..."
  59. 58 goto62
  60. 59 print"[147][150]----------------------------------------";
  61. 60 print" bitte legen sie nun die spieldisk ein."
  62. 61 print"[150]----------------------------------------":gosub89:gosub86
  63. 62 gosub78:iftc=.then59
  64. 63 print"[147][155]new":print"l[207]"chr$(34)"men/slf"chr$(34)","peek(1023):print"r[213]";
  65. 64 poke631,13:poke632,13:poke633,13:poke198,3:end
  66. 65 tc=peek(646):print" [157]";:print" [146][157]";:poke646,tc:return
  67. 66 wm$=""
  68. 67 geta$:gosub65:ifa$=""then67
  69. 68 ifwm$<>""anda$=""thenprint"";:wm$=left$(wm$,len(wm$)-1)
  70. 69 ifa$=chr$(32)ande%=1andlen(wm$)<ulthenprinta$;:wm$=wm$+a$:goto67
  71. 70 ifa$=chr$(lk)andwm$=""thenwm$="-":printwm$" ";:return
  72. 71 foriu=1to4
  73. 72 ifa$=chr$(sf(iu))andlen(wm$)<ulthenprinta$;:wm$=wm$+a$:goto67
  74. 73 nextiu
  75. 74 ifa$=chr$(13)andwm$<>""thenprint" ";:return
  76. 75 ifa$<chr$(lo)ora$>chr$(hi)then67
  77. 76 iflen(wm$)=ulthen67
  78. 77 wm$=wm$+a$:printa$;:goto67
  79. 78 ds$="":open1,8,2,"id1,s,r"
  80. 79 fori=1to4:input#1,a$:ds$=ds$+a$:nexti:close1
  81. 80 ifds$<>dd$thentc=.:return
  82. 81 tc=1:return
  83. 82 forr=cs%*40tocs%*40+37:poke55295+r,c1%:poke55296+r,c2%:poke55297+r,c3%
  84. 83 poke55298+r,c4%:nextr:poke55295+r,c1%:poke55296+r,c1%
  85. 84 poke55297+r,c1%:return
  86. 85 cs%=.:gosub82:cs%=1:gosub82:cs%=.:return
  87. 86 fori=1to18
  88. 87 print"";left$(yt$,i);:nexti:poke198,.
  89. 88 geta$:ifa$=""thencs%=24:gosub82:cs%=.:goto88
  90. 89 s=54272:pokes+24,15:pokes+1,110:pokes+6,9:pokes+4,17:pokes+4,16:return
  91. 90 gosub89:fori=1to720:nexti:gosub89:return
  92. 91 open1,peek(1023),2,"id1,s,r":close1:open1,peek(1023),15:get#1,a$:ds$=a$:get#1,a$
  93. 92 ds$=ds$+a$:close1:return
  94.