home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / minos (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  83 lines
  1. 0 IFPEEK(36864)<>169THENLOAD"LABYRI",8,1
  2. 2 POKE53280,0:POKE53281,0:POKE52,64:POKE51,0:POKE56,64:POKE55,0:CLR
  3. 5 DIMF(16):XL=1:YL=1:XP=38:YP=23:POKE650,128
  4. 10 LA=10:BR=18:GW=255:GZ=255:FW=10:FL=5
  5. 15 FORI=0TO68:READA:POKE832+I,A:NEXT
  6. 20 FORI=0TO15:READF(I):NEXT:READMA
  7. 25 FORI=0TO10:READFL(I):NEXT:FORI=0TO5:READFW(I):NEXT
  8. 30 FORI=0TOMA:POKE40705+I,F(I):POKE40705+2*MA-I,F(I):NEXT:POKE40704,2*MA
  9. 50 PRINT"[147][158][204]AENGE    "LA"[157][157][157][157][157]";:INPUTLA
  10. 55 PRINT"[194]REITE    "BR"[157][157][157][157][157]";:INPUTBR
  11. 60 IFLA>54ORBR>70ORLA<1ORBR<1THEN50
  12. 70 PRINT"[215]URMGESCHWINDIGKEIT HIN        "GW"[157][157][157][157][157][157]";:INPUTGW
  13. 75 PRINT"[215]URMGESCHWINDIGKEIT ZURUECK    "GZ"[157][157][157][157][157][157]";:INPUTGZ
  14. 80 POKE39538,256-GW:POKE39543,256-GW:POKE39553,256-GZ:POKE39558,256-GZ
  15. 85 PRINT"[198]ARBE [215]URM ";:POKE646,FW:INPUTZ$:FW=PEEK(646):POKE55629,FW
  16. 90 POKE1357,160:PRINT"[158][198]ARBE [204]ABYRINTH ";:POKE646,FL:INPUTZ$:FL=PEEK(646)
  17. 95 POKE1442,160:POKE55714,FL
  18. 97 PRINT"[158][194]ILDSCHIRMVERFOLGUNG (Y/J/N) ?"
  19. 100 GETZ$:IFZ$<>"J"ANDZ$<>"N"ANDZ$<>"Y"THEN100
  20. 102 POKE39562,32:POKE39568,32:IFZ$="N"THENPOKE39562,76:POKE39568,76
  21. 105 GOSUB400:FORI=0TO10:POKE40192+FL(I),FL:NEXT
  22. 110 A=16530+2*INT(RND(TI)*BR):E=16818+2*INT(RND(1)*BR)+288*LA
  23. 111 POKE39980,2*BR+1:POKE39988,2*LA+3:POKE40000,2*BR+2:SYS39936
  24. 115 FORI=0TO5:POKE40192+FW(I),FW:NEXT
  25. 120 R(0)=1:R(1)=-144:R(2)=-1:R(3)=144
  26. 125 REM --------------------
  27. 130 REM -- DER REIHE NACH --
  28. 135 REM --------------------
  29. 140 SYS37056:POKE38660,BR:POKE38405,LA:SYS38400:T=0
  30. 145 IFPEEK(34816+T)<>0THENT=T+1:PRINT"[158]"T:GOTO145
  31. 150 REM -------------------
  32. 155 REM -- WEG VERFOLGEN --
  33. 160 REM -------------------
  34. 170 Z=E:POKEE,42
  35. 175 HI=E/256:LO=E-INT(HI)*256:HI=INT(HI):POKE36869,LO:POKE36865,HI
  36. 180 SYS36864:I=0
  37. 185 REM -------------------------------
  38. 190 REM -- WEG AUS ABGESCHL. IRRGANG --
  39. 195 REM -------------------------------
  40. 200 LO=PEEK(32768+I):HI=PEEK(34816+I):Z=256*HI+LO
  41. 205 IFPEEK(Z)<>32THEN240
  42. 210 IFZ=0THEN245
  43. 215 POKE37633,HI:POKE37637,LO:SYS37632:C=PEEK(183)
  44. 220 IFC=0THENPOKE886,32:SYS869:POKE886,42:POKE32769+I,LO:POKE34817+I,HI:T=T+1
  45. 225 R=INT(RND(1)*C):Z=PEEK(38144+R)*256+PEEK(37888+R):R=INT(RND(1)*4)
  46. 230 IFPEEK(Z+2*R(R))<>42THENR=R+1+4*(R=3):GOTO230
  47. 235 POKEZ+R(R),42:SYS869
  48. 240 PRINT"[158]"T-I"[157] ":I=I+1:IFI<TTHEN200
  49. 245 DATA169,64,133,255,169,0,133,254,160,0,162,160,177,254,41,96,201,96,240
  50. 250 DATA2,162,32,138,145,254,200,208,238,230,255,165,255,201,128,208,228,96,169
  51. 255 DATA64,133,255,169,0,133,254,160,0,177,254,201,81,208,4,169,42,145,254,200
  52. 260 DATA208,243,230,255,165,255,201,128,208,233,96
  53. 265 REM ----------------
  54. 270 REM -- WEG FINDEN --
  55. 275 REM ----------------
  56. 277 FORI=0TO7:POKE1024+I,P(I):NEXT
  57. 280 SYS832:PRINT"";:Z=E:SYS40832:POKEE,32:POKEA,32
  58. 285 POKEZ,93
  59. 290 DATA0,11,2,10,7,4,10,8,12,5,7,13,3,14,15,1,4
  60. 295 DATA112,110,109,125,93,64,107,115,113,114,91,85,73,74,75,66,67
  61. 330 POKEE+144,96
  62. 335 POKEA-144,102:R=INT(RND(1)*4):HI=INT(A/256):LO=A-INT(A/256)*256
  63. 337 POKE40542,LO:POKE40546,HI
  64. 340 HI=Z/256:LO=Z-INT(HI)*256:HI=INT(HI):POKE39185,LO:POKE39189,HI:SYS40760
  65. 345 POKEA,66
  66. 350 POKE40614,2:POKE40703,0:POKE40702,0:SYS40541:GOTO50
  67. 400 PRINT"[216]-POSITION LINKE OBERE [197]CKE    "XL"[157][157][157][157][157]";:INPUTXL
  68. 405 PRINT"[217]-POSITION LINKE OBERE [197]CKE    "YL"[157][157][157][157][157]";:INPUTYL
  69. 410 PRINT"[193]USDEHNUNG [216]-[210]ICHTUNG          "XP"[157][157][157][157][157]";:INPUTXP:XR=XP+XL
  70. 415 PRINT"[193]USDEHNUNG [217]-[210]ICHTUNG          "YP"[157][157][157][157][157]";:INPUTYP:YR=YP+YL
  71. 417 IFYR>24ORYL<1ORXL<1ORXR>39THENPRINT"[145][145][145][145][145][145][145][145]";:GOTO400
  72. 420 Z=INT(XP/2)+40*INT(YP/2):PO=Z-INT(Z/40)*40+144*INT(Z/40)
  73. 425 HI=INT(PO/256):LO=PO-HI*256:POKE40452,HI:POKE40459,LO
  74. 430 Z=1024+XL+YL*40:HI=INT(Z/256):LO=Z-HI*256:POKE40467,LO:POKE40471,HI
  75. 435 POKE40503,XR-XL:Z=Z+YP*40:HI=INT(Z/256):LO=Z-HI*256:POKE40531,HI
  76. 440 POKE40537,LO:PRINT"[147][142]";
  77. 445 FORI=983+YL*40+XLTO984+XR+YL*40:POKEI,160:POKEI+54272,7:POKEI+YP*40+40,160
  78. 450 POKEI+54312+YP*40,7:NEXT
  79. 455 FORI=983+YL*40+XLTO983+YR*40+XLSTEP40:POKEI,160:POKEI+54272,7
  80. 460 POKEI+XP+1,160:POKEI+54272+XP+1,7:NEXT:VO=XP*YP:X=30000-VO*30000/874
  81. 465 POKE40665,INT(X/255)+1:POKE40670,X-INT(X/255)*255+1
  82. 470 FORI=0TO7:P(I)=PEEK(1024+I):NEXT:RETURN
  83.