Commodore 64 - IF... THEN

Extramon listing
100 PRINT"TINY PEEKER/PGKERM
110 XT=-" * “ : INPUTXT: IFX*" * " THENEND
120 G0SUB500
130 IF E GOT0280
140 A
150 IF J >LEN ( XT ) GOT0300
160 FOR I= 0T07
170 P-J :G0SUB550
180 C<I)=V
190 IF E GOTO 280
200 NEXT I
210 I'-O
220 F0RI=0TG7
230 POKE A+-1 ,C(I)
240 T—T+C(I)
250 NEXT I
260 PR I NT " CHECKSUM-- " ; T
270 GOTO110
280 PR INTMIDT(XT,1,J) ; "??":GOTO110
300 T-0
310 FORI = 01"07
320 V=PEEK(A+I)
330 T=T+V
340 V=V/16
350 PRINT "
360 P'OR J = 1 T02
370 V7.-V
380 V=<V-V"/.)*16
390 IFV7.>9THENV7.=V7. + 7
400 PR INTCHR* (V7-+48) ;
410 NEXT J
420 NEXT I
430 PRINT "/" ;T
440 GOTO110
500 P=1
510 L=4
520 G0T0600
550 P=J
560 L-2
600 E=0
610 V==0
620 FORJ-P TO LEN(XT)
630 X =ASC(MIDT(XT,J) )
640 IFX=32 THEN NEXT J
650 IFJ >LEN(XT)THEN790
660 P=J
670 FORJ =PTOLEN(XT)
680 X-ASC(MIDT(XT,J))
35