home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / seeschlacht (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  384 lines
  1. 10 REM ********************************
  2. 20 REM
  3. 30 REM       SCHIFFEVERSENKEN MIT
  4. 40 REM         AKKUSTIKKOPPLER
  5. 60 REM      VON LARS V. OLLESCHIK
  6. 70 REM          MUEHLENKAMP 31
  7. 80 REM          4715 ASCHEBERG
  8. 90 REM          TEL. 02593/877
  9. 95 REM
  10. 96 REM ********************************
  11. 97 POKE53281,0:POKE53280,0
  12. 100 OPEN2,2,0,CHR$(38)+CHR$(33)
  13. 110 PRINT"[147]SCHIFFEVERSENKEN"
  14. 140 PRINT"GESCHRIEBEN VON LARS V. OLLESCHIK
  15. 160 [134]T%(127),P%(255),B$(15),Z$(15),Z(15),B(15)
  16. 170 [143] CODE UMWANDLUNG
  17. 180 [129]X[178]0[164]64:P%(X)[178]X:[130]:[129]X[178]65[164]90:P%(X)[178]X[170]32:[130]:P%(88)[178]88
  18. 190 [129]X[178]91[164]96:P%(X)[178]X:[130]:[129]X[178]97[164]122:P%(X)[178]X[171]32:[130]
  19. 200 [129]X[178]193[164]218:P%(X)[178]X[171]128:[130]:[129]X[178]0[164]126:T%(X)[178]P%(X):[130]
  20. 210 P%(148)[178]127:P%(127)[178]148
  21. 230 [141]6290
  22. 240 [137]2280
  23. 250 [143] VERBINDUNGSAUFBAU
  24. 270 [153]"LOAD";
  25. 280 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$";
  26. 290 [153]"CHR$ SCHIFFEVERSENKEN  *  KONTAKTAUFNAHME LEFT$";
  27. 300 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)";
  28. 310 [153]"        (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  29. 320 [139]SP[178]3[167][153]" ---->  CHR$ TEST-SENDER         LEFT$  <----":[137]330
  30. 325 [153]" ---->  CHR$ TEST-EMPFAENGER     LEFT$  <----"
  31. 330 [153]"        MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  32. 400 [139]SP[178]1[167]450
  33. 405 [129]I[178]1[164]3000:[130]
  34. 410 TE$[178]"THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG":A$[178]"":[153]"
  35. 420 FORI=1TOLEN(TE$)
  36. 430 PRINT#2,CHR$(P%(ASC(MID$(TE$,I,1))));
  37. 440 PRINTMID$(TE$,I,1);:NEXT
  38. 450 A$="":REM"DIREKTER KONTAKT
  39. 460 [161]#2,A$:[139]A$[178]""[167]500
  40. 470 [139]T%([198](A$))[178]34[167][151]212,0
  41. 480 [153][199](T%([198](A$)));
  42. 490 [139]T%([198](A$))[178]95[167]550
  43. 500 [161]B$:[139]B$[178]""[167]460
  44. 510 [153]B$;:
  45. 520 [152]2,[199](P%([198](B$)));
  46. 530 [139]B$[178]"_"[167]550
  47. 540 [137]460
  48. 550 [143] ABBRUCH DES DIREKTEN KONTAKTES          ****** SPIELBEGINN ******
  49. 560 [151]53281,6:[151]53280,6
  50. 570 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$";
  51. 580 [153]"CHR$  SCHIFFEVERSENKEN * SPIELFELDAUFBAU  LEFT$";
  52. 590 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)";
  53. 600 [153]"(null)LENLENLENLENLENLENLENLENLENLENRIGHT$         (null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$
  54. 610 PRINT"[199] *GEGNER* [200]         [199] *SPIELER* [200]
  55. 620 [153]"MID$LENLENLENLENLENLENLENLENLENLEN(null)         MID$LENLENLENLENLENLENLENLENLENLENLEN(null)
  56. 630 PRINT"[213][195][195][195][195][195][195][195][195][195][195][201]         [213][195][195][195][195][195][195][195][195][195][195][201]
  57. 640 [153]"CHR$ 123456789LEFT$ FLOTTE  CHR$ 123456789LEFT$"
  58. 650 [153]"CHR$A(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$(null)LENLENLENLENLENRIGHT$  CHR$A(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  59. 660 [153]"CHR$B(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)(null)(null)FLEFT$  CHR$B(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  60. 670 [153]"CHR$C(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)(null) ZLEFT$  CHR$C(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  61. 680 [153]"CHR$D(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$D(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  62. 690 [153]"CHR$E(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$E(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  63. 700 [153]"CHR$F(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$F(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  64. 710 [153]"CHR$G(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)   ULEFT$  CHR$G(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  65. 720 [153]"CHR$H(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)   ULEFT$  CHR$H(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  66. 730 [153]"CHR$I(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$MID$LENLENLENLENLEN(null)  CHR$I(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
  67. 740 [153]"MID$LENLENLENLENLENLENLENLENLENLEN(null)         MID$LENLENLENLENLENLENLENLENLENLEN(null)"
  68. 750 [153]"OPEN  STEPBITTE GEBEN SIE NUN DIE POSITIONEN(null)WAIT"
  69. 760 [153]"   DER SCHIFFE IHRER FLOTTE NACHEIN-  WAIT"
  70. 770 [153]"   ANDER EIN. BUCHSTABE - ZAHL        WAIT"
  71. 780 [153]"  (null)NACH 15 EINGABEN WIRD VERIFIZIERT.WAITSTEPSYS"
  72. 790 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$  (null)LENLENLENLENLENLENRIGHT$
  73. 800 PRINT" [199]IHRE EINBABE BITTE : *-*[200]  [199]NR.   [200]
  74. 810 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)  MID$LENLENLENLENLENLEN(null)";
  75. 820 [143]"FLOTTENEINGABE
  76. 830 FORI=1TO15:PRINT"";TAB(33)I;:
  77. 840 POKE1967,42:POKE56239,1
  78. 850 POKE1969,42:POKE56241,1
  79. 860 GETB$(I):IFB$(I)=""THEN860
  80. 870 IFASC(B$(I))<65ORASC(B$(I))>73THEN860
  81. 880 POKE1967,ASC(B$(I))-64:POKE56239,1
  82. 890 GETZ$(I):IFZ$(I)=""THEN890
  83. 900 IFASC(Z$(I))<49ORASC(Z$(I))>57THEN890
  84. 910 POKE1969,ASC(Z$(I)):POKE56241,1
  85. 920 POKE(1024+40*(ASC(B$(I))-64+7)+ASC(Z$(I))-26),209
  86. 930 POKE(55296+40*(ASC(B$(I))-64+7)+ASC(Z$(I))-26),13
  87. 940 NEXT
  88. 950 REM"KONTROLLE DER POSITIONEN
  89. 960 [153]"";
  90. 970 [129]I[178]1[164]6:[153]"                                        ";:[130]
  91. 980 [153]"                                       ";
  92. 990 [153]""
  93. 1000 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$               ";
  94. 1010 [153]" CHR$KONTROLLE DER EINGABENLEFT$               ";
  95. 1020 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)               ";
  96. 1030 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ ";
  97. 1040 [153]" CHR$IDENTIFIZIERUNG:                    LEFT$ ";
  98. 1050 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null) SYS";
  99. 1060 F[178]8:[143]"ABFRAGE OB 15 FELDER BELEGT
  100. 1070 PRINT"FELDER             "
  101. 1080 P=0:FORI=1TO15:B(I)=ASC(B$(I))-64:Z(I)=ASC(Z$(I))-26:NEXT
  102. 1090 FORI=1TO9:FORJ=1TO9:IFPEEK(1024+40*(I+7)+J+22)=209THENP=P+1:F=0
  103. 1100 POKE(55296+40*(I+7)+J+22),F:F=8
  104. 1110 NEXT:NEXT
  105. 1120 IFP=15THEN1140
  106. 1130 GOTO2150
  107. 1140 REM"WEITERE PRUEFUNG
  108. 1150 U[178]0:[143]"U-BOOTE (2 STUECK)
  109. 1160 PRINT"U-BOOTE            "
  110. 1170 FORI=1TO9:FORJ=1TO9:B=I:Z=J:GOSUB2110:IFSV=209THEN1200
  111. 1180 GOTO1260
  112. 1190 REM
  113. 1200 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1260
  114. 1210 B=I+1:Z=J:GOSUB2110:IFSV=209THEN1260
  115. 1220 Z=J+1:B=I:GOSUB2110:IFSV=209THEN1260
  116. 1230 Z=J-1:B=I:GOSUB2110:IFSV=209THEN1260
  117. 1240 U=U+1:IFU>2THEN2150:REM"FEHLER
  118. 1250 [151](55296[170]40[172](I[170]7)[170]J[170]22),1
  119. 1260 [130]:[130]:[139]U[179]2[167]2150
  120. 1270 SB[178]0:[143]"SCHNELLBOOTE
  121. 1280 PRINT"SCHNELLBOOTE       "
  122. 1290 FORI=1TO9:FORJ=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN1560
  123. 1300 IFSV=209THEN1320
  124. 1310 GOTO1560
  125. 1320 B=I:Z=J-1:GOSUB2110:IFSV=209THEN1560
  126. 1330 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1560
  127. 1340 B=I+1:GOSUB2110:IFSV=209THEN1560
  128. 1350 B=I+1:Z=J+1:GOSUB2110:IFSV=209THEN2150
  129. 1360 B=I-1:Z=J+1:GOSUB2110:IFSV=209THEN2150
  130. 1370 B=I:Z=J+1:GOSUB2110:IFSV<>209THEN1560
  131. 1380 B=I:Z=J+2:GOSUB2110:IFSV=209THEN1560
  132. 1390 FORT=0TO1:POKE(55296+40*(I+7)+J+T+22),1:NEXT
  133. 1400 SB=SB+1:IFSB>3THEN2150
  134. 1410 GOTO1560
  135. 1420 FORJ=1TO9:FORI=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN1570
  136. 1430 IFSV<>209THEN1570
  137. 1440 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1570
  138. 1450 Z=J-1:B=I:GOSUB2110:IFSV=209THEN1570
  139. 1460 Z=