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