Wave Interference (UK) (1985) [Popular Computer Weekly] [TAPE] [UTILITAIRE].cdt
HexaDumpAscii only
000000: 5A 58 54 61 70 65 21 1A 01 0A 20 B8 0B 11 8A 04 ZXTape!... ..... 000010: 45 02 45 02 45 02 8A 04 00 10 08 0A 00 07 01 00 E.E.E........... 000020: 2C 57 41 56 45 20 49 4E 46 45 52 45 4E 43 45 00 ,WAVE INFERENCE. 000030: 00 01 FF 00 FD 06 70 01 FF FD 06 00 00 00 00 00 ......p......... 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000120: 00 D4 23 FF FF FF FF 11 8A 04 45 02 45 02 45 02 ..#.......E.E.E. 000130: 8A 04 00 10 08 C4 09 13 07 00 16 22 00 0A 00 C5 ...........".... 000140: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------- 000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 22 00 14 ------------.".. 000160: 00 C5 20 2D 2D 2D 2D 20 57 41 56 45 20 49 4E 54 .. ---- WAVE INT 000170: 45 52 46 45 52 45 4E 43 45 20 2D 2D 2D 2D 00 22 ERFERENCE ----." 000180: 00 1E 00 C5 20 2D 2D 2D 2D 2D 28 43 29 20 20 4A .... -----(C) J 000190: 6F 68 6E 20 4B 65 6E 6E 65 64 79 2D 2D 2D 2D 2D ohn Kennedy----- 0001A0: 00 22 00 32 00 C5 20 2D 2D 2D 2D 2D 2D 2D 2D 2D .".2.. --------- 0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------- 0001C0: 2D 2D 00 07 00 3C 00 01 C0 00 0C 00 46 00 B3 20 --...<......F.. 0001D0: 9F 20 1E C0 03 00 07 00 50 00 01 C0 00 13 00 5A . ......P......Z 0001E0: 00 C5 20 63 6C 65 61 72 20 73 63 72 65 65 6E 00 .. clear screen. 0001F0: 07 00 64 00 01 C0 00 15 00 6E 00 82 20 0E 01 A2 ..d......n.. ... 000200: 20 0E 2C 0E 01 A2 20 0F 2C 19 17 00 0C 00 78 00 .,... .,.....x. 000210: BA 20 0E 01 BB 20 0F 00 08 00 82 00 AD 20 0F 00 . ... ....... .. 000220: 07 00 8C 00 01 C0 00 0E 00 96 00 C5 20 70 72 6F ............ pro 000230: 6D 70 74 73 00 07 00 A0 00 01 C0 28 52 00 14 00 mpts.......(R... 000240: AA 00 D8 20 23 0F 2C 10 2C 19 26 2C 19 0A 2C 19 ... #.,.,.&,..,. 000250: 0E 00 0B 00 B4 00 AE 20 12 2C 19 A4 00 0E 00 BE ....... .,...... 000260: 00 95 20 1A 66 02 2C 0E 2C 0F 00 0B 00 C8 00 95 .. .f.,.,....... 000270: 20 0E 2C 19 64 00 0D 00 D2 00 95 20 F5 1A 66 02 .,.d...... ..f. 000280: 2C 0E 00 0C 00 DC 00 95 20 0E 2C F5 19 64 00 2C ,....... .,..d., 000290: 00 E6 00 A3 20 23 0F 2C 22 57 61 76 65 20 6C 65 ...£ #.,"Wave le 0002A0: 6E 67 74 68 20 6F 66 20 77 61 76 65 20 41 2E 28 ngth of wave A.( 0002B0: 63 61 29 22 3B 0D 00 00 77 E1 00 1F 00 F0 00 A1 ca)";...w....... 0002C0: 20 0D 00 00 77 E1 EE 19 64 20 FC 20 0D 00 00 77 ...w...d . ...w 0002D0: E1 F1 0F 20 EB 20 1E E6 00 00 09 00 FA 00 BF 20 ... . ......... 0002E0: 23 0F 00 2C 00 04 01 A3 20 23 0F 2C 22 57 61 76 #..,...£ #.,"Wav 0002F0: 65 20 6C 65 6E 67 74 68 20 6F 66 20 77 61 76 65 e length of wave 000300: 20 42 2E 28 63 61 29 22 3B 0D 00 00 77 E2 00 09 B.(ca)";...w... 000310: 00 0E 01 BF 20 23 0F 00 1F 00 18 01 A1 20 0D 00 .... #....... .. 000320: 00 77 E2 EE 19 64 20 FC 20 0D 00 00 77 E2 F1 0F .w...d . ...w... 000330: 20 EB 20 1E F0 00 00 33 00 22 01 A3 20 B3 60 23 . ....3.".£ .`# 000340: 0F 2C 22 4F 66 66 73 65 74 20 6F 66 20 42 20 74 .,"Offset of B t 000350: 6F 20 41 20 28 69 6E 20 64 65 67 72 65 65 73 29 o A (in degrees) 000360: 22 3B 0D 00 00 6F 66 66 73 65 F4 00 06 00 2C 01 ";...offse....,. 000370: 91 00 17 00 36 01 0D 00 00 77 E1 EF 0D 00 00 77 ....6....w.....w 000380: E1 F7 1F CD CC CC 34 83 00 17 00 40 01 0D 00 00 ......4....@.... 000390: 77 E2 EF 0D 00 00 77 E2 F7 1F CD CC CC 34 83 00 w.....w......4.. 0003A0: 0E 00 4A 01 0D 00 00 61 6D F0 EF 19 4B 00 07 00 ..J....am...K... 0003B0: 54 01 01 C0 00 11 00 5E 01 C5 20 73 65 74 20 73 T......^.. set s 0003C0: 63 72 65 65 6E 00 07 00 68 01 01 C0 00 08 00 72 creen...h......r 0003D0: 01 AD 20 0F 00 0A 00 7C 01 A2 20 10 2C 13 00 0B .. ....|.. .,... 0003E0: 00 86 01 A2 20 0F 2C 19 17 00 0B 00 90 01 A2 20 .... .,........ 0003F0: 11 2C 19 0F 00 0A 00 9A 01 A9 20 0F 2C 0F 00 08 .,........ .,... 000400: 00 A4 01 BB 20 10 00 2B 00 AE 01 BF 20 22 20 20 .... ..+.... " 000410: 20 20 57 41 56 45 20 49 4E 54 45 52 46 45 52 45 WAVE INTERFERE 000420: 4E 43 45 20 42 59 20 4A 2E 4B 45 4E 4E 45 44 59 NCE BY J.KENNEDY 000430: 22 00 0B 00 B8 01 A9 20 19 0D 2C 10 00 1C 00 D5 "...... ..,..... 000440: 76 C2 01 BB 20 0F 01 BF 20 22 52 45 53 55 4C 54 v... ... "RESULT 000450: 41 4E 54 20 20 57 41 56 45 22 00 0B 00 CC 01 A9 ANT WAVE"...... 000460: 20 19 0D 2C 11 00 1C 00 D6 01 BB 20 11 01 BF 20 ..,....... ... 000470: 22 49 4E 43 49 44 45 4E 54 20 20 57 41 56 45 53 "INCIDENT WAVES 000480: 22 00 07 00 E0 01 01 C0 00 10 00 EA 01 C5 20 64 "............. d 000490: 72 61 77 20 67 72 69 64 00 07 00 F4 01 01 C0 00 raw grid........ 0004A0: 18 00 FE 01 9E 20 0D 00 00 E1 EF 0E 20 EC 20 1A ..... ...... . . 0004B0: 80 02 20 E6 20 19 10 00 0E 00 08 02 20 AE 20 0D .. . ....... . . 0004C0: 00 00 E1 2C 0E 00 0F 00 12 02 20 95 20 0E 2C 1A ...,...... . .,. 0004D0: 80 01 2C 10 00 0E 00 1C 02 20 AE 20 0E 2C 0D 00 ..,...... . .,.. 0004E0: 00 E1 00 0D 00 26 02 20 95 20 1A 6F 02 2C 0E 00 .....&. . .o.,.. 0004F0: 06 00 30 02 B0 00 07 00 3A 02 01 C0 00 18 00 44 ..0.....:......D 000500: 02 C5 20 64 72 61 77 20 63 65 6E 74 72 61 6C 20 .. draw central 000510: 61 78 69 73 00 07 00 4E 02 01 C0 00 17 00 58 02 axis...N......X. 000520: 9E 20 0D 00 00 C1 EF 0E 20 EC 20 1A 6F 02 20 E6 . ...... . .o. . 000530: 20 12 00 11 00 62 02 20 BC 20 0D 00 00 E1 2C 19 ....b. . ....,. 000540: C8 FA E8 2C 10 00 06 00 6C 02 B0 00 07 00 76 02 ...,....l.....v. 000550: 01 C0 00 18 00 80 02 C5 20 64 72 61 77 20 61 63 ........ draw ac 000560: 74 75 61 6C 20 77 61 76 65 73 00 07 00 8A 02 01 tual waves...... 000570: C0 00 17 00 94 02 9E 20 0D 00 00 F4 EF 0E 20 EC ....... ...... . 000580: 20 1A D8 04 20 E6 20 16 00 22 00 9E 02 20 0D 00 ... . .."... .. 000590: 00 F8 EF FF 15 28 28 0D 00 00 F4 F7 0D 00 00 77 .....((........w 0005A0: E1 29 29 F6 0D 00 00 61 6D F0 00 2C 00 A8 02 20 .))....am..,... 0005B0: 0D 00 00 F9 EF FF 15 28 28 0D 00 00 F4 F7 0D 00 .......((....... 0005C0: 00 77 E2 29 F4 0D 00 00 6F 66 66 73 65 F4 29 F6 .w.)....offse.). 0005D0: 0D 00 00 61 6D F0 00 14 00 B2 02 20 0D 00 00 FA ...am...... .... 0005E0: EF 0D 00 00 F8 F4 0D 00 00 F9 00 27 00 BC 02 20 ...........'... 0005F0: 0D 00 00 78 B1 EF FF 15 28 28 28 0D 00 00 F4 F4 ...x....(((..... 000600: 16 29 F7 0D 00 00 77 E1 29 29 F6 0D 00 00 61 6D .)....w.))....am 000610: F0 00 31 00 C6 02 20 0D 00 00 79 B1 EF FF 15 28 ..1... ...y....( 000620: 28 28 0D 00 00 F4 F4 16 29 F7 0D 00 00 77 E2 29 ((......)....w.) 000630: F4 0D 00 00 6F 66 66 73 65 F4 29 F6 0D 00 00 61 ....offse.)....a 000640: 6D F0 00 E1 6D 17 00 D0 02 20 0D 00 00 7A B1 EF m...m.... ...z.. 000650: 0D 00 00 78 B1 F4 0D 00 00 79 B1 00 2E 00 DA 02 ...x.....y...... 000660: 20 BC 20 0D 00 00 F4 F7 10 2C 0D 00 00 F8 F4 19 . ......,...... 000670: C8 2C 11 01 94 20 28 0D 00 00 F4 F4 16 29 F7 10 .,... (......).. 000680: 2C 0D 00 00 78 B1 F4 19 C8 00 2E 00 E4 02 20 BC ,...x......... . 000690: 20 0D 00 00 F4 F7 10 2C 0D 00 00 F9 F4 19 C8 2C ......,......., 0006A0: 11 01 94 20 28 0D 00 00 F4 F4 16 29 F7 10 2C 0D ... (......)..,. 0006B0: 00 00 79 B1 F4 19 C8 00 2E 00 EE 02 20 BC 20 0D ..y......... . . 0006C0: 00 00 F4 F7 10 2C 0D 00 00 FA F4 19 C8 2C 0F 01 .....,.......,.. 0006D0: 94 20 28 0D 00 00 F4 F4 16 29 F7 10 2C 0D 00 00 . (......)..,... 0006E0: 7A B1 F4 19 C8 00 06 00 F8 02 B0 00 07 00 02 03 z............... 0006F0: 01 C0 00 1B 00 0C 03 C5 20 70 72 69 6E 74 20 52 ........ print R 000700: 45 2D 52 55 4E 20 6D 65 73 73 61 67 65 00 07 00 E-RUN message... 000710: 16 03 01 C0 00 0C 00 20 03 BA 20 10 01 BB 20 0E ....... .. ... . 000720: 00 22 00 2A 03 A9 20 19 0C 2C 19 16 01 BF 20 22 .".*.. ..,.... " 000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000740: 20 22 00 22 00 65 48 34 03 A9 20 19 0C 2C 19 17 ".".eH4.. ..,.. 000750: 01 BF 20 22 20 53 50 41 43 45 20 54 4F 20 52 45 .. " SPACE TO RE 000760: 2D 52 55 4E 20 22 00 22 00 3E 03 A9 20 19 0C 2C -RUN ".".>.. .., 000770: 19 18 01 BF 20 22 20 20 20 20 20 20 20 20 20 20 .... " 000780: 20 20 20 20 20 20 20 22 00 07 00 48 03 01 C0 00 "...H.... 000790: 1C 00 52 03 C5 20 66 6C 61 73 68 20 64 69 66 66 ..R.. flash diff 0007A0: 65 72 65 6E 74 20 77 61 76 65 73 00 07 00 5C 03 erent waves...\. 0007B0: 01 C0 00 0E 00 66 03 CD 20 A2 20 19 3C 2C 19 3C .....f.. . .<,.< 0007C0: 00 0D 00 70 03 A2 20 0F 2C 0F 2C 19 1A 00 0D 00 ...p.. .,.,..... 0007D0: 7A 03 A2 20 11 2C 19 1A 2C 0F 00 07 00 84 03 01 z.. .,..,....... 0007E0: C0 00 25 00 8E 03 C5 20 61 63 74 20 6F 6E 20 72 ..%.... act on r 0007F0: 65 70 6C 79 20 74 6F 20 52 45 2D 52 55 4E 20 6D eply to RE-RUN m 000800: 65 73 73 61 67 65 00 07 00 98 03 01 C0 00 0E 00 essage.......... 000810: A2 03 D6 20 FF 43 F2 22 22 01 D5 00 0E 00 AC 03 ... .C.""....... 000820: D6 20 FF 43 EF 22 22 01 D5 00 06 00 B6 03 CA 00 . .C.""......... 000830: 0C 00 C0 03 CC 20 0F 2C 1A F4 01 00 06 00 CA 03 ..... .,........ 000840: CA 00 00 00 00 00 00 93 96 FF FF FF FF .............
RESULT OF SEARCH :
PRO=1 CHEA=0 COD=0 MUSI=0 COP=0 GRA=0 WRIT=0 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=1 CHEA=0 COD=0 MUSI=0 COP=0 GRA=0 WRIT=0 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EEE ,WAVE INFERENCEp#EEE" ---------------------------" ---- WAVE INTERFERENCE
----" -----(C) John Kennedy-----"2 ---------------------------F PZ clear scre
endn , ,x prompts(R #,,&, , , f,, ,d f, ,d,£ #,"Wave length of wave A.(ca)"
w wd w #,£ #,"Wave length of wave B.(ca)" w # wd w 3"£ #,"Offset of B
to A (in degrees)" offse,6 w w4 w w4J amKT set screenhr , , , , + " WAVE I
NTERFERENCE BY J.KENNEDY" ,v "RESULTANT WAVE" , "INCIDENT WAVES" draw grid
, ,, , & o,0D draw central axisNX o b ,,lv draw actual waves
" (( w)) am, (( w) offse) am ' x((( ) w)) am1 y((( ) w) offse) amm
z x y. , , ( ), x. , , ( ), y. , , ( ), z print RE-RUN message "* , "
""eH4 , " SPACE TO RE-RUN "" , " "HR flash diffe
rent wavesf , p ,, z ,,% act on reply to RE-RUN message C"" C"" ,Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan