home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 31
/
Mail_Madness_31_2001_-_Side_B.d64
/
saran-loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
109 lines
5 a=1
10 print"[147][145]":poke53280,0:poke53281,0
15 a$="michael haertig praesentiert"
16 a$(1,1)="[155] the secret of sarans castle "
17 a$(1,2)="[155] the secret of sarans castle "
18 a$(2,1)=" [155]sarans rueckkehr "
19 a$(2,2)=" [155]sarans rueckkehr "
20 a$(3,1)=" [155]das erbe des saran "
21 a$(3,2)=" [155]das erbe des saran "
22 forf=1to4:iff=1thenpoke646,6
23 iff=2thenpoke646,5
24 iff=3thenpoke646,7
25 iff=4thenpoke646,10
26 fort=1to15
27 print" ";left$(a$,t)
28 print"";tab(34-t)right$(a$,t)
29 next:next
35 print" die adventuresammlung um den"
36 print" zauberer saran"
37 print" [154]bitte mit den cursortasten waehlen"
38 print" und mit [ return ] bestaetigen !"
40 print"[155]"a$(1,2)
41 print"[155]"a$(2,1)
42 print"[155]"a$(3,1)
45 goto110
50 ife$=""anda<3thena=a+1
51 ife$="[145]"anda>1thena=a-1
52 ife$=chr$(13)then3000
55 print"";:ifa=1thenprinta$(1,2):goto57
56 printa$(1,1)
57 print"";:ifa=2thenprinta$(2,2):goto59
58 printa$(2,1)
59 print"";:ifa=3thenprinta$(3,2):goto65
60 printa$(3,1)
65 goto220
110 s=54272:w(1)=s+4:w(2)=s+11:w(3)=s+18:pokes+24,15
130 d0=180:restore
140 ht=2^(1/12)
150 deffnh(f1)=int(f1/256)
160 deffnl(f1)=f1-256*fnh(f1)
170 fork=0to20:readx:pokes+k,x:next
180 readwa,wb,wc
210 readf1:readf2:readf3
211 gete$:ife$<>""then50
220 f1=int(3000*ht^f1+.5):h1=fnh(f1):l1=fnl(f1)
221 pokes+0,l1:pokes+1,h1
223 f2=int(1508*ht^f2+.5):h2=fnh(f2):l2=fnl(f2)
231 pokes+7,l2:pokes+8,h2
232 pokes+14,l1:pokes+15,h1
233 pokew(1),wa:pokew(2),wb:pokew(3),wc
250 n=n+1:ifn<260then210
290 fory=1to290:next:pokew(1),0:pokew(2),0:pokew(3),0
300 goto110
360 data0,0,0,1,0,0,255
370 data0,0,0,1,0,0,255
380 data0,0,0,1,0,0,255
390 data17,33,65
400 data23,23,23,22,22,22,23,23,23,22,22,22,23,23,23,18,18,18,21,21,21
410 data19,19,19,16,4,16,11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
420 data18,0,18,11,11,11,14,14,14,11,11,11,14,14,14,18,18,18,19,6,19
430 data11,11,11,16,16,16,11,11,11,23,23,23,22,22,22,23,23,23,22,22,22
440 data23,23,23,18,18,18,21,21,21,19,19,19,16,6,16,11,11,11
450 data16,16,16,7,7,7,11,11,11,16,16,16,18,0,18,11,11,11,15,15,15,11,11,11
460 data19,19,19,18,18,18,16,4,16,11,11,11,16,16,16,23,23,23,22,22,22
470 data23,23,23,22,22,22,23,23,23,18,18,18,21,21,21,19,19,19,16,4,16
480 data11,11,11,16,16,16,7,7,7,11,11,11,16,16,16,18,0,18,11,11,11,15,15,15
490 data11,11,11,14,14,14,18,18,18,19,4,19,11,11,11,16,16,16,11,11,11
500 data23,23,23,22,22,22,23,23,23,22,22,22,23,23,23,18,18,18,21,21,21
510 data19,19,19,16,4,16,11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
520 data18,0,18,11,11,11,15,15,15,11,11,11,19,19,19,18,18,18,16,4,16
530 data11,11,11,16,16,16,18,18,18,19,19,19,21,21,21
540 data23,7,23,14,14,14,19,19,19,14,14,14,24,24,24,23,23,23,21,2,21
550 data14,14,14,18,18,18,12,12,12,23,23,23,21,21,21,19,4,19,11,11,11
560 data16,16,16,11,11,11,21,21,21,19,19,19,18,0,18,11,11,11,23,23,23
570 data11,11,11,23,23,23,11,11,11,23,23,23,23,23,23,35,35,35,22,22,22
580 data23,23,23,21,21,21,23,23,23,22,22,22,23,23,23,21,21,21,23,23,23
590 data21,21,21,23,23,23,22,22,22,23,23,23,18,18,18,21,21,21,19,19,19
600 data16,4,16,11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
610 data18,0,18,11,11,11,15,15,15,11,11,11,14,14,14,18,18,18
620 data19,4,19,11,11,11,16,16,16,11,11,11,23,23,23,22,22,22,23,23,23
630 data22,22,22,23,23,23,18,18,18,21,21,21,19,19,19,16,4,16
640 data11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
650 data18,0,18,11,11,11,15,15,15,11,11,11,19,19,19,18,18,18
660 data16,4,16,11,11,11,16,16,16,18,18,18,19,19,19,21,21,21
670 data23,7,23,14,14,14,19,19,19,14,14,14,24,24,24,23,23,23,21,2,21
680 data14,14,14,18,18,18,12,12,12,23,23,23,21,21,21,19,4,19,11,11,11
690 data16,16,16,11,11,11,21,21,21,19,19,19,18,0,18,11,11,11,23,23,23
700 data11,11,11,23,23,23,11,11,11,23,23,23,23,23,23,35,35,35,22,22,22
710 data23,23,23,21,21,21,23,23,23,22,22,22,23,23,23,21,21,21,23,23,23
720 data21,21,21,23,23,23,22,22,22,23,23,23,18,18,18,21,21,21,19,19,19
730 data16,4,16,11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
740 data18,0,18,11,11,11,15,15,15,11,11,11,14,14,14,18,18,18
750 data19,4,19,11,11,11,16,16,16,11,11,11,23,23,23,22,22,22,23,23,23
760 data22,22,22,23,23,23,18,18,18,21,21,21,19,19,19,16,4,16
770 data11,11,11,16,16,16,7,7,7,11,11,11,16,16,16
780 data18,0,18,11,11,11,15,15,15,11,11,11,19,19,19,18,18,18,16,4,16
3000 pokes+4,.:ifa=1then l$="bis 31.1.1992 "
3010 pokes+11,.:ifa=2then l$="um 'saran' wurde"
3020 pokes+18,.:ifa=3then l$="michael haertig "
3025 q$=chr$(34)
3030 poke828,0
3035 print"[147] loading..."
3037 print" please wait"
3040 print"[144]"
3050 print"load"q$;l$;q$;",8
3060 [153]"run"
3070 [151]631,13:[151]632,13:[151]198,2
3080 [153][199](19);:[128]