Checksummer für den Joyce PCW

Der Prüfsummengenerator für unsere Listings

Über die Prüfsummen am Rande von Basic-Listings, welche in unserem Heft veröffentlicht werden, wundert man sich nicht mehr. Man weiß ja inzwischen, daß diese eine Hilfe beim Abtippen bedeuten. Es ist nun wieder langsam an der Zeit, auch diejenigen zu beglücken, die unser Programm noch nicht besitzen.

Um mit diesem Programm zu arbeiten, benötigt man ein Programmlisting, welches mit SAVE"M:NAME.ASC" auf das Laufwerk M: gespeichert wird. Nun kann man die Diskette mit dem CHECK-Programm einlegen und dieses mit RUN"CHECK" starten.

Als erstes wird der Name des zu "CHECKenden" Programms erfragt. Wurde dieser eingegeben, müssen nun die REM-Zeichen eingetippt werden, da dieses von Programmiersprache zu Programmiersprache unterschiedlich ist. Ja, Sie haben jetzt richtig gelesen, unser Checksummer eignet sich auch für andere Programmiersprachen wie zum Beispiel Assembler, Cobol und viele mehr.

Als nächstes ist das Ausgabemedium gefragt. Die Möglichkeiten sind M für Monitor, P für Drucker und D für Diskette, wobei bei der Wahl von Diskette eine Datei mit dem Namen .PRN angelegt wird. Diese kann zum Beispiel mit RPED eingelesen werden.

Jetzt können die Checksummen am linken Rand mit denen, welche im Heft ausgedruckt sind, verglichen werden. Es ist noch anzumerken, daß, wenn in einer Zeile mehrere Leerzeichen vorhanden sind, diese in Punkte umgewandelt werden.

(rs)

<89> 10 REM check.bas 04.11.86 (C) H.J.Meyer Har
     sum
<78> 20 :
<55> 30 ON ERROR GOTO 1080
<80> 40 :
<81> 50 DEFINT c,s,w,x:DEFSNG e,z: WIDTH 90
<58> 60 bell$=CHR$(7):esc$=CHR$(27)
<69> 70 invon$=esc$+"p":invoff$=esc$+"q":REM inv
     ers an/aus
<23> 80 fehl$=bell$+esc$+"A"+esc$+"K"+CHR$(13):R
     EM Zeile löschen
<85> 90 :
<97> 100 REM Voreinstellung
<83> 110 DATA END:.... REM Dateinane (bzw. end=P
     rogram beenden)
<26> 120 DATA REM:.... REM Remark is REM ( In As
     sembler= ; in Cobol = * usw.)
<22> 130 DATA M:...... REM Ausgabe (M=Monitor/P=
     Printer/D=Disk)
< 6> 140 DATA 40:..... REM Zeilenlänge (10-80)
<33> 150 DATA 0:...... REM Startzeile (0-65534)
<45> 160 READ datei$,rmk$,ausgabe$,zlen$,start$
<28> 170 :
<39> 180 PRINT esc$"H"esc$"E";
<32> 190 :
<39> 200 PRINT:PRINT CHR$(150)STRING$(35,154)CHR
     $(156)
<10> 210 PRINT CHR$(149)" J O Y C E - C H E C K 
     S U M M E R "CHR$(149)
<83> 220 PRINT CHR$(147)STRING$(35,154)CHR$(153)
<22> 230 PRINT invon$:FILES "m:*.ASC":PRINT:PRIN
     T invoff$
<58> 240 suchdat$=FIND$ ("M:*.asc")
<94> 250 IF suchdat$<>""THEN datei$=LEFT$(suchda
     t$,8)
<27> 260 :
<85> 270 PRINT"Dateiname","<"datei$">",:INPUT in
     $
<37> 280 in$=UPPER$(in$):IF in$="" THEN in$=date
     i$
<25> 290 IF VAL(in$)<>0 OR LEN(in$)>8 THEN PRINT
      fehl$;:GOTO 270
<35> 300 IF in$="END" THEN PRINT:END
<76> 310 datei$=in$
<20> 320 :
<78> 330 PRINT"REM-Zeichen","<"rmk$">",:INPUT in
     $
<84> 340 IF in$="" THEN in$=rmk$
<23> 350 IF in$="NO" THEN in$=CHR$(255)
<92> 360 rmk$=in$
<30> 370 :
<36> 380 PRINT"Ausgabe","<"ausgabe$">",:INPUT in
     $
<56> 390 in$=UPPER$(in$):IF in$="" THEN in$=ausg
     abe$
< 3> 400 wahl=INSTR("MPD",in$)
<22> 410 IF wahl=0 THEN PRINT fehl$;:GOTO 380
<37> 420 ausgabe$=in$
<23> 430 :
<89> 440 PRINT"Zeilenl{nge","<"zlen$">",:INPUT i
     n$
<35> 450 IF in$="" THEN in$=zlen$
<39> 460 zlen=VAL(in$)
<40> 470 IF zlen<10 OR zlen>80 THEN PRINT fehl$;
     :GOTO 440
<30> 480 zlen$=in$
<35> 490 :
<19> 500 PRINT"Startzeile","<"start$">",:INPUT i
     n$
<81> 510 IF in$="" THEN in$=start$
<54> 520 erste=VAL(in$)
<50> 530 IF erste<0 OR erste>65534! THEN PRINT f
     ehl$;:GOTO 500
<46> 540 start$=in$
<28> 550 :
<73> 560 datnam$="m:"+datei$+".ASC"
<30> 570 prnnam$="a:"+datei$+".PRN"
<35> 580 PRINT:OPEN"I",1,datnam$
<74> 590 PRINT"LISTING >"datei$"<, REMARK = >"rm
     k$"<.":PRINT
<19> 600 :
< 5> 610 IF wahl<>2 THEN 650
<50> 620 LPRINT esc$"l"CHR$(10);esc$"M";
<18> 630 LPRINT "LISTING >"datei$"<, REMARK = >"
     rmk$"<.":LPRINT
<27> 640 :
<16> 650 IF wahl<>3 THEN 690
<92> 660 OPEN"O",2,prnnam$
<30> 670 PRINT #2,"LISTING >";datei$;"<, REMARK 
     = >";rmk$;"<.":PRINT #2," "
<35> 680 :
<45> 690 IF EOF(1) THEN GOTO 1060
<85> 700.. LINE INPUT #1,zeile$
< 0> 710.. IF VAL(zeile$)<erste THEN 690
<24> 720.. :
<16> 730.. x=INSTR(zeile$,SPACE$(2)):IF x=0 THEN
      760
<33> 740.. MID$(zeile$,x,1)=".":GOTO 730
<30> 750.. :
<13> 760.. x=INSTR(zeile$,rmk$+" ")
<44> 770.. IF x=0 THEN clen=LEN(zeile$):ELSE cle
     n=x+LEN(rmk$)-1
<68> 780.. summe=0
<44> 790.. FOR x=1 TO clen
<85> 800.... summe=(summe+(ASC(MID$(zeile$,x,1))
     AND 127)*x)MOD 99
<70> 810.. NEXT
<67> 820.. druck$=zeile$
<27> 830.. :
<48> 840.. IF wahl<>1 THEN 900
<47> 850.. PRINT USING"<##> ";summe;
<50> 860.. teil$=LEFT$(druck$,zlen):PRINT teil$
<47> 870.. druck$=MID$(druck$,zlen+1)
<61> 880.. IF LEN(druck$)>0 THEN PRINT SPACE$(5)
     ;:GOTO 860
<39> 890.. :
<27> 900.. IF wahl<>2 THEN 970
<69> 910.. PRINT USING"< ##### >";VAL(druck$);
<77> 920.. LPRINT USING"<##> ";summe;
< 6> 930.. teil$=LEFT$(druck$,zlen):LPRINT teil$
<42> 940.. druck$=MID$(druck$,zlen+1)
<73> 950.. IF LEN(druck$)>0 THEN LPRINT SPACE$(5
     );:GOTO 930
<34> 960.. :
<63> 970.. IF wahl<>3 THEN 1040
<83> 980.. PRINT USING"< ##### >";VAL(druck$);
<83> 990.. PRINT #2,USING"<##> ";summe;
<67> 1000.. teil$=LEFT$(druck$,zlen):PRINT #2,te
     il$
<88> 1010.. druck$=MID$(druck$,zlen+1)
<18> 1020.. IF LEN(druck$)>0 THEN PRINT #2,SPACE
     $(5);:GOTO 1000
< 1> 1030.. :
<28> 1040.. IF INKEY$=CHR$(8) THEN GOTO 1060
<92> 1050 GOTO 690
<85> 1060 CLOSE:PRINT:GOTO 200
<20> 1070 :
<78> 1080 REM Fehlerbehandlung
<49> 1090 fehler$=" Fehler Nr."+STR$(ERR)+" in Z
     eile Nr."+STR$(ERL)+". "
<97> 1100 IF ERR=53 THEN fehler$=" Datei nicht v
     orhanden. "
<20> 1110 IF ERL=230 THEN fehler$=" Keine ASCII-
     Datei vorhanden. "
<71> 1120 CLOSE:PRINT invon$;fehler$;invoff$;bel
     l$:PRINT
<64> 1130 IF ERL=230 THEN RESUME 270 ELSE RESUME
      200

Listing Checksummer [Hier das Listing]