Hilfe bei einem womöglichen Basic-Listing Problem

Zeile 1001 -> 4U .. AT
Zeile 1045 -> Leertaste - wahrscheinlich harmlos.
Zeile 1054+1055 -> 3-stellige Prüfsumme? Wobei... kann schon hinkommen, wenn das nur addiert wird.

Don't drink and type!

Zitat von Bagitman

Das Problem liegt wohl in Zeile 1001. Egal wie oft ich die versuche korrekt einzugeben, die verlangte Checksumme <136> ist bei mir immer <146>.

Das sind hexadezimale Werte in den DATA-Zeilen, von daher können "4u" und "at" niemals stimmen. Wahrscheinlich sind es "40" und "af" oder "a1".

Es werden wirklich nur die Werte addiert, und es sind "4c" und "af", wenn Excel richtig rechnet:

Oder "4D" und "AE" (und so weiter). Das sind 16²=256 mögliche Kombinationen. Das muss er im Originallisting nachlesen (Tippfehler).

Ist es das hier ...?

Bagitman: Dann ist es ein Druckfehler, was wahrscheinlich in der nächsten Ausgabe der Zeitschrift korrigiert wurde.

Parser: Ja, das ist es.

1 rem
2 rem * life mc loader *
3 rem * vc 20 + 3 k *
4 rem
5 poke 55,95:poke 56,23:clr
10 dim h(75):for i=0 to 9
20 h(48+i)=i:h(65+i)=i+10:next
30 for i=6000 to 7139:read a$
40 h=asc(left$(a$,1)):l=asc(right$(a$,1))
50 d=h(h)*16+h(l):s=s+d:poke i,d
60 a=a+1:if a<20 then next:a=-1
65 print"zeile";1000+z;
70 read v:z=z+1
85 if a<0 then end
90 s=0:a=0:print:next
100 print"{clr}load"chr$(34)"life2"chr$(34)","peek(186):poke631,19:poke632,131:poke198,2:new
1000 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 0
1001 data a9,00,8d,db,1b,8d,dc,1b,a9,08,8d,d8,1b,4e,d9,1b,90,12,18,ad, 2186
1002 data da,1b,6d,db,1b,8d,db,1b,a9,00,6d,dc,1b,8d,dc,1b,4e,db,1b,6e, 2334
1003 data dc,1b,ce,d8,1b,d0,de,60,ea,ea,ad,ce,1b,18,6d,d0,1b,8d,d2,1b, 2842
1004 data ad,cd,1b,18,6d,cf,1b,90,03,ee,d2,1b,8d,d1,1b,60,ea,ea,ea,ea, 2803
1005 data ad,d7,1b,8d,d9,1b,a9,1b,8d,da,1b,20,84,17,ad,dc,1b,8d,cd,1b, 2362
1006 data ad,db,1b,8d,ce,1b,ad,d6,1b,8d,cf,1b,a9,00,8d,d0,1b,20,b6,17, 2364
1007 data ad,d2,1b,18,6d,cc,1b,8d,d2,1b,60,a9,00,8d,f8,1b,8d,f9,1b,ea, 2484
1008 data a9,14,8d,cc,1b,a2,00,a0,00,a9,08,8d,d3,1b,a9,00,8d,de,1b,8a, 2136
1009 data 18,69,01,8d,d6,1b,98,18,69,01,8d,d7,1b,20,d4,17,ad,d1,1b,8d, 1994
1010 data 41,18,ad,d2,1b,8d,42,18,ad,5e,17,c9,00,d0,05,a9,01,8d,de,1b, 1994
1011 data a9,00,8d,d4,1b,ce,d3,1b,8e,d5,1b,ae,d3,1b,bd,bc,1b,18,6d,d5, 2537
1012 data 1b,8d,d6,1b,ae,d5,1b,8c,d5,1b,ac,d3,1b,b9,c4,1b,18,6d,d5,1b, 2394
1013 data 8d,d7,1b,ac,d5,1b,20,d4,17,ad,d1,1b,8d,8a,18,ad,d2,1b,8d,8b, 2464
1014 data 18,ad,42,17,c9,00,f0,07,c9,ff,f0,03,ee,d4,1b,ad,d3,1b,c9,00, 2522
1015 data d0,b3,ad,de,1b,c9,00,d0,22,a9,02,cd,d4,1b,f0,18,a9,03,cd,d4, 2720
1016 data 1b,f0,11,ad,41,18,8d,c2,18,ad,42,18,8d,c3,18,a9,02,8d,42,16, 1928
1017 data 4c,df,18,a9,03,cd,d4,1b,d0,11,ad,41,18,8d,dd,18,ad,42,18,8d, 2216
1018 data de,18,a9,ff,8d,5c,16,c8,c0,1f,d0,03,4c,ea,18,4c,19,18,a0,00, 2178
1019 data e8,e0,19,d0,03,4c,f7,18,4c,19,18,4c,00,19,13,37,23,96,63,1a, 1649
1020 data a2,01,a0,01,a9,14,8d,cc,1b,8e,d6,1b,8c,d7,1b,20,d4,17,ad,d1, 2299
1021 data 1b,8d,1f,19,ad,d2,1b,8d,20,19,ad,7a,17,18,c9,00,f0,15,c9,02, 1839
1022 data d0,08,a9,00,20,50,19,4c,3b,19,c9,ff,ea,ea,a9,01,20,26,1b,c8, 2073
1023 data c0,21,d0,c4,a0,01,e8,e0,1b,d0,bd,60,ea,ea,ea,ea,ea,ea,ea,ea, 3638
1024 data 8d,dd,1b,8e,d6,1b,8c,d7,1b,20,d4,17,ad,d1,1b,8d,6c,19,ad,d2, 2487
1025 data 1b,8d,6d,19,ad,dd,1b,8d,42,16,c9,01,d0,05,a9,2a,4c,c8,19,a9, 2048
1026 data 20,4c,c8,19,00,8d,df,1b,4c,c8,19,c9,ff,f0,eb,c9,02,d0,10,a9, 2552
1027 data 20,8d,df,1b,a9,1c,8d,cc,1b,20,d4,17,4c,c8,19,60,8e,c0,cc,ce, 2400
1028 data cc,cb,cf,56,84,ec,fd,a4,4c,88,cc,e0,ec,a5,59,08,31,b2,33,21, 2934
1029 data 33,13,33,33,31,b0,33,13,33,7b,33,37,b9,1b,33,81,33,70,73,5b, 1508
1030 data 8d,e1,1b,ad,cc,1b,8d,e0,1b,a9,1c,8d,cc,1b,20,d4,17,ad,d1,1b, 2434
1031 data 8d,e9,19,ad,d2,1b,8d,ea,19,ad,e1,1b,8d,42,1e,ad,e0,1b,8d,cc, 2640
1032 data 1b,60,33,03,b3,66,27,31,33,13,b3,f1,93,33,32,65,c3,43,ab,31, 1867
1033 data 2b,19,ab,91,72,60,73,92,32,42,39,ca,cc,c5,8c,cc,6c,cc,ec,8c, 2663
1034 data dc,c8,cc,48,cc,cc,cc,cc,cd,94,46,cf,48,ce,4c,6b,4f,dc,45,9e, 3129
1035 data 0c,c6,ea,cc,33,2b,7b,71,93,63,32,39,2b,13,33,37,33,64,93,30, 1845
1036 data 39,b1,27,9c,53,7c,33,d9,37,00,13,03,3b,1a,3b,00,cc,8c,c8,c9, 1870
1037 data dc,ec,cc,cc,c6,c4,4c,cc,ce,8c,dc,ec,cc,2c,4e,43,91,90,4e,8e, 3242
1038 data cc,48,75,ac,a8,35,4c,9c,33,b3,33,1f,37,23,13,12,33,33,33,31, 1659
1039 data 33,1a,39,f1,81,0b,67,33,33,96,67,2a,b8,13,33,f4,39,b0,36,96, 1950
1040 data c8,ec,cc,cc,cc,cc,dc,c2,8c,c4,ee,c0,4f,cc,cc,cc,4c,e4,ed,ec, 3900
1041 data de,ed,e8,93,ec,28,4e,7d,ec,8e,04,e8,3b,33,71,53,33,d3,23,11, 2551
1042 data 33,23,33,f4,33,33,2b,b3,e9,e5,33,70,52,fc,b3,bc,78,79,02,b2, 2452
1043 data 13,8f,96,8f,cc,ce,cc,e7,c4,dc,cc,cc,cc,cc,4c,c4,c0,c4,cc,cd, 3601
1044 data cc,ff,cd,a4,8c,8f,66,cb,c7,ed,c9,6d,ec,99,14,cd,11,23,73,31, 2992
1045 data 33,3a,a1,33,13,31,33,37,71,7b,b1,3a,13,b7,33,02,2c,c2,13,29, 1519
1046 data 3b,70,27,6d,02,ff,bb,68,cc,84,cc,dc,d8,dd,8c,4c,cc,dc,cc,cc, 3112
1047 data dc,dc,cc,cc,8c,d6,cc,dc,4e,e7,18,a9,01,6d,f8,1b,90,03,ee,f9, 3147
1048 data 1b,8d,f8,1b,a9,01,4c,50,19,63,93,b1,b3,77,33,33,66,66,b7,c7, 2203
1049 data 33,59,ab,2b,13,1c,33,13,73,a3,3b,84,8c,54,c8,c4,cf,5c,ec,cc, 2299
1050 data 4c,cc,cc,c8,c5,ec,ce,cc,8c,d4,e6,28,8c,dc,4c,84,5d,9d,ec,e8, 3435
1051 data ca,5a,6e,ee,30,1b,3b,37,31,27,b3,f3,b3,7e,33,77,33,77,37,a9, 2208
1052 data e4,a6,13,89,22,bc,31,01,3b,13,38,1b,1b,a3,b7,e7,8c,6d,d4,cd, 2253
1053 data cc,c5,cc,ed,dc,cc,ce,ee,c4,cc,4c,c8,8d,ec,d7,c9,c4,4e,cc,de, 3879
1054 data cb,cd,ce,a7,85,96,c0,80,37,77,13,2b,17,b5,b3,33,32,97,33,15, 2327
1055 data 00,01,02,00,02,00,01,02,00,00,00,01,01,02,02,02,14,60,03,1a, 161
1056 data 00,7a,17,00,00,1e,1a,20,00,00,1b,03,60,00,01,ec,14,20,c9,1c, 877

Damit ist es "4E" und "AD". Die innere Prüfsumme 2221 stimmt. Die Äußere weiß ich nicht, ggf. übergehen.

Ich habe die beiden Programmteile zusammengefasst (unten angehängt).

Zitat

John Conway's Game of Life. Cells either thrive or die depending on the number of neighbours they have.
Controls:
Follow on-screen prompts. Press 1 to set the cells (* to set, Space to erase, Crsr keys to move, R to return to menu), then press 3 to watch them evolve (F7 to return to menu).

Ups, kleiner Denkfehler. Die Version oben ist defekt. Don't drink and code!

Zitat von Uridium

Das sind 162=256 mögliche Kombinationen.

Rein recvhnerisch, ja. Praktisch geht sich wegen der Prüfsumme nur 4C..4E und AD..AF in jeweils einer Kombination aus. Wenn man noch bedenkt, wie "4U" und "AT" aussehen (Ähnlichkeit), dann gibt es nur diese eine Möglichkeit. Immer unter der Annahme natürlich, dass wenigstens "4" und "A" stimmen und nur der Druck schlecht war.

Aber egal, es ist ja jetzt gelöst.

Ich habe glaube ich die nächsten fünf Zeitschriften durch geguckt. Steht nichts von drin. Oder das hat erst im nächsten Sonderheft gestanden. Da habe ich nicht geschaut.

Ich werfe hier mal eben die beiden Diskettenseiten des passenden Sonderheftes in den Ring.

Irgendwo habe ich aber eine Diskette in meiner Sammlung, wo jemand teilweise die ganzen VC-20 Programme angefangen hat zu optimieren. Das heißt, das solche nervigen Datawüsten komplett verschwinden und die Daten direkt auf der Diskette (und somit sofort im Speicher) stehen. Bringt beim VC-20 zwar nicht sonderlich viel Zeitersparnis, aber immerhin.

Zitat von Uridium

Ich habe glaube ich die nächsten fünf Zeitschriften durch geguckt. Steht nichts von drin. Oder das hat erst im nächsten Sonderheft gestanden. Da habe ich nicht geschaut.

Also in einen nächsten Sonderheft steht sicher nichts. Die 64er hatten das Heft genutzt, um alles VC-20 lastige noch irgendwie abzudrucken, gleichzeitig sich aber vom VC-20 Thema für immer zu trennen. Es gab zwar noch das 64er Sonderheft 8/86, das ist ebenfalls C-16/116 & Plus/4 und VC-20, aber dort waren nur noch ein paar gute Programme abgedruckt und dann war es das für immer mit dem VC-20 in der 64er.

Zitat von Bagitman

Man könnte manchmal meinen, die haben die Druckfehler absichtlich eingefügt, nur damit man die nächste Ausgabe zwecks Fehlerteufelsuche kauft...

Die Druckfehler gab es meiner Erinnerung nach durchaus oft. Was wären Gründe dafür? Absicht oder OCR-Fehler könnten sein, aber wurden nicht die getesteten Programme einfach als Listing an die Stelle im Heft eingefügt (bspw. mit einem DTP Programm)?

Zitat von Bagitman

Weil ich hab hier schon wieder ein Listing für den Vic20, bei dem wohl was nicht ganz korrekt funktioniert.

Wieso ... funktioniert doch?

01100B1001009E35383732000000A0D4C4D8A0008445A9808D670385FCA90185FE20C41AA9FF8D0590205FE5A90885018D0F90A91E8502A907A0FF99009688D0FAA0FF99FF9688D0FAA200BD5B1AC9EAD012E818A5017D5B1A8501A502690085024C7210910118A50169018501A50269008502E8E059D0D3A230A030A900850820B31AA5CBC927D007E8E03AD002A230C92FD007C8C038D002A0308ED51E8C011F48A9AA8D50036820441AC937F026AD4903C907D008A9028D49034CC210A9078D490386FBA2FF9D00969DFF96CAD0F7A6FB4C7B108C4803EAA000205017A215BD2D1A9D001ECA10F7A215BD171A9D161ECA10F7A92C8501A91E8502A91EA214A015910188888810F918A50169168501A50269008502A91ECAD0E5A2588601A21E8602A207A015B9011A91018810F818A50169428501A50269008502CAD0E6A215BDEB199DE41FCA10F7A902A2049D0896CA10FAA2039DED97CA10FAA205A9059D1096CA10FAA203A9049D0096CA10FA20621920C217A00038AD4803E92FAAA926992C1EA906992C96C8C8C898488A48A280A0FF8E0B908E0A9088D0F7E8D0F268AA68A8CAD0D88E0B908E0A90A9188DEE1FA9048DEE97EAA9448D7003A223A91E9D81039D8303AD700338E9038D70039D8003A9169D8203CACACACACA10E0AD6703A200AD480338E92FA888E8E8E8E8E888D0F8205018EABD8003852DBD8103852EBD8303A000912DA52E186978852EBD8403912DA52E38E978852E200019B12D9D8303C926D014A8BD820349FF1869019D8203984CF711EAEAA000C91AF00CC918F008C911F004C916D0034C2215C925D016A8BD8203C916D008A9FF9D82034C6712A9EA9D820398C91CD016A8BD8203C901D008A9169D82034C8112A9FF9D820398C91BD016A8BD8203C916D008A9019D82034C9B12A9EA9D820398C91DD016A8BD8203C9FFD008A9169D82034CB512A9019D820398EAC900D066A8BD8203C901D012AD14911005A9EA4CCF12A9169D82034C1E13BD8203C9FFD012AD14911005A9EA4CE812A9169D82034C1D13BD8203C9EAD012AD14911005A9FF4C0113A9019D82034C1D13BD8203C916D00FAD14911005A9FF4C1A13A9019D820398EAEAEAC90AD020A8BD8203C9FFD012AD14911005A9EA4C3913A9169D82034C4413A9019D820398C90BD020A8BD8203C9EAD012AD14911005A9FF4C5D13A9019D82034C6813A9169D820398C921D020A8BD8203C916D012AD14911005A9FF4C8113A9019D82034C8C13A9EA9D820398C928D020A8BD8203C901D012AD14911005A9EA4CA513A9169D82034CB013A9FF9D820398EAEAEAA000A926912D18A52E6978852EA903EA912D38A52EE978852ECACACACACA30034CF71120441AEAA000B1018DC0038CAA03EAEAEAEAEA208D19AD6003C900D0088DA903A9018DAA03AD6103C900D0088DA903A9168DAA03AD6203C900D008A9FF8DA9038DAA03AD6303C900D00AA9FF8DA903A9EA8DAA03ADAA03C900D0034C491DADAB039101ADAC039133A501186DAA038501A5026DA9038502A533186DAA038533A5346DA9038534B101C926D0034C6614A20BBDD318D101D0034C9F14CA10F3A50138EDAA038501A502EDA9038502A53338EDAA038533A534EDA9038534ADC0039101A90491334C491D4C0017EAADAC038DBA03EAEAEAEAEAEAEAB133290F8DAC03B1018DAB03ADAA03C901D002A218C9FFD002A216C916D002A211C9EAD002A21A8A9101A9049133EAEA4C1C16ADBA03290FC902D030ADAC03290FC907D027A508C912D0034C1C15A608A5339DC403A5349DC503E608E608A508C944F008A9028DAC034C491D20B3164C491D20B31638AD4803E930A200A8E8E8E8E8E888D0F8A000BD8003852FBD81031869788530BD8403A000912FCACACACACA10E5A5FEF035A910A2F08E0F908E0C90A0FF88D0FDCA30F238E901D0EBA9088D0F90A203BD001EC91AF006CA10F64CBE15A9209D001EA9FF4CAA15A9C8A0F0A2508C0A90CA8E0B9030FA8830F2A0054820B0186838E901D0E4A5021869788502ADAC03A00091012062194CE810A209BDDE189D0E1FA9019D0E97CA10F2AE0E9020441A20441A8E0E90CA10F4A200BD101EDDF3033005F0054CD717D005E8E006D0EC4CE217A205A9009DF303CA10FA600000000000ADAC03CDBA03D009A9008508A9068DF0034CE314EAEAA50AC900F013ADAC03C902D00CA9028DAC03A9028DBA03EAEAA9078509EAA508C902D0044C6B1600ADAA0349FFAAE88ACDF003D00DA9AA8DF003A900EAEAEA4C1C15ADAA03C900F0038DF0034C9016ADAA0349FFAAE88ACDF003D018A9028DBA038DF003A9028DAC03A9028508A90285094C1C15A508C900F018ADAC03CDBA03D010A019E60FA50FC931D0034C6117209118A0004C0616A000A608F036CACABDC403853F8531BDC50385408532B13F290FC904F004A907913F200D18CACA10DFA9008508A5098DAC03A903850A8C0A908C0B9060A210A9209DFA1FCA10FA20F6154C1010B101AEAA03E001D016C91BF00FC91DF00BC91EF007C90AF0034C1F174C7514E0FFD016C925F00FC91CF00BC91EF007C928F0034C39174C7514A502C920F00AC91EF009A501C9FB90034C75144CA21400205FE5A2FFA9079D15969D1497CAD0F560A925850EA2FFA008840DA00898050DEA8D0F9020B017EA88C008D0F0CAD0E7C60EA50E10DFAD4803C937F003EE4803A000A92C8501A91E8502205317A9088D0F90A900850F8508A98085FC4CE810EAA88A09A08D0A9009228D0B9009338D0C9060A223A015B92C969D8403888888CACACACACA10F060A205BD101E9DF303CA10F7A205BDF3039D001ECA10F7A205A9049D0096CA10FAA5CBC940F0FA4C111000008E6603A200A1ACAE6603608A4898AA38A532E9788532BD8003C531D00CBD8103C532D005A9079D8403E8E8E8E8E8E028D0E468AA09818D0A9009AA8D0B90A0FF88D0FDA0FF88D0FDA00060000000EA8A489848A545C900F024A209A00D208518EA9809DD8D0A9088D0F38A09F08D0B90CAD0E8A9008D0A908D0B90C64568A868AA60009848A022EAEA88D0FB68A860A206BD311B85ACBD321B85AD200218EA290FC902D009CACA10E8A90085FEEAA902854518A20588100160BD101EC939F00869019D101E4CB518A9309D101ECA4CBB18251C1B1D1F1E000A0B212807010D0520200F150512A9908D5003A5FB38E92FAA38AD5003E9098D5003CA10F460A9008D7203BD8203C9FFF004C9EAD005A9FF8D720318A52D7D8203852DA52E6D7203852EA9008D7203BD8203C9FFF004C9EAD005A9FF8D720318BD80037D82039D8003BD81036D72039D8103A000A52E186978852EB12D9D8403A52E38E978852E60A91F8502A9EE8501A9978534A9EE853320E818A9028DAC03A91F8DAB0360A5FEF005A9088D0F904CE11100A97F8D2291AD209129808D6003A9FF8D2291AD119129088D6103AD119129108D6203AD119129048D6303A6CBE00DD008AD630329008D6303E015D008AD620329008D6203E025D008AD610329008D6103E016D008AD600329008D600360001B1F1F211F1F211F1F211F1F211F1F211F1F211F1F250A1F1F001F1F001F1F001F1F001F1F001F1F001F1F281D1F1F0B1F1F0B1F1F0B1F1F0B1F1F0B1F1F0B1F1F1C1A1A1A2020202020140103030F20202030303030303030488A489848AE5003A0EE88D0FDCAD0F868A868AA686000140103030FEA242303242031393833200219EA1D0627010D0D010E0E202220122717050913010E07EA5D063120201310050504202020EA20063320200C0515050C202020EA77101205131320063520140F201314011214EA8A48A607E00CF004E88E0E90860768AA60A900850FA2008E46038E41038E4503A9E08D1403A91A8D1503860760A9F98D1803A91B8D1903EAEAEAEAEAEAEAEAAE4603EE4103AD4103DD471B3022A9FD8D0D90EE4503AC4503C003D01EA9008D41038D4503E8E8E0B0D002A2008E4603BD461B8D0C90A9008D0D904CBFEA601696E497F9972B96EAEAEAEAEAEAEAEAEAEABFEA00D712D20CC306C312C30CC306C312C30CD706D20CC306D20CD906E112DD0CD206D212D20CD206D212D212D212D212E112DD0CD206D212D212D212D212D70CD906DD0CD906E112E112E112E112E112E112E112E112D712D20CC306C312C30CC306C312C30CD706D20CC306D20CD906E312E312D912D90CD906D212D212C712C712E10CDD06DD0CD206E10CDD06DD0CD206E10CDD06DD0CCD06E10CDD06DD0CCD06D912D912D912D912D712D712D712D71201060058A2009A4C11102424E70000E724243078CCC6FEFEC6C6FCFEC2FEFEC2FEFC3E7EE0C0C0C07E3EFCFEC6C6C6C6FEFCFEFEC0F0F0C0FEFEFEFEC0F0F0C0C0C07CFEC6C0DEC6FE7CC6C6C6FEFEC6C6C63C3C181818183C3C24242720202724240000FF0000E72424C0C0C0C0C0C0FEFEC6EEFED6C6C6C6C6C6E6F6F6DEDECEC67CFEC6C6C6C6FE7CFCFEC6FEFCC0C0C0C3FF7E7E3C3C1818FCFEC6FEFCF0D8CC7CFEC6701CC6FE7C7E7E181818181818C6C6C6C66C6C3838030F3EFEFE3E0F03C6C6C6C6D6FEEEC6C0F07C7F7F7CF0C0666666663C18181818183C3C7E7EFFC324242720203F00000000FC0404E4242400003F202027242424242424242424240000FF0000FF000000000000000000002424E70000FF00007C6C78306EC67C3A060C181818180C0660301818181830602424E40404FC00003C42A581C3BD423C00000000000018182424E40404E42424EAA5FED029A5FCC9FFF01FA54DC901D00AA90AE64D8D0F904C6C1DA901854DA90C8D0F90C6FCA5FCD006A9FF85FC85FE4CD01DEAEAEAEAEA7CFEC6CED6E6FE7C0C1C3C3C2C0C1E1E3C7EC61C3860FEFE3CFEC61C1CC6FE7CC0C0D8D8FEFE1818FEFEC0FCFE06FE7C1E3E60FCFEC6FE7CFEFE06063C3C30607CFEC67C7CC6FE7C7CFEC6FE7E060C18AD6703C9AAF026AD101EC930D01FAD111EC931D018A2FFE8BD001EC920D0F8A91A9D001EA9AA8D6703A90385454C8019

Kannst du ja mal in den Next-Soft Hex-Editor MX reinpacken und vergleichen ... .