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