40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
FUNCTION PBMAIN () AS LONG
|
|
REDIM s(1 TO DATACOUNT) AS STRING
|
|
o$ = READ$(1)
|
|
d$ = READ$(2)
|
|
FOR n& = 1 TO DATACOUNT
|
|
s(n&) = READ$(n&)
|
|
NEXT
|
|
OPEN o$ FOR OUTPUT AS 1
|
|
FOR n& = 3 TO DATACOUNT - 1
|
|
PRINT #1, s(n&)
|
|
NEXT
|
|
PRINT #1,
|
|
FOR n& = 1 TO DATACOUNT
|
|
PRINT #1, d$ & $DQ & s(n&) & $DQ
|
|
NEXT
|
|
PRINT #1, s(DATACOUNT)
|
|
CLOSE
|
|
|
|
DATA "output.src"
|
|
DATA " DATA "
|
|
DATA "FUNCTION PBMAIN () AS LONG"
|
|
DATA " REDIM s(1 TO DATACOUNT) AS STRING"
|
|
DATA " o$ = READ$(1)"
|
|
DATA " d$ = READ$(2)"
|
|
DATA " FOR n& = 1 TO DATACOUNT"
|
|
DATA " s(n&) = READ$(n&)"
|
|
DATA " NEXT"
|
|
DATA " OPEN o$ FOR OUTPUT AS 1"
|
|
DATA " FOR n& = 3 TO DATACOUNT - 1"
|
|
DATA " PRINT #1, s(n&)"
|
|
DATA " NEXT"
|
|
DATA " PRINT #1,"
|
|
DATA " FOR n& = 1 TO DATACOUNT"
|
|
DATA " PRINT #1, d$ & $DQ & s(n&) & $DQ"
|
|
DATA " NEXT"
|
|
DATA " PRINT #1, s(DATACOUNT)"
|
|
DATA " CLOSE"
|
|
DATA "END FUNCTION"
|
|
END FUNCTION
|