2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     REM[NDRA
4 ! Utg}va  1.2      1982-11-30
5 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar, 1789.
9 ! Programmet {ndrar REM och : REM till !
10 ! Programmet f|ruts{tter att den fil som skall {ndras lagras som textfil
11 ! under namnet TEMP.BAS.
12 ! Anropet f} ERASE rutinen m}ste {ndras f|r att programmet skall kunna
13 ! anv{das till andra checsummor {n 3733 eller motsvarande 80 tkn version.
14 ! +++++++++++++++++++++++++++++++++++
50 ON ERROR GOTO 10000
60 FLOAT 
80 EXTEND 
300 DIM Rad$=200
1000 ; CHR$(12%) DBLE YEL '[ndra REM till !' : ; : ; : ; : ; 
1010 ; YEL ' Programmet {ndrar alla rader som'
1020 ; YEL ' innh}ller REM till !.'
1030 ; 
1031 ; 
1035 ; RED ' Gl|m ej att lagra programmet som'
1036 ; RED ' {ndras, under filnamnet TEMP.BAS!'
1037 ; 
1040 ; YEL ' N{r programmet {r klart h{mtas'
1050 ; YEL ' programmet in i minnet!'
1060 ; 
1070 ; YEL ' Gl|m ej att lagra programmet med'
1071 ; YEL ' med SAVE!'
1080 ; : ; 
1090 OPEN 'TEMP.BAS' AS FILE 1%
1100 PREPARE 'UTFIL.BAS' AS FILE 3%
1110 ; #3%,'1 EXTEND : FLOAT : Z%=FNFunk%(''1-9'')'
1130 ; #3%,'2 DEF FNFunk%(P$) LOCAL Par$=20,Par'
1135 ; #3%,'3 Par$=P$+CHR$(13)'
1140 ; #3%,'4 Par=VARPTR(Par$)'
1150 ; #3%,'5 POKE -512,213,33,Par,SWAP%(Par),201'
1160 ; #3%,'6 Z=CALL(-512,5655)'
1170 ; #3%,'7 RETURN 0'
1180 ; #3%,'8 FNEND'
1190 ; #3%,'9 END'
1200 WHILE Flagga$<>'EOF'
1210   INPUT LINE #1%,Rad$
1220   Rad$=LEFT$(Rad$,LEN(Rad$)-2%)
1230   Pos%=INSTR(1%,Rad$,': REM')
1240   WHILE Pos%<>0%
1250     Rad$=LEFT$(Rad$,Pos%-1%)+'!'+RIGHT$(Rad$,Pos%+5%)
1260     GOTO 1330 ! Uthopp
1270   WEND 
1280   Pos%=INSTR(1%,Rad$,'REM')
1290   WHILE Pos%<>0%
1300     Rad$=LEFT$(Rad$,Pos%-1%)+'!'+RIGHT$(Rad$,Pos%+3%)
1310     Pos%=0% ! Uthopp
1320   WEND 
1330   ; #3%,Rad$
1340 WEND 
1345 CLOSE 
1350 CHAIN 'UTFIL.BAS'
10000 WHILE ERRCODE=21%
10010   ; RED ' Lagra filen f|rst under namnet'
10020   ; RED ' TEMP.BAS!'
10030   END 
10040 WEND 
10050 WHILE ERRCODE=34%
10060   Flagga$='EOF'
10070   RESUME 1340
10080 WEND 
10090 ; CHR$(7%);RED 'Fel nr!' ERRCODE
10100 END