home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_B.d64 / boot (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 5 (NULL)"s/galaxy",0:poke56325,90:poke53278,0:poke53279,0
  2. 6 gosub500
  3. 10 print"[147]s u p e r b y t e[157][157][157][157][157][157][157][157][157][157][157][157][157]presents :":l=10
  4. 11 (NULL)710,1
  5. 20 print""
  6. 34 (NULL)0,0,2,7,8:(NULL)1,6,13,7,8:(NULL)2,2,2,7,8:(NULL)3,8,13,7,8
  7. 35 (NULL)0,340,200:(NULL)1,0,200:(NULL)2,360,150:(NULL)3,0,150
  8. 36 (NULL)0,5,1,0:(NULL)1,4,6,7:(NULL)2,2,2,5,3,4:(NULL)3,4,8,9
  9. 37 (NULL)0,0,1,340,200,0,150:(NULL)1,1,1,0,200,330,150:(NULL)2,1,1,360,175,0,175
  10. 38 (NULL)3,0,1,0,190,335,190
  11. 40 (NULL)10,24,"[155]written by:  m.stecker"
  12. 45 (NULL)15,20:print"[159][223] hit fire [223][146]"
  13. 48 (NULL)7,9:(NULL)9,int(15*rnd(0)+1),"[199][193][204][193][216][217]"
  14. 100 if(sand16)<>0then48
  15. 105 fori=0to6:(NULL)i:(NULL)i:next:(NULL)2000,"11111111","00000001"
  16. 110 (NULL):print"[147]wait 7 days for loading !":u=u+30:gosub747+u
  17. 115 if(sand1)theny=y+3
  18. 120 if(sand2)theny=y-3
  19. 125 if(sand4)thenx=x+3
  20. 130 if(sand8)thenx=x-3
  21. 135 (NULL)0,x,y:goto115
  22. 499 end:hier nur noch unterprogr.
  23. 500 (NULL)15:(NULL)3,"[166][166]",0,0
  24. 600 (NULL)3,0,9,7,10
  25. 650 (NULL)"01100100",2700,15
  26. 700 return
  27. 710 poke56322,224:s=peek(56320):poke56322,255
  28. 720 returnb
  29. 777 (NULL)"h/1":(NULL)14,0,6,1:x=48:y=72:(NULL)0,x,y:(NULL)1,48,106:(NULL)1,0,1,e,48,200
  30. 800 r=14:q=6:t=1
  31. 801 fori=2to5:(NULL)i,6,13,7,8:(NULL)i,4,6,7:next:(NULL)2,96,200:(NULL)2,0,1,e,96,73
  32. 802 (NULL)3,144,73:(NULL)3,0,1,e,287,73:(NULL)4,287,135:(NULL)4,0,1,e,143,138:(NULL)5,143,179
  33. 803 (NULL)5,0,1,e,287,179:(NULL)6,8,13,7,8:(NULL)6,4,8,9:(NULL)6,144,199:return
  34. 807 (NULL)"h/2":(NULL)9,0,10,7:x=48:y=71:(NULL)0,x,y:(NULL)1,72,72:r=9:q=10:t=7
  35. 810 (NULL)1,0,1,e,287,72:(NULL)2,288,94:(NULL)2,0,1,e,288,178:(NULL)3,240,178
  36. 811 (NULL)3,0,1,e,240,94:(NULL)4,192,115:(NULL)4,0,1,e,192,178:(NULL)5,144,178
  37. 812 (NULL)5,0,1,e,144,94:(NULL)6,8,13,7,8:(NULL)6,4,8,9:(NULL)6,144,199:return
  38. 837 (NULL)"h/3":(NULL)7,0,5,10:x=48:y=71:(NULL)0,x,y:(NULL)1,216,136:r=7:q=5:t=10
  39. 840 (NULL)1,0,1,e,287,136:(NULL)2,287,178:(NULL)2,0,1,e,168,178:(NULL)3,120,200
  40. 842 (NULL)3,0,1,e,120,113:(NULL)4,47,113:(NULL)4,0,1,e,47,199:(NULL)5,73,73
  41. 844 (NULL)5,0,1,e,287,73:(NULL)6,8,13,7,8:(NULL)6,4,8,9:(NULL)6,144,199:goto115
  42. 1900 fori=0to10:next:gosub3100:(NULL)0,0,2,7,8:(NULL)0,5,1,0:return
  43. 2000 rem
  44. 2005 ss=peek(53278):sh=peek(53279)
  45. 2010 ifpeek(53279)=1then:(NULL)0,2,2,7,8:(NULL)0,2,2,5,3,4:gosub1900
  46. 2020 ifpeek(53278)<>65then:(NULL)0,2,2,7,8:(NULL)0,2,2,5,3,4:gosub1900
  47. 2030 ifpeek(53278)=65thenk=k+5:gotok+3195
  48. 2990 ifl<1thenprint"[147]":goto3360
  49. 2995 (NULL)2000,"11111111","00000001"
  50. 2999 poke53278,0:poke53279,0
  51. 3000 ss=peek(53278):sh=peek(53279):returnc
  52. 3100 l=l-1:(NULL)r,1,q,t:(NULL)3,5500:(NULL)r,0,q,t:x=48:y=72:(NULL)3:(NULL)0,x,y:return
  53. 3200 (NULL)6,192,91:goto2990
  54. 3205 (NULL)6,288,199:goto2990
  55. 3210 (NULL)6,48,72:goto2990
  56. 3215 (NULL)6,192,199:goto2990
  57. 3220 (NULL)6,264,92:goto2990
  58. 3225 (NULL)6,240,199:goto2990
  59. 3230 ifu=30thenk=0:goto105
  60. 3235 ifu=60thenk=0:goto105
  61. 3240 print"[147][158]"
  62. 3339 print"       [172][162][162]   [187]  [172][162][162][162]  [172][162][162][187] [172][187]"
  63. 3340 print"       [161]     [161]  [161]     [161]    [182][161]"
  64. 3345 print"       [191][162][162]   [161]  [191][162][162]   [161] [162][187] [170][161]"
  65. 3350 print"          [161]  [161]  [161]     [161]  [161]  [190]"
  66. 3355 print"       [191][162][162][190]  [161]  [191][162][162][162]  [191][162][162][190]  [187]"
  67. 3360 fori=0to7:(NULL)i:(NULL)i:next:(NULL):print"[154][223] hit any key [223][146]"
  68. 3365 poke56322,255:geta$:ifa$=""then3365
  69. 3370 run10
  70.