10 MEMORY&5FFF:DIMo$(100):LOAD"f&f5",&6000:GOSUB210:POKE&9F0C,141:POKE&9F0D,159:POKE&9F26,141:POKE&9F27,159:POKE&9F3C,141:POKE&9F3D,159:POKE&9F54,141:POKE&9F55,159:GOSUB190:GOSUB50:POKE&6000,PEEK(&9FE0)-3:CALL&6041:INK1,25:INK2,15
20 INK3,20:GOSUB90:GOSUB200:IFPEEK(&9FE0)=5THENF1$="x15"ELSEIFPEEK(&9FE0)=6THENF1$="y16"ELSEF1$="z17"
30 MEMORY &96FF:WINDOW #1,2,21,2,21:PAPER #1,0:CLS #1:PEN 2:LOCATE 4,9:PRINT "PATIENTEZ  S.V.P "
40 PEN 3:LOCATE 7,11:PRINT "CHARGEMENT":RUN F1$  
50 B=0:IFPEEK(100)=1THENPOKE100,0:F0$="fcp1"ELSEF0$="fcps"
60 OPENINF0$:WHILENOTEOF:B=B+1:INPUT#9,P$(B):WEND:CLOSEIN:FORb2=1TO5:IFP$(b2)=""THEN80
70 IFASC(LEFT$(P$(b2),1))>56THENps$(b2)=ps$(b2)+LEFT$(P$(b2),1):P$(b2)=RIGHT$(P$(b2),LEN(P$(b2))-1):GOTO70
80 NEXT:FORb3=1TO5:C$(b3)=MID$(P$(b3),25,1):NEXT:RETURN
90 A0=&8FFF:FORB=1TO5:IFP$(B)=""THEN130ELSEv=PEEK(A0+12):GOSUB140:GOSUB180:x$=v$:v=PEEK(A0+13):GOSUB140:GOSUB180:y$=v$:v=PEEK(A0+14):GOSUB140:GOSUB180:C$=v$:v=PEEK(A0+1):GOSUB140:GOSUB180:f$=v$:v=PEEK(A0+2):GOSUB140
100 GOSUB180:i$=v$:v=PEEK(A0+3):GOSUB140:GOSUB180:s$=v$:v=PEEK(A0+4):GOSUB140:GOSUB180:d$=v$:v=PEEK(A0+5):GOSUB140:GOSUB180:e$=v$:v=256*PEEK(A0+7)+PEEK(A0+6):GOSUB160:GOSUB180:P$=v$:v=256*PEEK(A0+9)+PEEK(A0+8):GOSUB160:GOSUB180
110 mn$=v$:v=256*PEEK(A0+11)+PEEK(A0+10):GOSUB170:GOSUB180:ex$=v$:P$(B)=ps$(B)+f$+i$+s$+d$+e$+P$+mn$+"0"+ex$+C$(B)+x$+y$+C$+RIGHT$(STR$(PEEK(A0+15)),1):st$="":FORN=1TO3:st$=st$+CHR$(PEEK(A0+15+N)):NEXT
120 P$(B)=P$(B)+st$:A0=A0+18
130 NEXT:a$="fcps":|ERA,@a$:OPENOUT"fcps":FORB=1TO5:PRINT#9,P$(B):NEXT:CLOSEOUT:RETURN
140 v$="":IFv<10THENv$="0":RETURNELSERETURN
150 v$="":IFv<100THENGOSUB140:v$=v$+"0":RETURNELSERETURN
160 v$="":IFv<1000THENGOSUB150:v$=v$+"0":RETURNELSERETURN
170 v$="":IFv<10000THENGOSUB160:v$=v$+"0":RETURNELSERETURN
180 v$=v$+RIGHT$(STR$(v),LEN(STR$(v))-1):RETURN
190 OPENIN"fo":FORn1=1TO100:INPUT#9,o$(n1):NEXT:CLOSEIN:RETURN
200 a$="fo":|ERA,@a$:OPENOUT"fo":FORn1=1TO100:PRINT#9,o$(n1):NEXT:CLOSEOUT:RETURN
210 RESTORE220:FORL=&9F8DTO&9FA0:READa$:M=VAL("&"+a$):POKEL,M:NEXT:RETURN
220 DATAe5,ed,52,38,06,28,09,3e,01,e1,c9,97,3e,ff,18,f9,3e,00,18,f5
